remove $args.

It is a top level parameter FML::Process::Switch provides. Almost
functions should access the content via utility methods provided by
FML::Process::Utils.

19 files changed, 79 insertions, 97 deletions

diff --git a/fml/lib/FML/Command/Admin/addadmin.pm b/fml/lib/FML/Command/Admin/addadmin.pm
index 937ddd6f..1977f5d3 100644
--- a/fml/lib/FML/Command/Admin/addadmin.pm
+++ b/fml/lib/FML/Command/Admin/addadmin.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: addadmin.pm,v 1.14 2003/11/23 03:54:45 fukachan Exp $
+# $FML: addadmin.pm,v 1.15 2003/12/31 03:50:33 fukachan Exp $
 #
 
 package FML::Command::Admin::addadmin;
@@ -106,19 +106,18 @@ sub process
 
 
 # Descriptions: cgi menu to add a new user
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/addmoderator.pm b/fml/lib/FML/Command/Admin/addmoderator.pm
index f59e595f..83c53219 100644
--- a/fml/lib/FML/Command/Admin/addmoderator.pm
+++ b/fml/lib/FML/Command/Admin/addmoderator.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: addmoderator.pm,v 1.9 2003/11/23 03:54:45 fukachan Exp $
+# $FML: addmoderator.pm,v 1.10 2003/12/31 03:51:04 fukachan Exp $
 #
 
 package FML::Command::Admin::addmoderator;
@@ -106,19 +106,18 @@ sub process
 
 
 # Descriptions: cgi menu to add a new moderator.
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/deladmin.pm b/fml/lib/FML/Command/Admin/deladmin.pm
index 414b1e71..00ba708e 100644
--- a/fml/lib/FML/Command/Admin/deladmin.pm
+++ b/fml/lib/FML/Command/Admin/deladmin.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: deladmin.pm,v 1.13 2003/11/23 03:54:45 fukachan Exp $
+# $FML: deladmin.pm,v 1.14 2003/12/31 03:49:16 fukachan Exp $
 #
 
 package FML::Command::Admin::deladmin;
@@ -108,19 +108,18 @@ sub process
 
 
 # Descriptions: show cgi menu to remove the remote administrator.
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/delmoderator.pm b/fml/lib/FML/Command/Admin/delmoderator.pm
index 4d6be734..9ca1df9d 100644
--- a/fml/lib/FML/Command/Admin/delmoderator.pm
+++ b/fml/lib/FML/Command/Admin/delmoderator.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: delmoderator.pm,v 1.12 2003/11/23 03:54:45 fukachan Exp $
+# $FML: delmoderator.pm,v 1.13 2003/12/31 03:49:16 fukachan Exp $
 #
 
 package FML::Command::Admin::delmoderator;
@@ -108,19 +108,18 @@ sub process
 
 
 # Descriptions: show cgi menu to remove the moderator.
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/digest.pm b/fml/lib/FML/Command/Admin/digest.pm
index d44e12a6..34474874 100644
--- a/fml/lib/FML/Command/Admin/digest.pm
+++ b/fml/lib/FML/Command/Admin/digest.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: digest.pm,v 1.14 2004/01/01 08:41:33 fukachan Exp $
+# $FML: digest.pm,v 1.15 2004/01/01 08:48:40 fukachan Exp $
 #
 
 package FML::Command::Admin::digest;
@@ -230,13 +230,12 @@ sub _userdel
 
 
 # Descriptions: show cgi menu.
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     #
@@ -247,7 +246,7 @@ sub cgi_menu
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/digestoff.pm b/fml/lib/FML/Command/Admin/digestoff.pm
index 61c3d7d1..1894eb34 100644
--- a/fml/lib/FML/Command/Admin/digestoff.pm
+++ b/fml/lib/FML/Command/Admin/digestoff.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: digestoff.pm,v 1.7 2004/01/01 08:41:34 fukachan Exp $
+# $FML: digestoff.pm,v 1.8 2004/01/01 08:48:40 fukachan Exp $
 #
 
 package FML::Command::Admin::digestoff;
