diff options
Diffstat (limited to 'fml/libexec/process_switch')
| -rwxr-xr-x | fml/libexec/process_switch | 147 |
1 files changed, 146 insertions, 1 deletions
diff --git a/fml/libexec/process_switch b/fml/libexec/process_switch index bd6a11ad..6a381681 100755 --- a/fml/libexec/process_switch +++ b/fml/libexec/process_switch @@ -14,6 +14,112 @@ use strict; use Carp; +sub main::Bootstrap2 +{ + my ($main_cf_file) = @_; + + # 2. pick up *.cf files to read and set them to @cf. + # We pass it to fml_loader. + # pass *.cf files to libexec/{distribute,command} + # for example + # @cf = ( /etc/fml/defaults/$VERSION/default_config.cf + # /etc/fml/site_default_config.cf (required ?) + # /etc/fml/domains/$DOMAIN/default_config.cf + # /var/spool/ml/elena/config.cf + # ); + my @argv = @ARGV; # save the original arguments + my @cf = (); + my %options = (); + my $my_default_config = ''; + my $ml_home_dir = ''; # e.g. /var/spool/ml/elena + + # inspect my name from $0 + use File::Basename; + my $myname = basename($0); + + + # parse command line options (preliminary) + use Getopt::Long; + GetOptions(\%options, _module_specific_options($myname)); + + my $main_cf = Standalone::load_cf($options{'c'} || $main_cf_file, + $options{'params'} + ); + + my $default_config = $my_default_config || $main_cf->{ default_config }; + + # 2.2 parse @ARGV .. + my $ml_home_prefix = $main_cf->{ ml_home_prefix }; + my $found_cf = 0; + for (@ARGV) { + # elena is translated to "/var/spool/ml/elena" + unless ($found_cf) { + my $x = "$ml_home_prefix/$_"; + if (-d $x && -f "$x/config.cf") { + $found_cf = 1; + $ml_home_dir = $x; + push(@cf, "$x/config.cf"); + } + } + + if (-d $_) { + $ml_home_dir = $_; + if (-f "$_/config.cf") { + push(@cf, "$_/config.cf"); + $found_cf = 1; + } + } + elsif (-f $_) { + push(@cf, $_); + } + } + + # 2.3 prepare @cf + # XXX hmm, .. '/etc/fml/site_default_config.cf' is good ??? + unshift(@cf, '/etc/fml/site_default_config.cf'); + unshift(@cf, $default_config); + + # 3. reset @INC + unshift(@INC, split(/\s+/, $main_cf->{ lib_dir })); + unshift(@INC, split(/\s+/, $main_cf->{ local_lib_dir })); + + # 3.1 useful for e.g. "fmldoc" + $ENV{'PERL5LIB'} = $main_cf->{ lib_dir }; + + # 4. debug + if ($0 =~ /loader/) { + eval q#use Data::Dumper; print Dumper( $main_cf ); sleep 3;#; + } + + # 5. o.k. here we go! + my ($args, $pkg); + + $args = { + fml_version => $main_cf->{ fml_version }, + + myname => $myname, + ml_home_prefix => $main_cf->{ ml_home_prefix }, + ml_home_dir => $ml_home_dir, + + cf_list => \@cf, + options => \%options, + + # pass the original information to each process + argv => \@argv, + ARGV => \@ARGV, + + # options + need_ml_name => _ml_name_is_required($myname), + }; + + # See libexec/process_switch on ProcessSwitch() + $pkg = ProcessSwitch($args); + + # See FML::Process::Kernel module on ProcessStart() + FML::Process::Flow::ProcessStart($pkg, $args); +} + + # Descriptions: top level process switch # emulates "use $package" but $package is dynamically # determined by e.g. $0. @@ -22,7 +128,7 @@ use Carp; # Side Effects: process switching :-) # ProcessSwtich() is exported to main:: Name Space. # Return Value: package name -sub main::ProcessSwitch +sub ProcessSwitch { my ($args) = @_; @@ -39,6 +145,45 @@ sub main::ProcessSwitch } +sub _module_specific_options +{ + my ($myname) = @_; + + if ($myname eq 'fml.pl' || + $myname eq 'loader' ) { + return qw(ctladdr! debug! params=s -c=s); + } + elsif ($myname eq 'fmlticket') { + return qw(debug! params=s -c=s -A=s -R=s); + } + elsif ($myname eq 'fmlconf') { + return qw(ctladdr! debug! params=s -c=s n!); + } + elsif ($myname eq 'fmldoc') { + return qw(ctladdr! debug! params=s -c=s n!); + } + else { + croak "$myname is not defined.\n"; + } +} + + +sub _ml_name_is_required +{ + my ($myname) = @_; + + if ($myname eq 'fmlconf') { + return 0; + } + elsif ($myname eq 'fmldoc') { + return 0; + } + else { + return 1; + } +} + + # Descriptions: determine package we need and require() it if needed. # Arguments: $args # XXX non OO interface |