[vhffs-dev] [1383] exit listengine if the source mail doesn't have a valid From:

[subversion@xxxxxxxxxxxxx]

Revision: 1383
Author:   gradator
Date:     2009-03-16 21:02:18 +0100 (Mon, 16 Mar 2009)

Log Message:
-----------
exit listengine if the source mail doesn't have a valid From:

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


Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl	2009-03-16 17:09:54 UTC (rev 1382)
+++ trunk/vhffs-listengine/src/listengine.pl	2009-03-16 20:02:18 UTC (rev 1383)
@@ -1128,9 +1128,10 @@
 	my $mail = shift;
 
 	my ( $from ) = ( $mail->get('From') =~ /([^\s^<]+@[^>^\s]+)/);
+	exit( 0 ) unless defined $from;
+	exit( 0 ) if( $from eq '' );
+
 	$from = lc $from;
-
-	exit( 0 ) unless defined $from;
 	exit( 0 ) if( $from eq $list->get_listname);
 	exit( 0 ) if( $from eq $list->get_localpart.'-request@'.$list->get_domain );
 }