clean up/fix comments, fix copyright

3 files changed, 24 insertions, 16 deletions

diff --git a/fml/lib/FML/Process/CGI/Param.pm b/fml/lib/FML/Process/CGI/Param.pm
index cf2cebb5..3306bf52 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 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002 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.14 2002/04/08 12:44:26 fukachan Exp $
+# $FML: Param.pm,v 1.15 2002/04/27 07:24:27 fukachan Exp $
 #
 
 package FML::Process::CGI::Param;
@@ -46,7 +46,7 @@ sub safe_param
     my ($self, $key) = @_;
 
     use FML::Restriction::CGI;
-    my $safe = new FML::Restriction::CGI;
+    my $safe               = new FML::Restriction::CGI;
     my $safe_param_regexp  = $safe->param_regexp();
     my $safe_method_regexp = $safe->method_regexp();
 
@@ -99,7 +99,7 @@ sub safe_paramlist
     my $safe_param_regexp  = $safe->param_regexp();
     my $safe_method_regexp = $safe->method_regexp();
 
-    # match method and return HASH ARRAY with matching values
+    # match method and return ARRAY_REF with matching values
     $key = $safe_method_regexp->{ $key };
     for my $x (param()) {
 	print STDERR "\n<!-- check param: $x =~ /^$key$/ -->\n";
@@ -127,7 +127,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+Copyright (C) 2001,2002 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/Flow.pm b/fml/lib/FML/Process/Flow.pm
index 97e0870f..1f630219 100644
--- a/fml/lib/FML/Process/Flow.pm
+++ b/fml/lib/FML/Process/Flow.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002 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: Flow.pm,v 1.14 2002/04/27 02:06:18 fukachan Exp $
+# $FML: Flow.pm,v 1.15 2002/04/27 05:25:02 fukachan Exp $
 #
 
 package FML::Process::Flow;
@@ -14,26 +14,31 @@ use Carp;
 
 =head1 NAME
 
-FML::Process::Flow - describe process flow
+FML::Process::Flow - the process flow
 
 =head1 SYNOPSIS
 
    use FML::Process::Flow;
    FML::Process::Flow::ProcessStart($obj, $args);
 
-where C<$obj> is the FML::Process::C<something> object.
+where C<$obj> is an FML::Process::C<something> object and
 C<$args> is HASH REFERENCE.
 
 =head1 DESCRIPTION
 
 This module describes the fml program flow. All methods, even if
-dummy, should be implemented in each module for FML::Process::CLASS.
-This flow is same among fml processes which includes
+dummy, should be implemented in each FML::Process::CLASS.
+This flow is same among fml processes such as
 programs kicked by MTA, command line interfaces and CGI's.
 
     # create a new process object
     my $process = $pkg->new($args);
 
+    # XXX private method to show help ASAP
+    # XXX we need to trap here since $process object is clarified after
+    # XXX $pkg->new() above.
+    $process->_trap_help($args);
+
     # e.g. parse the incoming message (e.g. STDIN)
     $process->prepare($args);
 
@@ -48,6 +53,9 @@ programs kicked by MTA, command line interfaces and CGI's.
     # closing the process
     $process->finish($args);
 
+    # clean up tmporary files
+    $process->clean_up_tmpfiles();
+
 =cut
 
 
@@ -99,7 +107,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+Copyright (C) 2001,2002 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/Restriction/CGI.pm b/fml/lib/FML/Restriction/CGI.pm
index a8c7ea6a..db55af20 100644
--- a/fml/lib/FML/Restriction/CGI.pm
+++ b/fml/lib/FML/Restriction/CGI.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2001 Ken'ichi Fukamachi
+# Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: CGI.pm,v 1.4 2001/12/23 12:19:14 fukachan Exp $
+# $FML: CGI.pm,v 1.5 2002/04/06 02:42:39 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 module
+FML::Restriction::CGI -- define safe data regexp for CGI modules
 
 =head1 SYNOPSIS
 
@@ -114,7 +114,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+Copyright (C) 2001,2002 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.