Changeset 28794 for branches/eam_branches/ipp-20100621/ippScripts/scripts/dqstats_bundle.pl

Timestamp:

Jul 30, 2010, 9:31:50 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

File:

• branches/eam_branches/ipp-20100621/ippScripts/scripts/dqstats_bundle.pl (modified) (3 diffs)

branches/eam_branches/ipp-20100621/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);
     }