diff options
Diffstat (limited to 'fml/lib/FML/Command/Admin/subscribe.pm')
| -rw-r--r-- | fml/lib/FML/Command/Admin/subscribe.pm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm index b3921a28..51ecd1a6 100644 --- a/fml/lib/FML/Command/Admin/subscribe.pm +++ b/fml/lib/FML/Command/Admin/subscribe.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: subscribe.pm,v 1.33 2005/08/17 10:36:36 fukachan Exp $ +# $FML: subscribe.pm,v 1.34 2005/08/17 12:08:44 fukachan Exp $ # package FML::Command::Admin::subscribe; @@ -27,7 +27,7 @@ subscribe a new address. =head1 METHODS -=head2 process($curproc, $command_args) +=head2 process($curproc, $command_context) subscribe a new user. @@ -62,29 +62,29 @@ sub lock_channel { return 'command_serialize';} # Descriptions: verify the syntax command string. -# Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) +# Arguments: OBJ($self) OBJ($curproc) OBJ($command_context) # Side Effects: none # Return Value: NUM(1 or 0) sub verify_syntax { - my ($self, $curproc, $command_args) = @_; + my ($self, $curproc, $command_context) = @_; use FML::Command::Syntax; push(@ISA, qw(FML::Command::Syntax)); - $self->check_syntax_address_handler($curproc, $command_args); + $self->check_syntax_address_handler($curproc, $command_context); } # Descriptions: subscribe a new user. -# Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) +# Arguments: OBJ($self) OBJ($curproc) OBJ($command_context) # Side Effects: update $member_map $recipient_map # Return Value: none sub process { - my ($self, $curproc, $command_args) = @_; + my ($self, $curproc, $command_context) = @_; my $config = $curproc->config(); - my $options = $command_args->{ options } || []; - my $address = $command_args->{ command_data } || $options->[ 0 ]; + my $options = $command_context->get_options() || []; + my $address = $command_context->{ command_data } || $options->[ 0 ]; # XXX We should always add/rewrite only $primary_*_map maps via # XXX command mail, CUI and GUI. @@ -119,7 +119,7 @@ sub process eval q{ use FML::User::Control; my $obj = new FML::User::Control; - $obj->user_add($curproc, $command_args, $uc_args); + $obj->user_add($curproc, $command_context, $uc_args); }; if ($r = $@) { croak($r); @@ -128,19 +128,19 @@ sub process # Descriptions: show cgi menu for subscribe command. -# Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args) +# Arguments: OBJ($self) OBJ($curproc) OBJ($command_context) # Side Effects: update $member_map $recipient_map # Return Value: none sub cgi_menu { - my ($self, $curproc, $command_args) = @_; + my ($self, $curproc, $command_context) = @_; my $r = ''; - # XXX-TODO: $command_args checked ? + # XXX-TODO: $command_context checked ? eval q{ use FML::CGI::User; my $obj = new FML::CGI::User; - $obj->cgi_menu($curproc, $command_args); + $obj->cgi_menu($curproc, $command_context); }; if ($r = $@) { croak($r); @@ -158,7 +158,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |