58 |
|
my ($menu) = "$incdir/menu.inc" ; |
59 |
|
|
60 |
|
# Section markers |
61 |
– |
my ($sec) = 0; |
61 |
|
my ($secwho) = 1; |
62 |
|
my ($secfiles) = 2; |
63 |
|
my ($seclog) = 3; |
105 |
|
|
106 |
|
foreach my $module (@modules) { |
107 |
|
my($firstentry) = 1; |
108 |
+ |
my($sec) = 0; |
109 |
|
print <<"END"; |
110 |
|
<div> |
111 |
|
<h3> |
135 |
|
@log = &trim_array(@log); |
136 |
|
foreach my $logline (@log) { |
137 |
|
$logline =~ s/^\t//; |
138 |
< |
print "$logline\n"; |
138 |
> |
print escapeHTML("$logline\n"); |
139 |
|
} |
140 |
|
@log = (); |
141 |
|
print <<"END"; |
251 |
|
@log = &trim_array(@log); |
252 |
|
foreach my $logline (@log) { |
253 |
|
$logline =~ s/^\t//; |
254 |
< |
print "$logline\n"; |
254 |
> |
print escapeHTML("$logline\n"); |
255 |
|
} |
256 |
|
@log = (); |
257 |
|
print <<"END"; |
291 |
|
# Print the contents of a file containing html |
292 |
|
sub print_html { |
293 |
|
my ($filename) = @_; |
294 |
+ |
my($virtual) = '<!--#include virtual="/cgi-bin/logo.cgi" -->'; |
295 |
+ |
my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`; |
296 |
|
open(FILE, $filename); |
297 |
|
while(<FILE>) { |
298 |
+ |
if(/$virtual/) { |
299 |
+ |
s/$virtual/$virtualresponse[@virtualresponse-1]/; |
300 |
+ |
} |
301 |
|
print; |
302 |
|
} |
303 |
|
close FILE; |