From 002c71fc49bfde32ae79cca411977e443ea0ade8 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 17 Feb 2001 01:54:41 +0000
Subject: "fmldoc" preliminary definition

---
 fml/lib/FML/Process/Configure.pm | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

(limited to 'fml/lib')

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();
+    }
 }
 
 
-- 
cgit v1.2.1