Generate index.html in the same directory.

This commit is contained in:
Dag-Erling Smørgrav 2003-07-18 07:24:13 +00:00
parent 086a638ef6
commit cc1f50a9fe

View file

@ -68,7 +68,9 @@ MAIN:{
$| = 1;
print "Content-Type: text/html\n\n";
} else {
open(STDOUT, ">", "index.html")
my $fn = $0;
$fn =~ s/cgi$/html/;
open(STDOUT, ">", $fn)
or die("index.html: $!\n");
}
print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>