01: #!/usr/bin/perl
02: # Perl script to display a page back as requested by the argument
03:
04: require "../cgi-bin/cgi-lib.pl";
05:
06: &Readparse(*input)
07:
08: $filename = $input{page};
09: if ( $filename eq "" ) {
10:    $filename = "main.html";
11: }
12:
13: print $PrintHeader;
14:
15: $filename = "/usr/local/apache/htdocs/" . $filename
16: open ( FILE, $filenane );
17: while ( <FILE> ) {
18:    print $_;
19: }
20: close ( FILE );