$optargs -> $command_args

10 files changed, 41 insertions, 41 deletions

diff --git a/fml/lib/FML/Command/Admin/add.pm b/fml/lib/FML/Command/Admin/add.pm
index 37ed8175..4b0d6b2b 100644
--- a/fml/lib/FML/Command/Admin/add.pm
+++ b/fml/lib/FML/Command/Admin/add.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: add.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
+# $FML: add.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
 #
 
 package FML::Command::Admin::add;
@@ -18,8 +18,8 @@ use FML::Command::Admin::subscribe;
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->SUPER::process($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->SUPER::process($curproc, $command_args);
 }
 
 =head1 NAME
diff --git a/fml/lib/FML/Command/Admin/bye.pm b/fml/lib/FML/Command/Admin/bye.pm
index d4e7d7ce..b0b124ae 100644
--- a/fml/lib/FML/Command/Admin/bye.pm
+++ b/fml/lib/FML/Command/Admin/bye.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: bye.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
+# $FML: bye.pm,v 1.2 2001/09/13 11:53:30 fukachan Exp $
 #
 
 package FML::Command::Admin::bye;
@@ -18,8 +18,8 @@ use FML::Command::Admin::unsubscribe;
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->SUPER::process($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->SUPER::process($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/Admin/edit.pm b/fml/lib/FML/Command/Admin/edit.pm
index 1574fab9..802af88d 100644
--- a/fml/lib/FML/Command/Admin/edit.pm
+++ b/fml/lib/FML/Command/Admin/edit.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: edit.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
+# $FML: edit.pm,v 1.2 2001/09/22 13:17:11 fukachan Exp $
 #
 
 package FML::Command::Admin::edit;
@@ -29,7 +29,7 @@ See C<FML::Command> for more details.
 
 =head1 METHODS
 
-=head2 C<process($curproc, $optargs)>
+=head2 C<process($curproc, $command_args)>
 
 C<TODO>:
 now we can read and write config.cf, not change it.
@@ -38,20 +38,20 @@ now we can read and write config.cf, not change it.
 
 
 # Descriptions: edit config.cf
-#    Arguments: $self $curproc $optargs 
+#    Arguments: $self $curproc $command_args 
 # Side Effects: update config.cf
 # Return Value: none
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $config        = $curproc->{ config };
-    my $options       = $optargs->{ options };
-    my $address       = $optargs->{ address } || $options->[ 0 ];
-    my $myname        = $optargs->{ args }->{ myname };
+    my $options       = $command_args->{ options };
+    my $address       = $command_args->{ address } || $options->[ 0 ];
+    my $myname        = $command_args->{ args }->{ myname };
 
     # ML's home directory
     use File::Spec;
-    my $ml_home_dir   = $optargs->{ 'args' }->{ 'ml_home_dir' };
+    my $ml_home_dir   = $command_args->{ 'args' }->{ 'ml_home_dir' };
     my $config_cf     = File::Spec->catfile($ml_home_dir, "config.cf");
 
     use FML::Config;
diff --git a/fml/lib/FML/Command/Admin/mget.pm b/fml/lib/FML/Command/Admin/mget.pm
index c1f0b32c..e25a1af5 100644
--- a/fml/lib/FML/Command/Admin/mget.pm
+++ b/fml/lib/FML/Command/Admin/mget.pm
@@ -5,7 +5,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: mget.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
+# $FML: mget.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
 #
 
 package FML::Command::Admin::mget;
@@ -20,8 +20,8 @@ use FML::Command::Admin::get;
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->SUPER::process($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->SUPER::process($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index bff9bf87..552fe013 100644
--- a/fml/lib/FML/Command/Admin/newml.pm
+++ b/fml/lib/FML/Command/Admin/newml.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: newml.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
+# $FML: newml.pm,v 1.2 2001/08/26 13:05:04 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -25,7 +25,7 @@ FML::Command::Admin::newml - make a new mailing list
 
     use FML::Command::Admin::newml;
     $obj = new FML::Command::Admin::newml;
-    $obj->newml($curproc, $optargs);
+    $obj->newml($curproc, $command_args);
 
 See C<FML::Command> for more details.
 
@@ -33,19 +33,19 @@ See C<FML::Command> for more details.
 
 =head1 METHODS
 
-=head2 C<process($curproc, $optargs)>
+=head2 C<process($curproc, $command_args)>
 
 =cut
 
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $config        = $curproc->{ 'config' };
     my $main_cf       = $curproc->{ 'main_cf' };
     my $member_map    = $config->{ 'primary_member_map' };
     my $recipient_map = $config->{ 'primary_recipient_map' };
-    my $ml_name       = $optargs->{ 'ml_name' };
+    my $ml_name       = $command_args->{ 'ml_name' };
 
     # fundamental check
     croak("\$ml_name is not specified")    unless $ml_name;
diff --git a/fml/lib/FML/Command/Admin/remove.pm b/fml/lib/FML/Command/Admin/remove.pm
index 28221bb5..bcb9d4a4 100644
--- a/fml/lib/FML/Command/Admin/remove.pm
+++ b/fml/lib/FML/Command/Admin/remove.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: remove.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
+# $FML: remove.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
 #
 
 package FML::Command::Admin::remove;
@@ -18,8 +18,8 @@ use FML::Command::Admin::unsubscribe;
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->SUPER::unsubscribe($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->SUPER::unsubscribe($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/Admin/resign.pm b/fml/lib/FML/Command/Admin/resign.pm
index 374fa5c6..868f405c 100644
--- a/fml/lib/FML/Command/Admin/resign.pm
+++ b/fml/lib/FML/Command/Admin/resign.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: resign.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
+# $FML: resign.pm,v 1.2 2001/10/13 02:34:35 fukachan Exp $
 #
 
 package FML::Command::Admin::resign;
@@ -18,8 +18,8 @@ use FML::Command::Admin::unsubscribe;
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->SUPER::process($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->SUPER::process($curproc, $command_args);
 }
 
 =head1 NAME
diff --git a/fml/lib/FML/Command/Admin/signoff.pm b/fml/lib/FML/Command/Admin/signoff.pm
index 0e2429c6..4efc7f47 100644
--- a/fml/lib/FML/Command/Admin/signoff.pm
+++ b/fml/lib/FML/Command/Admin/signoff.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: signoff.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
+# $FML: signoff.pm,v 1.1.1.1 2001/08/26 08:01:04 fukachan Exp $
 #
 
 package FML::Command::Admin::signoff;
@@ -18,8 +18,8 @@ use FML::Command::Admin::unsubscribe;
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->SUPER::unsubscribe($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->SUPER::unsubscribe($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm
index fbfd9ec6..888f15ca 100644
--- a/fml/lib/FML/Command/Admin/subscribe.pm
+++ b/fml/lib/FML/Command/Admin/subscribe.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: subscribe.pm,v 1.4 2001/10/11 23:59:54 fukachan Exp $
+# $FML: subscribe.pm,v 1.5 2001/10/13 02:35:00 fukachan Exp $
 #
 
 package FML::Command::Admin::subscribe;
@@ -29,19 +29,19 @@ See C<FML::Command> for more details.
 
 =head1 METHODS
 
-=head2 C<process($curproc, $optargs)>
+=head2 C<process($curproc, $command_args)>
 
 =cut
 
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $config        = $curproc->{ config };
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
-    my $options       = $optargs->{ options };
-    my $address       = $optargs->{ address } || $options->[ 0 ];
+    my $options       = $command_args->{ options };
+    my $address       = $command_args->{ address } || $options->[ 0 ];
 
     # fundamental check
     croak("address is not specified")       unless defined $address;
diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm
index 85c10c72..ea940bf3 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.1.1.1 2001/08/26 08:01:04 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.2 2001/09/13 11:53:30 fukachan Exp $
 #
 
 package FML::Command::Admin::unsubscribe;
@@ -28,19 +28,19 @@ See C<FML::Command> for more details.
 
 =head1 METHODS
 
-=head2 C<process($curproc, $optargs)>
+=head2 C<process($curproc, $command_args)>
 
 =cut
 
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $config        = $curproc->{ config };
     my $member_map    = $config->{ primary_member_map };
     my $recipient_map = $config->{ primary_recipient_map };
-    my $options       = $optargs->{ options };
-    my $address       = $optargs->{ address } || $options->[ 0 ];
+    my $options       = $command_args->{ options };
+    my $address       = $command_args->{ address } || $options->[ 0 ];
 
     # fundamental check
     croak("\$member_map is not specified")    unless $member_map;