fix comments (FNF).

21 files changed, 107 insertions, 108 deletions

diff --git a/fml/lib/Calendar/Lite.pm b/fml/lib/Calendar/Lite.pm
index 20b870c6..611944f9 100644
--- a/fml/lib/Calendar/Lite.pm
+++ b/fml/lib/Calendar/Lite.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: Lite.pm,v 1.8 2002/09/22 14:56:39 fukachan Exp $
+# $FML: Lite.pm,v 1.9 2002/12/12 04:57:10 fukachan Exp $
 #
 
 package Calender::Lite;
@@ -333,7 +333,7 @@ C<$n> is number or string among C<this>, C<next> and C<last>.
 
 
 # Descriptions: print calender for specific month as HTML.
-#    Arguments: OBJ($self) HANDLE($fd) STR($month) [STR($year)]
+#    Arguments: OBJ($self) HANDLE($fh) STR($month) [STR($year)]
 # Side Effects: none
 # Return Value: none
 sub print_specific_month
diff --git a/fml/lib/Calender/Lite.pm b/fml/lib/Calender/Lite.pm
index 20b870c6..611944f9 100644
--- a/fml/lib/Calender/Lite.pm
+++ b/fml/lib/Calender/Lite.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: Lite.pm,v 1.8 2002/09/22 14:56:39 fukachan Exp $
+# $FML: Lite.pm,v 1.9 2002/12/12 04:57:10 fukachan Exp $
 #
 
 package Calender::Lite;
@@ -333,7 +333,7 @@ C<$n> is number or string among C<this>, C<next> and C<last>.
 
 
 # Descriptions: print calender for specific month as HTML.
-#    Arguments: OBJ($self) HANDLE($fd) STR($month) [STR($year)]
+#    Arguments: OBJ($self) HANDLE($fh) STR($month) [STR($year)]
 # Side Effects: none
 # Return Value: none
 sub print_specific_month
diff --git a/fml/lib/FML/Article/Summary.pm b/fml/lib/FML/Article/Summary.pm
index 4df25739..d3f6fd92 100644
--- a/fml/lib/FML/Article/Summary.pm
+++ b/fml/lib/FML/Article/Summary.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 2002,2003 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: Summary.pm,v 1.7 2002/12/10 12:00:48 fukachan Exp $
+# $FML: Summary.pm,v 1.8 2002/12/15 14:04:25 fukachan Exp $
 #
 
 package FML::Article::Summary;
@@ -33,8 +33,8 @@ standard constructor.
 
 # Descriptions: standard constructor.
 #    Arguments: OBJ($self) OBJ($curproc)
