update comments

1 files changed, 15 insertions, 7 deletions

diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm
index cfe910c2..ae0853f3 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.26 2003/09/27 03:00:15 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.27 2003/11/23 03:54:46 fukachan Exp $
 #
 
 package FML::Command::Admin::unsubscribe;
@@ -15,7 +15,7 @@ use Carp;
 
 =head1 NAME
 
-FML::Command::Admin::unsubscribe - remove the specified member
+FML::Command::Admin::unsubscribe - remove the specified user
 
 =head1 SYNOPSIS
 
@@ -68,19 +68,27 @@ sub lock_channel { return 'command_serialize';}
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
-    my $config        = $curproc->config();
+    my $config  = $curproc->config();
+    my $options = $command_args->{ options };
+    my $address = $command_args->{ command_data } || $options->[ 0 ];
+
+    # XXX We should always add/rewrite only $primary_*_map maps via 
+    # XXX command mail, CUI and GUI.
+    # XXX Rewriting of maps not $primary_*_map is
+    # XXX 1) may be not writable.
+    # XXX 2) ambigous and dangerous 
+    # XXX    since the map is under controlled by other module.
+    # XXX    for example, one of member_maps is under admin_member_maps. 
     my $member_map    = $config->{ 'primary_member_map' };
     my $recipient_map = $config->{ 'primary_recipient_map' };
-    my $options       = $command_args->{ options };
-    my $address       = $command_args->{ command_data } || $options->[ 0 ];
 
-    # fundamental check
+    # fundamental sanity check
     croak("address not defined")         unless defined $address;
     croak("address not specified")       unless $address;
     croak("member_map not specified")    unless $member_map;
     croak("recipient_map not specified") unless $recipient_map;
 
-    # FML::User::Control specific parameters
+    # $uc_args  = FML::User::Control specific parameters
     my $maplist = [ $member_map, $recipient_map ];
     my $uc_args = {
 	address => $address,