r1119@llin: dpavlin | 2006-11-03 21:21:35 +0100

 --validate will automatically turn on --stats and won't produce
 any output

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@769 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/run.pl b/run.pl
index 0d00baa..71f5ea3 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -153,8 +153,9 @@ $validate = new WebPAC::Validate(
 
 
 my $use_indexer = $config->use_indexer;
+$stats ||= $validate;
 if ($stats) {
-       $log->debug("option --stats disables update of indexing engine...");
+       $log->debug("disabled indexing for stats collection");
        $use_indexer = undef;
 } else {
        $log->info("using $use_indexer indexing engine...");
@@ -467,6 +468,8 @@ while (my ($database, $db_config) = each %{ $config->databases }) {
 
                        my $row = $input_db->fetch || next;
 
+                       $total_rows++;
+
                        my $mfn = $row->{'000'}->[0];
 
                        if (! $mfn || $mfn !~ m#^\d+$#) {
@@ -482,6 +485,7 @@ while (my ($database, $db_config) = each %{ $config->databases }) {
                                                $validate->report_error( $errors )
                                        );
                                }
+                               next;   # validation doesn't create any output
                        }
 
                        my $ds = WebPAC::Normalize::data_structure(
@@ -530,8 +534,6 @@ while (my ($database, $db_config) = each %{ $config->databases }) {
 
                                $log->info("Created $i instances of MFN $mfn\n") if ($i > 1);
                        }
-
-                       $total_rows++;
                }
 
                if ($validate) {