[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:26:21

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

Log message:
        Uses ci and co to cleanly edit commitinfo and loginfo
        Removed usage of -M

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

Patches:
Index: administration/infra/bin/install-log-accum.pl
diff -u administration/infra/bin/install-log-accum.pl:1.11 
administration/infra/bin/install-log-accum.pl:1.12
--- administration/infra/bin/install-log-accum.pl:1.11  Thu Nov 25 23:43:15 2004
+++ administration/infra/bin/install-log-accum.pl       Sat Feb  5 08:26:21 2005
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # -*- perl -*-
 #
-# $Id: install-log-accum.pl,v 1.11 2004/11/25 23:43:15 Beuc Exp $
+# $Id: install-log-accum.pl,v 1.12 2005/02/05 08:26:21 Beuc Exp $
 
 use strict;
 use warnings;
@@ -238,12 +238,18 @@
     # commitinfo line we'll be writing
     my $commitinfo_line = "$regex $commit_prep_prog -r -T $text";
 
+    # Checks out the file for editing
+    system ('co', '-l', 'commitinfo');
+
     # Open `$commitinfo_file', write `$commitinfo_line' and close
     # `$commitinfo_file'.
     print "Writing commitinfo file `$commitinfo_file'\n" if $opt_verbose;
     open CINFO, ">>$commitinfo_file" or die "Failed to open 
`$commitinfo_file'";
     print CINFO "$commitinfo_line\n";
     close CINFO;
+
+    # Checks in the file
+    system ('ci', '-mInstalled commit notification', 'commitinfo');
 }
 
 # write_loginfo($project, $cvsroot, $regex, $text, $module, $log_email, 
$context_diffs, $diff_email)
@@ -270,17 +276,25 @@
     die "File `$loginfo_file' doesn't exist!" if ! -f $loginfo_file;
 
     # loginfo line we'll be writing
-    my $loginfo_line = "$regex $log_accum_prog -C -m $log_email -M $module -s 
-T $text";
+    # -M does not appears to be useful
+    # my $loginfo_line = "$regex $log_accum_prog -C -m $log_email -M $module 
-s -T $text";
+    my $loginfo_line = "$regex $log_accum_prog -C -m $log_email -s -T $text";
     $loginfo_line .= " -u" if !$context_diffs;
     $loginfo_line .= " -D=$diff_email" if $diff_email ne '';
     $loginfo_line .= " %{sVv}";
 
+    # Checks out the file for editing
+    system ('co', '-l', 'loginfo');
+
     # Open `$loginfo_file', write `$loginfo_line' and close
     # `$loginfo_file'.
     print "Writing loginfo file `$loginfo_file'\n" if $opt_verbose;
     open LINFO, ">>$loginfo_file" or die "Failed to open `$loginfo_file'";
     print LINFO "$loginfo_line\n";
     close LINFO;
+
+    # Checks in the file
+    system ('ci', '-mInstalled commit notification', 'loginfo');
 }
 
 1;