[vhffs-dev] [766] Fixes mass subscribe (backport from vhffs 4.1)

[subversion@xxxxxxxxx]

Revision: 766
Author:   gradator
Date:     2007-08-17 17:46:32 +0000 (Fri, 17 Aug 2007)

Log Message:
-----------
Fixes mass subscribe (backport from vhffs 4.1)

Modified Paths:
--------------
    branches/vhffs-4.0/vhffs-panel/mailinglist/add_sub.pl


Modified: branches/vhffs-4.0/vhffs-panel/mailinglist/add_sub.pl
===================================================================
--- branches/vhffs-4.0/vhffs-panel/mailinglist/add_sub.pl	2007-08-17 16:50:25 UTC (rev 765)
+++ branches/vhffs-4.0/vhffs-panel/mailinglist/add_sub.pl	2007-08-17 17:46:32 UTC (rev 766)
@@ -94,13 +94,9 @@
 	$message = gettext("You're not allowed to do this (ACL rights)");
 }
 
-my @members = split (/^/, $memberlist);
-chomp (@members);
-map(s/^\s*(\S*)\s*$/$1/, @members);
-@members = grep (!/^$/, @members);
-
-my $member;
-foreach $member ( @members )  {
+my @members = split /\r\n/, $memberlist;
+foreach my $member ( @members )  {
+	chomp $member;
 	
 	if( Vhffs::Functions::valid_mail( $member ) < 0 )  {
 		$message .= sprintf( gettext("%s is not a valid mail"), $member );