summaryrefslogtreecommitdiff
path: root/fml/lib/FML/Command/User
diff options
context:
space:
mode:
authorfukachan <fukachan>2002-04-03 11:32:57 +0000
committerfukachan <fukachan>2002-04-03 11:32:57 +0000
commitc6078a19cf75b629679bf0e511d2804fb3e1b8d5 (patch)
treea888f5d4bdac79dabd3563b06f05c5963ccc247b /fml/lib/FML/Command/User
parent06df1cc364822a8176ea12b4881cd9fbb1d9a881 (diff)
downloadfml8-c6078a19cf75b629679bf0e511d2804fb3e1b8d5.tar.gz
fml8-c6078a19cf75b629679bf0e511d2804fb3e1b8d5.tar.bz2
fml8-c6078a19cf75b629679bf0e511d2804fb3e1b8d5.zip
clean up doc & codes, FNF-ify
Diffstat (limited to 'fml/lib/FML/Command/User')
-rw-r--r--fml/lib/FML/Command/User/add.pm4
-rw-r--r--fml/lib/FML/Command/User/bye.pm4
-rw-r--r--fml/lib/FML/Command/User/remove.pm6
-rw-r--r--fml/lib/FML/Command/User/resign.pm4
-rw-r--r--fml/lib/FML/Command/User/subscribe.pm11
5 files changed, 13 insertions, 16 deletions
diff --git a/fml/lib/FML/Command/User/add.pm b/fml/lib/FML/Command/User/add.pm
index 45e818d6..c676b8c7 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.5 2001/12/22 16:10:51 fukachan Exp $
+# $FML: add.pm,v 1.6 2002/02/18 14:14:52 fukachan Exp $
#
package FML::Command::User::add;
@@ -38,7 +38,7 @@ See C<FML::Command> for more details.
=head1 DESCRIPTION
-forward request to C<subscribe> module.
+forward request to C<FML::Command::User::subscribe> module.
=head1 AUTHOR
diff --git a/fml/lib/FML/Command/User/bye.pm b/fml/lib/FML/Command/User/bye.pm
index 4a7b3f50..1ecebb66 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.6 2001/12/22 09:53:09 fukachan Exp $
+# $FML: bye.pm,v 1.7 2002/02/18 14:14:52 fukachan Exp $
#
package FML::Command::User::bye;
@@ -38,7 +38,7 @@ See C<FML::Command> for more details.
=head1 DESCRIPTION
-same as C<unsubscribe>.
+alias of C<FML::Command::User::unsubscribe>.
=head1 AUTHOR
diff --git a/fml/lib/FML/Command/User/remove.pm b/fml/lib/FML/Command/User/remove.pm
index 5af07598..88e76921 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.6 2002/02/18 14:14:53 fukachan Exp $
+# $FML: remove.pm,v 1.7 2002/02/20 14:10:38 fukachan Exp $
#
package FML::Command::User::remove;
@@ -30,7 +30,7 @@ sub process
=head1 NAME
-FML::Command::User::remove - remove the specified member
+FML::Command::User::remove - unsubscribe
=head1 SYNOPSIS
@@ -38,7 +38,7 @@ See C<FML::Command> for more details.
=head1 DESCRIPTION
-same as C<unsubscribe>.
+alias of C<FML::Command::User::unsubscribe>.
=head1 AUTHOR
diff --git a/fml/lib/FML/Command/User/resign.pm b/fml/lib/FML/Command/User/resign.pm
index 850bef8b..d8c08761 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.6 2002/02/18 14:14:53 fukachan Exp $
+# $FML: resign.pm,v 1.7 2002/02/20 14:10:38 fukachan Exp $
#
package FML::Command::User::resign;
@@ -29,7 +29,7 @@ sub process
=head1 NAME
-FML::Command::User::resign - alias of "unsubscribe" command
+FML::Command::User::resign - unsubscribe
=head1 SYNOPSIS
diff --git a/fml/lib/FML/Command/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm
index f5a3e5b8..ac423f6b 100644
--- a/fml/lib/FML/Command/User/subscribe.pm
+++ b/fml/lib/FML/Command/User/subscribe.pm
@@ -4,23 +4,19 @@
# 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.10 2002/02/17 08:13:25 fukachan Exp $
+# $FML: subscribe.pm,v 1.11 2002/02/18 14:14:53 fukachan Exp $
#
package FML::Command::User::subscribe;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
use Carp;
-
-
-
use FML::Log qw(Log LogWarn LogError);
-
=head1 NAME
-FML::Command::User::subscribe - subscribe a new member
+FML::Command::User::subscribe - subscribe
=head1 SYNOPSIS
@@ -58,7 +54,8 @@ sub new
sub need_lock { 1;}
-# Descriptions: subscribe adapter: confirm before subscribe
+# Descriptions: subscribe adapter.
+# we confirm it before real subscribe process.
# Arguments: OBJ($self) OBJ($curproc) HASH_REF($command_args)
# Side Effects: update database for confirmation.
# prepare reply message.