Changeset 19263 for trunk/ippScripts/scripts/warp_overlap.pl

Timestamp:

Aug 28, 2008, 10:03:06 AM (18 years ago)

Author:

eugene

Message:

fix invalid use of file_resolve on path_base; move tempfiles to /tmp

File:

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

trunk/ippScripts/scripts/warp_overlap.pl

@@ -119 +119 @@
         &my_die("Unable to determine the astrometry source", $warp_id, $PS_EXIT_DATA_ERROR);
     }
+    $astromFile = $ipprc->file_resolve($astromFile);
+    if (!$astromFile) {
+        &my_die("Unable to resolve real astrometry source filename", $warp_id, $PS_EXIT_DATA_ERROR);
+    }
 
     my @matchlist = get_overlaps($astromFile, $tess_dir_abs, $astromAccept); # List of overlaps
@@ -148 +152 @@
 
 # Generate a MDC file with the overlaps
-my ($overlapFile, $overlapName) = tempfile( 'overlaps.wrp' . $warp_id . '.mdc.XXXX', UNLINK => !$save_temps );
+my ($overlapFile, $overlapName) = tempfile( "/tmp/overlaps.wrp.$warp_id.mdc.XXXX", UNLINK => !$save_temps );
 print $overlapFile "warpSkyCellMap MULTI\n\n";
 foreach my $overlap (@overlaps) {
@@ -203 +207 @@
     my $accept = shift;         # Do we use the -accept-astrom flag?
 
-    my $command = "$dvoImageOverlaps -D CATDIR $tess_dir_abs " . $ipprc->file_resolve($filename);
+    my $command = "$dvoImageOverlaps -D CATDIR $tess_dir_abs " . $filename;
     $command .= ' -accept-astrom' if $accept;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -249 +253 @@
         # we need to pull out the single CLASS_ID for this imfile from the full list
         my $class_id = $imfile->{class_id};
-        my $chipRoot = $ipprc->file_resolve( $imfile->{chip_path_base} );
+        my $chipRoot = $imfile->{chip_path_base};
         my $extname = $ipprc->extname_rule("CMF.HEAD", $class_id); # MEF psastro output