Changeset 29277

Timestamp:

Sep 30, 2010, 8:41:53 AM (16 years ago)

Author:

rhenders

Message:

Now reports on newly merged batches

File:

• trunk/ippToPsps/perl/checkOdmStatus.pl (modified) (3 diffs)

trunk/ippToPsps/perl/checkOdmStatus.pl

@@ -100 +100 @@
     my $numRemovedFromDatastore = 0;
     my $numDeleted = 0;
+    my $newMerged = 0;
     foreach $batch ( @{$batches} ) {
         my ($timestamp, $type, $expId, $batchId, $surveyType, $deleted, $dvoDb, $processed, $onDatastore, $loadedToOdm, $loadFailed, $mergeWorthy, $merged) =  @{$batch};
@@ -128 +129 @@
         if (!$merged && !$loadFailed) {
 
-            if (checkODM($batch->getName(), \$loadedToOdm, \$loadFailed, \$mergeWorthy, \$merged)) {$numChecked++;}
+            if (checkODM($batch->getName(), \$loadedToOdm, \$loadFailed, \$mergeWorthy, \$merged)) {
+                
+                $numChecked++;
+                if ($merged) {$newMerged++;}
+            }
             else {next;}
         }
@@ -163 +168 @@
     printf("+----------------------+--------------+--------------+----------------+--------------+--------------+---------+----------+\n");
     printf( "* Successfully checked %d batch%s out of %d\n", $numChecked, ($numChecked==1) ? "" : "es", $numBatchesToCheck);
+    printf( "* %d newly merged batches\n", $newMerged);
     printf( "* Successfully removed %d batch%s from the datastore\n", $numRemovedFromDatastore, ($numRemovedFromDatastore==1) ? "" : "es");
     printf( "* Successfully deleted %d batch%s from local file system\n", $numDeleted, ($numDeleted==1) ? "" : "es");