/[webpac2]/trunk/run.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/run.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 868 by dpavlin, Thu Jun 21 21:26:17 2007 UTC revision 882 by dpavlin, Thu Aug 23 20:28:10 2007 UTC
# Line 299  foreach my $database ( sort keys %{ $con Line 299  foreach my $database ( sort keys %{ $con
299          # now WebPAC::Store          # now WebPAC::Store
300          #          #
301          my $abs_path = abs_path($0);          my $abs_path = abs_path($0);
302          $abs_path =~ s#/[^/]*$#/#;          $abs_path =~ s#/[^/]*$#/#;      #
303    
304          my $db_path = $config->webpac('db_path');          my $db_path = $config->webpac('db_path');
305    
# Line 315  foreach my $database ( sort keys %{ $con Line 315  foreach my $database ( sort keys %{ $con
315                  debug => $debug,                  debug => $debug,
316          );          );
317    
318            #
319            # prepare output
320            #
321            my @outputs;
322            if (defined( $db_config->{output} )) {
323                    my $module = $db_config->{output}->{module} || $log->logdie("need module in output section of $database");
324                    $module = 'WebPAC::Output::' . $module unless $module =~ m/::/;
325                    $log->debug("loading output module $module");
326                    eval "require $module";
327                    my $out = new $module->new( $db_config->{output} );
328                    $out->init;
329                    push @outputs, $out;
330            }
331    
332    
333          #          #
334          # now, iterate through input formats          # now, iterate through input formats
# Line 507  foreach my $database ( sort keys %{ $con Line 521  foreach my $database ( sort keys %{ $con
521    
522                          my $mfn = $row->{'000'}->[0];                          my $mfn = $row->{'000'}->[0];
523    
524                          if (! $mfn || $mfn !~ m#^\d+$#) {                          if (! $mfn || $mfn !~ m{^\d+$}) {
525                                  $log->warn("record $pos doesn't have valid MFN but '$mfn', using $pos");                                  $log->warn("record $pos doesn't have valid MFN but '$mfn', using $pos");
526                                  $mfn = $pos;                                  $mfn = $pos;
527                                  push @{ $row->{'000'} }, $pos;                                  push @{ $row->{'000'} }, $pos;
# Line 569  foreach my $database ( sort keys %{ $con Line 583  foreach my $database ( sort keys %{ $con
583    
584                                  $log->info("Created $i instances of MFN $mfn\n") if ($i > 1);                                  $log->info("Created $i instances of MFN $mfn\n") if ($i > 1);
585                          }                          }
586    
587                            foreach my $out ( @outputs ) {
588                                    if ( $out->can('add') ) {
589                                            $out->add( $mfn, $ds );
590                                    }
591                            }
592    
593                  }                  }
594    
595                  if ($validate) {                  if ($validate) {
Legend:
Removed from v.868  
changed lines
  Added in v.882
  ViewVC Help
Powered by ViewVC 1.1.26