fix comments (FNF)

4 files changed, 20 insertions, 17 deletions

diff --git a/fml/lib/FML/Process/CGI.pm b/fml/lib/FML/Process/CGI.pm
index 96e33a6f..2cf8e408 100644
--- a/fml/lib/FML/Process/CGI.pm
+++ b/fml/lib/FML/Process/CGI.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: CGI.pm,v 1.23 2002/12/22 03:46:20 fukachan Exp $
+# $FML: CGI.pm,v 1.24 2004/01/02 14:42:43 fukachan Exp $
 #
 
 package FML::Process::CGI;
@@ -18,7 +18,7 @@ use FML::Process::CGI::Param;
 
 =head1 NAME
 
-FML::Process::CGI - CGI basic functions
+FML::Process::CGI - CGI basic functions.
 
 =head1 SYNOPSIS
 
diff --git a/fml/lib/FML/Process/CGI/Utils.pm b/fml/lib/FML/Process/CGI/Utils.pm
index 12a8f1aa..86a986ab 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.12 2004/03/12 11:45:54 fukachan Exp $
+# $FML: Utils.pm,v 1.13 2004/04/18 05:59:44 fukachan Exp $
 #
 
 package FML::Process::CGI::Utils;
@@ -14,7 +14,7 @@ use Carp;
 
 =head1 NAME
 
-FML::Process::CGI::Utils - utility for FML::Process::CGI::Kernel
+FML::Process::CGI::Utils - utility for FML::Process::CGI::Kernel.
 
 =head1 SYNOPSIS
 
@@ -44,7 +44,7 @@ sub cgi_var_ml_name
 }
 
 
-# Descriptions: return $ml_domain defined in *.cgi programd .
+# Descriptions: return $ml_domain defined in *.cgi programd.
 #               ml_domain is hard-coded, not dependent on cgi_var_cgi_mode.
 #    Arguments: OBJ($curproc)
 # Side Effects: none
@@ -91,7 +91,7 @@ sub cgi_var_ml_name_list
 }
 
 
-# Descriptions: return address map
+# Descriptions: return address map.
 #    Arguments: OBJ($curproc)
 # Side Effects: none
 # Return Value: STR
@@ -105,7 +105,7 @@ sub cgi_var_address_map
 }
 
 
-# Descriptions: return list of address map
+# Descriptions: return list of address map.
 #    Arguments: OBJ($curproc)
 # Side Effects: none
 # Return Value: ARRAY_REF
@@ -129,7 +129,7 @@ sub cgi_var_myname
 }
 
 
-# Descriptions: return command list
+# Descriptions: return available command list in cgi mode.
 #    Arguments: OBJ($curproc)
 # Side Effects: none
 # Return Value: ARRAY_REF
@@ -143,6 +143,7 @@ sub cgi_var_available_command_list
 	return $config->get_as_array_ref('admin_cgi_allowed_commands');
     }
     else {
+	# XXX-TODO: commands_for_ml_admin_cgi -> ml_admin_cgi_allowed_commands
 	return $config->get_as_array_ref('commands_for_ml_admin_cgi');
     }
 }
@@ -159,7 +160,7 @@ sub cgi_var_action
 }
 
 
-# Descriptions: return action name.
+# Descriptions: return frame target name.
 #    Arguments: OBJ($curproc)
 # Side Effects: none
 # Return Value: STR
diff --git a/fml/lib/FML/Process/Digest.pm b/fml/lib/FML/Process/Digest.pm
index 6e4d33c0..c0480507 100644
--- a/fml/lib/FML/Process/Digest.pm
+++ b/fml/lib/FML/Process/Digest.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002,2003,2004 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Digest.pm,v 1.19 2004/04/23 04:10:36 fukachan Exp $
+# $FML: Digest.pm,v 1.20 2004/05/22 11:42:54 fukachan Exp $
 #
 
 package FML::Process::Digest;
@@ -168,6 +168,8 @@ sub run
 
 =head2 help()
 
+show help.
+
 =cut
 
 
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index 638655de..d9541e24 100644
--- a/fml/lib/FML/Process/Switch.pm
+++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.105 2004/03/31 12:53:52 fukachan Exp $
+# $FML: Switch.pm,v 1.106 2004/05/19 09:03:07 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -17,7 +17,7 @@ use File::Spec;
 
 =head1 NAME
 
-FML::Process::Switch - dispatch a module suitable with the program name
+FML::Process::Switch - dispatch a module suitable with the program name.
 
 =head1 SYNOPSIS
 
@@ -79,7 +79,7 @@ We pass it to C<load_module()> later.
 =cut
 
 
-# Descriptions: the second phase of bootstrap
+# Descriptions: the second phase of bootstrap.
 #    Arguments: STR($main_cf_file) HASH_REF($main_cf)
 # Side Effects: none
 # Return Value: same as FML::Process::Flow::ProcessStart()
@@ -216,7 +216,7 @@ sub main::Bootstrap2
 }
 
 
-# Descriptions: try to save the error message
+# Descriptions: try to save the error message.
 #    Arguments: HASH_REF($main_cf) STR($s)
 # Side Effects: save message to a log file if could
 # Return Value: none
@@ -276,7 +276,7 @@ C<$args> is like this:
 =cut
 
 
-# Descriptions: top level process switch
+# Descriptions: top level process switch.
 #               emulates "use $package" but $package is dynamically
 #               determined by e.g. $0.
 #    Arguments: STR($myname) HASH_REF($args)
@@ -311,7 +311,7 @@ sub load_module
 # Return Value: HASH_REF
 sub _overload_main_cf
 {
-    my ($main_cf) = @_;
+    my ($main_cf)   = @_;
     my $new_main_cf = {};
     my $config_dir  = $main_cf->{ default_config_dir };
 
@@ -338,7 +338,7 @@ sub _overload_main_cf
 }
 
 
-# Descriptions: return the suitable getopt options
+# Descriptions: return the suitable getopt options.
 #    Arguments: HASH_REF($main_cf) STR($name)
 # Side Effects: none
 # Return Value: ARRAY_REF (getopt parameters)