Changeset 28980 for branches/eam_branches/ipp-20100621/pstamp/scripts/detectability_respond.pl

Timestamp:

Aug 19, 2010, 6:50:13 PM (16 years ago)

Author:

eugene

Message:

updates from trunk

File:

• branches/eam_branches/ipp-20100621/pstamp/scripts/detectability_respond.pl (modified) (8 diffs)

branches/eam_branches/ipp-20100621/pstamp/scripts/detectability_respond.pl

@@ -108 +108 @@
 # Parse input request file using detect_query_read (as it's already written).
 #
-    my $dqr_command = "$detect_query_read --input $request_file";
+    my $dqr_command = "$detect_query_read --dbname $imagedb --input $request_file";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $dqr_command, verbose => $verbose);
@@ -308 +308 @@
 }
 close(WISDOM);
+
+# If there is anything that needs to be updated, create the update request list, and then exit the program.
 my $exit_code = 0;
 my $update_request_file = "${workdir}/update_request.dat";
@@ -316 +318 @@
             $exit_code = 25;
         }
+        elsif ($fault != 0) {
+            $exit_code = 21;
+        }
         my $update_request = join ' ', @{ $update_request{$images}{$fault} };
         print UPDATE_REQUEST "$update_request\n";
@@ -321 +326 @@
 }
 close(UPDATE_REQUEST);
-# if ($exit_code != 0) {
-#     exit($exit_code);
-# }
+if ($exit_code != 0) {
+    exit($exit_code);
+}
 
 # This duplicates stuff returned by PSTAMP, but my thought is to convert that ---^ into a conditional, in which I read
@@ -338 +343 @@
     }
 }
-#exit(10);
 
 # run ppCoord and psphotForced to calculate the required data.
@@ -569 +573 @@
         $columns = [
             # matching rownum from detectability original request
-            { name => 'ROWNUM',   type => 'V', writetype => TULONG }, 
+            { name => 'ROWNUM',   type => '20A', writetype => TSTRING }, 
             # any errors that occurred during processing
             { name => 'ERROR_CODE',   type => 'V', writetype => TULONG }, 
@@ -715 +719 @@
 #       print STDERR "$writeType $i $numRows $colName $status @{ $colData{$colName} }\n";
         $outFits->write_col( $writeType, $i + 1, 1, 1, $numRows, $colData{$colName}, $status );
+#       print "$writeType $i $numRows $colName $status\n";
         check_fitsio( $status );
-        
     }
     $outFits->close_file( $status );
@@ -730 +734 @@
         my $msg;                # Message to output
         Astro::FITS::CFITSIO::fits_get_errstatus( $status , $msg );
+        carp("CFITSIO error: $status => $msg");
         die "CFITSIO error: $msg\n";
     }