Changeset 28819

Timestamp:

Jul 30, 2010, 4:49:17 PM (16 years ago)

Author:

watersc1

Message:

Backport of corrected version.

Location:

tags/ipp-20100701/pstamp/scripts

Files:

• detectability_respond.pl (modified) (3 diffs)
• dqueryparse.pl (modified) (2 diffs)

tags/ipp-20100701/pstamp/scripts/detectability_respond.pl

@@ -569 +569 @@
         $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 +715 @@
 #       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 +730 @@
         my $msg;                # Message to output
         Astro::FITS::CFITSIO::fits_get_errstatus( $status , $msg );
+        carp("CFITSIO error: $status => $msg");
         die "CFITSIO error: $msg\n";
     }

tags/ipp-20100701/pstamp/scripts/dqueryparse.pl

@@ -158 +158 @@
     }
 }
-else {
+elsif ($fault == $PSTAMP_NOT_AVAILABLE) {
     # Failed to run correctly, which means that we need to queue a job and flag data for updating.
     # Get the dependency id for the data we're requesting be updated.
@@ -191 +191 @@
     close(UPDATE_REQUEST);
 }
+else {
+    my_die ("Parse fault!!", $PS_EXIT_UNKNOWN_ERROR);
+}
 
 # This does not set the request state to stop.  That will happen with the request_finish.pl script,