Changeset 37942 for trunk/ippScripts/scripts/psphot_fullforce_warp.pl

Timestamp:

Mar 3, 2015, 1:55:09 PM (11 years ago)

Author:

bills

Message:

Have psphotFullForce create a stats file. Process it with ppStatsFromMetadata
to look for a quality error

File:

• trunk/ippScripts/scripts/psphot_fullforce_warp.pl (modified) (5 diffs)

trunk/ippScripts/scripts/psphot_fullforce_warp.pl

@@ -124 +124 @@
 }
 
-# XXX: need to figure out whether this works or not
-# We probably want to create a specific recipe that looks at the results
-my $recipe_ppstats = 'WARPSTATS';
-my $doStats = 0;
+my $doStats = 1;
 
 print "reduction: $reduction\n";
@@ -166 +163 @@
 
 my $cmdflags = "";
+my $quality = 0;
 
 # Perform psphotFullForce
@@ -182 +180 @@
     if ($doStats) {
         $command .= " -stats $outputStats";
-        $command .= " -recipe PPSTATS $recipe_ppstats";
     }
     $command .= " -F PSPHOT.OUTPUT PSPHOT.OUT.CMF.MEF";
@@ -198 +195 @@
         }
 
-        # Stats: TODO
         if ($doStats) {
             check_output($outputStats, 1);
             my $outputStatsReal = $ipprc->file_resolve($outputStats);
 
-            # measure chip stats
+            # analyze the stats file
             $command = "$ppStatsFromMetadata $outputStatsReal - WARP_SKYCELL";
             ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -216 +212 @@
             chomp $cmdflags;
         }
-        my ($quality) = $cmdflags =~ /-quality (\d+)/; # Quality flag
-
-        if (!$quality) {
-            check_output($outputSources, 1);
-        }
+        ($quality) = $cmdflags =~ /-quality (\d+)/; # Quality flag
+
     } else {
         print "Not executing: $command\n";
     }
+}
+
+if (!$quality) {
+    check_output($outputSources, 1);
 }