Changeset 28046 for trunk

Timestamp:

May 20, 2010, 10:02:11 AM (16 years ago)

Author:

bills

Message:

Add ERROR_STR to the results file. It will contain readable error
PSTAMP_SUCESS PSTAMP_GONE etc

Location:

trunk/pstamp/scripts

Files:

• pstamp_finish.pl (modified) (3 diffs)
• pstamp_results_file.pl (modified) (1 diff)

trunk/pstamp/scripts/pstamp_finish.pl

@@ -176 +176 @@
         my $exp_id = $job->{exp_id};
 
+        my $error_string = get_error_string($fault);
+
         if (($fault eq $PSTAMP_DUP_REQUEST) and ($req_name eq "NULL")) {
             # this request had a duplicate request name yet the parser didn't give
@@ -220 +222 @@
 
                     # add line to the table definition file
-                    print $tdf "$rownum|$fault|$img_name|$job_id|";
+                    print $tdf "$rownum|$fault|$error_string|$img_name|$job_id|";
 
                     # ra_deg and dec_deg are the coordinates of center of the stamp
@@ -241 +243 @@
             } else {
                 print STDERR "no reglist file for job $job_id\n" if $verbose;
-                print $tdf "$rownum|$fault|0|$job_id|";
+                print $tdf "$rownum|$fault|$error_string|0|$job_id|";
                 print $tdf "0|0|";       # center of (non-existent) stamp
                 print $tdf "$exp_info|";

trunk/pstamp/scripts/pstamp_results_file.pl

@@ -54 +54 @@
         # error code from processing this image
         { name => 'ERROR_CODE',type => 'V',  writetype => TULONG }, 
+        # error string correspoding to ERROR_CODE
+        { name => 'ERROR_STR',type => '16A', writetype => TSTRING }, 
         # name of the postage stamp image
         { name => 'IMG_NAME', type => '64A', writetype => TSTRING },