fix comments.

space cosmetics.

19 files changed, 367 insertions, 30 deletions

diff --git a/fml/lib/FML/Command/Admin/chaddr.pm b/fml/lib/FML/Command/Admin/chaddr.pm
index c410a995..04708d94 100644
--- a/fml/lib/FML/Command/Admin/chaddr.pm
+++ b/fml/lib/FML/Command/Admin/chaddr.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: chaddr.pm,v 1.28 2006/03/04 13:48:28 fukachan Exp $
+# $FML: chaddr.pm,v 1.29 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::chaddr;
@@ -27,6 +27,22 @@ change address from old one to new one.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
 change address from old one to new one.
@@ -70,7 +86,7 @@ sub verify_syntax
     my ($self, $curproc, $command_context) = @_;
     my $comname    = $command_context->get_cooked_command()    || '';
     my $comsubname = $command_context->get_cooked_subcommand() || '';
-    my $options    = $command_context->get_options()    || [];
+    my $options    = $command_context->get_options()           || [];
     my @test       = ($comname);
     my $command    = $options->[ 0 ] || '';
     my $oldaddr    = $options->[ 1 ] || '';
diff --git a/fml/lib/FML/Command/Admin/changepassword.pm b/fml/lib/FML/Command/Admin/changepassword.pm
index 665742f4..eefc4f7b 100644
--- a/fml/lib/FML/Command/Admin/changepassword.pm
+++ b/fml/lib/FML/Command/Admin/changepassword.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: changepassword.pm,v 1.17 2005/11/30 23:30:38 fukachan Exp $
+# $FML: changepassword.pm,v 1.18 2006/03/04 13:48:28 fukachan Exp $
 #
 
 package FML::Command::Admin::changepassword;
@@ -27,6 +27,22 @@ set password for a new address or change password.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
 change remote administrator password.
@@ -70,7 +86,7 @@ sub verify_syntax
     my ($self, $curproc, $command_context) = @_;
     my $comname    = $command_context->get_cooked_command()    || '';
     my $comsubname = $command_context->get_cooked_subcommand() || '';
-    my $options    = $command_context->get_options()    || [];
+    my $options    = $command_context->get_options()           || [];
     my @test       = ($comname);
     my $command    = $options->[ 0 ] || '';
     my $address    = $options->[ 1 ] || '';
