Vyššie na [Platon] / iotta / Iotta / Ctrl

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;