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}); |
673 |
close($report_fh) if ($report_fh); |
close($report_fh) if ($report_fh); |
674 |
} |
} |
675 |
|
|
676 |
eval { $indexer->finish } if ($indexer && $indexer->can('finish')); |
$indexer->finish if $indexer && $indexer->can('finish'); |
677 |
|
|
678 |
foreach my $out ( @output_modules ) { |
foreach my $out ( @output_modules ) { |
679 |
$out->finish if $out->can('finish'); |
$out->finish if $out->can('finish'); |