fix comments.

ensure initial value.

5 files changed, 97 insertions, 15 deletions

diff --git a/fml/lib/FML/Command/Admin/mergeml.pm b/fml/lib/FML/Command/Admin/mergeml.pm
index e39b36df..3b372c6a 100644
--- a/fml/lib/FML/Command/Admin/mergeml.pm
+++ b/fml/lib/FML/Command/Admin/mergeml.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: mergeml.pm,v 1.7 2006/01/09 14:00:54 fukachan Exp $
+# $FML: mergeml.pm,v 1.8 2006/03/04 13:48:29 fukachan Exp $
 #
 
 package FML::Command::Admin::mergeml;
@@ -18,14 +18,26 @@ FML::Command::Admin::mergeml - top level dispather of configuration merge.
 
 =head1 SYNOPSIS
 
+use FML::Command::Admin::mergeml
+my $ml = new FML::Command::Admin::mergeml;
+$ml->process($curproc, $command_context);
+
 =head1 DESCRIPTION
 
+This class is the top level dispather of configuration merging.
+It converts fml4 configurations to fml8 ones and 
+set up fml8 style configurations.
+
 =head1 METHODS
 
 =head2 new()
 
 constructor.
 
+=head2 need_lock()
+
+not need lock in the first time.
+
 =cut
 
 
@@ -49,6 +61,13 @@ sub new
 sub need_lock { 0;}
 
 
+=head2 process($curproc, $command_context)
+
+merge other mailing list driver system into fml8.
+
+=cut
+
+
 # Descriptions: merge other mailing list driver system into fml8.
 #    Arguments: OBJ($self) OBJ($curproc) OBJ($command_context)
 # Side Effects: create mailing list directory,
diff --git a/fml/lib/FML/Command/Admin/newcopml.pm b/fml/lib/FML/Command/Admin/newcopml.pm
index 1833d9e8..c0b416f7 100644
--- a/fml/lib/FML/Command/Admin/newcopml.pm
+++ b/fml/lib/FML/Command/Admin/newcopml.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: newcopml.pm,v 1.1 2006/02/04 08:00:09 fukachan Exp $
+# $FML: newcopml.pm,v 1.2 2006/03/04 13:48:29 fukachan Exp $
 #
 
 package FML::Command::Admin::newcopml;
@@ -29,14 +29,31 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
-set up a new mailing list.
-create mailing list directory,
-install config.cf, include, include-ctl et. al.
+set up a new virtual mailing list for create-on-post operation.
+Actually, run "make newml" operation to create a new ML.
+
+After that, modify it for create-on-post operation.
+We use this virtual ML for spooling and logging only.
+The actual processing is done by FML::Process::CreateOnPost process.   
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+not need lock in the first time.
+
 =head2 process($curproc, $command_context)
 
+main dispatcher.
+
+=head2 cgi_menu($curproc, $command_context)
+
+show cgi menu for newcopml command.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/newdomain.pm b/fml/lib/FML/Command/Admin/newdomain.pm
index e242199c..bbc5ce2f 100644
--- a/fml/lib/FML/Command/Admin/newdomain.pm
+++ b/fml/lib/FML/Command/Admin/newdomain.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: newdomain.pm,v 1.9 2006/03/04 13:48:29 fukachan Exp $
+# $FML: newdomain.pm,v 1.10 2006/03/05 08:08:36 fukachan Exp $
 #
 
 package FML::Command::Admin::newdomain;
@@ -19,12 +19,20 @@ FML::Command::Admin::newdomain - declare a new domain we use.
 
 =head1 SYNOPSIS
 
-See C<FML::Command> for more detainewdomain.
+See C<FML::Command> for more detail of newdomain operation.
 
 =head1 DESCRIPTION
 
 declare a new domain we use.
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+not need lock in the first time.
+
 =cut
 
 
@@ -48,6 +56,14 @@ sub new
 sub need_lock { 0;}
 
 
+=head2 process($curproc, $command_context)
+
+declare a new domain we use.
+It adds domain to ml_home_prefix configuration file.
+
+=cut
+
+
 # Descriptions: declare a new domain we use.
 #    Arguments: OBJ($self) OBJ($curproc) OBJ($command_context)
 # Side Effects: forward request to dir module
@@ -56,8 +72,8 @@ sub process
 {
     my ($self, $curproc, $command_context) = @_;
     my $canon_argv = $command_context->get_canon_argv();
-    my $domain     = $canon_argv->{ ml_name };
-    my $prefix     = $canon_argv->{ options }->[ 0 ];
+    my $domain     = $canon_argv->{ ml_name }        || '';
+    my $prefix     = $canon_argv->{ options }->[ 0 ] || '';
     my $error      = '';
 
     if ($domain && $prefix) {
diff --git a/fml/lib/FML/Command/Admin/rmcopml.pm b/fml/lib/FML/Command/Admin/rmcopml.pm
index 560d401b..2df77c1f 100644
--- a/fml/lib/FML/Command/Admin/rmcopml.pm
+++ b/fml/lib/FML/Command/Admin/rmcopml.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: rmcopml.pm,v 1.2 2006/02/15 13:44:03 fukachan Exp $
+# $FML: rmcopml.pm,v 1.3 2006/03/04 13:48:29 fukachan Exp $
 #
 
 package FML::Command::Admin::rmcopml;
@@ -29,14 +29,28 @@ See C<FML::Command> for more details.
 
 =head1 DESCRIPTION
 
-set up a new mailing list.
-create mailing list directory,
-install config.cf, include, include-ctl et. al.
+remove the specified ML (virtual create-on-post top level entrance).
+After that, 
+purge the relation between virtual domain configurations and ML's.
 
 =head1 METHODS
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+not need lock in the first time.
+
 =head2 process($curproc, $command_context)
 
+main dispatcher.
+
+=head2 cgi_menu($curproc, $command_context)
+
+show cgi menu for rmcopml command.
+
 =cut
 
 
diff --git a/fml/lib/FML/Command/Admin/rmdomain.pm b/fml/lib/FML/Command/Admin/rmdomain.pm
index a6f17809..e091b09c 100644
--- a/fml/lib/FML/Command/Admin/rmdomain.pm
+++ b/fml/lib/FML/Command/Admin/rmdomain.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: rmdomain.pm,v 1.8 2006/03/04 13:48:29 fukachan Exp $
+# $FML: rmdomain.pm,v 1.9 2006/03/05 08:08:37 fukachan Exp $
 #
 
 package FML::Command::Admin::rmdomain;
@@ -25,6 +25,14 @@ See C<FML::Command> for more detairmdomain.
 
 an alias of C<FML::Command::Admin::dir>.
 
+=head2 new()
+
+constructor.
+
+=head2 need_lock()
+
+not need lock in the first time.
+
 =cut
 
 
@@ -48,6 +56,14 @@ sub new
 sub need_lock { 0;}
 
 
+=head2 process($curproc, $command_context)
+
+declare discarding this domain.
+remove domain from ml_home_prefix configuration file.
+
+=cut
+
+
 # Descriptions: declare discarding this domain.
 #    Arguments: OBJ($self) OBJ($curproc) OBJ($command_context)
 # Side Effects: forward request to dir module
@@ -56,7 +72,7 @@ sub process
 {
     my ($self, $curproc, $command_context) = @_;
     my $canon_argv = $command_context->get_canon_argv();
-    my $domain     = $canon_argv->{ ml_name };
+    my $domain     = $canon_argv->{ ml_name } || '';
 
     if ($domain) {
 	use FML::ML::HomePrefix;