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

[Sylvain Beucler]

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" };