[vhffs-dev] [svn] commit: r153 - /trunk/vhffs-listengine/src/listengine.pl

[vhffs-dev@xxxxxxxxx]

Author: soda
Date: Fri Feb 10 00:17:24 2006
New Revision: 153

Log:
fix listengine bugs


Modified:
    trunk/vhffs-listengine/src/listengine.pl

Modified: trunk/vhffs-listengine/src/listengine.pl
==============================================================================
--- trunk/vhffs-listengine/src/listengine.pl (original)
+++ trunk/vhffs-listengine/src/listengine.pl Fri Feb 10 00:17:24 2006
@@ -89,14 +89,10 @@
 	push @tos , $addrs;
    }
 
-use Data::Dumper;
-print Dumper $mail;
-return;
 	foreach $adr (@tos)
 	{
 		$smtp = Net::SMTP->new( $SMTP_SERVER,
 			Hello => $DOMAIN,
-#                        Debug   => 1,
 		);
 
 		$smtp->mail( $mail->get('From') );
@@ -603,7 +599,7 @@
     my $temp;
     my $members = $list->get_members;
 
-    if( $subject =~ /^help$/i )
+    if( $subject =~ /^help$/ )
     {
 	$email = Mail::Internet->new( [ <> ],
 				     Body => Vhffs::Listengine::Intl::generate_help