@@ -81,19 +81,18 @@ sub process
 
 
 # Descriptions: show cgi menu for digestoff.
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/digeston.pm b/fml/lib/FML/Command/Admin/digeston.pm
index 29363263..b091f871 100644
--- a/fml/lib/FML/Command/Admin/digeston.pm
+++ b/fml/lib/FML/Command/Admin/digeston.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: digeston.pm,v 1.7 2004/01/01 08:41:34 fukachan Exp $
+# $FML: digeston.pm,v 1.8 2004/01/01 08:48:40 fukachan Exp $
 #
 
 package FML::Command::Admin::digeston;
@@ -81,19 +81,18 @@ sub process
 
 
 # Descriptions: show cgi menu for digeston
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/dir.pm b/fml/lib/FML/Command/Admin/dir.pm
index 20c388fa..ea6c38d0 100644
--- a/fml/lib/FML/Command/Admin/dir.pm
+++ b/fml/lib/FML/Command/Admin/dir.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: dir.pm,v 1.13 2003/08/29 15:33:58 fukachan Exp $
+# $FML: dir.pm,v 1.14 2003/12/31 03:49:16 fukachan Exp $
 #
 
 package FML::Command::Admin::dir;
@@ -91,13 +91,12 @@ sub process
 
 
 # Descriptions: cgi menu (dummy)
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
 
     ;
 }
diff --git a/fml/lib/FML/Command/Admin/file.pm b/fml/lib/FML/Command/Admin/file.pm
index fc5cd92a..a780d572 100644
--- a/fml/lib/FML/Command/Admin/file.pm
+++ b/fml/lib/FML/Command/Admin/file.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: file.pm,v 1.15 2004/01/01 08:41:34 fukachan Exp $
+# $FML: file.pm,v 1.16 2004/01/01 08:48:39 fukachan Exp $
 #
 
 package FML::Command::Admin::file;
@@ -106,13 +106,12 @@ sub process
 
 
 # Descriptions: show cgi menu (dummy)
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
 
     # XXX-TODO: dummy.?
     ;
diff --git a/fml/lib/FML/Command/Admin/list.pm b/fml/lib/FML/Command/Admin/list.pm
index 4969b9ac..63532ef0 100644
--- a/fml/lib/FML/Command/Admin/list.pm
+++ b/fml/lib/FML/Command/Admin/list.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: list.pm,v 1.20 2003/12/20 07:50:41 fukachan Exp $
+# $FML: list.pm,v 1.21 2003/12/31 04:00:52 fukachan Exp $
 #
 
 package FML::Command::Admin::list;
