summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-03-24 13:54:58 +0000
committerfukachan <fukachan>2001-03-24 13:54:58 +0000
commit6641fff181e6dcb3c919b4b7f01ec6bab25655b2 (patch)
treec5f35c9c1e0f08c0930e1fc3730caf827116f7f7
parent79820000ec81ad2a54d68d3b7525108f3c8caee0 (diff)
downloadfml8-6641fff181e6dcb3c919b4b7f01ec6bab25655b2.tar.gz
fml8-6641fff181e6dcb3c919b4b7f01ec6bab25655b2.tar.bz2
fml8-6641fff181e6dcb3c919b4b7f01ec6bab25655b2.zip
import program_name from libexec/loader
-rw-r--r--fml/lib/FML/Process/Switch.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index 87ea4ef7..6e1e2959 100644
--- a/fml/lib/FML/Process/Switch.pm
+++ b/fml/lib/FML/Process/Switch.pm
@@ -130,6 +130,7 @@ sub main::Bootstrap2
fml_version => $main_cf->{ fml_version },
myname => $myname,
+ program_name => $myname,
ml_home_prefix => $main_cf->{ ml_home_prefix },
ml_home_dir => $main_cf->{ ml_home_dir },
@@ -319,6 +320,9 @@ sub _module_specific_options
elsif ($myname eq 'makefml') {
return qw(debug! params=s -c=s);
}
+ elsif ($myname eq 'makefml.cgi') {
+ return qw(debug!);
+ }
else {
croak "options for $myname are not defined.\n";
}
@@ -381,6 +385,9 @@ sub _module_we_use
elsif ($name eq 'qmail-ext') {
$pkg = 'FML::Process::QMail';
}
+ elsif ($name eq 'makefml.cgi') {
+ $pkg = 'FML::CGI::Configure';
+ }
else {
return '';
}