/[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 866 by dpavlin, Thu Jun 21 12:53:41 2007 UTC revision 884 by dpavlin, Thu Aug 23 20:57:00 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 362  foreach my $database ( sort keys %{ $con Line 376  foreach my $database ( sort keys %{ $con
376                          stats => $stats,                          stats => $stats,
377                          modify_records => $input->{modify_records},                          modify_records => $input->{modify_records},
378                          modify_file => $input->{modify_file},                          modify_file => $input->{modify_file},
379                            input_config => $input,
380                  );                  );
381                  $log->logdie("can't create input using $input_module") unless ($input);                  $log->logdie("can't create input using $input_module") unless ($input);
382    
# Line 506  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 568  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                                    $out->add( $mfn, $ds ) if $out->can('add');
589                            }
590    
591                  }                  }
592    
593                  if ($validate) {                  if ($validate) {
# Line 598  foreach my $database ( sort keys %{ $con Line 618  foreach my $database ( sort keys %{ $con
618    
619          eval { $indexer->finish } if ($indexer && $indexer->can('finish'));          eval { $indexer->finish } if ($indexer && $indexer->can('finish'));
620    
621            foreach my $out ( @outputs ) {
622                    $out->finish if $out->can('finish');
623            }
624    
625          my $dt = time() - $start_t;          my $dt = time() - $start_t;
626          $log->info("$total_rows records ", $indexer ? "indexed " : "",          $log->info("$total_rows records ", $indexer ? "indexed " : "",
627                  sprintf("in %.2f sec [%.2f rec/sec]",                  sprintf("in %.2f sec [%.2f rec/sec]",
Legend:
Removed from v.866  
changed lines
  Added in v.884
  ViewVC Help
Powered by ViewVC 1.1.26