diff options
| author | fukachan <fukachan> | 2002-04-03 11:32:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-03 11:32:57 +0000 |
| commit | c6078a19cf75b629679bf0e511d2804fb3e1b8d5 (patch) | |
| tree | a888f5d4bdac79dabd3563b06f05c5963ccc247b /fml/lib/FML/Command/User | |
| parent | 06df1cc364822a8176ea12b4881cd9fbb1d9a881 (diff) | |
| download | fml8-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.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Command/User/bye.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Command/User/remove.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Command/User/resign.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Command/User/subscribe.pm | 11 |
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. |
