Changeset 27010 for trunk/ippScripts/scripts/camera_exp.pl

Timestamp:

Feb 19, 2010, 1:34:32 PM (16 years ago)

Author:

Paul Price

Message:

Check for existence of output masks.

File:

• trunk/ippScripts/scripts/camera_exp.pl (modified) (4 diffs)

trunk/ippScripts/scripts/camera_exp.pl

@@ -154 +154 @@
 # XXX we perform astrometry iff photometry output exists
 my $chipObjectsExist = 0;
+my @outMasks;                   # Names of output masks
 foreach my $file (@$files) {
     # use the path_base as OUTPUT root and convert the filenames with ipprc->filename:
@@ -175 +176 @@
     print $list3File ($chipObjects . "\n");
     print $list4File ($chipMask . "\n");
+
+    push @outMasks, $ipprc->filename("PSASTRO.OUTPUT.MASK", $outroot, $class_id);
 }
 close $list1File;
@@ -245 +248 @@
         my $command;
         $command  = "$psastro";
-        $command .= " -list $list3Name";
-        $command .= " -masklist $list4Name";
-        $command .= " $outroot";
+        $command .= " -list $list3Name";
+        $command .= " -masklist $list4Name";
+        $command .= " $outroot";
         $command .= " -recipe PSASTRO $recipe_psastro";
         $command .= " -tracedest $traceDest -log $logDest";
@@ -293 +296 @@
         if (!$quality) {
             &my_die("Unable to find expected output file: $fpaObjects", $cam_id, $PS_EXIT_PROG_ERROR) unless -f $ipprc->file_resolve($fpaObjects);
+
+            foreach my $outMask (@outMasks) {
+                &my_die("Unable to find expected output file: $outMask", $cam_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outMask);
+            }
         }