Changeset 17520 for trunk/ippScripts/scripts/ipp_mops_translate.pl

Timestamp:

May 4, 2008, 2:14:23 PM (18 years ago)

Author:

eugene

Message:

add save-temps option

File:

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

trunk/ippScripts/scripts/ipp_mops_translate.pl

@@ -20 +20 @@
      $skycell,                  # Skycell file with WCS
      $output,                   # Name of output file
+     $save_temps
      );
 
@@ -27 +28 @@
            'skycell=s' => \$skycell,
            'output=s'  => \$output,
+           'save-temps'        => \$save_temps, # Save temporary files?
 ) or pod2usage( 2 );
 
@@ -262 +264 @@
 $fits->read_col($yType, $yCol, 1, 1, $numRows, 0, $y, undef, $status) and check_fitsio($status);
 
-my ($coordFile, $coordName) = tempfile( "/tmp/ds9_cmf_regions.XXXX", UNLINK => 1 );
+my ($coordFile, $coordName) = tempfile( "/tmp/ds9_cmf_regions.XXXX", UNLINK => !$save_temps );
 for (my $i = 0; $i < $numRows; $i++) {
     print $coordFile "image; circle(" . ($$x[$i] + 1) . ',' . ($$y[$i] + 1) .