Changeset 17792 for trunk/ippScripts/scripts

Timestamp:

May 23, 2008, 3:52:15 PM (18 years ago)

Author:

Paul Price

Message:

Add facility to fault on warp overlaps.

File:

• trunk/ippScripts/scripts/warp_overlap.pl (modified) (3 diffs)

trunk/ippScripts/scripts/warp_overlap.pl

@@ -97 +97 @@
 }
 
+
+
 # Determine the imfile/skycell overlaps
 my @overlaps = ();
-
 unless ($no_op) {
     # Calculate the overlaps between imfiles and skycells
@@ -156 +157 @@
 }
 
-# XXX this file needs some additional error checking: if no overlaps are found, we
+# If no overlaps are found, we
 # keep running this step over and over (a successful warptool -addoverlap prevents
 # successive warptime -imfile from running.
+&my_die("Unable to find any overlaps", $warp_id, $PS_EXIT_PROG_ERROR) if scalar @overlaps == 0;
 
 # Generate a MDC file with the overlaps
@@ -197 +199 @@
     my $exit_code = shift;      # Exit code to add
 
-    warn($msg);
-
-    # No failure option on warptool for this mode, so just die.
+    carp($msg);
+    if (defined $warp_id and not $no_update) {
+        my $command = "$warptool -addoverlap";
+        $command .= " -warp_id $warp_id";
+        $command .= " -code $exit_code";
+        $command .= " -dbname $dbname" if defined $dbname;
+        system ($command);
+    }
     exit $exit_code;
 }