my ($style) = "$incdir/style.inc";
my ($header) = "$incdir/header.inc";
my ($footer) = "$incdir/footer.inc";
-my ($menu) = "$incdir/menu.inc" ;
+my ($menu) = "$incdir/menu-static.inc" ;
# Section markers
my ($secwho) = 1;
# Print the contents of a file containing html
sub print_html {
my ($filename) = @_;
- my($virtual) = '<!--#include virtual="/cgi-bin/logo.cgi" -->';
- my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`;
open(FILE, $filename);
while(<FILE>) {
- if(/$virtual/) {
- s/$virtual/$virtualresponse[@virtualresponse-1]/;
- }
print;
}
close FILE;
my ($style) = "$incdir/style.inc";
my ($header) = "$incdir/header.inc";
my ($footer) = "$incdir/footer.inc";
-my ($menu) = "$incdir/menu.inc" ;
+my ($menu) = "$incdir/menu-static.inc" ;
my ($query) = new CGI;
# Print the contents of a file containing html
sub print_html ($) {
my ($filename) = @_;
- my($virtual) = '<!--#include virtual="/cgi-bin/logo.cgi" -->';
- my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`;
open(FILE, $filename);
while(<FILE>) {
- if(/$virtual/) {
- s/$virtual/$virtualresponse[@virtualresponse-1]/;
- }
print;
}
close FILE;