@@ -137,13 +137,12 @@ sub _gen_map_candidates
 
 
 # Descriptions: show cgi menu for list command.
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     # declare CGI mode.
@@ -153,7 +152,7 @@ sub cgi_menu
     eval q{
 	use FML::CGI::List;
 	my $obj = new FML::CGI::List;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	print $r;
diff --git a/fml/lib/FML/Command/Admin/log.pm b/fml/lib/FML/Command/Admin/log.pm
index c8e3a7d8..a50b58d1 100644
--- a/fml/lib/FML/Command/Admin/log.pm
+++ b/fml/lib/FML/Command/Admin/log.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: log.pm,v 1.22 2004/01/01 08:43:32 fukachan Exp $
+# $FML: log.pm,v 1.23 2004/01/01 08:48:39 fukachan Exp $
 #
 
 package FML::Command::Admin::log;
@@ -70,13 +70,12 @@ sub process
 
 
 # Descriptions: show cgi menu
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $config   = $curproc->config();
     my $log_file = $config->{ log_file };
 
diff --git a/fml/lib/FML/Command/Admin/newml.pm b/fml/lib/FML/Command/Admin/newml.pm
index 24219a91..9c85d0f0 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.73 2003/12/20 07:52:30 fukachan Exp $
+# $FML: newml.pm,v 1.74 2003/12/28 13:23:16 fukachan Exp $
 #
 
 package FML::Command::Admin::newml;
@@ -150,19 +150,18 @@ sub process
 
 
 # Descriptions: show cgi menu for newml
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: create home directories, update aliases, ...
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
         use FML::CGI::ML;
         my $obj = new FML::CGI::ML;
-        $obj->cgi_menu($curproc, $args, $command_args);
+        $obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
         croak($r);
diff --git a/fml/lib/FML/Command/Admin/off.pm b/fml/lib/FML/Command/Admin/off.pm
index 0469e06f..27faa3f3 100644
--- a/fml/lib/FML/Command/Admin/off.pm
+++ b/fml/lib/FML/Command/Admin/off.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: off.pm,v 1.13 2003/11/23 03:54:45 fukachan Exp $
+# $FML: off.pm,v 1.14 2003/12/31 03:49:17 fukachan Exp $
 #
 
 package FML::Command::Admin::off;
@@ -103,19 +103,18 @@ sub process
 
 
 # Descriptions: show cgi menu for off
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/on.pm b/fml/lib/FML/Command/Admin/on.pm
index e7060bff..d9f4e0c6 100644
--- a/fml/lib/FML/Command/Admin/on.pm
+++ b/fml/lib/FML/Command/Admin/on.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: on.pm,v 1.13 2003/11/23 03:54:46 fukachan Exp $
+# $FML: on.pm,v 1.14 2003/12/31 03:49:17 fukachan Exp $
 #
 
 package FML::Command::Admin::on;
@@ -104,19 +104,18 @@ sub process
 
 
 # Descriptions: show cgi menu for on
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/rmml.pm b/fml/lib/FML/Command/Admin/rmml.pm
index 6450478c..27e26ca1 100644
--- a/fml/lib/FML/Command/Admin/rmml.pm
+++ b/fml/lib/FML/Command/Admin/rmml.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: rmml.pm,v 1.22 2003/12/28 13:23:17 fukachan Exp $
+# $FML: rmml.pm,v 1.23 2003/12/31 03:54:25 fukachan Exp $
 #
 
 package FML::Command::Admin::rmml;
@@ -106,19 +106,18 @@ sub process
 
 
 # Descriptions: show cgi menu for rmml command.
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: create home directories, update aliases, ...
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
         use FML::CGI::ML;
         my $obj = new FML::CGI::ML;
-        $obj->cgi_menu($curproc, $args, $command_args);
+        $obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
         croak($r);
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm
index f04c60d2..47496e00 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.25 2003/09/27 03:00:16 fukachan Exp $
+# $FML: subscribe.pm,v 1.26 2003/11/23 03:54:46 fukachan Exp $
 #
 
 package FML::Command::Admin::subscribe;
@@ -99,19 +99,18 @@ sub process
 
 
 # Descriptions: show cgi menu for subscribe
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm
index ae0853f3..12e70b53 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.27 2003/11/23 03:54:46 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.28 2003/12/31 03:49:17 fukachan Exp $
 #
 
 package FML::Command::Admin::unsubscribe;
@@ -108,19 +108,18 @@ sub process
 
 
 # Descriptions: show cgi menu for unsubscribe
-#    Arguments: OBJ($self)
-#               OBJ($curproc) HASH_REF($args) HASH_REF($command_args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
 # Side Effects: update $member_map $recipient_map
 # Return Value: none
 sub cgi_menu
 {
-    my ($self, $curproc, $args, $command_args) = @_;
+    my ($self, $curproc, $command_args) = @_;
     my $r = '';
 
     eval q{
 	use FML::CGI::User;
 	my $obj = new FML::CGI::User;
-	$obj->cgi_menu($curproc, $args, $command_args);
+	$obj->cgi_menu($curproc, $command_args);
     };
     if ($r = $@) {
 	croak($r);
diff --git a/fml/lib/FML/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm
index a937ca89..0d5a0cb2 100644
--- a/fml/lib/FML/Command/Auth.pm
+++ b/fml/lib/FML/Command/Auth.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: Auth.pm,v 1.29 2003/11/30 09:59:18 fukachan Exp $
+# $FML: Auth.pm,v 1.30 2003/12/30 03:51:02 fukachan Exp $
 #
 
 package FML::Command::Auth;
@@ -51,36 +51,36 @@ sub new
 
 
 # Descriptions: virtual reject handler, just return __LAST__ :-)
-#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($args) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: STR (__LAST__, a special upcall)
 sub reject
 {
-    my ($self, $curproc, $args, $optargs) = @_;
+    my ($self, $curproc, $optargs) = @_;
 
     return '__LAST__';
 }
 
 
 # Descriptions: permit anyone
-#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($args) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: NUM
 sub permit_anyone
 {
-    my ($self, $curproc, $args, $optargs) = @_;
+    my ($self, $curproc, $optargs) = @_;
 
     return 1;
 }
 
 
 # Descriptions: permit if admin_member_maps has the sender
-#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($args) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: NUM
 sub permit_admin_member_maps
 {
-    my ($self, $curproc, $args, $optargs) = @_;
+    my ($self, $curproc, $optargs) = @_;
     my $cred   = $curproc->{ credential };
     my $sender = $cred->sender();
     my $match  = $cred->is_privileged_member($sender);
@@ -95,12 +95,12 @@ sub permit_admin_member_maps
 
 
 # Descriptions: reject if the mail address looks like system accounts.
-#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($args) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: NUM or STR (__LAST__, a special upcall)
 sub reject_system_special_accounts
 {
-    my ($self, $curproc, $args, $optargs) = @_;
+    my ($self, $curproc, $optargs) = @_;
     my $cred   = $curproc->{ credential };
     my $sender = $cred->sender();
     my $match  = $cred->match_system_special_accounts($sender);
@@ -114,7 +114,7 @@ sub reject_system_special_accounts
 }
 
 
-=head2 check_admin_member_password($curproc, $args, $optargs)
+=head2 check_admin_member_password($curproc, $optargs)
 
 check the password if it is valid or not as an administrator.
 
@@ -124,13 +124,12 @@ check the password if it is valid or not as an administrator.
 # Descriptions: check the password if it is valid or not.
 #    Arguments: OBJ($self)
 #               HASH_REF($curproc)
-#               HASH_REF($args)
 #               HASH_REF($optargs)
 # Side Effects: none
 # Return Value: NUM
 sub check_admin_member_password
 {
-    my ($self, $curproc, $args, $optargs) = @_;
+    my ($self, $curproc, $optargs) = @_;
     my $function = "check_admin_member_password";
     my $cred     = $curproc->{ credential };
     my $config   = $curproc->config();
diff --git a/fml/lib/FML/Command/HTMLify.pm b/fml/lib/FML/Command/HTMLify.pm
index 69494003..49f64fcc 100644
--- a/fml/lib/FML/Command/HTMLify.pm
+++ b/fml/lib/FML/Command/HTMLify.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: HTMLify.pm,v 1.18 2003/08/23 07:24:42 fukachan Exp $
+# $FML: HTMLify.pm,v 1.19 2003/09/13 09:14:31 fukachan Exp $
 #
 
 package FML::Command::HTMLify;
@@ -34,12 +34,12 @@ and file in C<$ml_home_dir>.
 
 
 # Descriptions: convert text to html style.
-#    Arguments: OBJ($curproc) HASH_REF($args) HASH_REF($optargs)
+#    Arguments: OBJ($curproc) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: none
 sub convert
 {
-    my ($curproc, $args, $optargs) = @_;
+    my ($curproc, $optargs) = @_;
     my $config  = $curproc->config();
     my $ml_name = $config->{ ml_name };
     my $udb_dir = $config->{ udb_base_dir };