fix comments (FNF)

3 files changed, 13 insertions, 7 deletions

diff --git a/fml/lib/FML/Restriction/CGI.pm b/fml/lib/FML/Restriction/CGI.pm
index ee5e11c7..744c0df0 100644
--- a/fml/lib/FML/Restriction/CGI.pm
+++ b/fml/lib/FML/Restriction/CGI.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2001,2002,2004 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: CGI.pm,v 1.10 2004/01/02 14:42:44 fukachan Exp $
+# $FML: CGI.pm,v 1.11 2004/01/21 03:40:43 fukachan Exp $
 #
 
 package FML::Restriction::CGI;
@@ -17,7 +17,7 @@ use FML::Restriction::Base;
 
 =head1 NAME
 
-FML::Restriction::CGI -- define safe data regexp for CGI modules
+FML::Restriction::CGI -- define safe data regexp for CGI modules.
 
 =head1 SYNOPSIS
 
@@ -53,7 +53,7 @@ my %cgi_methond =
 
 
 
-# Descriptions: return basic variable safe expression
+# Descriptions: return set of basic variable safe expressions as HASH_REF.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: HASH_REF
@@ -64,7 +64,7 @@ sub param_regexp
 }
 
 
-# Descriptions: return method safe expression
+# Descriptions: return set of method safe expressions as HASH_REF.
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: HASH_REF
diff --git a/fml/lib/FML/Restriction/Command.pm b/fml/lib/FML/Restriction/Command.pm
index c6a3e6b8..3b6aedf3 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.13 2004/03/14 08:51:15 fukachan Exp $
+# $FML: Command.pm,v 1.14 2004/03/18 13:29:39 fukachan Exp $
 #
 
 package FML::Restriction::Command;
@@ -18,7 +18,7 @@ push(@ISA, qw(FML::Restriction::Post));
 
 =head1 NAME
 
-FML::Restriction::Command - safe regexp allowed as a command
+FML::Restriction::Command - command mail restrictions.
 
 =head1 SYNOPSIS
 
@@ -60,6 +60,7 @@ sub permit_user_command
     my ($match, $reason) = $self->SUPER::permit_member_maps($rule, $sender);
 
     # 2) command match anonymous one ?
+    # XXX-TODO: deny reason is first match ? last match ?
     if ($match) {
 	if ($reason eq 'reject') {
 	    my $_rule = "permit_member_maps";
@@ -105,6 +106,7 @@ sub permit_anonymous_command
 	$curproc->log("debug: match: rule=$rule comname=$comname");
 	return("matched", "permit");
     }
+    # XXX-TODO: not need deny reason logging ?
 
     return(0, undef);
 }
@@ -134,6 +136,7 @@ sub permit_admin_member_maps
 	$curproc->log("found in admin_member_maps");
 	return("matched", "permit");
     }
+    # XXX-TODO: not need deny reason logging ?
 
     return(0, undef);
 }
@@ -158,6 +161,7 @@ sub check_admin_member_password
 	return("matched", "permit");
     }
     else {
+	# XXX-TODO: not need deny reason logging ?
 	$curproc->log("admin password: auth fail");
 	return(0, undef);
     }
diff --git a/fml/lib/FML/Restriction/Post.pm b/fml/lib/FML/Restriction/Post.pm
index 030378a7..b5d9edc7 100644
--- a/fml/lib/FML/Restriction/Post.pm
+++ b/fml/lib/FML/Restriction/Post.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: Post.pm,v 1.11 2004/03/14 06:49:26 fukachan Exp $
+# $FML: Post.pm,v 1.12 2004/04/23 04:10:38 fukachan Exp $
 #
 
 package FML::Restriction::Post;
@@ -114,6 +114,7 @@ sub permit_member_maps
 	# $curproc->reply_message( "   your address: $sender" );
 
 	# save reason for later use.
+	# XXX the deny reason is first match.
 	unless ($curproc->restriction_state_get_deny_reason()) {
 	    $curproc->restriction_state_set_deny_reason($rule);
 	}
@@ -136,6 +137,7 @@ sub reject
     my ($self, $rule, $sender) = @_;
     my $curproc = $self->{ _curproc };
 
+    # XXX the deny reason is first match.
     unless ($curproc->restriction_state_get_deny_reason()) {
 	$curproc->restriction_state_set_deny_reason($rule);
     }