Changeset 17432 for branches/eam_branch_20080408/ippScripts/scripts/camera_exp.pl

Timestamp:

Apr 10, 2008, 9:38:11 PM (18 years ago)

Author:

eugene

Message:

require mosaic / mef astrometry in camera

File:

• branches/eam_branch_20080408/ippScripts/scripts/camera_exp.pl (modified) (8 diffs)

branches/eam_branch_20080408/ippScripts/scripts/camera_exp.pl

@@ -38 +38 @@
 
 my ( $exp_tag, $cam_id, $camera, $outroot, $recipe, $dbname, $reduction, $dvodb, $verbose, $no_update,
-     $no_op );
+     $no_op, $save_temps );
 GetOptions(
            'exp_tag=s'          => \$exp_tag, # Exposure identifier
@@ -51 +51 @@
            'no-update'         => \$no_update, # Update the database?
            'no-op'             => \$no_op, # Don't do any operations?
+           'save-temps'        => \$save_temps, # Save temporary files?
            ) or pod2usage( 2 );
 
@@ -75 +76 @@
 
 # values to extract from output metadata and the stats to calculate
-# these should be coming from the psastro results for Nimfile > 1, 
+# these should be coming from the psastro results
 my $CHIPSTATS = 
     [   
@@ -150 +151 @@
 
 ### not needed to have such an extensive temp file name.
-my ($list1File, $list1Name) = tempfile( "$exp_tag.cm.$cam_id.b1.list.XXXX", UNLINK => 1 ); # For binning 1
-my ($list2File, $list2Name) = tempfile( "$exp_tag.cm.$cam_id.b2.list.XXXX", UNLINK => 1 ); # For binning 2
-my ($list3File, $list3Name) = tempfile( "$exp_tag.cm.$cam_id.b3.list.XXXX", UNLINK => 1 ); # For astrometry
-
+my ($list1File, $list1Name) = tempfile( "$exp_tag.cm.$cam_id.b1.list.XXXX", UNLINK => !$save_temps ); # For binning 1
+my ($list2File, $list2Name) = tempfile( "$exp_tag.cm.$cam_id.b2.list.XXXX", UNLINK => !$save_temps ); # For binning 2
+my ($list3File, $list3Name) = tempfile( "$exp_tag.cm.$cam_id.b3.list.XXXX", UNLINK => !$save_temps ); # For astrometry
+
+# XXX we perform astrometry iff photometry output exists
 my $chipObjects; 
 my $chipObjectsExist = 0;
@@ -200 +202 @@
     {
         my $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run
+        $command .= " -dbname $dbname" if defined $dbname;
+
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => $verbose);
@@ -212 +216 @@
     {
         my $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run
+        $command .= " -dbname $dbname" if defined $dbname;
+
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => $verbose);
@@ -221 +227 @@
     }
 
-    # check recipe for PSASTRO.MOSAIC.MODE; run mosaic astrometry if
-    # requested by the camera's PSASTRO recipe
-    my $mosaicAstrom;           # run mosaic-level astrometry?
-    {
-        my $command = "$ppConfigDump -camera $camera -dump-recipe PSASTRO -";
-        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $command, verbose => $verbose);
-        unless ($success) {
-            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-            &my_die("Unable to perform ppConfigDump: $error_code", $cam_id, $error_code);
-        }
-        my $metadata = $mdcParser->parse(join "", @$stdout_buf) or
-            &my_die("Unable to parse metadata config doc", $cam_id, $PS_EXIT_PROG_ERROR);
-        $mosaicAstrom = metadataLookupBool($metadata, 'PSASTRO.MOSAIC.MODE');
-    }
-
     # only run psastro / addstar if any of the output chip astrometry files exist (should we test for successful astrometry?)
     if ($chipObjectsExist) {
-        if ($mosaicAstrom) {
-            # run psastro +mosastro on the set of chips or copy the chipObjects to fpaObjects
-            # XXX note that this is wrong if imfiles are cells
-            # XXX add a ppStats call which will collect the astrometry stats
-            my $command;
-            $command  = "$psastro -list $list3Name $outroot";
-            $command .= " +mosastro -chipastro";
-            $command .= " -F PSASTRO.OUTPUT PSASTRO.OUTPUT.MEF";
-            $command .= " -tracedest $traceDest -log $logDest";
-            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                run(command => $command, verbose => $verbose);
-            unless ($success) {
-                $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                &my_die("Unable to perform psastro: $error_code", $cam_id, $error_code);
-            }
-            # XXX do we want to give an error if astrometry fails here?
-            &my_die("Unable to find expected output file: $fpaObjects", $cam_id, $PS_EXIT_PROG_ERROR) unless -f $ipprc->file_resolve($fpaObjects);
+        # run psastro on the chipObjects, producing fpaObjects
+        # XXX add a ppStats call which will collect the astrometry stats
+        my $command;
+        $command  = "$psastro -list $list3Name $outroot";
+        $command .= " -tracedest $traceDest -log $logDest";
+        $command .= " -dbname $dbname" if defined $dbname;
+
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run(command => $command, verbose => $verbose);
+        unless ($success) {
+            $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+            &my_die("Unable to perform psastro: $error_code", $cam_id, $error_code);
         }
+        # XXX do we want to give an error if astrometry fails here?
+        &my_die("Unable to find expected output file: $fpaObjects", $cam_id, $PS_EXIT_PROG_ERROR) unless -f $ipprc->file_resolve($fpaObjects);
         
-        # do we supply chipObjects or fpaObjects to addstar?
-        # run addstar on either the single chip output or the single fpa output
+        # run addstar on the output fpaObjects (if a DVO database is defined)
         if (defined $dvodbReal) {
             # XXX this construct requires the user to have a valid .ptolemyrc 
@@ -271 +257 @@
             $command .= " -D CATDIR $dvodbReal";
 
-            if ($mosaicAstrom) {
-                my $realFile = $ipprc->file_resolve($fpaObjects);
-                $command .= " $realFile";
-            } else {
-                $command .= " -list $list3Name";
-            }
+            my $realFile = $ipprc->file_resolve($fpaObjects);
+            $command .= " $realFile";
 
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =