/[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 664 by dpavlin, Mon Sep 11 11:57:18 2006 UTC revision 671 by dpavlin, Mon Sep 11 15:59:35 2006 UTC
# Line 363  while (my ($database, $db_config) = each Line 363  while (my ($database, $db_config) = each
363                          %{ $input },                          %{ $input },
364                  );                  );
365    
366                    my $report_fh;
367                    if ($stats || $validate) {
368                            my $path = "out/report/" . $database . '-' . $input->{name} . '.txt';
369                            open($report_fh, '>', $path) || $log->logdie("can't open $path: $!");
370    
371                            print $report_fh "Report for database '$database' input '$input->{name}' records ",
372                                    $offset || 1, "-", $limit || $input->{limit} || $maxmfn, "\n\n";
373                            $log->info("Generating report file $path");
374                    }
375    
376                  my @norm_array = ref($input->{normalize}) eq 'ARRAY' ?                  my @norm_array = ref($input->{normalize}) eq 'ARRAY' ?
377                          @{ $input->{normalize} } : ( $input->{normalize} );                          @{ $input->{normalize} } : ( $input->{normalize} );
378    
# Line 408  while (my ($database, $db_config) = each Line 418  while (my ($database, $db_config) = each
418                                  if ($validate) {                                  if ($validate) {
419                                          if ( my $errors = $validate->validate_errors( $row, $input_db->dump ) ) {                                          if ( my $errors = $validate->validate_errors( $row, $input_db->dump ) ) {
420                                                  $log->error( "MFN $mfn validation error:\n",                                                  $log->error( "MFN $mfn validation error:\n",
421                                                          dump( $errors )                                                          $validate->report_error( $errors )
422                                                  );                                                  );
423                                          }                                          }
424                                  }                                  }
# Line 465  while (my ($database, $db_config) = each Line 475  while (my ($database, $db_config) = each
475    
476                          if ($validate) {                          if ($validate) {
477                                  my $errors = $validate->report;                                  my $errors = $validate->report;
478                                  $log->info("validation errors:\n$errors\n" ) if ($errors);                                  if ($errors) {
479                                            $log->info("validation errors:\n$errors\n" );
480                                            print $report_fh "$errors\n" if ($report_fh);
481                                    }
482                          }                          }
483    
484                          $log->info("statistics of fields usage:\n", $input_db->stats) if ($stats);                          if ($stats) {
485                                    my $s = $input_db->stats;
486                                    $log->info("statistics of fields usage:\n$s");
487                                    print $report_fh "Statistics of fields usage:\n$s" if ($report_fh);
488                            }
489    
490                          # close MARC file                          # close MARC file
491                          $marc->finish if ($marc);                          $marc->finish if ($marc);
492    
493                            # close report
494                            close($report_fh) || $log->logdie("can't close report: $!");
495                  }                  }
496    
497          }          }
Legend:
Removed from v.664  
changed lines
  Added in v.671
  ViewVC Help
Powered by ViewVC 1.1.26