[Top][All Lists]
[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
{