diff options
| author | fukachan <fukachan> | 2004-06-26 11:47:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-06-26 11:47:55 +0000 |
| commit | 06114f7bdcc1cf0bfd5a33a73405f607bbbfe7dd (patch) | |
| tree | 88efd68768f0a4254851280c908a8642590df808 /fml/lib/FML/Command/User/on.pm | |
| parent | 8a4ad321fb933d12ba65adf4354b3fd8f4108981 (diff) | |
| download | fml8-06114f7bdcc1cf0bfd5a33a73405f607bbbfe7dd.tar.gz fml8-06114f7bdcc1cf0bfd5a33a73405f607bbbfe7dd.tar.bz2 fml8-06114f7bdcc1cf0bfd5a33a73405f607bbbfe7dd.zip | |
overhaul: fix comments, messages and style.
Diffstat (limited to 'fml/lib/FML/Command/User/on.pm')
| -rw-r--r-- | fml/lib/FML/Command/User/on.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/fml/lib/FML/Command/User/on.pm b/fml/lib/FML/Command/User/on.pm index 1b2f10ef..050ff12f 100644 --- a/fml/lib/FML/Command/User/on.pm +++ b/fml/lib/FML/Command/User/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.16 2004/02/24 14:36:53 fukachan Exp $ +# $FML: on.pm,v 1.17 2004/04/23 04:10:32 fukachan Exp $ # package FML::Command::User::on; @@ -33,7 +33,7 @@ After confirmation succeeds, on process proceeds. =cut -# Descriptions: standard constructor +# Descriptions: constructor. # Arguments: OBJ($self) # Side Effects: none # Return Value: OBJ @@ -46,14 +46,14 @@ sub new } -# Descriptions: need lock or not +# Descriptions: need lock or not. # Arguments: none # Side Effects: none # Return Value: NUM( 1 or 0) sub need_lock { 1;} -# Descriptions: lock channel +# Descriptions: lock channel. # Arguments: none # Side Effects: none # Return Value: STR @@ -78,7 +78,7 @@ sub process # XXX 1) may be not writable. # XXX 2) ambigous and dangerous # XXX since the map is under controlled by other module. - # XXX for example, one of member_maps is under admin_member_maps. + # XXX for example, $member_maps contains different classes. my $member_map = $config->{ primary_member_map }; my $recipient_map = $config->{ primary_recipient_map }; my $cache_dir = $config->{ db_dir }; @@ -98,7 +98,6 @@ sub process return; } - # XXX-TODO: this message is correct ? # if already recipient, on request is wrong. if ($cred->is_recipient($address)) { $curproc->reply_message_nl('error.already_recipient', |