clean up.

cosmetics.
more todo.

5 files changed, 26 insertions, 16 deletions

diff --git a/fml/lib/FML/Process/CGI/Param.pm b/fml/lib/FML/Process/CGI/Param.pm
index f7e358cc..bcd3924d 100644
--- a/fml/lib/FML/Process/CGI/Param.pm
+++ b/fml/lib/FML/Process/CGI/Param.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Param.pm,v 1.20 2003/08/24 14:11:10 fukachan Exp $
+# $FML: Param.pm,v 1.21 2003/08/25 14:13:59 fukachan Exp $
 #
 
 package FML::Process::CGI::Param;
@@ -17,7 +17,7 @@ use CGI qw/:standard/;
 
 =head1 NAME
 
-FML::Process::CGI::Param - restric CGI input
+FML::Process::CGI::Param - restrict CGI input
 
 =head1 SYNOPSIS
 
@@ -94,6 +94,8 @@ sub safe_paramlist
     my ($self, $numregexp, $key) = @_;
     my (@list) = ();
 
+    # XXX-TODO: who uses safe_paramlist() ?
+
     use FML::Restriction::CGI;
     my $safe = new FML::Restriction::CGI;
     my $safe_param_regexp  = $safe->param_regexp();
@@ -130,7 +132,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/Process/CGI/Utils.pm b/fml/lib/FML/Process/CGI/Utils.pm
index bf453cb3..a4695203 100644
--- a/fml/lib/FML/Process/CGI/Utils.pm
+++ b/fml/lib/FML/Process/CGI/Utils.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: Utils.pm,v 1.9 2004/01/01 08:41:09 fukachan Exp $
+# $FML: Utils.pm,v 1.10 2004/01/01 08:48:41 fukachan Exp $
 #
 
 package FML::Process::CGI::Utils;
@@ -190,7 +190,7 @@ sub cgi_var_cgi_mode
 sub cgi_var_language
 {
     my ($curproc) = @_;
-    my $lang = $curproc->safe_param_language() || '';
+    my $lang      = $curproc->safe_param_language() || '';
 
     if ($lang =~ /^(Japanese|English)$/io)  {
 	return lc($lang);
@@ -227,6 +227,7 @@ sub cgi_var_navigator_title
 sub cgi_var_fml_project_url
 {
     my ($curproc) = @_;
+
     return '<A HREF="http://www.fml.org/software/fml-devel/">fml</A>';
 }
 
diff --git a/fml/lib/FML/Restriction/CGI.pm b/fml/lib/FML/Restriction/CGI.pm
index 7ada42f6..ee5e11c7 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.9 2002/12/15 15:17:18 fukachan Exp $
+# $FML: CGI.pm,v 1.10 2004/01/02 14:42:44 fukachan Exp $
 #
 
 package FML::Restriction::CGI;
@@ -64,7 +64,7 @@ sub param_regexp
 }
 
 
-# Descriptions: return metho safe expression
+# Descriptions: return method safe expression
 #    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: HASH_REF
diff --git a/fml/lib/FML/Restriction/Post.pm b/fml/lib/FML/Restriction/Post.pm
index ee92e419..318d43f3 100644
--- a/fml/lib/FML/Restriction/Post.pm
+++ b/fml/lib/FML/Restriction/Post.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
 #   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.7 2003/08/29 15:34:10 fukachan Exp $
+# $FML: Post.pm,v 1.8 2003/11/30 09:59:20 fukachan Exp $
 #
 
 package FML::Restriction::Post;
@@ -20,7 +20,7 @@ FML::Restriction::Post - restricts who is allowed to post/use command mails.
 
 =head1 SYNOPSIS
 
-collection of utility functions used in Post routines.
+collection of utility functions used in post routines.
 
 =head1 DESCRIPTION
 
@@ -130,6 +130,11 @@ sub permit_member_maps
 }
 
 
+#
+# XXX-TODO: permit_commands_for_stranger -> permit_anonymous_command ?
+#
+
+
 # Descriptions: permit this command even if $sender is a stranger.
 #    Arguments: OBJ($self) STR($rule) STR($sender)
 # Side Effects: none
@@ -140,6 +145,7 @@ sub permit_commands_for_stranger
     my $curproc = $self->{ _curproc };
     my $pcb     = $curproc->pcb();
 
+    # XXX-TODO: find_commands_for_stranger -> match_anonymous_command ?
     use FML::Command::DataCheck;
     my $check = new FML::Command::DataCheck;
     if ($check->find_commands_for_stranger($curproc)) {
@@ -178,7 +184,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003 Ken'ichi Fukamachi
+Copyright (C) 2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/FML/User/Info.pm b/fml/lib/FML/User/Info.pm
index c6808112..2388e266 100644
--- a/fml/lib/FML/User/Info.pm
+++ b/fml/lib/FML/User/Info.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2003 Ken'ichi Fukamachi
+#  Copyright (C) 2003,2004 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Info.pm,v 1.1 2003/11/23 04:07:02 fukachan Exp $
+# $FML: Info.pm,v 1.1 2003/11/23 14:18:23 fukachan Exp $
 #
 
 package FML::User::Info;
@@ -16,7 +16,7 @@ use Carp;
 
 =head1 NAME
 
-FML::User::Info - maintain data with expiration.
+FML::User::Info - maintain user information.
 
 =head1 SYNOPSIS
 
@@ -76,6 +76,7 @@ sub import_from_mail_header
     #   expire    Account expiration time.
     #   gecos     General information about the user.
 
+    # XXX-TODO: correct logic if multiple matched ?
     use Mail::Address;
     my (@addrlist) = Mail::Address->parse($from);
     for my $a (@addrlist) {
@@ -163,7 +164,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003 Ken'ichi Fukamachi
+Copyright (C) 2003,2004 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.