| 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 |
|
|
| 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; |
