diff options
| author | tmu <tmu> | 2002-07-20 04:33:12 +0000 |
|---|---|---|
| committer | tmu <tmu> | 2002-07-20 04:33:12 +0000 |
| commit | d0ffe6044ceffc34ac09e829590331dff9c26e0c (patch) | |
| tree | a91b4780cb293c5ab97cb217faf9c49fcac696b7 | |
| parent | 630ed8a3b3bf05b92d02a82c6d799556a2780d62 (diff) | |
| download | fml8-d0ffe6044ceffc34ac09e829590331dff9c26e0c.tar.gz fml8-d0ffe6044ceffc34ac09e829590331dff9c26e0c.tar.bz2 fml8-d0ffe6044ceffc34ac09e829590331dff9c26e0c.zip | |
member_map use config primary_member_map to member_maps
recipient_map use config primary_recipient_map to recipient_maps
| -rw-r--r-- | fml/lib/FML/Command/Admin/unsubscribe.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm index c5f9708e..0246e9ce 100644 --- a/fml/lib/FML/Command/Admin/unsubscribe.pm +++ b/fml/lib/FML/Command/Admin/unsubscribe.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: unsubscribe.pm,v 1.12 2002/03/30 11:08:35 fukachan Exp $ +# $FML: unsubscribe.pm,v 1.13 2002/04/03 11:32:59 fukachan Exp $ # package FML::Command::Admin::unsubscribe; @@ -60,20 +60,20 @@ sub process { my ($self, $curproc, $command_args) = @_; my $config = $curproc->{ config }; - my $member_map = $config->{ primary_member_map }; - my $recipient_map = $config->{ primary_recipient_map }; + my @member_map = split(/\s+/, $config->{ member_maps }); + my @recipient_map = split(/\s+/, $config->{ recipient_maps }); my $options = $command_args->{ options }; my $address = $command_args->{ command_data } || $options->[ 0 ]; # fundamental check croak("address is not specified") unless defined $address; - croak("\$member_map is not specified") unless $member_map; - croak("\$recipient_map is not specified") unless $recipient_map; + croak("\@member_map is not specified") unless @member_map; + croak("\@recipient_map is not specified") unless @recipient_map; # FML::Command::UserControl specific parameters my $uc_args = { address => $address, - maplist => [ $recipient_map, $member_map ], + maplist => [ @recipient_map, @member_map ], }; my $r = ''; |