Changeset 33173

Timestamp:

Jan 27, 2012, 2:47:16 PM (14 years ago)

Author:

bills

Message:

use $ipprc->prepare_output to avoid lost files

File:

• tags/ipp-20111222/ippScripts/scripts/background_warp.pl (modified) (2 diffs)

tags/ipp-20111222/ippScripts/scripts/background_warp.pl

@@ -68 +68 @@
 my $logDest = $ipprc->filename("LOG.EXP", $outroot, $skycell_id) or my_die( "Unable to get log filename", $warp_bg_id, $skycell_id, $PS_EXIT_SYS_ERROR );
 
-$ipprc->redirect_output($logDest) or my_die( "Unable to redirect output", $warp_bg_id, $skycell_id, $PS_EXIT_SYS_ERROR ) if $redirect;
+$ipprc->redirect_to_logfile($logDest) or my_die( "Unable to redirect output", $warp_bg_id, $skycell_id, $PS_EXIT_SYS_ERROR ) if $redirect;
 
 # Recipes to use based on reduction class
@@ -138 +138 @@
 &my_die("Can't find input astrometry: $astrometry", $warp_bg_id, $skycell_id, $PS_EXIT_PROG_ERROR) unless $ipprc->file_exists($astrometry);
 
-my $out_image = $ipprc->filename("PSWARP.OUTPUT", $outroot, $skycell_id );
-my $out_mask = $ipprc->filename("PSWARP.OUTPUT.MASK", $outroot, $skycell_id);
-my $out_stats = $ipprc->filename("SKYCELL.STATS", $outroot, $skycell_id );
-my $out_config = $ipprc->filename("PSWARP.CONFIG", $outroot, $skycell_id);
-my $traceDest = $ipprc->filename("TRACE.EXP", $outroot, $skycell_id);
+my $error;
+my $out_image = $ipprc->prepare_output("PSWARP.OUTPUT", $outroot, $skycell_id, 1, \$error );
+my $out_mask = $ipprc->prepare_output("PSWARP.OUTPUT.MASK", $outroot, $skycell_id, 1, \$error);
+my $out_stats = $ipprc->prepare_output("SKYCELL.STATS", $outroot, $skycell_id , 1, \$error);
+my $out_config = $ipprc->prepare_output("PSWARP.CONFIG", $outroot, $skycell_id, 1, \$error);
+my $traceDest = $ipprc->prepare_output("TRACE.EXP", $outroot, $skycell_id, 1, \$error);
 
 my $skyFile = $ipprc->filename("SKYCELL.TEMPLATE", $outroot, $skycell_id );