Changeset 27670

Timestamp:

Apr 13, 2010, 1:28:15 PM (16 years ago)

Author:

bills

Message:

pstampdump the results file and include the text in the results fileset

File:

• trunk/pstamp/scripts/pstamp_finish.pl (modified) (3 diffs)

trunk/pstamp/scripts/pstamp_finish.pl

@@ -63 +63 @@
 my $pstamp_results = can_run('pstamp_results_file.pl') 
                             or (warn "Can't find pstamp_results_file.pl" and $missing_tools = 1);
+my $pstampdump = can_run('pstampdump') or (warn "Can't find pstampdump" and $missing_tools = 1);
 if ($missing_tools) {
     warn("Can't find required tools.");
@@ -123 +124 @@
     my ($rlf, $reglist_name) = tempfile ("$out_dir/reglist.XXXX", UNLINK => !$save_temps);
     print $rlf "results.fits|||table|\n";
+    print $rlf "results.mdc|||txt|\n";
 
     my $err_file = "parse_error.txt";
@@ -250 +252 @@
             print STDERR "Unable to perform $command error code: $error_code\n";
             $request_fault = $error_code >> 8;
+        } else {
+            # dump a textual representation
+            my $command = "$pstampdump $out_dir/results.fits > $out_dir/results.mdc";
+            my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+                run(command => $command, verbose => $verbose);
+            unless ($success) {
+                print STDERR "Unable to perform $command error code: $error_code\n";
+                $request_fault = $error_code >> 8;
+            }
         }
     }