[Savannah-cvs] administration/infra/bin install-log-accum.pl

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        05/02/05 08:32:16

Modified files:
        infra/bin      : install-log-accum.pl 

Log message:
        Fixed path and added -q in co&ci

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/bin/install-log-accum.pl.diff?tr1=1.12&tr2=1.13&r1=text&r2=text

Patches:
Index: administration/infra/bin/install-log-accum.pl
diff -u administration/infra/bin/install-log-accum.pl:1.12 
administration/infra/bin/install-log-accum.pl:1.13
--- administration/infra/bin/install-log-accum.pl:1.12  Sat Feb  5 08:26:21 2005
+++ administration/infra/bin/install-log-accum.pl       Sat Feb  5 08:32:16 2005
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # -*- perl -*-
 #
-# $Id: install-log-accum.pl,v 1.12 2005/02/05 08:26:21 Beuc Exp $
+# $Id: install-log-accum.pl,v 1.13 2005/02/05 08:32:16 Beuc Exp $
 
 use strict;
 use warnings;
@@ -239,7 +239,7 @@
     my $commitinfo_line = "$regex $commit_prep_prog -r -T $text";
 
     # Checks out the file for editing
-    system ('co', '-l', 'commitinfo');
+    system('co', '-q', '-l', "$cvsroot/CVSROOT/loginfo");
 
     # Open `$commitinfo_file', write `$commitinfo_line' and close
     # `$commitinfo_file'.
@@ -249,7 +249,7 @@
     close CINFO;
 
     # Checks in the file
-    system ('ci', '-mInstalled commit notification', 'commitinfo');
+    system('ci', '-q', '-mInstalled commit notification', 
"$cvsroot/CVSROOT/loginfo");
 }
 
 # write_loginfo($project, $cvsroot, $regex, $text, $module, $log_email, 
$context_diffs, $diff_email)
@@ -284,7 +284,7 @@
     $loginfo_line .= " %{sVv}";
 
     # Checks out the file for editing
-    system ('co', '-l', 'loginfo');
+    system('co', '-q', '-l', "$cvsroot/CVSROOT/loginfo");
 
     # Open `$loginfo_file', write `$loginfo_line' and close
     # `$loginfo_file'.
@@ -294,7 +294,7 @@
     close LINFO;
 
     # Checks in the file
-    system ('ci', '-mInstalled commit notification', 'loginfo');
+    system('ci', '-q', '-mInstalled commit notification', 
"$cvsroot/CVSROOT/loginfo");
 }
 
 1;