update documents, comments

13 files changed, 98 insertions, 16 deletions

diff --git a/fml/lib/FML/Command/Admin/add.pm b/fml/lib/FML/Command/Admin/add.pm
index 690068d0..8e5fb068 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/10/14 00:44:39 fukachan Exp $
+# $FML: add.pm,v 1.3 2001/12/22 09:21:03 fukachan Exp $
 #
 
 package FML::Command::Admin::add;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::Admin::subscribe;
 @ISA = qw(FML::Command::Admin::subscribe FML::Command::Utils);
 
+
+# Descriptions: subscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to subscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -32,6 +37,8 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
+same as C<subscribe>.
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/FML/Command/Admin/bye.pm b/fml/lib/FML/Command/Admin/bye.pm
index ff995b56..98d41f81 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.3 2001/10/14 00:44:39 fukachan Exp $
+# $FML: bye.pm,v 1.4 2001/12/22 09:21:03 fukachan Exp $
 #
 
 package FML::Command::Admin::bye;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::Admin::unsubscribe;
 @ISA = qw(FML::Command::Admin::unsubscribe FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -33,6 +38,8 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
+save as C<unsubscribe>.
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/FML/Command/Admin/mget.pm b/fml/lib/FML/Command/Admin/mget.pm
index 05acba41..b740d1c8 100644
--- a/fml/lib/FML/Command/Admin/mget.pm
+++ b/fml/lib/FML/Command/Admin/mget.pm
@@ -1,11 +1,10 @@
-
 #-*- perl -*-
 #
 #  Copyright (C) 2001 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: mget.pm,v 1.2 2001/10/14 00:44:39 fukachan Exp $
+# $FML: mget.pm,v 1.3 2001/12/22 09:21:03 fukachan Exp $
 #
 
 package FML::Command::Admin::mget;
@@ -18,6 +17,11 @@ use FML::Command::Utils;
 use FML::Command::Admin::get;
 @ISA = qw(FML::Command::Admin::get);
 
+
+# Descriptions: get articles, files, et. al.
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forwarded to get module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -31,11 +35,11 @@ FML::Command::Admin::mget - what is this
 
 =head1 SYNOPSIS
 
-forwarded C<FML::Command::Admin::get>.
+See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
-forwarded C<FML::Command::Admin::get>.
+forwarded to C<FML::Command::Admin::get>.
 
 =head1 AUTHOR
 
diff --git a/fml/lib/FML/Command/Admin/remove.pm b/fml/lib/FML/Command/Admin/remove.pm
index b5c08beb..a398f93a 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/10/14 00:44:40 fukachan Exp $
+# $FML: remove.pm,v 1.3 2001/12/22 09:21:03 fukachan Exp $
 #
 
 package FML::Command::Admin::remove;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::Admin::unsubscribe;
 @ISA = qw(FML::Command::Admin::unsubscribe use FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -33,6 +38,8 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
+same as C<unsubscribe>.
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/FML/Command/Admin/resign.pm b/fml/lib/FML/Command/Admin/resign.pm
index 099a6e5a..6c411e7a 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.3 2001/10/14 00:44:40 fukachan Exp $
+# $FML: resign.pm,v 1.4 2001/12/22 09:21:04 fukachan Exp $
 #
 
 package FML::Command::Admin::resign;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::Admin::unsubscribe;
 @ISA = qw(FML::Command::Admin::unsubscribe use FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
diff --git a/fml/lib/FML/Command/Admin/signoff.pm b/fml/lib/FML/Command/Admin/signoff.pm
index 8e3f2577..9bcbe5e2 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/10/14 00:44:40 fukachan Exp $
+# $FML: signoff.pm,v 1.3 2001/12/22 09:21:04 fukachan Exp $
 #
 
 package FML::Command::Admin::signoff;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::Admin::unsubscribe;
 @ISA = qw(FML::Command::Admin::unsubscribe use FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -29,8 +34,12 @@ FML::Command::Admin::signoff - signoff the specified member
 
 =head1 SYNOPSIS
 
+See C<FML::Command> for more details.
+
 =head1 DESCRIPTION
 
+all requests are forwarded to C<FML::Command::Admin::unsubscribe>.
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/FML/Command/User/bye.pm b/fml/lib/FML/Command/User/bye.pm
index 3589181d..46fcbd58 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.4 2001/10/17 10:58:11 fukachan Exp $
+# $FML: bye.pm,v 1.5 2001/12/22 09:21:04 fukachan Exp $
 #
 
 package FML::Command::User::bye;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::User::unsubscribe;
 @ISA = qw(FML::Command::User::unsubscribe FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -33,6 +38,8 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
+same as C<unsubscribe>.
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/FML/Command/User/info.pm b/fml/lib/FML/Command/User/info.pm
index e0471947..c30a71e8 100644
--- a/fml/lib/FML/Command/User/info.pm
+++ b/fml/lib/FML/Command/User/info.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: info.pm,v 1.1 2001/10/17 11:09:19 fukachan Exp $
+# $FML: info.pm,v 1.2 2001/12/22 09:21:05 fukachan Exp $
 #
 
 package FML::Command::User::info;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::User::guide;
 @ISA = qw(FML::Command::User::guide FML::Command::Utils);
 
+
+# Descriptions: send back guide
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to guide module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
diff --git a/fml/lib/FML/Command/User/mget.pm b/fml/lib/FML/Command/User/mget.pm
index c2cb1dd4..abc69af5 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.3 2001/10/14 00:32:29 fukachan Exp $
+# $FML: mget.pm,v 1.4 2001/12/22 09:21:05 fukachan Exp $
 #
 
 package FML::Command::User::mget;
@@ -18,6 +18,11 @@ use FML::Command::Utils;
 use FML::Command::User::get;
 @ISA = qw(FML::Command::User::get);
 
+
+# Descriptions: send articles, files, et.al...
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to get module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
diff --git a/fml/lib/FML/Command/User/remove.pm b/fml/lib/FML/Command/User/remove.pm
index 3c40b4b9..91a7bf98 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.3 2001/10/14 00:32:30 fukachan Exp $
+# $FML: remove.pm,v 1.4 2001/12/22 09:21:05 fukachan Exp $
 #
 
 package FML::Command::User::remove;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::User::unsubscribe;
 @ISA = qw(FML::Command::User::unsubscribe use FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -33,6 +38,8 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
+same as C<unsubscribe>.
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi
diff --git a/fml/lib/FML/Command/User/resign.pm b/fml/lib/FML/Command/User/resign.pm
index c416efa7..06437a86 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.3 2001/10/14 00:32:30 fukachan Exp $
+# $FML: resign.pm,v 1.4 2001/12/22 09:21:05 fukachan Exp $
 #
 
 package FML::Command::User::resign;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::User::unsubscribe;
 @ISA = qw(FML::Command::User::unsubscribe use FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
diff --git a/fml/lib/FML/Command/User/send.pm b/fml/lib/FML/Command/User/send.pm
index 685bdda8..63f93279 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/10/14 00:32:30 fukachan Exp $
+# $FML: send.pm,v 1.3 2001/12/22 09:21:05 fukachan Exp $
 #
 
 package FML::Command::User::send;
@@ -18,6 +18,11 @@ use FML::Command::Utils;
 use FML::Command::User::get;
 @ISA = qw(FML::Command::User::get);
 
+
+# Descriptions: send articles, files, et.al...
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to get module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
diff --git a/fml/lib/FML/Command/User/signoff.pm b/fml/lib/FML/Command/User/signoff.pm
index f7221181..dda9f7f5 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.3 2001/10/14 00:32:30 fukachan Exp $
+# $FML: signoff.pm,v 1.4 2001/12/22 09:21:05 fukachan Exp $
 #
 
 package FML::Command::User::signoff;
@@ -16,6 +16,11 @@ use FML::Command::Utils;
 use FML::Command::User::unsubscribe;
 @ISA = qw(FML::Command::User::unsubscribe use FML::Command::Utils);
 
+
+# Descriptions: unsubscribe user
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
+# Side Effects: forward request to unsubscribe module
+# Return Value: none
 sub process
 {
     my ($self, $curproc, $command_args) = @_;
@@ -29,8 +34,12 @@ FML::Command::User::signoff - signoff the specified member
 
 =head1 SYNOPSIS
 
+See C<FML::Command> for more details.
+
 =head1 DESCRIPTION
 
+same as C<unsubscribe>.
+
 =head1 AUTHOR
 
 Ken'ichi Fukamachi