133 |
"clean" => \$clean, |
"clean" => \$clean, |
134 |
"one=s" => \$only_filter, |
"one=s" => \$only_filter, |
135 |
"only=s" => \$only_filter, |
"only=s" => \$only_filter, |
136 |
"config" => \$config_path, |
"config=s" => \$config_path, |
137 |
"debug+" => \$debug, |
"debug+" => \$debug, |
138 |
"stats" => \$stats, |
"stats" => \$stats, |
139 |
"validate=s" => \$validate_path, |
"validate=s" => \$validate_path, |
311 |
|
|
312 |
foreach my $output ( @outputs ) { |
foreach my $output ( @outputs ) { |
313 |
|
|
314 |
warn '## output = ',dump( $output ); |
#warn '## output = ',dump( $output ); |
315 |
|
|
316 |
my $module = $output->{module} || $log->logdie("need module in output section of $database"); |
my $module = $output->{module} || $log->logdie("need module in output section of $database"); |
317 |
$module = 'WebPAC::Output::' . $module unless $module =~ m/::/; |
$module = 'WebPAC::Output::' . $module unless $module =~ m/::/; |
347 |
|
|
348 |
my $type = lc($input->{type}); |
my $type = lc($input->{type}); |
349 |
|
|
350 |
die "I know only how to handle input types ", join(",", $config->webpac('inputs') ), " not '$type'!\n" unless (grep(/$type/, $config->webpac('inputs'))); |
# FIXME check if input module exists |
351 |
|
my $input_module = $input->{module}; |
352 |
|
|
353 |
my $input_module = $config->webpac('inputs')->{$type}; |
if ( ! $input_module ) { |
354 |
|
if ( grep(/$type/, $config->webpac('inputs')) ) { |
355 |
|
$input_module = $config->webpac('inputs')->{$type}; |
356 |
|
} else { |
357 |
|
$log->logdie("I know only how to handle input types ", join(",", $config->webpac('inputs') ), " not '$type'!" ); |
358 |
|
} |
359 |
|
} |
360 |
|
|
361 |
my @lookups = $parser->have_lookup_create($database, $input); |
my @lookups = $parser->have_lookup_create($database, $input); |
362 |
|
|