[vhffs-dev] [1166] Fixed a bug in batched SMTP with mails which use a multilines From:

[subversion@xxxxxxxxxxxxx]

Revision: 1166
Author:   gradator
Date:     2008-02-27 00:41:33 +0000 (Wed, 27 Feb 2008)

Log Message:
-----------
Fixed a bug in batched SMTP with mails which use a multilines From:

Modified Paths:
--------------
    branches/vhffs-4.1/vhffs-listengine/src/listengine.pl
    trunk/vhffs-listengine/src/listengine.pl


Modified: branches/vhffs-4.1/vhffs-listengine/src/listengine.pl
===================================================================
--- branches/vhffs-4.1/vhffs-listengine/src/listengine.pl	2008-02-26 22:51:41 UTC (rev 1165)
+++ branches/vhffs-4.1/vhffs-listengine/src/listengine.pl	2008-02-27 00:41:33 UTC (rev 1166)
@@ -125,12 +125,10 @@
 
 		foreach my $adr (@tos)
 		{
-			my $from = $mail->get('From');
-			chomp $from;
 			chomp $adr;
 
 			print SENDMAIL 'RSET'."\n";
-			print SENDMAIL 'MAIL FROM:'.$from."\n";
+			print SENDMAIL 'MAIL FROM:<'.$LISTMASTER.'>'."\n";
 			print SENDMAIL 'RCPT TO:<'.$adr.'>'."\n";
 			print SENDMAIL 'DATA'."\n";
 			print SENDMAIL $mail->as_string;

Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl	2008-02-26 22:51:41 UTC (rev 1165)
+++ trunk/vhffs-listengine/src/listengine.pl	2008-02-27 00:41:33 UTC (rev 1166)
@@ -125,12 +125,10 @@
 
 		foreach my $adr (@tos)
 		{
-			my $from = $mail->get('From');
-			chomp $from;
 			chomp $adr;
 
 			print SENDMAIL 'RSET'."\n";
-			print SENDMAIL 'MAIL FROM:'.$from."\n";
+			print SENDMAIL 'MAIL FROM:<'.$LISTMASTER.'>'."\n";
 			print SENDMAIL 'RCPT TO:<'.$adr.'>'."\n";
 			print SENDMAIL 'DATA'."\n";
 			print SENDMAIL $mail->as_string;