Changeset 30296

Timestamp:

Jan 19, 2011, 9:45:03 AM (15 years ago)

Author:

rhenders

Message:

Now totalling total that are not mergeworthy

File:

• trunk/ippToPsps/perl/exposureSummary.pl (modified) (6 diffs)

trunk/ippToPsps/perl/exposureSummary.pl

@@ -86 +86 @@
 my $totalUnmerged = 0;
 my $totalMergeWorthy = 0;
+my $totalNotMergeWorthy = 0;
 my $totalProcessed = 0;
 my $totalOnDatastore = 0;
 my $totalLoadedToOdm = 0;
 my $totalLoadFailed = 0;
+my $totalMergeWorthy = 0;
 my $totalUnderObjIdLimit = 0;
 my $totalUnprocessed = 0;
 my $totalUnprocessedAvailableSmfs = 0;
-my $totalOdmFailures = 0;
+my $remainingOdmFailures = 0;
 my $totalUnprocessedMissingSmfs = 0;
+my $totalProcessedNotOnDatastore = 0;
 
 
 open (UNPRO, ">unprocessedExposures.txt") or print "* Problem opening data file for unprocessed exposures\n";
 open (ODMFAIL, ">odmFailures.txt") or print "* Problem opening data file for ODM failures\n";
+open (NOTONDATASTORE, ">notOnDatastore.txt") or print "* Problem opening data file for exposures not on datastore\n";
 
 if ($checkNeb) {
@@ -114 +118 @@
     if ($verbose) {print "$totalUnmerged | $expId \n"; }
 
+    # processed stuff
     if ($ippToPspsDb->isExposureProcessed($expId)) {
 
         $totalProcessed++;
 
-        if ($ippToPspsDb->isExposureAlreadyPublished($expId)) {
+        if (!$ippToPspsDb->isExposureAlreadyPublished($expId)) {
+
+            $totalProcessedNotOnDatastore++;
+            print NOTONDATASTORE "$expId\n";
+        }
+        else {
 
             $totalOnDatastore++;
@@ -126 +136 @@
                 $totalLoadedToOdm++;
 
-                if ($ippToPspsDb->didLoadFail($expId)) {
-
-                    $totalLoadFailed++;
+                if ($ippToPspsDb->isMergeWorthy($expId)) {
+
+                    $totalMergeWorthy++;
                 }
-                if ($ippToPspsDb->isMinObjIdUnderLimit($expId)) {
-
-                    $totalUnderObjIdLimit++;
-                }
+                # not mergeworthy
                 else {
 
-                    $totalOdmFailures++;
-                    print ODMFAIL "$expId\n";
+                    $totalNotMergeWorthy++;
+
+                    #if ($ippToPspsDb->didLoadFail($expId)) {
+
+                    #    $totalLoadFailed++;
+                    #}
+                    if ($ippToPspsDb->isMinObjIdUnderLimit($expId)) {
+
+                        $totalUnderObjIdLimit++;
+                    }
+                    else {
+
+                        $remainingOdmFailures++;
+                        print ODMFAIL "$expId\n";
+                    }
                 }
             }
         }
     }
+    # unprocessed stuff
     else {
 
@@ -181 +202 @@
 close(UNPRO);
 close(ODMFAIL);
+close(NOTONDATASTORE);
 if ($checkNeb) {
 
@@ -186 +208 @@
     close(NOTMISSSMF);
 }
-my $totalProcessedNotOnDatastore = $totalProcessed - $totalOnDatastore;
 my $totalOnDatastoreNotLoaded = $totalOnDatastore - $totalLoadedToOdm;
 print "***********************************************************\n";
@@ -205 +226 @@
 print "*       on datastore                         = $totalOnDatastore\n";
 print "*         not loaded to ODM                  = $totalOnDatastoreNotLoaded\n";
-print "*         loaded to ODM but rejected         = $totalLoadedToOdm\n";
-print "*           under -30 dec limit              = $totalUnderObjIdLimit\n";
-print "*           remaining ODM failures           = $totalOdmFailures\n";
+print "*         loaded to ODM                      = $totalLoadedToOdm\n";
+print "*           MergeWorthy                      = $totalMergeWorthy\n";
+print "*           not MergeWorthy                  = $totalNotMergeWorthy\n";
+print "*             under -30 dec limit            = $totalUnderObjIdLimit\n";
+print "*             remaining failures             = $remainingOdmFailures\n";
 print "*\n";
 print "***********************************************************\n";