Fix quoting problem which has appeared with new version of cvs2cl.

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

diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi
index 3c8cf7189ac6c20b7dd7fac1696e76e948d988f4..e4fd3422bb2bd981fab06a882e8d8570e4ab7c90 100755 (executable)
--- a/cgi-bin/cvslog.cgi
+++ b/cgi-bin/cvslog.cgi
@@ -44,21 +44,20 @@ $modulelist = `ls $cvsroot` unless defined $modulelist;
 $modulelist =~ s/[\r\n]/ /gm;
 
 my($cvs2clpath) = "/usr/local/bin/cvs2cl";
-my($cvs2clargs) = "--stdout --no-wrap --no-common-dir -r -t -w -S -U $cvsroot/CVSROOT/users -l \"-d'$firstdate'\" -g \"-d$cvsroot\" -g \"-Q\"";
+my($cvs2clargs) = "--stdout --no-wrap --no-common-dir -r -t -w -S -U $cvsroot/CVSROOT/users -l \"-d$firstdate\" -g \"-d$cvsroot\" -g \"-Q\"";
 my($updatecmd) = "/home/iscream/bin/fullcvsupdate.sh $modulelist";
 my($logcmd) = "cd /tmp/i-scream/cvstmp && $cvs2clpath $cvs2clargs";
 
-my ($incdir) = "../nwww";
+my ($incdir) = "../htdocs";
 
 # Include files
 my ($doctype) = "$incdir/doctype.inc";
 my ($style) = "$incdir/style.inc";
 my ($header) = "$incdir/header.inc";
 my ($footer) = "$incdir/footer.inc";
-my ($menu) = "$incdir/menu.inc" ;
+my ($menu) = "$incdir/menu-static.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";