we should operate only $primary_*_map not $*_maps in deleting the user

address.

1 files changed, 9 insertions, 9 deletions

diff --git a/fml/lib/FML/Command/Admin/off.pm b/fml/lib/FML/Command/Admin/off.pm
index 1feb77cb..5d93ffa8 100644
--- a/fml/lib/FML/Command/Admin/off.pm
+++ b/fml/lib/FML/Command/Admin/off.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: off.pm,v 1.8 2003/02/13 14:06:13 fukachan Exp $
+# $FML: off.pm,v 1.9 2003/03/18 10:42:43 fukachan Exp $
 #
 
 package FML::Command::Admin::off;
@@ -66,20 +66,20 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config         = $curproc->config();
-    my $recipient_maps = $config->get_as_array_ref( 'recipient_maps' );
-    my $options        = $command_args->{ options };
-    my $address        = $command_args->{ command_data } || $options->[ 0 ];
+    my $config        = $curproc->config();
+    my $recipient_map = $config->{ 'primary_recipient_map' };
+    my $options       = $command_args->{ options };
+    my $address       = $command_args->{ command_data } || $options->[ 0 ];
 
     # fundamental check
-    croak("address not defined")            unless defined $address;
-    croak("address not specified")          unless $address;
-    croak("\$recipient_maps not specified") unless @$recipient_maps;
+    croak("address not defined")           unless defined $address;
+    croak("address not specified")         unless $address;
+    croak("\$recipient_map not specified") unless $recipient_map;
 
     # FML::Command::UserControl specific parameters
     my $uc_args = {
 	address => $address,
-	maplist => $recipient_maps,
+	maplist => [ $recipient_map ],
     };
     my $r = '';