#!/usr/bin/perl -w
require "../../cgi-lib.pl";
ReadParse(*in);
$openbr="<";
$closebr="&rt;";
# $listing=`./allhtml.pl`; #this script outputs a list of all my html
#files.
if($in{html){
if ($in{html} =~ /^([-\@\w.]+)$/) {
$filename = $1;
} else {
die "Bad data in $in{html}";
}
open(LINKPAGE, $filename);
$filesize = -s LINKPAGE;
read(LINKPAGE, $wholepage, $filesize);
$wholepage=~s//$closebr/g;
print "Content-type: text/html\n\n";
print "";
print "";
print $in{html};
print "
";
print "$wholepage
";
}
print $listing;
print "Big Joe
\n\n
";
close(LINKPAGE);
exit;