derick Fri Dec 19 10:22:18 2003 EDT
Modified files:
/CVSROOT loginfo.pl
Log:
- Apparently our script didn't like multiple addresses
#- I am by no means a perl expert, so please check!
Index: CVSROOT/loginfo.pl
diff -u CVSROOT/loginfo.pl:1.66 CVSROOT/loginfo.pl:1.67
--- CVSROOT/loginfo.pl:1.66 Sun Jun 22 21:29:50 2003
+++ CVSROOT/loginfo.pl Fri Dec 19 10:22:17 2003
@@ -34,8 +34,8 @@
# ("[EMAIL PROTECTED]", "cvsuser",
# "module changedfile,1.1,1.2 addedfile,NONE,1.1 removedfile,1.1,NONE")
my $mailfrom = shift;
-my $mailto = $mailfrom;
-my $envaddr = $mailto;
+my @mailto = split(",", $mailfrom);
+my @envaddr = @mailto;
my $cvsuser = shift;
my @args = split(" ", $ARGV[0]);
@@ -46,12 +46,12 @@
$module =~ s/\/.+$//;
if ($cvsuser eq "changelog" && $module ne "php-gtk" && $module ne "smarty") {
- $envaddr = "[EMAIL PROTECTED]";
- $mailto = "[EMAIL PROTECTED]";
+ @envaddr = ("[EMAIL PROTECTED]");
+ @mailto = ("[EMAIL PROTECTED]");
}
# Disable phpdoc mails for some minutes [for really BIG patches!]
-# if ($mailto eq "[EMAIL PROTECTED]") {
+# if ($mailfrom eq "[EMAIL PROTECTED]") {
# exit 0;
# }
@@ -187,7 +187,7 @@
$from ||= "$cvsuser <$cvsid>";
-# "Reply-to: $mailto\n".
+# "Reply-to: @mailto\n".
# "Date: ".localtime()."\n".
my (@DAYABBR) = qw(Sun Mon Tue Wed Thu Fri Sat);
my (@MONABBR) = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@@ -202,7 +202,7 @@
my $email;
my $common_header = "".
"From: $from\n".
- "To: $mailto\n".
+ "To: @mailto[0]\n".
$msgid.
$rfc822date.
"Subject: cvs: $module$subj_tag $subj\n";
@@ -244,7 +244,11 @@
# send our email
-print "Mailing the commit email to $mailto\n";
+print "Mailing the commit email to ";
+for (@mailto) {
+ print "$_ ";
+}
+print "\n";
#print $email;
@@ -255,9 +259,13 @@
$|=1;
print "HELO cvsserver\r\n".
-"MAIL FROM:<[EMAIL PROTECTED]>\r\n" .
-"RCPT TO:<$envaddr>\r\n" .
-"DATA\r\n".
+"MAIL FROM:<[EMAIL PROTECTED]>\r\n";
+
+foreach (@envaddr) {
+ print "RCPT TO:<$_>\r\n";
+}
+
+print "DATA\r\n".
"$email\r\n".
".\r\n".
"QUIT\r\n";
--
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php
