Súbor: [Platon] / iotta / Iotta / Ctrl / Chain.pm (stiahnutie)
Revízia 1.1.1.1, Sun Feb 16 15:48:11 2003 UTC (21 years, 2 months ago) by yenar
Zmeny od 1.1: +0 -0
[lines]
initial import of iotta into platon cvs
|
package Iotta::Ctrl::Chain;
use strict;
require Iotta::Ctrl;
require Iotta::Chain;
our @ISA = ("Iotta::Ctrl");
sub main {
my $self = shift;
my %cfg=%{$self->{cfg}};
my $feeder=$cfg{"ctrl/feeder"};
my @chains = split (/;/, $cfg{chain});
for (@chains) {
my @chain = split (/;/, $cfg{"chain/$_"});
my $c = Iotta::Chain->new;
$c->cfg (\%cfg);
for (@chain) {
my $mod = $c->mod_creat ($_);
$c->mod_add($mod);
}
$c->run;
$c->finish;
}
}
1;
Platon Group <platon@platon.sk> http://platon.sk/
|