Changeset 32562 for trunk/ippScripts/scripts/chip_imfile.pl

Timestamp:

Oct 19, 2011, 5:20:49 PM (15 years ago)

Author:

watersc1

Message:

Implement funpack check in the check_outputs subroutine to verify that we've constructed uncorrupted fits files.

File:

• trunk/ippScripts/scripts/chip_imfile.pl (modified) (1 diff)

trunk/ippScripts/scripts/chip_imfile.pl

@@ -757 +757 @@
         &my_die("Couldn't find expected output file: $file",  $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR);
     }
+    # Funpack to confirm we've really made things correctly
+    my $diskfile = $ipprc->file_resolve($file);
+    if ($diskfile =~ /fits/) {
+        my $funpack  = can_run('funpack') or &my_die ("Can't find funpack", $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR);
+        my $check_command = "$funpack -S $diskfile > /dev/null";
+        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
+            run(command => $check_command, verbose => $verbose);
+        if (!$success) {
+            &my_die("Output file not a valid fits file: $file", $exp_id, $chip_id, $class_id, $PS_EXIT_SYS_ERROR);
+        }
+    }
+    #####
 
     if ($replicate and $neb) {