[an error occurred while processing this directive] #!/usr/local/bin/perl print "Content-type: text/html\n\n"; &ReadParse; $fle=$in{fle}; $slash=$fle; $path="../../"; AGAIN: if ($slash=~/\//) { $slash=~s/\///; $path.="../"; goto AGAIN; } $path.="d.pl?url="; #print "$fle -- $og"; open F,$fle; while () { $file.=$_; } close (F); $file =~ s///mgi; #$file =~ s/)[\'|\"|](\s*?(?!d\.pl|(?:http\:\/\/|)[^\/]*?edgate\.(?:com|net|org)|(?:http\:\/\/|).*?\/edgate\/|[^\.]*?\.htm[l|]).*?)[\'|\"|]/)([\'|\"|])(\s*?(?!d\.pl|(?:http:\/\/|)[^\/]*?edgate\.(?:com|net|org)|(?:http:\/\/|).*?\/edgate\/).*?)([\'|\"|])/>cgi-test.dat"; print FILE (split("\n", `date \"+%Y-%b-%d %T\"`))[0], ";", $ENV{'SCRIPT_NAME'}, ";", scalar $in, "\n"; close FILE; } return scalar(@in); }