verzia 1.1, 2003/02/16 15:48:06 |
verzia 1.2, 2003/03/23 11:29:52 |
|
|
|
|
my (%cfg); |
my (%cfg); |
|
|
sub init_mods { |
#sub init_mods { |
my ($mods, $pre, $fname); |
# my ($mods, $pre, $fname); |
|
# |
$fname = $cfg{"init/mods"}; |
# $fname = $cfg{"init/mods"}; |
$fname = "iotta.mods" unless $fname; |
# $fname = "iotta.mods" unless $fname; |
|
# |
open (INPUT, $fname) || return 1; |
# open (INPUT, $fname) || return 1; |
while (<INPUT>) { $mods.=$_; } |
# while (<INPUT>) { $mods.=$_; } |
close (INPUT); |
# close (INPUT); |
|
# |
for (split (/\n/, $mods)) { |
# for (split (/\n/, $mods)) { |
my $b = $_; |
# my $b = $_; |
s/::/\//g; |
# s/::/\//g; |
print STDERR "loading $b ($_.pm)\n"; |
# print STDERR "loading $b ($_.pm)\n"; |
require "$_.pm" unless /^[ \t]*#.*$/; |
# require "$_.pm" unless /^[ \t]*#.*$/; |
} |
# } |
} |
#} |
|
|
sub init_conf { |
sub init_conf { |
my ($conf, $key, $val, $fname); |
my ($conf, $key, $val, $fname); |
Riadok 46 sub start_control { |
|
Riadok 46 sub start_control { |
|
$ctrln = $cfg{"ctrl"}; |
$ctrln = $cfg{"ctrl"}; |
$ctrln = "Iotta::Ctrl" if (!$ctrln); |
$ctrln = "Iotta::Ctrl" if (!$ctrln); |
print STDERR "starting control module: $ctrln...\n"; |
print STDERR "starting control module: $ctrln...\n"; |
|
my $req = $ctrln; |
|
$req =~ s/::/\//g; |
|
require "$req.pm"; |
$ctrl = $ctrln->new; |
$ctrl = $ctrln->new; |
$ctrl->config(\%cfg); |
$ctrl->config(\%cfg); |
$retval = $ctrl->main; |
$retval = $ctrl->main; |
Riadok 54 sub start_control { |
|
Riadok 57 sub start_control { |
|
|
|
&init_conf (@ARGV); |
&init_conf (@ARGV); |
|
|
&init_mods (); |
#&init_mods (); |
|
|
&start_control (); |
&start_control (); |
|
|