User: vharcq
Date: 02/02/17 01:44:41
Modified: . log_accum.pl
Log:
Try to avoid mail errors when reply to is done on cvs commit
Revision Changes Path
1.2 +7 -2 CVSROOT/log_accum.pl
Index: log_accum.pl
===================================================================
RCS file: /cvsroot/xdoclet/CVSROOT/log_accum.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- log_accum.pl 19 Jul 2001 05:45:38 -0000 1.1
+++ log_accum.pl 17 Feb 2002 09:44:41 -0000 1.2
@@ -66,7 +66,8 @@
$PATH = "$PATH:/bin:/usr/bin";
$MAIL_CMD = "| /usr/lib/sendmail -i -t";
$MAIL_TO = '[EMAIL PROTECTED]';
-$MAIL_FROM = "$ENV{'USER'}\@sourceforge.net";
+#$MAIL_FROM = "$ENV{'USER'}\@users.sourceforge.net";
+undef $MAIL_FROM;
$SUBJECT_PRE = 'CVS update:';
############################################################
@@ -311,7 +312,7 @@
print "Mailing the commit message...\n";
open(MAIL, $MAIL_CMD);
- print MAIL "From: $MAIL_FROM\n";
+ print MAIL "From: $MAIL_FROM\n" if defined($MAIL_FROM);
print MAIL "To: $MAIL_TO\n";
print MAIL "Subject: $SUBJECT_PRE $ARGV[0]\n\n";
print(MAIL join("\n", @text));
@@ -333,6 +334,10 @@
if ($arg eq '-u') {
$cvs_user = shift @argv;
+ } elsif ($arg eq '-to') {
+ $MAIL_TO = shift @argv;
+ } elsif ($arg eq '-from') {
+ $MAIL_FROM = shift @argv;
} else {
($donefiles) && die "Too many arguments!\n";
$donefiles = 1;
_______________________________________________
Xdoclet-devel mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/xdoclet-devel
