summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Command/User
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-12-22 09:53:08 +0000
committerfukachan <fukachan>2001-12-22 09:53:08 +0000
commit060f08630003d34186bbc16e6b7cd609d023bb3b (patch)
treefde5f31806b40a4258cf46d608c2537539ace288 /fml/lib/FML/Command/User
parent170768acc8d75190b4054a7b36d77bb55eaaa767 (diff)
downloadfml8-060f08630003d34186bbc16e6b7cd609d023bb3b.tar.gz
fml8-060f08630003d34186bbc16e6b7cd609d023bb3b.tar.bz2
fml8-060f08630003d34186bbc16e6b7cd609d023bb3b.zip
update documents, comments
Diffstat (limited to 'fml/lib/FML/Command/User')
-rw-r--r--fml/lib/FML/Command/User/bye.pm9
-rw-r--r--fml/lib/FML/Command/User/info.pm7
-rw-r--r--fml/lib/FML/Command/User/mget.pm7
-rw-r--r--fml/lib/FML/Command/User/remove.pm9
-rw-r--r--fml/lib/FML/Command/User/resign.pm7
-rw-r--r--fml/lib/FML/Command/User/send.pm7
-rw-r--r--fml/lib/FML/Command/User/signoff.pm11
7 files changed, 50 insertions, 7 deletions
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