more comments.

4 files changed, 14 insertions, 7 deletions

diff --git a/fml/lib/FML/CGI/Admin/Menu.pm b/fml/lib/FML/CGI/Admin/Menu.pm
index 0aba989c..66514dec 100644
--- a/fml/lib/FML/CGI/Admin/Menu.pm
+++ b/fml/lib/FML/CGI/Admin/Menu.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: Menu.pm,v 1.26 2003/08/29 15:33:56 fukachan Exp $
+# $FML: Menu.pm,v 1.27 2003/09/25 11:40:58 fukachan Exp $
 #
 
 package FML::CGI::Admin::Menu;
@@ -19,7 +19,7 @@ use FML::CGI::Menu;
 
 =head1 NAME
 
-FML::CGI::Admin::Menu - provides CGI controll for the specific domain
+FML::CGI::Admin::Menu - provides CGI control function for the specific domain
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/FML/CGI/ML.pm b/fml/lib/FML/CGI/ML.pm
index 36739736..ff53ce2e 100644
--- a/fml/lib/FML/CGI/ML.pm
+++ b/fml/lib/FML/CGI/ML.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: ML.pm,v 1.6 2004/01/01 23:52:09 fukachan Exp $
+# $FML: ML.pm,v 1.7 2004/01/02 14:50:29 fukachan Exp $
 #
 
 package FML::CGI::ML;
@@ -42,7 +42,10 @@ sub cgi_menu
     my $comname      = $command_args->{ comname };
     my $command_list = [ 'newml', 'rmml' ];
 
+    # XXX-TODO: who verified comname ?
+
     unless ($curproc->cgi_var_cgi_mode() eq "admin") {
+	# XXX-TODO: nl ?
 	croak("Admin::ML::cgi_menu: prohibited in this mode");
     }
 
@@ -105,6 +108,7 @@ sub cgi_menu
 		    );
     }
     else {
+	# XXX-TODO: nl ?
 	croak("Admin::ML::cgi_menu: unknown command");
     }
 
diff --git a/fml/lib/FML/CGI/Menu.pm b/fml/lib/FML/CGI/Menu.pm
index 73ab38b9..4a2deacb 100644
--- a/fml/lib/FML/CGI/Menu.pm
+++ b/fml/lib/FML/CGI/Menu.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: Menu.pm,v 1.7 2004/01/01 23:52:09 fukachan Exp $
+# $FML: Menu.pm,v 1.8 2004/01/02 14:50:29 fukachan Exp $
 #
 
 package FML::CGI::Menu;
@@ -21,7 +21,7 @@ my $debug = 0;
 
 =head1 NAME
 
-FML::CGI::Menu - provides CGI controll for the specific domain
+FML::CGI::Menu - provides CGI control function for the specific domain
 
 =head1 SYNOPSIS
 
@@ -57,7 +57,7 @@ C<FML::CGI::Menu> is a subclass of C<FML::Process::CGI>.
 
 =head1 METHODS
 
-Almost methods common for CGI or HTML are forwarded to
+Almost cgi common methods are forwarded to
 C<FML::Process::CGI> base class.
 
 This module has routines needed for the admin CGI.
diff --git a/fml/lib/FML/CGI/User.pm b/fml/lib/FML/CGI/User.pm
index 338e1588..27e7e45d 100644
--- a/fml/lib/FML/CGI/User.pm
+++ b/fml/lib/FML/CGI/User.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: User.pm,v 1.7 2004/01/01 23:52:10 fukachan Exp $
+# $FML: User.pm,v 1.8 2004/01/02 14:50:29 fukachan Exp $
 #
 
 package FML::CGI::User;
@@ -44,6 +44,8 @@ sub cgi_menu
     my $address_list = [];
     my $selected_key = '';
 
+    # XXX-TODO: who verified $ml_name and $comname ?
+
     # XXX-TODO: we should enable configurable by config files.
 
     # which address list to show at the scrolling list
@@ -75,6 +77,7 @@ sub cgi_menu
 	$selected_key = 'admin_members';
     }
     else {
+	# XXX-TODO: nl ?
 	croak("not allowed command");
     }