Changeset 28544 for trunk/ippScripts/scripts/background_warp.pl

Timestamp:

Jun 29, 2010, 1:24:35 PM (16 years ago)

Author:

Paul Price

Message:

Check that inputs exist.

File:

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

trunk/ippScripts/scripts/background_warp.pl

@@ -121 +121 @@
         print $imageFile "$image\n";
         print $maskFile "$mask\n";
+        &my_die("Can't find input image: $image", $warp_bg_id, $skycell_id, $PS_EXIT_PROG_ERROR) unless $ipprc->file_exists($image);
+        &my_die("Can't find input mask: $mask", $warp_bg_id, $skycell_id, $PS_EXIT_PROG_ERROR) unless $ipprc->file_exists($mask);
 
         &my_die("Magic status don't match: $magicked vs $file->{magicked}", $warp_bg_id, $skycell_id, $PS_EXIT_PROG_ERROR) if defined $magicked and $magicked != $file->{magicked};
@@ -134 +136 @@
 close $maskFile;
 
-
+&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 );