# | Line 6 | Line 6 | use CGI; | |
---|---|---|
6 | $| = 1; | |
7 | ||
8 | # Settings | |
9 | < | my ($incdir) = "../nwww"; |
9 | > | my ($incdir) = "../htdocs"; |
10 | ||
11 | # Include files | |
12 | my ($doctype) = "$incdir/doctype.inc"; | |
13 | my ($style) = "$incdir/style.inc"; | |
14 | my ($header) = "$incdir/header.inc"; | |
15 | my ($footer) = "$incdir/footer.inc"; | |
16 | < | my ($menu) = "$incdir/menu.inc" ; |
16 | > | my ($menu) = "$incdir/menu-static.inc" ; |
17 | ||
18 | my ($query) = new CGI; | |
19 | ||
# | Line 35 | Line 35 | unless ($doc =~ /^[a-zA-Z_\-0-9\.\/]+$/) { | |
35 | print "Malformed request."; | |
36 | exit; | |
37 | } | |
38 | < | $doc = "../htdocs/documentation/".$doc; |
38 | > | $doc = "../htdocs/cms/documentation/".$doc; |
39 | ||
40 | my($docname) = $doc =~ /\/([^\/]+)$/; | |
41 | ||
# | Line 136 | Line 136 | my ($urls) = '(' . join ('|', qw{ | |
136 | # Print the contents of a file containing html | |
137 | sub print_html ($) { | |
138 | my ($filename) = @_; | |
139 | – | my($virtual) = '<!--#include virtual="/cgi-bin/logo.cgi" -->'; |
140 | – | my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`; |
139 | open(FILE, $filename); | |
140 | while(<FILE>) { | |
143 | – | if(/$virtual/) { |
144 | – | s/$virtual/$virtualresponse[@virtualresponse-1]/; |
145 | – | } |
141 | print; | |
142 | } | |
143 | close FILE; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |