savannah-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Savannah-cvs] administration/infra/commit_prep-log_accum log_...


From: Sylvain Beucler
Subject: [Savannah-cvs] administration/infra/commit_prep-log_accum log_...
Date: Sat, 11 Dec 2004 19:10:36 -0500

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        04/12/11 09:50:50

Modified files:
        infra/commit_prep-log_accum: log_accum.pl 
Added files:
        infra/commit_prep-log_accum: Makefile 

Log message:
        Fixed temp files clean-up
        Fixed use of -T for ViewCVS module name
        Fixed presentation bug in branch notifications
        Added a Makefile

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/commit_prep-log_accum/Makefile?rev=1.1
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/commit_prep-log_accum/log_accum.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text

Patches:
Index: administration/infra/commit_prep-log_accum/log_accum.pl
diff -u administration/infra/commit_prep-log_accum/log_accum.pl:1.2 
administration/infra/commit_prep-log_accum/log_accum.pl:1.3
--- administration/infra/commit_prep-log_accum/log_accum.pl:1.2 Sat Dec 11 
09:47:52 2004
+++ administration/infra/commit_prep-log_accum/log_accum.pl     Sat Dec 11 
09:50:49 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # -*-Perl-*-
 #
-# $Id: log_accum.pl,v 1.2 2004/12/11 09:47:52 Beuc Exp $
+# $Id: log_accum.pl,v 1.3 2004/12/11 09:50:49 Beuc Exp $
 # Perl filter to handle the log messages from the checkin of files in
 # a directory.  This script will group the lists of files by log
 # message, and mail a single consolidated log message at the end of
@@ -92,7 +92,7 @@
     push(@files, grep(/^$FILE_PREFIX\..*\.$id$/, readdir(DIR)));
     closedir(DIR);
     foreach (@files) {
-       unlink $_;
+       unlink "$TMPDIR/$_";
     }
     unlink $LAST_FILE . "." . $id;
 }
@@ -246,7 +246,7 @@
     }
 
     if ($branch ne '') {
-       $text = "$text[$branch]";
+       $text = "$text [$branch]";
     }
     $text;
 }
@@ -351,9 +351,11 @@
 # and the project name has been defined by the -T option
 # (this works for the particular setup in savannah.gnu.org but will have
 # to be changed in other sites.)
+    # Beuc: rather get the project name from CVSROOT
+    my ($project_name) = $cvsroot =~ /([^\/]+)$/;
     if ($cvsweb_name eq '')
     {
-       $start .= $temp_name . '/';
+       $start .= $project_name . '/';
     }
     else
     {




reply via email to

[Prev in Thread] Current Thread [Next in Thread]