]> i-scream Git - www.i-scream.org.git/blobdiff - cgi-bin/cvslog.cgi
Display a different logo if coming in from IPv6. It's not nice, but I don't
[www.i-scream.org.git] / cgi-bin / cvslog.cgi
index 01ee2bfabf732c52705f42dcc9a11882550699b2..e4fd3422bb2bd981fab06a882e8d8570e4ab7c90 100755 (executable)
@@ -44,18 +44,18 @@ $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 ($secwho) = 1;
@@ -291,13 +291,8 @@ 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;