X-Git-Url: http://git.i-scream.org/?a=blobdiff_plain;f=cgi-bin%2Fcvslog.cgi;h=49bb105d23840ff7a41f30fd941527448d7007fe;hb=HEAD;hp=3c8cf7189ac6c20b7dd7fac1696e76e948d988f4;hpb=6567070dd93dd5ce4196d04dd15c588080b5b604;p=www.i-scream.org.git

diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi
index 3c8cf71..49bb105 100755
--- 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,10 +105,11 @@ my(@modules) = split (/\s+/, $modulelist);
 
 foreach my $module (@modules) {
     my($firstentry) = 1;
+    my($sec) = 0;
     print <<"END";
             <div>
               <h3>
-                <a href="http://cvs.i-scream.org/$module/" class="cvsloghead">$module module</a>
+                <a href="https://cvs.i-scream.org/$module/" class="cvsloghead">$module module</a>
               </h3>
 END
 
@@ -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";
@@ -189,7 +189,7 @@ END
                 }
                 $file = escapeHTML($file);
                 print <<"END";
-                  <a href="http://cvs.i-scream.org/$file">$file</a>
+                  <a href="https://cvs.i-scream.org/$file">$file</a>
 END
                 if($rev =~ /\(([^\s]+)\.(\d+)(.*)\)/) {
                     my $start = $1;
@@ -212,7 +212,7 @@ END
                         $other = escapeHTML($other);
                         chomp $other;
                         print <<"END";
-                  (<a href="http://cvs.i-scream.org/$file$diff">$startend</a>$other)$ext
+                  (<a href="https://cvs.i-scream.org/$file$diff">$startend</a>$other)$ext
 END
                     }
                     else {
@@ -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";