$optargs -> $command_args

15 files changed, 60 insertions, 60 deletions

diff --git a/fml/lib/FML/Command/User/add.pm b/fml/lib/FML/Command/User/add.pm
index 1b1ac732..2c1da93a 100644
--- a/fml/lib/FML/Command/User/add.pm
+++ b/fml/lib/FML/Command/User/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.1.1.1 2001/08/26 05:43:10 fukachan Exp $
+# $FML: add.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
 #
 
 package FML::Command::User::add;
@@ -18,8 +18,8 @@ use FML::Command::User::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/User/bye.pm b/fml/lib/FML/Command/User/bye.pm
index 6b5a3365..76ce8b2d 100644
--- a/fml/lib/FML/Command/User/bye.pm
+++ b/fml/lib/FML/Command/User/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 05:43:10 fukachan Exp $
+# $FML: bye.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
 #
 
 package FML::Command::User::bye;
@@ -18,8 +18,8 @@ use FML::Command::User::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/User/chaddr.pm b/fml/lib/FML/Command/User/chaddr.pm
index 945e8791..fe0415b5 100644
--- a/fml/lib/FML/Command/User/chaddr.pm
+++ b/fml/lib/FML/Command/User/chaddr.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: chaddr.pm,v 1.4 2001/10/11 23:59:03 fukachan Exp $
+# $FML: chaddr.pm,v 1.1 2001/10/13 02:43:02 fukachan Exp $
 #
 
 package FML::Command::User::chaddr;
@@ -30,20 +30,20 @@ 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 $cache_dir     = $config->{ db_dir };
     my $keyword       = $config->{ confirm_keyword };
-    my $command       = $optargs->{ command };
+    my $command       = $command_args->{ command };
     my $address       = $curproc->{ credential }->sender();
 
     # fundamental check
diff --git a/fml/lib/FML/Command/User/confirm.pm b/fml/lib/FML/Command/User/confirm.pm
index 1aa1468c..4581f9a4 100644
--- a/fml/lib/FML/Command/User/confirm.pm
+++ b/fml/lib/FML/Command/User/confirm.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: confirm.pm,v 1.3 2001/10/10 14:50:03 fukachan Exp $
+# $FML: confirm.pm,v 1.1 2001/10/11 23:57:37 fukachan Exp $
 #
 
 package FML::Command::User::confirm;
@@ -30,21 +30,21 @@ 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 $cache_dir     = $config->{ db_dir };
     my $keyword       = $config->{ confirm_keyword };
     my $expire_limit  = $config->{ confirm_expire_limit } || 14*24*3600;
-    my $command       = $optargs->{ command };
+    my $command       = $command_args->{ command };
 
     my ($class, $id);
 
