"clean" => \$clean,
"one=s" => \$only_filter,
"only=s" => \$only_filter,
- "config" => \$config_path,
+ "config=s" => \$config_path,
"debug+" => \$debug,
"stats" => \$stats,
"validate=s" => \$validate_path,
# parse normalize files and create source files for lookup and normalization
-my $parser = new WebPAC::Parser( config => $config );
+my ($only_database,$only_input) = split(m#/#, $only_filter) if $only_filter;
+
+my $parser = new WebPAC::Parser(
+ config => $config,
+ only_database => $only_database,
+ only_input => $only_input,
+);
my $total_rows = 0;
my $start_t = time();
foreach my $database ( sort keys %{ $config->databases } ) {
my $db_config = $config->databases->{$database};
- my ($only_database,$only_input) = split(m#/#, $only_filter) if ($only_filter);
next if ($only_database && $database !~ m/$only_database/i);
if ($parallel) {
foreach my $output ( @outputs ) {
-warn '## output = ',dump( $output );
+#warn '## output = ',dump( $output );
my $module = $output->{module} || $log->logdie("need module in output section of $database");
$module = 'WebPAC::Output::' . $module unless $module =~ m/::/;
my $type = lc($input->{type});
- 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
+ my $input_module = $input->{module};
- my $input_module = $config->webpac('inputs')->{$type};
+ if ( ! $input_module ) {
+ if ( grep(/$type/, $config->webpac('inputs')) ) {
+ $input_module = $config->webpac('inputs')->{$type};
+ } else {
+ $log->logdie("I know only how to handle input types ", join(",", $config->webpac('inputs') ), " not '$type'!" );
+ }
+ }
my @lookups = $parser->have_lookup_create($database, $input);
marc_encoding => 'utf-8',
load_row_coderef => sub {
my ($database,$input,$mfn) = @_;
+#warn "### load_row($database,$input,$mfn) from data_structure\n";
return $store->load_row(
database => $database,
input => $input,
},
);
- $log->debug("ds = ", sub { dump($ds) }) if ($ds);
+ $log->debug("ds = ", sub { dump($ds) });
- $store->save_ds(
- database => $database,
- input => $input_name,
- id => $mfn,
- ds => $ds,
- ) if ($ds && !$stats);
+ if ( $ds ) {
- $indexer->add(
- id => "${input_name}/${mfn}",
- ds => $ds,
- type => $config->get($indexer_config)->{type},
- ) if ($indexer && $ds);
+ $store->save_ds(
+ database => $database,
+ input => $input_name,
+ id => $mfn,
+ ds => $ds,
+ ) if !$stats;
+
+ $indexer->add(
+ id => "${input_name}/${mfn}",
+ ds => $ds,
+ type => $config->get($indexer_config)->{type},
+ ) if $indexer;
+
+ foreach my $out ( @output_modules ) {
+ $out->add( $mfn, $ds ) if $out->can('add');
+ }
+
+ } else {
+ $log->warn("record $pos didn't produce any output after normalization rules!") unless $marc;
+ }
if ($marc) {
my $i = 0;
$log->info("Created $i instances of MFN $mfn\n") if ($i > 1);
}
- foreach my $out ( @output_modules ) {
- $out->add( $mfn, $ds ) if $out->can('add');
- }
-
}
if ($validate) {