diff options
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Process/Configure.pm | 21 |
1 files changed, 17 insertions, 4 deletions
diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm index 60a6486b..0101cd8d 100644 --- a/fml/lib/FML/Process/Configure.pm +++ b/fml/lib/FML/Process/Configure.pm @@ -40,14 +40,27 @@ sub prepare sub run { my ($curproc, $args) = @_; + my $config = $curproc->{ config }; + my $myname = $args->{ myname }; + my $argv = $args->{ ARGV }; + my $command = $argv->[ 0 ] || croak("command not specified\n"); - # use Data::Dumper; print Dumper( $args ); sleep 30; + # XXX debug + # use Data::Dumper; print Dumper( $args ); sleep 3; - $curproc->lock(); - { + if ($myname eq 'fmlconf') { $curproc->_show_conf($args); } - $curproc->unlock(); + elsif ($myname eq 'fmldoc') { + exec 'perldoc', @$argv; + } + else { + $curproc->lock(); + { + ; + } + $curproc->unlock(); + } } |