my ($menu) = "$incdir/menu.inc" ;
# Section markers
-my ($sec) = 0;
my ($secwho) = 1;
my ($secfiles) = 2;
my ($seclog) = 3;
foreach my $module (@modules) {
my($firstentry) = 1;
+ my($sec) = 0;
print <<"END";
<div>
<h3>
@log = &trim_array(@log);
foreach my $logline (@log) {
$logline =~ s/^\t//;
- print "$logline\n";
+ print escapeHTML("$logline\n");
}
@log = ();
print <<"END";
@log = &trim_array(@log);
foreach my $logline (@log) {
$logline =~ s/^\t//;
- print "$logline\n";
+ print escapeHTML("$logline\n");
}
@log = ();
print <<"END";
# 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;