Urg - now the image is generated using SSI the things that include the

[www.i-scream.org.git] / cgi-bin / cvslog.cgi

diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi
index 3c8cf7189ac6c20b7dd7fac1696e76e948d988f4..01ee2bfabf732c52705f42dcc9a11882550699b2 100755 (executable)
--- a/cgi-bin/cvslog.cgi
+++ b/cgi-bin/cvslog.cgi
@@ -58,7 +58,6 @@ my ($footer) = "$incdir/footer.inc";
 my ($menu) = "$incdir/menu.inc" ;
 
 # Section markers
-my ($sec) = 0;
 my ($secwho) = 1;
 my ($secfiles) = 2;
 my ($seclog) = 3;
@@ -106,6 +105,7 @@ my(@modules) = split (/\s+/, $modulelist);
 
 foreach my $module (@modules) {
     my($firstentry) = 1;
+    my($sec) = 0;
     print <<"END";
             <div>
               <h3>
@@ -135,7 +135,7 @@ END
                         @log = &trim_array(@log);
                         foreach my $logline (@log) {
                             $logline =~ s/^\t//;
-                            print "$logline\n";
+                            print escapeHTML("$logline\n");
                         }
                         @log = ();
                         print <<"END";
@@ -251,7 +251,7 @@ END
             @log = &trim_array(@log);
             foreach my $logline (@log) {
                 $logline =~ s/^\t//;
-                print "$logline\n";
+                print escapeHTML("$logline\n");
             }
             @log = ();
             print <<"END";
@@ -291,8 +291,13 @@ exit 0;
 # 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;