Changeset 17518 for trunk/ippScripts/scripts/warp_overlap.pl
- Timestamp:
- May 4, 2008, 2:12:23 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/warp_overlap.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/warp_overlap.pl
r17168 r17518 37 37 my $ipprc = PS::IPP::Config->new(); # IPP configuration 38 38 39 my ($warp_id, $camera, $tess_id, $dbname, $verbose, $no_update, $no_op );39 my ($warp_id, $camera, $tess_id, $dbname, $verbose, $no_update, $no_op, $save_temps); 40 40 GetOptions( 41 41 'warp_id|i=s' => \$warp_id, # Warp identifier … … 46 46 'no-update' => \$no_update, # Don't update the database? 47 47 'no-op' => \$no_op, # Don't do any operations 48 'save-temps' => \$save_temps, # Save temporary files? 48 49 ) or pod2usage( 2 ); 49 50 … … 119 120 120 121 # XXX this is a bit too hard wired: the concept is that astrometry comes from the MOSAIC vs CHIP output 122 # XXX we have moved the astrometry analysis to the camera stage only: we should always have the source be MEF 121 123 if ($astromSource eq 'PSASTRO.OUTPUT.MEF') { 122 124 # We have a MEF astrometry file from psastro … … 170 172 171 173 # Generate a MDC file with the overlaps 172 my ($overlapFile, $overlapName) = tempfile( 'overlaps.wrp' . $warp_id . '.mdc.XXXX', UNLINK => 1);174 my ($overlapFile, $overlapName) = tempfile( 'overlaps.wrp' . $warp_id . '.mdc.XXXX', UNLINK => !$save_temps ); 173 175 print $overlapFile "warpSkyCellMap MULTI\n\n"; 174 176 foreach my $overlap (@overlaps) { … … 252 254 my $fileLevel = $imfile->{filelevel}; 253 255 my $entry; # How to identify this imfile in the dvoImageOverlaps output 254 if ((lc($fileLevel) eq "chip") && (lc($astromDepth) eq " MEF")) {256 if ((lc($fileLevel) eq "chip") && (lc($astromDepth) eq "mef")) { 255 257 my $class_id = $imfile->{class_id}; 256 258 my $chipRoot = $ipprc->file_resolve( $imfile->{chip_path_base} );
Note:
See TracChangeset
for help on using the changeset viewer.
