Slight alteration to ensure that it only one module is checked by fullcvsupdate.sh

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

index a420de4e136c4d95f08027e6eb5a1b055af3b1d3..5374744168952c18cc7cfc35f55a8f7348b4fee0 100755 (executable)
--- a/cgi-bin/cvslog.cgi
+++ b/cgi-bin/cvslog.cgi
@@ -24,14 +24,18 @@ else {
     $heading = "Today's i-scream CVS commits";
  }
  
-print "Content-type: text/html\n\n";
+my($cvsroot) = "/cvs/i-scream";
+
+my($modulelist)=$query->param('module');
+$modulelist = `ls $cvsroot` unless defined $modulelist;
  
  my($cvs2clpath) = "/home/sites/www.i-scream.org.uk/bin/cvs2cl.pl";
-my($cvsroot) = "/cvs/i-scream";
  my($cvs2clargs) = "--stdout -r -b -t -w -U $cvsroot/CVSROOT/users -l \"-d'\>$firstdate'\" -g \"-d$cvsroot\" -g \"-Q\"";
-my($updatecmd) = "/home/sites/www.i-scream.org.uk/bin/fullcvsupdate.sh";
+my($updatecmd) = "/home/sites/www.i-scream.org.uk/bin/fullcvsupdate.sh $modulelist";
  my($logcmd) = "cd /home/sites/www.i-scream.org.uk/cvsscripttemp && $cvs2clpath $cvs2clargs";
  
+print "Content-type: text/html\n\n";
+
  print <<"END";
  <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  
@@ -46,13 +50,11 @@ print <<"END";
  <a href="http://www.i-scream.org.uk"><img border="0" src="../i-scream.gif"></a>
  
  <h2>$heading</h2>
-<p>&nbsp;</p>
  
  END
  
  print `$updatecmd`;
  
-my $modulelist = `ls $cvsroot`;
  my(@modules) = split (/\s+/, $modulelist);
  
  foreach my $module (@modules) {