371 |
|
|
372 |
my $input_name = $input->{name} || $log->logdie("input without a name isn't valid: ",dump($input)); |
my $input_name = $input->{name} || $log->logdie("input without a name isn't valid: ",dump($input)); |
373 |
|
|
374 |
|
if ( $input->{skip} ) { |
375 |
|
$log->info("skip $input_name"); |
376 |
|
next; |
377 |
|
} |
378 |
|
|
379 |
next if ($only_input && ($input_name !~ m#$only_input#i && $input->{type} !~ m#$only_input#i)); |
next if ($only_input && ($input_name !~ m#$only_input#i && $input->{type} !~ m#$only_input#i)); |
380 |
|
|
381 |
my $type = lc($input->{type}); |
my $type = lc($input->{type}); |