Changeset 15738 for trunk/ippScripts/scripts/warp_skycell.pl

Timestamp:

Dec 5, 2007, 1:24:28 PM (18 years ago)

Author:

Paul Price

Message:

Fixing directory problems.

File:

• trunk/ippScripts/scripts/warp_skycell.pl (modified) (2 diffs)

trunk/ippScripts/scripts/warp_skycell.pl

@@ -114 +114 @@
 }
 
+my $skyFile = skycell_file($tess_id, $skycell_id, $workdir) or 
+    &my_die("Unable to get name of skycell file", $warp_id, $skycell_id, $tess_id, $PS_EXIT_SYS_ERROR);
+&my_die("Unable to find skycell file: $skyFile", $warp_id, $skycell_id, $tess_id, $PS_EXIT_SYS_ERROR) unless
+    $ipprc->file_exists( $skyFile );
+
 $workdir = caturi( $workdir, "tess_" . $tess_id, "sky_" . $skycell_id ) if defined $workdir;
 my $outputRoot = $ipprc->file_prepare( "$tess_id.$skycell_id.wrp$warp_id", $workdir, $$imfiles[0]->{uri} );
@@ -124 +129 @@
 my $outputBin2 = $ipprc->filename("PSWARP.BIN2", $outputRoot, $skycell_id );
 my $outputStats = $outputRoot . '.stats';
-
-my $skyFile = skycell_file($tess_id, $skycell_id, $workdir) or 
-    &my_die("Unable to get name of skycell file", $warp_id, $skycell_id, $tess_id, $PS_EXIT_SYS_ERROR);
-&my_die("Unable to find skycell file", $warp_id, $skycell_id, $tess_id, $PS_EXIT_SYS_ERROR) unless
-    $ipprc->exists( $skyFile );
 
 my $traceDest = 'file:' . $ipprc->file_resolve($outputRoot) . ".trace"; # Trace messages