@@ -66,7 +66,7 @@ sub process
     if ($found = $confirm->find($id)) { # if request is found
 	unless ($confirm->is_expired($found, $expire_limit)) {
 	    my $address = $confirm->get_address($id);
-	    $self->_switch_command($class, $address, $curproc, $optargs);
+	    $self->_switch_command($class, $address, $curproc, $command_args);
 	}
 	else { # if req is expired
 	    croak("request is expired");
@@ -80,7 +80,7 @@ sub process
 
 sub _switch_command
 {
-    my ($self, $class, $address, $curproc, $optargs) = @_;
+    my ($self, $class, $address, $curproc, $command_args) = @_;
 
     # lower case 
     $class =~ tr/A-Z/a-z/;
@@ -91,9 +91,9 @@ sub _switch_command
     if ($class eq 'subscribe'   || 
 	$class eq 'unsubscribe' || 
 	$class eq 'chaddr') {
-	$optargs->{ address }      = $address;
-	$optargs->{ command_mode } = 'Admin';
-	$obj->$class($curproc, $optargs);
+	$command_args->{ address }      = $address;
+	$command_args->{ command_mode } = 'Admin';
+	$obj->$class($curproc, $command_args);
     }
     else {
 	croak("no such rule");
diff --git a/fml/lib/FML/Command/User/get.pm b/fml/lib/FML/Command/User/get.pm
index 0ba64a55..29cc8940 100644
--- a/fml/lib/FML/Command/User/get.pm
+++ b/fml/lib/FML/Command/User/get.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: get.pm,v 1.3 2001/10/10 10:08:06 fukachan Exp $
+# $FML: get.pm,v 1.4 2001/10/13 12:17:52 fukachan Exp $
 #
 
 package FML::Command::User::get;
@@ -37,8 +37,8 @@ not yet implemented
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->send_article($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->send_article($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/User/guide.pm b/fml/lib/FML/Command/User/guide.pm
index e63a6a8c..0b0fadcb 100644
--- a/fml/lib/FML/Command/User/guide.pm
+++ b/fml/lib/FML/Command/User/guide.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: guide.pm,v 1.3 2001/10/12 00:00:57 fukachan Exp $
+# $FML: guide.pm,v 1.1 2001/10/13 12:17:52 fukachan Exp $
 #
 
 package FML::Command::User::guide;
@@ -31,18 +31,18 @@ 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 };
 
-    $optargs->{ _file_to_send } = $config->{ "guide_file" };
-    $self->send_file($curproc, $optargs);
+    $command_args->{ _file_to_send } = $config->{ "guide_file" };
+    $self->send_file($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/User/help.pm b/fml/lib/FML/Command/User/help.pm
index 99088a60..d66885e2 100644
--- a/fml/lib/FML/Command/User/help.pm
+++ b/fml/lib/FML/Command/User/help.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: help.pm,v 1.3 2001/10/12 00:00:57 fukachan Exp $
+# $FML: help.pm,v 1.4 2001/10/13 12:17:52 fukachan Exp $
 #
 
 package FML::Command::User::help;
@@ -31,18 +31,18 @@ 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 };
 
-    $optargs->{ _file_to_send } = $config->{ "help_file" };
-    $self->send_file($curproc, $optargs);
+    $command_args->{ _file_to_send } = $config->{ "help_file" };
+    $self->send_file($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/User/mget.pm b/fml/lib/FML/Command/User/mget.pm
index 098ae5c1..d77e86ec 100644
--- a/fml/lib/FML/Command/User/mget.pm
+++ b/fml/lib/FML/Command/User/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.1.1.1 2001/08/26 05:43:10 fukachan Exp $
+# $FML: mget.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
 #
 
 package FML::Command::User::mget;
@@ -20,8 +20,8 @@ use FML::Command::User::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/User/remove.pm b/fml/lib/FML/Command/User/remove.pm
index 3cdafe2c..bc3f7150 100644
--- a/fml/lib/FML/Command/User/remove.pm
+++ b/fml/lib/FML/Command/User/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.1.1.1 2001/08/26 05:43:10 fukachan Exp $
+# $FML: remove.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
 #
 
 package FML::Command::User::remove;
@@ -18,8 +18,8 @@ use FML::Command::User::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/User/resign.pm b/fml/lib/FML/Command/User/resign.pm
index c6d17bba..aaeb1717 100644
--- a/fml/lib/FML/Command/User/resign.pm
+++ b/fml/lib/FML/Command/User/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 05:43:10 fukachan Exp $
+# $FML: resign.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
 #
 
 package FML::Command::User::resign;
@@ -18,8 +18,8 @@ use FML::Command::User::unsubscribe;
 
 sub process
 {
-    my ($self, $curproc, $optargs) = @_;
-    $self->unsubscribe($curproc, $optargs);
+    my ($self, $curproc, $command_args) = @_;
+    $self->unsubscribe($curproc, $command_args);
 }
 
 =head1 NAME
diff --git a/fml/lib/FML/Command/User/send.pm b/fml/lib/FML/Command/User/send.pm
index c10247a9..15d05c58 100644
--- a/fml/lib/FML/Command/User/send.pm
+++ b/fml/lib/FML/Command/User/send.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: send.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
+# $FML: send.pm,v 1.1 2001/10/13 02:43:21 fukachan Exp $
 #
 
 package FML::Command::User::send;
@@ -20,8 +20,8 @@ use FML::Command::User::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/User/signoff.pm b/fml/lib/FML/Command/User/signoff.pm
index 9fd22e0a..7b67b468 100644
--- a/fml/lib/FML/Command/User/signoff.pm
+++ b/fml/lib/FML/Command/User/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.1.1.1 2001/08/26 05:43:10 fukachan Exp $
+# $FML: signoff.pm,v 1.2 2001/08/26 07:59:03 fukachan Exp $
 #
 
 package FML::Command::User::signoff;
@@ -18,8 +18,8 @@ use FML::Command::User::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/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm
index 7a5977b7..a51a53d5 100644
--- a/fml/lib/FML/Command/User/subscribe.pm
+++ b/fml/lib/FML/Command/User/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:03 fukachan Exp $
+# $FML: subscribe.pm,v 1.5 2001/10/13 02:39:30 fukachan Exp $
 #
 
 package FML::Command::User::subscribe;
@@ -30,20 +30,20 @@ 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 $cache_dir     = $config->{ db_dir };
     my $keyword       = $config->{ confirm_keyword };
-    my $command       = $optargs->{ command };
+    my $command       = $command_args->{ command };
     my $address       = $curproc->{ credential }->sender();
 
     # fundamental check
diff --git a/fml/lib/FML/Command/User/summary.pm b/fml/lib/FML/Command/User/summary.pm
index 0dc13f7d..ca030aaf 100644
--- a/fml/lib/FML/Command/User/summary.pm
+++ b/fml/lib/FML/Command/User/summary.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: summary.pm,v 1.3 2001/10/12 00:00:57 fukachan Exp $
+# $FML: summary.pm,v 1.1 2001/10/13 12:17:53 fukachan Exp $
 #
 
 package FML::Command::User::summary;
@@ -31,18 +31,18 @@ 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 };
 
-    $optargs->{ _file_to_send } = $config->{ "summary_file" };
-    $self->send_file($curproc, $optargs);
+    $command_args->{ _file_to_send } = $config->{ "summary_file" };
+    $self->send_file($curproc, $command_args);
 }
 
 
diff --git a/fml/lib/FML/Command/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index 8d639064..699cb990 100644
--- a/fml/lib/FML/Command/User/unsubscribe.pm
+++ b/fml/lib/FML/Command/User/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.4 2001/10/11 23:59:03 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.3 2001/10/13 02:42:30 fukachan Exp $
 #
 
 package FML::Command::User::unsubscribe;
@@ -30,20 +30,20 @@ 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 $cache_dir     = $config->{ db_dir };
     my $keyword       = $config->{ confirm_keyword };
-    my $command       = $optargs->{ command };
+    my $command       = $command_args->{ command };
     my $address       = $curproc->{ credential }->sender();
 
     # fundamental check