real library for libexec/fmlconf

1 files changed, 80 insertions, 0 deletions

diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm
new file mode 100644
index 00000000..973371cd
--- /dev/null
+++ b/fml/lib/FML/Process/Configure.pm
@@ -0,0 +1,80 @@
+#!/usr/local/bin/perl -w
+#-*- perl -*-
+#
+# Copyright (C) 2000 Ken'ichi Fukamachi
+#          All rights reserved. 
+#
+# $FML$
+#
+
+package FML::Process::Configure;
+
+use vars qw($debug @ISA @EXPORT @EXPORT_OK);
+use strict;
+use Carp;
+
+use FML::Process::Kernel;
+use FML::Log qw(Log);
+use FML::Config;
+
+require Exporter;
+@ISA = qw(FML::Process::Kernel Exporter);
+
+
+sub new
+{
+    my ($self, $args) = @_;
+    my $type    = ref($self) || $self;
+    my $curproc = new FML::Process::Kernel $args;
+    return bless $curproc, $type;
+}
+
+
+# dummy
+sub prepare
+{
+    ;
+}
+
+
+sub run
+{
+    my ($curproc, $args) = @_;
+
+    # use Data::Dumper; print Dumper( $args ); sleep 30;
+
+    $curproc->lock();
+    {
+	$curproc->_show_conf($args);
+    }
+    $curproc->unlock();
+}
+
+
+sub _show_conf
+{
+    my ($curproc, $args) = @_;    
+    my $config = $curproc->{ config };
+
+    $config->dump_variables();
+}
+
+
+sub AUTOLOAD
+{
+    my ($curproc, $args) = @_;
+    ;
+}
+
+
+=head1 NAME
+
+Configure -- fmlconf and makefml
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+=cut
+
+1;