-# Side Effects:
-# Return Value: none
+# Side Effects: $self->{ _curproc } = $curproc;
+# Return Value: OBJ
 sub new
 {
     my ($self, $curproc) = @_;
@@ -219,7 +219,7 @@ sub append
 
 
 # Descriptions: re-genearete summary from $min to $max.
-#    Arguments: OBJ($self) NUM(min) NUM($max)
+#    Arguments: OBJ($self) NUM($min) NUM($max)
 # Side Effects: re-create $summary file.
 # Return Value: none
 sub rebuild
@@ -261,7 +261,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 2002,2003 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/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm
index 8532139b..c91cd86f 100644
--- a/fml/lib/FML/Command/Auth.pm
+++ b/fml/lib/FML/Command/Auth.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: Auth.pm,v 1.18 2002/12/24 10:19:43 fukachan Exp $
+# $FML: Auth.pm,v 1.19 2003/01/03 07:06:39 fukachan Exp $
 #
 
 package FML::Command::Auth;
@@ -95,7 +95,7 @@ sub permit_admin_member_maps
 
 
 # Descriptions: reject if the mail address looks like system accounts.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($args) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: NUM or STR (__LAST__, a special upcall)
 sub reject_system_accounts
diff --git a/fml/lib/FML/Command/FileUtils.pm b/fml/lib/FML/Command/FileUtils.pm
index 149a1267..44b30416 100644
--- a/fml/lib/FML/Command/FileUtils.pm
+++ b/fml/lib/FML/Command/FileUtils.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: FileUtils.pm,v 1.8 2002/12/24 10:19:43 fukachan Exp $
+# $FML: FileUtils.pm,v 1.9 2003/01/03 07:05:05 fukachan Exp $
 #
 
 package FML::Command::FileUtils;
@@ -62,7 +62,7 @@ in FML::Restriction class.
 
 
 # Descriptions: remove files
-#    Arguments: OBJ($self) ... varargs ...
+#    Arguments: OBJ($self) VARARGS(@p)
 # Side Effects: remove files
 # Return Value: same as remove()
 sub delete
diff --git a/fml/lib/FML/Command/HTMLify.pm b/fml/lib/FML/Command/HTMLify.pm
index 97d1d653..f7437050 100644
--- a/fml/lib/FML/Command/HTMLify.pm
+++ b/fml/lib/FML/Command/HTMLify.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 2002,2003 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: HTMLify.pm,v 1.13 2002/12/23 14:43:18 fukachan Exp $
+# $FML: HTMLify.pm,v 1.14 2002/12/24 10:19:43 fukachan Exp $
 #
 
 package FML::Command::HTMLify;
@@ -34,7 +34,7 @@ and file in C<$ml_home_dir>.
 
 
 # Descriptions: convert text to html style.
-#    Arguments: OBJ($self) HASH_REF($args) HASH_REF($optargs)
+#    Arguments: OBJ($curproc) HASH_REF($args) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: none
 sub convert
@@ -157,7 +157,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 2002,2003 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/Digest.pm b/fml/lib/FML/Digest.pm
index 2a638ac2..5ffaa018 100644
--- a/fml/lib/FML/Digest.pm
+++ b/fml/lib/FML/Digest.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 2002,2003 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: Digest.pm,v 1.5 2002/12/22 03:39:43 fukachan Exp $
+# $FML: Digest.pm,v 1.6 2002/12/24 10:19:42 fukachan Exp $
 #
 
 package FML::Digest;
@@ -35,8 +35,8 @@ constructor.
 
 
 # Descriptions: constructor.
-#    Arguments: OBJ($self) HASH_REF($args)
-# Side Effects: none
+#    Arguments: OBJ($self) OBJ($curproc)
+# Side Effects: $self->{ _curproc } = $curproc;
 # Return Value: OBJ
 sub new
 {
@@ -107,7 +107,7 @@ sub get_article_id
 
 
 # Descriptions: return the last article id sent back as digest
-#    Arguments: OBJ($self)
+#    Arguments: OBJ($self) STR($seq_file)
 # Side Effects: none
 # Return Value: NUM
 sub _get_id
@@ -256,7 +256,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 2002,2003 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/Filter/MimeComponent3.pm b/fml/lib/FML/Filter/MimeComponent3.pm
index 076d06a0..324c52ee 100644
--- a/fml/lib/FML/Filter/MimeComponent3.pm
+++ b/fml/lib/FML/Filter/MimeComponent3.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: MimeComponent3.pm,v 1.9 2003/01/08 04:19:10 fukachan Exp $
+# $FML: MimeComponent3.pm,v 1.10 2003/01/09 03:49:44 fukachan Exp $
 #
 
 package FML::Filter::MimeComponent;
@@ -324,6 +324,10 @@ sub _cutoff
 }
 
 
+# Descriptions: check if the object chain has effective part ?
+#    Arguments: OBJ($self) OBJ($msg)
+# Side Effects: none
+# Return Value: NUM( 1 or 0 )
 sub _has_effective_part
 {
     my ($self, $msg) = @_;
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm
index 9ec7ef63..e949afa5 100644
--- a/fml/lib/FML/Header/Subject.pm
+++ b/fml/lib/FML/Header/Subject.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003 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: Subject.pm,v 1.34 2002/12/10 12:00:49 fukachan Exp $
+# $FML: Subject.pm,v 1.35 2002/12/20 03:44:52 fukachan Exp $
 #
 
 package FML::Header::Subject;
@@ -142,7 +142,7 @@ sub decode
 
 
 # Descriptions: delete subject tag
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($self) STR($subject) STR($tag)
 # Side Effects: none
 # Return Value: STR
 sub delete_subject_tag
@@ -276,7 +276,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003 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/MTAControl.pm b/fml/lib/FML/MTAControl.pm
index 7f16a8ca..e7807ecf 100644
--- a/fml/lib/FML/MTAControl.pm
+++ b/fml/lib/FML/MTAControl.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: MTAControl.pm,v 1.15 2003/01/04 12:19:36 fukachan Exp $
+# $FML: MTAControl.pm,v 1.16 2003/01/07 08:38:31 fukachan Exp $
 #
 
 package FML::MTAControl;
@@ -111,7 +111,7 @@ sub setup
 
 
 # Descriptions: update alias.db from alias file
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub update_alias
@@ -130,7 +130,7 @@ sub update_alias
 
 
 # Descriptions: find key in alias maps
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: none
 sub find_key_in_alias_maps
@@ -150,7 +150,7 @@ sub find_key_in_alias_maps
 
 
 # Descriptions: return aliases as HASH_REF
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: HASH_REF
 sub get_aliases_as_hash_ref
@@ -169,8 +169,7 @@ sub get_aliases_as_hash_ref
 
 
 # Descriptions: install alias file
-#    Arguments: OBJ($self)
-#               HASH_REF($curproc) HASH_REF($params) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub install_alias
@@ -189,8 +188,7 @@ sub install_alias
 
 
 # Descriptions: remove entry in alias maps
-#    Arguments: OBJ($self)
-#               HASH_REF($curproc) HASH_REF($params) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub remove_alias
@@ -209,8 +207,7 @@ sub remove_alias
 
 
 # Descriptions: install/update virtual map file
-#    Arguments: OBJ($self)
-#               HASH_REF($curproc) HASH_REF($params) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub install_virtual_map
@@ -229,8 +226,7 @@ sub install_virtual_map
 
 
 # Descriptions: remove entry in virtual maps
-#    Arguments: OBJ($self)
-#               HASH_REF($curproc) HASH_REF($params) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub remove_virtual_map
@@ -249,8 +245,7 @@ sub remove_virtual_map
 
 
 # Descriptions: update virtual_map
-#    Arguments: OBJ($self) 
-#               HASH_REF($curproc) HASH_REF($params) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update virtual_map
 # Return Value: none
 sub update_virtual_map
@@ -285,8 +280,8 @@ sub _install
 
 
 # Descriptions: remove the specified entry in the postfix style map
-#    Arguments: OBJ($self) 
-#               HASH_REF($curproc) HASH_REF($params) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
+#               HASH_REF($p)
 # Side Effects: update virtual_map
 # Return Value: none
 sub _remove_postfix_style_virtual
diff --git a/fml/lib/FML/MTAControl/Qmail.pm b/fml/lib/FML/MTAControl/Qmail.pm
index aa0b7f72..37c792b7 100644
--- a/fml/lib/FML/MTAControl/Qmail.pm
+++ b/fml/lib/FML/MTAControl/Qmail.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2002 Ken'ichi Fukamachi
+#  Copyright (C) 2002,2003 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: Qmail.pm,v 1.13 2002/09/22 14:56:51 fukachan Exp $
+# $FML: Qmail.pm,v 1.14 2002/12/18 04:03:52 fukachan Exp $
 #
 
 package FML::MTAControl::Qmail;
@@ -31,7 +31,7 @@ set up aliases and virtual maps for qmail.
 
 
 # Descriptions: udummy. qmail not needs installation of alias files.
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub qmail_install_alias
@@ -43,7 +43,7 @@ sub qmail_install_alias
 
 
 # Descriptions: remove .qmail-$ml* files (remove aliases).
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub qmail_remove_alias
@@ -80,7 +80,7 @@ sub qmail_remove_alias
 
 
 # Descriptions: dummy (update alias).
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: update aliases
 # Return Value: none
 sub qmail_update_alias
@@ -92,7 +92,7 @@ sub qmail_update_alias
 
 
 # Descriptions: dummy (find key in aliases).
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: NUM(1 or 0)
 sub qmail_find_key_in_alias_maps
@@ -105,7 +105,7 @@ sub qmail_find_key_in_alias_maps
 
 
 # Descriptions: get { key => value } in aliases
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: HASH_REF
 sub qmail_get_aliases_as_hash_ref
@@ -118,7 +118,7 @@ sub qmail_get_aliases_as_hash_ref
 
 
 # Descriptions: return alias_maps as ARRAY_REF
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: none
 # Return Value: ARRAY_REF
 sub qmail_alias_maps
@@ -131,7 +131,7 @@ sub qmail_alias_maps
 
 
 # Descriptions: create ~/.qmail-* files
-#    Arguments: OBJ($self) HASH_REF($curproc) HASH_REF($optargs)
+#    Arguments: OBJ($self) OBJ($curproc) HASH_REF($params) HASH_REF($optargs)
 # Side Effects: creates ~/.qmail-XXX
 # Return Value: none
 sub qmail_setup
@@ -247,7 +247,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 2002,2003 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/Calender.pm b/fml/lib/FML/Process/Calender.pm
index 9bfd55a2..e3e2a904 100644
--- a/fml/lib/FML/Process/Calender.pm
+++ b/fml/lib/FML/Process/Calender.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2002 Ken'ichi Fukamachi
+# Copyright (C) 2002,2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Calender.pm,v 1.9 2002/09/22 14:56:51 fukachan Exp $
+# $FML: Calender.pm,v 1.10 2002/12/18 04:43:51 fukachan Exp $
 #
 
 package FML::Process::Calender;
@@ -50,7 +50,7 @@ dummy.
 
 # Descriptions: dummy constructor.
 #               avoid the default fml new() since we do not need it.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($self)
 # Side Effects: none
 # Return Value: OBJ
 sub new
@@ -195,7 +195,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2002 Ken'ichi Fukamachi
+Copyright (C) 2002,2003 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/ConfViewer.pm b/fml/lib/FML/Process/ConfViewer.pm
index bf5aeaf5..854977d9 100644
--- a/fml/lib/FML/Process/ConfViewer.pm
+++ b/fml/lib/FML/Process/ConfViewer.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
+# Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: ConfViewer.pm,v 1.18 2002/09/29 05:28:25 fukachan Exp $
+# $FML: ConfViewer.pm,v 1.19 2002/12/18 04:43:52 fukachan Exp $
 #
 
 package FML::Process::ConfViewer;
@@ -63,7 +63,7 @@ sub new
 
 
 # Descriptions: adjust ml_* and load configuration files.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub prepare
@@ -90,7 +90,7 @@ sub prepare
 
 
 # Descriptions: check @ARGV, call help() if needed
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: exit ASAP.
 #               longjmp() to help() if appropriate
 # Return Value: none
@@ -133,7 +133,7 @@ See <FML::Process::Switch()> on C<$args> for more details.
 
 
 # Descriptions: just a switch, call _fmlconf()
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub run
@@ -167,7 +167,7 @@ show help.
 
 
 # Descriptions: show help
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub help
@@ -188,7 +188,7 @@ _EOF_
 
 
 # Descriptions: dummy
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub finish
@@ -218,7 +218,7 @@ run dump_variables of C<FML::Config>.
 
 
 # Descriptions: show configurations variables in the sytle "key = value".
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub _fmlconf
@@ -249,7 +249,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003 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/DocViewer.pm b/fml/lib/FML/Process/DocViewer.pm
index 81d1cff7..fcf33356 100644
--- a/fml/lib/FML/Process/DocViewer.pm
+++ b/fml/lib/FML/Process/DocViewer.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
+# Copyright (C) 2000,2001,2002,2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: DocViewer.pm,v 1.21 2002/09/22 14:56:52 fukachan Exp $
+# $FML: DocViewer.pm,v 1.22 2002/12/18 04:43:52 fukachan Exp $
 #
 
 package FML::Process::DocViewer;
@@ -69,7 +69,7 @@ sub new
 
 
 # Descriptions: load default configurations and fix @INC.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub prepare
@@ -90,7 +90,7 @@ sub prepare
 
 
 # Descriptions: check @ARGV and show help if needed
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: may exit.
 #               longjmp() to help() if appropriate.
 # Return Value: none
@@ -123,7 +123,7 @@ C<fmlconf($args)>.
 
 
 # Descriptions: just a switch, call _fmldoc()
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub run
@@ -138,7 +138,7 @@ sub run
 
 
 # Descriptions: fmldoc wrapper / top level dispacher
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub _fmldoc
@@ -236,7 +236,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003 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/ErrorViewer.pm b/fml/lib/FML/Process/ErrorViewer.pm
index c2f8ba79..fbc0fb85 100644
--- a/fml/lib/FML/Process/ErrorViewer.pm
+++ b/fml/lib/FML/Process/ErrorViewer.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML$
+# $FML: ErrorViewer.pm,v 1.1 2003/01/05 02:22:17 fukachan Exp $
 #
 
 package FML::Process::ErrorViewer;
@@ -63,7 +63,7 @@ sub new
 
 
 # Descriptions: adjust ml_* and load configuration files.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub prepare
@@ -90,7 +90,7 @@ sub prepare
 
 
 # Descriptions: check @ARGV, call help() if needed
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: exit ASAP.
 #               longjmp() to help() if appropriate
 # Return Value: none
@@ -133,7 +133,7 @@ See <FML::Process::Switch()> on C<$args> for more details.
 
 
 # Descriptions: just a switch, call _fmlconf()
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub run
@@ -167,7 +167,7 @@ show help.
 
 
 # Descriptions: show help
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub help
@@ -184,7 +184,7 @@ _EOF_
 
 
 # Descriptions: dummy
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub finish
@@ -214,7 +214,7 @@ run dump_variables of C<FML::Config>.
 
 
 # Descriptions: show error messages
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub _fmlerror
diff --git a/fml/lib/FML/Process/Flow.pm b/fml/lib/FML/Process/Flow.pm
index 0b084ea8..67cca212 100644
--- a/fml/lib/FML/Process/Flow.pm
+++ b/fml/lib/FML/Process/Flow.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003 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.17 2002/09/11 23:18:15 fukachan Exp $
+# $FML: Flow.pm,v 1.18 2002/09/22 14:56:53 fukachan Exp $
 #
 
 package FML::Process::Flow;
@@ -66,7 +66,7 @@ programs kicked by MTA, command line interfaces and CGI's.
 #               3. start the main transaction
 #                  lock, execute main routine, unlock
 #               4. inform error messages, clean up and more ...
-#    Arguments: $self $args
+#    Arguments: OBJ($pkg) HASH_REF($args)
 # Side Effects:
 #               ProcessSwtich() is exported to main:: Name Space.
 # Return Value: none
@@ -111,7 +111,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003 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/HTMLify.pm b/fml/lib/FML/Process/HTMLify.pm
index b9361698..0ce0fd67 100644
--- a/fml/lib/FML/Process/HTMLify.pm
+++ b/fml/lib/FML/Process/HTMLify.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2001,2002 Ken'ichi Fukamachi
+# Copyright (C) 2001,2002,2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: HTMLify.pm,v 1.25 2002/11/18 22:47:26 fukachan Exp $
+# $FML: HTMLify.pm,v 1.26 2002/12/22 03:46:20 fukachan Exp $
 #
 
 package FML::Process::HTMLify;
@@ -60,7 +60,7 @@ sub new
 
 
 # Descriptions: adjust ml_*, load configuration files, and fix @INC.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub prepare
@@ -81,7 +81,7 @@ sub prepare
 
 
 # Descriptions: dummy.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub verify_request
@@ -162,7 +162,7 @@ _EOF_
 
 
 # Descriptions: dummy.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub finish
@@ -195,7 +195,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003 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/Spool.pm b/fml/lib/FML/Process/Spool.pm
index 7bb8ae23..ab22ed15 100644
--- a/fml/lib/FML/Process/Spool.pm
+++ b/fml/lib/FML/Process/Spool.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002,2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Spool.pm,v 1.13 2003/01/02 15:51:49 fukachan Exp $
+# $FML: Spool.pm,v 1.14 2003/01/07 11:43:11 fukachan Exp $
 #
 
 package FML::Process::Spool;
@@ -61,7 +61,7 @@ sub new
 
 
 # Descriptions: dummy to avoid to take data from STDIN
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub prepare
@@ -82,7 +82,7 @@ sub prepare
 
 
 # Descriptions: dummy to avoid to take data from STDIN
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub verify_request
@@ -340,7 +340,7 @@ _EOF_
 
 
 # Descriptions: dummy to avoid to take data from STDIN
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub finish
@@ -357,7 +357,7 @@ sub finish
 
 
 # Descriptions: dummy to avoid to take data from STDIN
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub DESTROY {}
diff --git a/fml/lib/FML/Process/Super.pm b/fml/lib/FML/Process/Super.pm
index b2da7d8f..efe99c7c 100644
--- a/fml/lib/FML/Process/Super.pm
+++ b/fml/lib/FML/Process/Super.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2003 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML$
+# $FML: Super.pm,v 1.1 2003/01/07 11:43:27 fukachan Exp $
 #
 
 package FML::Process::Super;
@@ -61,7 +61,7 @@ sub new
 
 
 # Descriptions: fix ml_*, load config and fix @INC.
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: fix @INC
 # Return Value: none
 sub prepare
@@ -82,7 +82,7 @@ sub prepare
 
 
 # Descriptions: dummy to avoid to take data from STDIN
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub verify_request
@@ -161,7 +161,7 @@ _EOF_
 
 
 # Descriptions: dummy to avoid to take data from STDIN
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub finish
@@ -178,7 +178,7 @@ sub finish
 
 
 # Descriptions: dummy to avoid to take data from STDIN
-#    Arguments: OBJ($self) HASH_REF($args)
+#    Arguments: OBJ($curproc) HASH_REF($args)
 # Side Effects: none
 # Return Value: none
 sub DESTROY {}
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index 79d77f30..eb588a33 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.81 2003/01/05 02:26:23 fukachan Exp $
+# $FML: Switch.pm,v 1.82 2003/01/05 05:13:49 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -255,7 +255,7 @@ C<$args> is like this:
 # Descriptions: top level process switch
 #               emulates "use $package" but $package is dynamically
 #               determined by e.g. $0.
-#    Arguments: HASH_REF($args)
+#    Arguments: STR($myname) HASH_REF($args)
 # Side Effects: process switching :-)
 #               ProcessSwtich() is exported to main:: Name Space.
 # Return Value: STR(package name)
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 231712aa..b5e75160 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003 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: Utils.pm,v 1.51 2002/12/23 14:45:46 fukachan Exp $
+# $FML: Utils.pm,v 1.52 2002/12/24 10:19:47 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -693,7 +693,7 @@ sub ml_home_dir
 # Descriptions: return $ml_home_prefix defined in main.cf (/etc/fml/main.cf).
 #               return $ml_home_prefix for $domain if $domain is specified.
 #               return default one if $domain is not specified.
-#    Arguments: OBJ($curproc) STR($domain)
+#    Arguments: HASH_REF($main_cf) STR($domain)
 # Side Effects: none
 # Return Value: STR
 sub __ml_home_prefix_from_main_cf
@@ -1100,7 +1100,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003 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.