diff options
| author | fukachan <fukachan> | 2002-07-02 12:47:51 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 12:47:51 +0000 |
| commit | 1f82d2c8b59d4ff6a7c5d922b93aca5b0b290404 (patch) | |
| tree | e0bbfc35e956f741806da573ba211dccd686a2fc /fml/lib/FML/Process/Switch.pm | |
| parent | 54e1e91ca74560a507ebb64bcca30052580f105e (diff) | |
| download | fml8-1f82d2c8b59d4ff6a7c5d922b93aca5b0b290404.tar.gz fml8-1f82d2c8b59d4ff6a7c5d922b93aca5b0b290404.tar.bz2 fml8-1f82d2c8b59d4ff6a7c5d922b93aca5b0b290404.zip | |
remove obsolete comments
Diffstat (limited to 'fml/lib/FML/Process/Switch.pm')
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 31 |
1 files changed, 5 insertions, 26 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 2fd5d8ed..95e0e809 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.71 2002/06/27 08:25:51 fukachan Exp $ +# $FML: Switch.pm,v 1.72 2002/06/30 14:30:16 fukachan Exp $ # package FML::Process::Switch; @@ -17,7 +17,7 @@ use File::Spec; =head1 NAME -FML::Process::Switch - dispatch the suitable module +FML::Process::Switch - dispatch a module suitable with the program name =head1 SYNOPSIS @@ -115,23 +115,9 @@ sub main::Bootstrap2 } } - # 2.1 removed. - # analyze main.cf and set the result into $main_cf - - - # 2.2 parse @ARGV to get a list of configuration files. - # XXX $main_cf{ ml_home_dir } (e.g. /var/spool/ml/elena) is defined - # if possible. WHY ? - # a) resolve $ml_name (e.g. expand "elena" to "/var/spool/ml/elena") - # b) but we need special treatment in some cases e.g. makefml - # - # XXX CAN WE MOVE PARSER TO Process::{Kernel,CGI::Kernel} ? - # XXX ml_name, ml_domain, ml_home_prefix, ml_home_dir - # my $cf = _parse_argv($myname, $main_cf); - my $cf = (); - - # 2.3 prepare @$cf + # 2.1 prepare @$cf # XXX hmm, .. '/etc/fml/site_default_config.cf' is good ??? + my $cf = (); my $sitedef = File::Spec->catfile($main_cf->{ config_dir }, 'site_default_config.cf'); unshift(@$cf, $sitedef); @@ -155,14 +141,7 @@ sub main::Bootstrap2 if ($@) { print STDERR $@; sleep 3;} } - # 5. resolve $ml_home_prefix - # XXX CAN WE MOVE PARSER TO Process::{Kernel,CGI::Kernel} ? - # XXX ml_name, ml_domain, ml_home_prefix, ml_home_dir - # use FML::Process::Utils; - # my $ml_home_prefix = - # FML::Process::Utils::__ml_home_prefix_from_main_cf($main_cf); - - # 6. o.k. here we go! + # 5. o.k. here we go! # XXX CAN WE MOVE PARSER TO Process::{Kernel,CGI::Kernel} ? # XXX ml_name, ml_domain, ml_home_prefix, ml_home_dir my $args = { |