[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: |
Sun, 20 Feb 2005 12:00:40 -0500 |
CVSROOT: /cvsroot/administration
Module name: administration
Branch:
Changes by: Sylvain Beucler <address@hidden> 05/02/20 17:00:39
Modified files:
infra/commit_prep-log_accum: log_accum.pl
Log message:
Added a way to set the envelop sender
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/commit_prep-log_accum/log_accum.pl.diff?tr1=1.3&tr2=1.4&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.3
administration/infra/commit_prep-log_accum/log_accum.pl:1.4
--- administration/infra/commit_prep-log_accum/log_accum.pl:1.3 Sat Dec 11
09:50:49 2004
+++ administration/infra/commit_prep-log_accum/log_accum.pl Sun Feb 20
17:00:39 2005
@@ -1,7 +1,7 @@
#!/usr/bin/perl
# -*-Perl-*-
#
-# $Id: log_accum.pl,v 1.3 2004/12/11 09:50:49 Beuc Exp $
+# $Id: log_accum.pl,v 1.4 2005/02/20 17:00:39 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
@@ -56,6 +56,9 @@
# Base name of cvsweb specification.
$CVSWEB_URL = "http://savannah.gnu.org/cgi-bin/viewcvs/";
+# Envelop sender, cannot be forged
+$ENVELOP_SENDER = 'address@hidden';
+
# Constants (don't change these!)
#
$STATE_NONE = 0;
@@ -308,7 +311,7 @@
print STDERR "mail_notification: to $names, subject $subject\n" if
($debug);
my @email_list = split (/\s+/, $names);
- my @socketmail_args = ("/bin/socket-mail", $mailname, @email_list);
+ my @socketmail_args = ("/bin/socket-mail", $ENVELOP_SENDER, @email_list);
my $pid = open (MAIL, "|-");
$SIG{PIPE} = sub { die "whoops, pipe broke" };
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Savannah-cvs] administration/infra/commit_prep-log_accum log_...,
Sylvain Beucler <=