51 |
# convert to resonable format for TT |
# convert to resonable format for TT |
52 |
foreach my $db (keys %{ $config_dbs }) { |
foreach my $db (keys %{ $config_dbs }) { |
53 |
my $d = $config_dbs->{$db} || die; |
my $d = $config_dbs->{$db} || die; |
54 |
my $inputs = $d->{input}; |
my $inputs = $d->{input} || next; |
|
$c->log->debug("inputs [1]: ", Dumper($inputs)); |
|
55 |
$inputs = [ $inputs ] if (ref($inputs) ne 'ARRAY'); |
$inputs = [ $inputs ] if (ref($inputs) ne 'ARRAY'); |
|
$c->log->debug("inputs [2]: ", Dumper($inputs)); |
|
56 |
|
|
57 |
foreach my $i ( @{ $inputs } ) { |
foreach my $i ( @{ $inputs } ) { |
58 |
my $el = { |
my $el = { |