Changeset 27643

Timestamp:

Apr 8, 2010, 6:48:58 PM (16 years ago)

Author:

watersc1

Message:

Better error handling. I think this largely concludes the bugtest phase of things. Now to integrate it.

File:

• trunk/pstamp/scripts/detectability_respond.pl (modified) (7 diffs)

trunk/pstamp/scripts/detectability_respond.pl

@@ -81 +81 @@
     run(command => $dqr_command, verbose => $verbose);
 unless ($success) {
-    warn("Unable to perform $dqr_command error code: $error_code");
+    my_die("Unable to perform $dqr_command error code: $error_code",-1,-1,-1,-1,-1,-1);
 }
 my %query = ();
@@ -125 +125 @@
                                         $query{CONTENT}{RA1_DEG}[$i],$query{CONTENT}{DEC1_DEG}[$i],
                                         $query{CONTENT}{ROWNUM}[$i],$verbose);
+    unless (%$image_set_tmp) {
+        my_die("No images were returned.",$query{HEADER}{QUERY_ID}[0],$query{HEADER}{FPA_ID}[0],
+               $query{HEADER}{MJD_OBS}[0],$query{HEADER}{FILTER}[0],$query{HEADER}{OBSCODE}[0],
+               $query{HEADER}{STAGE}[0]);
+    }
     print "=== $image_set_tmp->{IMAGE}\n    $image_set_tmp->{PSF}\n    $image_set_tmp->{MASK}\n    $image_set_tmp->{WEIGHT}\n    $image_set_tmp->{SKY_COORDINATES}\n    $image_set_tmp->{ROWNUM}\n";
     # This appends, assuming that if we get an image, we also get the identical psf/mask/weight/etc.
@@ -154 +159 @@
         run(command => $command, verbose => $verbose);
     unless ($success) {
-        warn("Unable to perform $command error code: $error_code");
+        my_die("Unable to perform $command. Error_code: $error_code",
+               $query{HEADER}{QUERY_ID}[0],$query{HEADER}{FPA_ID}[0],
+               $query{HEADER}{MJD_OBS}[0],$query{HEADER}{FILTER}[0],$query{HEADER}{OBSCODE}[0],
+               $query{HEADER}{STAGE}[0],$error_code);
     }
     my @response = split /\n/, (join "", @$stdout_buf);
@@ -177 +185 @@
         run(command => $psphot_cmd, verbose => $verbose);
     unless ($success) {
-        warn ("Unable to perform $psphot_cmd error code: $error_code");
+        my_die("Unable to perform $psphot_cmd. Error_code: $error_code",
+               $query{HEADER}{QUERY_ID}[0],$query{HEADER}{FPA_ID}[0],
+               $query{HEADER}{MJD_OBS}[0],$query{HEADER}{FILTER}[0],$query{HEADER}{OBSCODE}[0],
+               $query{HEADER}{STAGE}[0],$error_code);
     }
 }
@@ -253 +264 @@
                 # Diffs match if either exposure name is defined and matches the FPA_ID
                 unless ((defined(${ $j }{exp_name_1}) && (${ $j }{exp_name_1} eq $FPA_ID))||
-                        (defined(${ $j }{exp_name_2}) && (${ $j }{exp_name_2} eq $FPA_ID))) {
+                        (defined(${ $j }{exp_name_2}) && (${ $j }{exp_name_2} eq $FPA_ID))||
+                        (${ $j }{exp_id_1} eq $FPA_ID)||(${ $j }{exp_id_2} eq $FPA_ID)) {
                     next;
                 }
@@ -268 +280 @@
                 # For all the other stages (warp and chip are the ones I've tested), we can simply 
                 # directly match the exposure name to the FPA_ID
-                if (${ $j }{exp_name} ne $FPA_ID) {
+                unless ((${ $j }{exp_name} eq $FPA_ID)||(${ $j }{exp_id} eq $FPA_ID)) {
                     next;
                 }
             }
             # Debug prints of all the components of this image
-#           foreach my $k (keys %{ $j }) {
-#               print "$i $j $k ${ $j }{$k}\n";
-#           }
+            foreach my $k (keys %{ $j }) {
+                print "$i $j $k ${ $j }{$k}\n";
+            }
             
             # This image matches, so we want to save the information into our output structure
@@ -499 +511 @@
     }
 }
+
+sub my_die {
+    my $message = shift;
+    my $QUERY_ID = shift;
+    my $FPA_ID = shift;
+    my $MJD_OBS = shift;
+    my $FILTER = shift;
+    my $OBSCODE = shift;
+    my $STAGE = shift;
+
+    my $exit_code = shift;      # Exit code to add
+
+    $exit_code = $PS_EXIT_PROG_ERROR unless defined $exit_code;
+
+    carp("$message : $QUERY_ID $FPA_ID $MJD_OBS $FILTER $OBSCODE $STAGE");
+    exit($exit_code);
+
+}