diff options
| author | fukachan <fukachan> | 2004-01-24 15:37:01 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-01-24 15:37:01 +0000 |
| commit | fe9857ff40964ba1266a624af191cc66ce703f17 (patch) | |
| tree | 0a08d7ef3b4793becdd005c0b0088d80e9a441ab /fml/lib/FML/Process/Configure.pm | |
| parent | 5a7295448461b4ce4a49c48f14847b0ca8ea11a4 (diff) | |
| download | fml8-fe9857ff40964ba1266a624af191cc66ce703f17.tar.gz fml8-fe9857ff40964ba1266a624af191cc66ce703f17.tar.bz2 fml8-fe9857ff40964ba1266a624af191cc66ce703f17.zip | |
overhaul: clean up (FNF)
Diffstat (limited to 'fml/lib/FML/Process/Configure.pm')
| -rw-r--r-- | fml/lib/FML/Process/Configure.pm | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm index 331bfa49..ed5e9bba 100644 --- a/fml/lib/FML/Process/Configure.pm +++ b/fml/lib/FML/Process/Configure.pm @@ -3,7 +3,7 @@ # Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Configure.pm,v 1.60 2004/01/02 10:23:57 fukachan Exp $ +# $FML: Configure.pm,v 1.61 2004/01/02 14:50:34 fukachan Exp $ # package FML::Process::Configure; @@ -52,7 +52,7 @@ show help if needed. =cut -# Descriptions: ordinary constructor +# Descriptions: constructor. # Arguments: OBJ($self) HASH_REF($args) # Side Effects: none # Return Value: OBJ @@ -142,7 +142,7 @@ sub run } -# Descriptions: dummy +# Descriptions: dummy. # Arguments: OBJ($curproc) HASH_REF($args) # Side Effects: none # Return Value: none @@ -166,7 +166,7 @@ show help. =cut -# Descriptions: show help +# Descriptions: show help. # Arguments: none # Side Effects: none # Return Value: none @@ -188,7 +188,7 @@ sub help } -# Descriptions: show FYI help +# Descriptions: show FYI help. # Arguments: none # Side Effects: none # Return Value: none @@ -213,7 +213,7 @@ _EOF_ } -# Descriptions: show help usage +# Descriptions: show help usage. # Arguments: STR($name) # Side Effects: none # Return Value: none @@ -271,7 +271,7 @@ See <FML::Process::Switch()> on C<$args> for more details. =cut -# Descriptions: makefml top level dispacher +# Descriptions: makefml top level dispacher. # Arguments: OBJ($curproc) HASH_REF($args) # Side Effects: load FML::Command::command module and execute it. # Return Value: none @@ -284,6 +284,7 @@ sub _makefml my $argv = $curproc->command_line_argv(); my ($method, $argv_ml_name, @options); + # XXX hmm, HARD-CODED but no idea. if ($myname eq 'makefml') { ($method, $argv_ml_name, @options) = @$argv; } @@ -291,7 +292,7 @@ sub _makefml ($argv_ml_name, $method, @options) = @$argv; } - # arguments to pass off to each method + # build arguments to pass off to each method. # XXX-TODO: command = [ $method, @options ]; ? (no, used only for message?) my $command_args = { command_mode => 'admin', @@ -300,7 +301,10 @@ sub _makefml ml_name => $ml_name, options => \@options, argv => $argv, - canon_argv => { # saved for {new,rm}domain commands. + + # save raw argv for {new,rm}domain commands, which need to + # interpret $ml_name as ml_domain. + canon_argv => { ml_name => $argv_ml_name, method => $method, options => \@options, |