[vhffs-dev] [772] Quick patch

[subversion@xxxxxxxxx]

Revision: 772
Author:   gradator
Date:     2007-08-22 10:28:12 +0000 (Wed, 22 Aug 2007)

Log Message:
-----------
Quick patch

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


Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl	2007-08-20 18:00:30 UTC (rev 771)
+++ trunk/vhffs-listengine/src/listengine.pl	2007-08-22 10:28:12 UTC (rev 772)
@@ -134,7 +134,10 @@
     $month = '0'.$month if( $month < 9 );
     $day = '0'.$day if( $day < 9 );
 
-    my $message_id = ( $mail->get( 'Message-Id' ) =~ /<(.+)>/ );
+#    my ( $message_id  )=  ($mail->get( 'Message-Id' ) =~ /^<(.+)>$/);
+    my $message_id = $mail->get( 'Message-Id' );
+    ( undef , $message_id ) = split( /</ , $message_id , 2);
+    ( $message_id , undef ) = split( />/ , $message_id , 2);
 
     #Don't archive if message-id is not found
     return if( ( ! defined $message_id ) || ( $message_id eq "" ) );
@@ -157,8 +160,11 @@
     my $members = $list->get_members;
     my $header;
     my $email;
-    my ( $message_id  )=  ($mail->get( 'Message-Id' ) =~ /<(.+)>/);
-    my ( $from ) = ( $mail->get('From') =~ /(([\+\.a-zA-Z_\-0-9^\s]+)@([\.a-zA-Z_\-0-9^\s]+)\.(\w+))/);
+#    my ( $message_id  )=  ($mail->get( 'Message-Id' ) =~ /^<(.+)>$/);
+    my $message_id = $mail->get( 'Message-Id' );
+    ( undef , $message_id ) = split( /</ , $message_id , 2);
+    ( $message_id , undef ) = split( />/ , $message_id , 2);
+    my $from = ( $mail->get('From') =~ /(([\+\.a-zA-Z_\-0-9^\s]+)@([\.a-zA-Z_\-0-9^\s]+)\.(\w+))/);
     my $directory = get_moderation_dir( $list );
     my $subject = $mail->get('Subject');