Changeset 28534 for branches/pap/ippScripts/scripts/dqstats_bundle.pl

Timestamp:

Jun 28, 2010, 8:11:04 PM (16 years ago)

Author:

Paul Price

Message:

Merging trunk in preparation for merging branch to trunk.

Location:

branches/pap

Files:

• . (modified) (1 prop)
• ippScripts/scripts/dqstats_bundle.pl (modified) (3 diffs)

branches/pap/ippScripts/scripts/dqstats_bundle.pl

@@ -73 +73 @@
 # Output products
 unless (defined($uri)) {
-    $uri = "/data/${host}.0/tmp/dqstats.${dqstats_id}.fits";
+    $uri = "/tmp/dqstats.${dqstats_id}.fits";
 }
 #$ipprc->outroot_prepare($uri); # hm....need to think more here.
@@ -90 +90 @@
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+        unlink($uri);
         &my_die("Unable to create the bundle.: $error_code", $dqstats_id, $error_code);
     }
@@ -106 +107 @@
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
+        unlink($uri);
         &my_die("Unable to register the bundle.: $error_code", $dqstats_id, $error_code);
     }