Opensource.Platon.SK CVS: iotta/iotta.pl - diff

Up to [Platon] / iotta

Diff for iotta/iotta.pl between version 1.1 and 1.2

version 1.1, 2003/02/16 15:48:06

version 1.2, 2003/03/23 11:29:52

Line 4 use strict;

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 {

my ($conf, $key, $val, $fname);

Line 46 sub start_control {

$ctrln = $cfg{"ctrl"};

$ctrln = "Iotta::Ctrl" if (!$ctrln);

print STDERR "starting control module: $ctrln...\n";

my $req = $ctrln;

$req =~ s/::/\//g;

require "$req.pm";

$ctrl = $ctrln->new;

$ctrl->config(\%cfg);

$retval = $ctrl->main;

Line 54 sub start_control {

Line 57 sub start_control {

&init_conf (@ARGV);

&init_mods ();

#&init_mods ();

&start_control ();

Platon Group <platon@platon.org> http://platon.org/


Copyright © 2002-2006 Platon Group Site powered by Metafox CMS	Go to Top