318 |
|
|
319 |
$log->debug("loading output module $module"); |
$log->debug("loading output module $module"); |
320 |
eval "require $module"; |
eval "require $module"; |
321 |
|
|
322 |
|
# add database to arugemnts for output filter |
323 |
$output->{database} = $database; |
$output->{database} = $database; |
324 |
|
|
325 |
$log->debug("calling $module->new(",dump( $output ),")"); |
$log->debug("calling $module->new(",dump( $output ),")"); |
509 |
} |
} |
510 |
|
|
511 |
|
|
512 |
|
# setup input name for all output filters |
513 |
|
foreach my $out ( @output_modules ) { |
514 |
|
if ( $out->can('input') ) { |
515 |
|
$out->input( $input_name ); |
516 |
|
} else { |
517 |
|
$log->warn("output filter $out doesn't support input name"); |
518 |
|
} |
519 |
|
} |
520 |
|
|
521 |
|
|
522 |
foreach my $pos ( 0 ... $input_db->size ) { |
foreach my $pos ( 0 ... $input_db->size ) { |
523 |
|
|
524 |
my $row = $input_db->fetch || next; |
my $row = $input_db->fetch || next; |