diff options
| author | fukachan <fukachan> | 2004-03-18 13:26:47 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-03-18 13:26:47 +0000 |
| commit | 74809211a09092c44d3b5a50b6f0f7b210eed610 (patch) | |
| tree | e6a0d905d2427f610c85d433ae6dd445526ff6e1 | |
| parent | 8730ed2db94ea32cd170f5857670e8b75f039ab5 (diff) | |
| download | fml8-74809211a09092c44d3b5a50b6f0f7b210eed610.tar.gz fml8-74809211a09092c44d3b5a50b6f0f7b210eed610.tar.bz2 fml8-74809211a09092c44d3b5a50b6f0f7b210eed610.zip | |
FNF: fix comments
| -rw-r--r-- | fml/lib/FML/Credential.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Restriction/Command.pm | 8 |
2 files changed, 11 insertions, 3 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index 2cdfe8a4..e6627273 100644 --- a/fml/lib/FML/Credential.pm +++ b/fml/lib/FML/Credential.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: Credential.pm,v 1.56 2004/03/17 10:11:35 fukachan Exp $ +# $FML: Credential.pm,v 1.57 2004/03/17 13:22:06 fukachan Exp $ # package FML::Credential; @@ -76,6 +76,10 @@ sub new } +# Descriptions: analyze $config. +# Arguments: OBJ($self) +# Side Effects: update $self. +# Return Value: none sub _reconfigure { my ($self) = @_; diff --git a/fml/lib/FML/Restriction/Command.pm b/fml/lib/FML/Restriction/Command.pm index 01a80bae..c6a3e6b8 100644 --- a/fml/lib/FML/Restriction/Command.pm +++ b/fml/lib/FML/Restriction/Command.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: Command.pm,v 1.12 2004/03/14 06:51:33 fukachan Exp $ +# $FML: Command.pm,v 1.13 2004/03/14 08:51:15 fukachan Exp $ # package FML::Restriction::Command; @@ -122,7 +122,7 @@ permit if admin_member_maps has the sender. # Descriptions: permit if admin_member_maps has the sender. # Arguments: OBJ($self) STR($rule) STR($sender) # Side Effects: none -# Return Value: NUM +# Return Value: ARRAY(STR, STR) sub permit_admin_member_maps { my ($self, $rule, $sender) = @_; @@ -139,6 +139,10 @@ sub permit_admin_member_maps } +# Descriptions: check if admin member passwrod is valid. +# Arguments: OBJ($self) STR($rule) STR($sender) HASH_REF($context) +# Side Effects: none +# Return Value: ARRAY(STR, STR) sub check_admin_member_password { my ($self, $rule, $sender, $context) = @_; |