@@ -110,7 +126,7 @@ sub process
     # 2. command line: makefml changepassword $ML $ADDR $PASSWORD
     #                  fml $ML changepassword     $ADDR $PASSWORD
     if ($myname eq 'makefml' || $myname eq 'fml' ||
-	$myname eq 'loader' ||
+	$myname eq 'loader'  ||
 	$myname eq 'command' || $myname eq 'fml.pl') {
 	my ($address, $password);
 
diff --git a/fml/lib/FML/Command/Admin/delmoderator.pm b/fml/lib/FML/Command/Admin/delmoderator.pm
index 663f2be4..f7b86345 100644
--- a/fml/lib/FML/Command/Admin/delmoderator.pm
+++ b/fml/lib/FML/Command/Admin/delmoderator.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: delmoderator.pm,v 1.21 2006/03/04 13:48:28 fukachan Exp $
+# $FML: delmoderator.pm,v 1.22 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::delmoderator;
@@ -27,8 +27,26 @@ remove the specified moderator.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/digest.pm b/fml/lib/FML/Command/Admin/digest.pm
index baa61530..8ac2f0e1 100644
--- a/fml/lib/FML/Command/Admin/digest.pm
+++ b/fml/lib/FML/Command/Admin/digest.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: digest.pm,v 1.26 2006/03/04 13:48:28 fukachan Exp $
+# $FML: digest.pm,v 1.27 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::digest;
@@ -32,8 +32,26 @@ change digest mode for the specified address to off/on.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/digestoff.pm b/fml/lib/FML/Command/Admin/digestoff.pm
index 73d4ecc9..fbdcc2f0 100644
--- a/fml/lib/FML/Command/Admin/digestoff.pm
+++ b/fml/lib/FML/Command/Admin/digestoff.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: digestoff.pm,v 1.13 2006/03/04 13:48:28 fukachan Exp $
+# $FML: digestoff.pm,v 1.14 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::digestoff;
@@ -28,8 +28,26 @@ It means delivery to this address from digest to real delivery mode.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
@@ -85,7 +103,7 @@ sub process
     my $options = $command_context->get_options() || [];
     my $address = $command_context->get_data() || $options->[ 0 ] || undef;
 
-    # mode off
+    # digest mode off
     $options->[ 1 ] = "off";
 
     use FML::Command::Admin::digest;
diff --git a/fml/lib/FML/Command/Admin/digeston.pm b/fml/lib/FML/Command/Admin/digeston.pm
index 01816e1b..b32af332 100644
--- a/fml/lib/FML/Command/Admin/digeston.pm
+++ b/fml/lib/FML/Command/Admin/digeston.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: digeston.pm,v 1.13 2006/03/04 13:48:28 fukachan Exp $
+# $FML: digeston.pm,v 1.14 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::digeston;
@@ -28,8 +28,26 @@ change delivery mode to this address from real to digest one.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
@@ -85,7 +103,7 @@ sub process
     my $options = $command_context->get_options() || [];
     my $address = $command_context->get_data() || $options->[ 0 ] || undef;
 
-    # mode on
+    # digest mode on
     $options->[ 1 ] = "on";
 
     use FML::Command::Admin::digest;
diff --git a/fml/lib/FML/Command/Admin/dir.pm b/fml/lib/FML/Command/Admin/dir.pm
index 8a5fd018..e977f914 100644
--- a/fml/lib/FML/Command/Admin/dir.pm
+++ b/fml/lib/FML/Command/Admin/dir.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: dir.pm,v 1.21 2005/08/17 12:08:43 fukachan Exp $
+# $FML: dir.pm,v 1.22 2006/03/04 13:48:28 fukachan Exp $
 #
 
 package FML::Command::Admin::dir;
@@ -27,8 +27,26 @@ show "ls -l" results.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
@@ -60,7 +78,7 @@ sub process
 {
     my ($self, $curproc, $command_context) = @_;
     my $config    = $curproc->config();
-    my $options   = $command_context->get_options();
+    my $options   = $command_context->get_options() || [];
     my $du_args   = {};
     my @argv      = ();
     my $recipient = '';
@@ -72,7 +90,7 @@ sub process
     for my $x (@$options) {
 	# XXX-TODO: correct? we restrict the "ls" option pattern here.
 	if ($safe->regexp_match('directory', $x)) {
-	    # XXX-TODO: allow plural options ?
+	    # XXX-TODO: we should allow plural directories as options ?
 	    $du_args->{ opt_ls } = $x;
 	}
 	else {
diff --git a/fml/lib/FML/Command/Admin/file.pm b/fml/lib/FML/Command/Admin/file.pm
index 7b312488..fe224be5 100644
--- a/fml/lib/FML/Command/Admin/file.pm
+++ b/fml/lib/FML/Command/Admin/file.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: file.pm,v 1.18 2004/06/26 11:47:56 fukachan Exp $
+# $FML: file.pm,v 1.19 2006/03/04 13:48:28 fukachan Exp $
 #
 
 package FML::Command::Admin::file;
@@ -25,6 +25,22 @@ See C<FML::Command> for more details.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
 dispatch functions for file operations.
@@ -90,7 +106,7 @@ sub process
 	$subcommand eq 'unlink') {
 	for my $x (@args) {
 	    if ($safe->regexp_match('file', $x)) {
-		# XXX-TODO: we shoul allow plural ?
+		# XXX-TODO: we should allow plural files ?
 		push(@argv, $x);
 	    }
 	}
diff --git a/fml/lib/FML/Command/Admin/get.pm b/fml/lib/FML/Command/Admin/get.pm
index 50e2fcb7..b73eaab1 100644
--- a/fml/lib/FML/Command/Admin/get.pm
+++ b/fml/lib/FML/Command/Admin/get.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: get.pm,v 1.29 2006/03/04 13:48:28 fukachan Exp $
+# $FML: get.pm,v 1.30 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::get;
@@ -29,6 +29,26 @@ get arbitrary file(s) in $ml_home_dir.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
+=head2 process($curproc, $command_context)
+
+main command specific routine.
+
 =cut
 
 
@@ -68,6 +88,7 @@ sub process
 
     if ($curproc->is_cui_process()) {
 	$recipient = $curproc->command_line_cui_specific_recipient() || '';
+	# XXX-TODO: mothod-ify
 	$command_context->{ _recipient } = $recipient;
     }
 
@@ -84,6 +105,7 @@ sub process
 	if (-f $filepath) {
 	    $curproc->log("send back $filename");
 
+	    # XXX-TODO: mothod-ify
 	    $command_context->{ _filename_to_send } = $filename;
 	    $command_context->{ _filepath_to_send } = $filepath;
 
diff --git a/fml/lib/FML/Command/Admin/htmlify.pm b/fml/lib/FML/Command/Admin/htmlify.pm
index 7c0c9050..e975ca81 100644
--- a/fml/lib/FML/Command/Admin/htmlify.pm
+++ b/fml/lib/FML/Command/Admin/htmlify.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: htmlify.pm,v 1.26 2004/04/23 04:10:29 fukachan Exp $
+# $FML: htmlify.pm,v 1.27 2006/03/04 13:48:28 fukachan Exp $
 #
 
 package FML::Command::Admin::htmlify;
@@ -25,6 +25,28 @@ See C<FML::Command> for more detaihtmlify.
 
 convert text articles to html style.
 
+=head1 METHODS
+
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
+=head2 process($curproc, $command_context)
+
+main command specific routine.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/moderate.pm b/fml/lib/FML/Command/Admin/moderate.pm
index d9e24232..0ec60d25 100644
--- a/fml/lib/FML/Command/Admin/moderate.pm
+++ b/fml/lib/FML/Command/Admin/moderate.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: moderate.pm,v 1.2 2006/03/04 13:48:29 fukachan Exp $
+# $FML: moderate.pm,v 1.3 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::moderate;
@@ -25,8 +25,26 @@ See C<FML::Command> for more details.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/off.pm b/fml/lib/FML/Command/Admin/off.pm
index 05c6418b..c25751f1 100644
--- a/fml/lib/FML/Command/Admin/off.pm
+++ b/fml/lib/FML/Command/Admin/off.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: off.pm,v 1.25 2006/03/04 13:48:29 fukachan Exp $
+# $FML: off.pm,v 1.26 2006/03/05 08:08:37 fukachan Exp $
 #
 
 package FML::Command::Admin::off;
@@ -27,8 +27,26 @@ change delivery mode from real time to digest.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/on.pm b/fml/lib/FML/Command/Admin/on.pm
index 6fa758b0..ef3b6dce 100644
--- a/fml/lib/FML/Command/Admin/on.pm
+++ b/fml/lib/FML/Command/Admin/on.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: on.pm,v 1.25 2006/03/04 13:48:29 fukachan Exp $
+# $FML: on.pm,v 1.26 2006/03/05 08:08:37 fukachan Exp $
 #
 
 package FML::Command::Admin::on;
@@ -27,8 +27,26 @@ change delivery mode from digest to real time.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/password.pm b/fml/lib/FML/Command/Admin/password.pm
index 70f94bf8..7e8003e2 100644
--- a/fml/lib/FML/Command/Admin/password.pm
+++ b/fml/lib/FML/Command/Admin/password.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: password.pm,v 1.15 2004/07/23 13:16:35 fukachan Exp $
+# $FML: password.pm,v 1.16 2006/03/04 13:48:29 fukachan Exp $
 #
 
 package FML::Command::Admin::password;
@@ -25,6 +25,22 @@ See C<FML::Command> for more details.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
 authenticate the remote admin password.
@@ -90,7 +106,7 @@ sub verify_syntax
     my ($self, $curproc, $command_context) = @_;
     my $comname    = $command_context->get_cooked_command()    || '';
     my $comsubname = $command_context->get_cooked_subcommand() || '';
-    my $options    = $command_context->get_options()    || [];
+    my $options    = $command_context->get_options()           || [];
     my @test       = ($comname);
 
     # XXX Let original_command be "admin password PASSWORD".
diff --git a/fml/lib/FML/Command/Admin/spool.pm b/fml/lib/FML/Command/Admin/spool.pm
index d8670cca..040d2820 100644
--- a/fml/lib/FML/Command/Admin/spool.pm
+++ b/fml/lib/FML/Command/Admin/spool.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: spool.pm,v 1.9 2005/08/17 12:08:42 fukachan Exp $
+# $FML: spool.pm,v 1.10 2006/03/04 13:48:29 fukachan Exp $
 #
 
 package FML::Command::Admin::spool;
@@ -27,8 +27,26 @@ show spool status or convert the structure.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/subscribe.pm b/fml/lib/FML/Command/Admin/subscribe.pm
index 482fba48..70fff2a6 100644
--- a/fml/lib/FML/Command/Admin/subscribe.pm
+++ b/fml/lib/FML/Command/Admin/subscribe.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: subscribe.pm,v 1.39 2006/05/17 12:31:42 fukachan Exp $
+# $FML: subscribe.pm,v 1.40 2006/07/09 12:11:12 fukachan Exp $
 #
 
 package FML::Command::Admin::subscribe;
@@ -27,6 +27,22 @@ subscribe a new address.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
 subscribe a new user.
@@ -140,6 +156,7 @@ sub process
     if ($curproc->is_cgi_process() || $curproc->is_under_mta_process()) {
 	use FML::Command::SendFile;
 	push(@ISA, qw(FML::Command::SendFile));
+	# XXX-TODO: method-ify
 	$command_context->{ _recipient } = $address;
 	$self->send_user_xxx_message($curproc, $command_context, "welcome");
 	delete $command_context->{ _recipient };
diff --git a/fml/lib/FML/Command/Admin/summary.pm b/fml/lib/FML/Command/Admin/summary.pm
index 4e84d257..04bee6bf 100644
--- a/fml/lib/FML/Command/Admin/summary.pm
+++ b/fml/lib/FML/Command/Admin/summary.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: summary.pm,v 1.10 2005/08/17 12:08:44 fukachan Exp $
+# $FML: summary.pm,v 1.11 2006/03/04 13:48:29 fukachan Exp $
 #
 
 package FML::Command::Admin::summary;
@@ -27,6 +27,22 @@ maintain article summary file.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
 maintain article summary file.
diff --git a/fml/lib/FML/Command/Admin/thread.pm b/fml/lib/FML/Command/Admin/thread.pm
index b4378e1f..bb42f405 100644
--- a/fml/lib/FML/Command/Admin/thread.pm
+++ b/fml/lib/FML/Command/Admin/thread.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: thread.pm,v 1.11 2005/08/17 12:08:44 fukachan Exp $
+# $FML: thread.pm,v 1.12 2006/03/04 13:48:29 fukachan Exp $
 #
 
 package FML::Command::Admin::thread;
@@ -27,8 +27,26 @@ show status article thread or manipulate it.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
+main command specific routine.
+
 =cut
 
 
@@ -72,7 +90,7 @@ sub process
     my $thargs = $curproc->article_thread_init();
     my $thread = new Mail::Message::Thread $thargs;
 
-    $self->_new_switch($curproc, $command_context, $thread);
+    $self->_dispatch($curproc, $command_context, $thread);
 }
 
 
@@ -81,7 +99,7 @@ sub process
 #               OBJ($curproc) OBJ($command_context) OBJ($thread)
 # Side Effects: update $recipient_map
 # Return Value: none
-sub _new_switch
+sub _dispatch
 {
     my ($self, $curproc, $command_context, $thread) = @_;
     my $config        = $curproc->config();
diff --git a/fml/lib/FML/Command/Admin/unsubscribe.pm b/fml/lib/FML/Command/Admin/unsubscribe.pm
index 7a9afd91..f056ed59 100644
--- a/fml/lib/FML/Command/Admin/unsubscribe.pm
+++ b/fml/lib/FML/Command/Admin/unsubscribe.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: unsubscribe.pm,v 1.36 2006/03/04 13:48:29 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.37 2006/03/05 08:08:37 fukachan Exp $
 #
 
 package FML::Command::Admin::unsubscribe;
@@ -27,6 +27,22 @@ remove the specified user.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+need lock or not.
+
+=head2 lock_channel()
+
+return lock channel name.
+
+=head2 verify_syntax($curproc, $command_context)
+
+provide command specific syntax checker.
+
 =head2 process($curproc, $command_context)
 
 remove the specified user.