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

[vhffs-dev@xxxxxxxxx]

Author: florent
Date: Mon Aug 21 21:16:30 2006
New Revision: 221

Log:
Correction de deux bugs dans listengine :
 - les messages de moderation sont maintenant envoyes a tous les admins
 - les messages devraient maintenant etre reellement mis en moderation.


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 Mon Aug 21 21:16:30 2006
@@ -193,7 +193,7 @@
 				   Body => Vhffs::Listengine::Intl::moderate_message( $list , $filehash , $from , $subject )
 				   );
     
-    sendmail( $email , @tos ) if( ( defined $email ) && ( $#tos >= 0 ) );
+    sendmail( $email , \@tos ) if( ( defined $email ) && ( $#tos >= 0 ) );
 }
 
 
@@ -480,16 +480,17 @@
     elsif( $list->get_moderated == 1 )
     {
        
+    	$in_moderation = 1;
+
 	# If the list is moderated, we refuse the mail
 	# But if the mail is from an admin, we allow it
 	foreach ( keys %{$subs} )
 	{
-	    $in_moderation = 1;
-
-	    if( ( $from eq $_ ) && ( $subs->{$_}{perm} != Vhffs::Constants::ML_RIGHT_ADMIN ) )
+	    if( ( $from eq $_ ) && ( $subs->{$_}{perm} == Vhffs::Constants::ML_RIGHT_ADMIN ) )
 	    {
 		$authorized = 1;
 		$in_moderation = 0;
+		last;
 	    }
 	}