ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/web/cgi-bin/cvslog.cgi
(Generate patch)

Comparing web/cgi-bin/cvslog.cgi (file contents):
Revision 1.9 by tdb, Wed Jun 13 15:29:51 2001 UTC vs.
Revision 1.10 by tdb, Wed Jun 13 15:53:51 2001 UTC

# Line 24 | Line 24 | else {
24     $heading = "Today's i-scream CVS commits";
25   }
26  
27 < print "Content-type: text/html\n\n";
27 > my($cvsroot) = "/cvs/i-scream";
28  
29 + my($modulelist)=$query->param('module');
30 + $modulelist = `ls $cvsroot` unless defined $modulelist;
31 +
32   my($cvs2clpath) = "/home/sites/www.i-scream.org.uk/bin/cvs2cl.pl";
30 my($cvsroot) = "/cvs/i-scream";
33   my($cvs2clargs) = "--stdout -r -b -t -w -U $cvsroot/CVSROOT/users -l \"-d'\>$firstdate'\" -g \"-d$cvsroot\" -g \"-Q\"";
34 < my($updatecmd) = "/home/sites/www.i-scream.org.uk/bin/fullcvsupdate.sh";
34 > my($updatecmd) = "/home/sites/www.i-scream.org.uk/bin/fullcvsupdate.sh $modulelist";
35   my($logcmd) = "cd /home/sites/www.i-scream.org.uk/cvsscripttemp && $cvs2clpath $cvs2clargs";
36  
37 + print "Content-type: text/html\n\n";
38 +
39   print <<"END";
40   <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
41  
# Line 50 | Line 54 | print <<"END";
54   END
55  
56   print `$updatecmd`;
53
54 my($modulelist)=$query->param('module');
55 $modulelist = `ls $cvsroot` unless defined $modulelist;
57  
58   my(@modules) = split (/\s+/, $modulelist);
59  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines