$command_args -> $command_context (OBJ), method style

1 files changed, 15 insertions, 15 deletions

diff --git a/fml/lib/FML/Command/Admin/off.pm b/fml/lib/FML/Command/Admin/off.pm
index 295476de..7cacf9b1 100644
--- a/fml/lib/FML/Command/Admin/off.pm
+++ b/fml/lib/FML/Command/Admin/off.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002,2003,2004,2005 MURASHITA Takuya
+#  Copyright (C) 2002,2003,2004,2005,2006 MURASHITA Takuya
 #   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.23 2005/08/17 12:08:44 fukachan Exp $
+# $FML: off.pm,v 1.24 2005/11/30 23:30:38 fukachan Exp $
 #
 
 package FML::Command::Admin::off;
@@ -27,7 +27,7 @@ change delivery mode from real time to digest.
 
 =head1 METHODS
 
-=head2 process($curproc, $command_args)
+=head2 process($curproc, $command_context)
 
 =cut
 
@@ -60,30 +60,30 @@ 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: change delivery mode from real time to digest.
-#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) OBJ($command_context)
 # Side Effects: update $recipient_map
 # Return Value: none
 sub process
 {
-    my ($self, $curproc, $command_args) = @_;
+    my ($self, $curproc, $command_context) = @_;
     my $config  = $curproc->config();
     my $cred    = $curproc->credential();
-    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.
@@ -133,7 +133,7 @@ sub process
     eval q{
 	use FML::User::Control;
 	my $obj = new FML::User::Control;
-	$obj->user_del($curproc, $command_args, $uc_args);
+	$obj->user_del($curproc, $command_context, $uc_args);
     };
     if ($r = $@) {
 	croak($r);
@@ -142,18 +142,18 @@ sub process
 
 
 # Descriptions: show cgi menu for off
-#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) OBJ($command_context)
 # Side Effects: update $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $command_args) = @_;
+    my ($self, $curproc, $command_context) = @_;
     my $r = '';
 
     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);
@@ -171,7 +171,7 @@ MURASHITA Takuya
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002,2003,2004,2005 MURASHITA Takuya
+Copyright (C) 2002,2003,2004,2005,2006 MURASHITA Takuya
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.