$| = 1;
# Settings
-my ($incdir) = "../nwww";
+my ($incdir) = "../htdocs";
# Include files
my ($doctype) = "$incdir/doctype.inc";
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 "Malformed request.";
exit;
}
-$doc = "../htdocs/documentation/".$doc;
+$doc = "../htdocs/cms/documentation/".$doc;
my($docname) = $doc =~ /\/([^\/]+)$/;
# 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;