Changeset 25398 for branches/eam_branches/20090715/tools/ipp_apply_burntool.pl

Timestamp:

Sep 15, 2009, 3:58:12 PM (17 years ago)

Author:

eugene

Message:

updates from trunk

File:

• branches/eam_branches/20090715/tools/ipp_apply_burntool.pl (modified) (2 diffs)

branches/eam_branches/20090715/tools/ipp_apply_burntool.pl

@@ -140 +140 @@
     my $tempfile = new File::Temp ( TEMPLATE => "$basename.XXXX", 
                                     DIR => '/tmp',
-                                    UNLINK => !$save_temps);
+                                    UNLINK => !$save_temps,
+                                    SUFFIX => '.fits');
     my $tmpImfileReal = $tempfile->filename;
     # print "tmpImfile: $tmpImfile -> $tmpImfileReal\n";
@@ -172 +173 @@
 
         if ($RAWTABLES) {
-            $status = vsystem ("$burntool $tmpImfileReal out=$artImfileReal $prevFileOpt", $REALRUN);
+            $status = vsystem ("$burntool $tmpImfileReal out=$artImfileReal $prevFileOpt persist=t", $REALRUN);
         } else {
-            $status = vsystem ("$burntool $tmpImfileReal $prevFileOpt", $REALRUN);
+            $status = vsystem ("$burntool $tmpImfileReal $prevFileOpt persist=t", $REALRUN);
         }
         if ($status) {