Changeset 18482 for trunk/ippScripts/scripts/stack_skycell.pl

Timestamp:

Jul 11, 2008, 12:10:05 PM (18 years ago)

Author:

Paul Price

Message:

Updating interface (configuration file format) to ppStack ---
individual sources are specified, rather than a single image's
sources.

File:

• trunk/ippScripts/scripts/stack_skycell.pl (modified) (5 diffs)

trunk/ippScripts/scripts/stack_skycell.pl

@@ -128 +128 @@
     my $mask = $ipprc->filename( "PSWARP.OUTPUT.MASK", $file->{path_base} ); # Mask name
     my $weight = $ipprc->filename( "PSWARP.OUTPUT.WEIGHT", $file->{path_base} ); # Weight name
-    my $psf = $ipprc->filename( "PSPHOT.PSF.SAVE", $file->{path_base} ); # Weight name
+    my $psf = $ipprc->filename( "PSPHOT.PSF.SAVE", $file->{path_base} ); # PSF name
+    my $sources = $ipprc->filename("PSWARP.OUTPUT.SOURCES", $file->{path_base}); # Sources name
 
     &my_die("Image $image does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $image );
@@ -134 +135 @@
     &my_die("Weight $weight does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $weight );
     &my_die("PSF $psf does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $psf );
+    &my_die("Sources $sources does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $sources );
 
     print $listFile "\tIMAGE\tSTR\t" . $image . "\n";
@@ -139 +141 @@
     print $listFile "\tWEIGHT\tSTR\t" . $weight . "\n";
     print $listFile "\tPSF\tSTR\t" . $psf . "\n";
+    print $listFile "\tSOURCES\tSTR\t" . $sources . "\n";
 
     ### XXX NEED TO UPDATE THESE appropriately
@@ -144 +147 @@
 
     print $listFile "END\n\n";
-
-    # XXX details about supplying sources, etc, need to be specified in the libraries
-    unless (defined $inputSources) {
-        $inputSources = $ipprc->filename("PSWARP.OUTPUT.SOURCES", $file->{path_base});
-        &my_die("Source file $inputSources does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $inputSources );
-    }
-
 }
 
@@ -170 +166 @@
     $command .= " -recipe PPSUB STACK";
     $command .= " -recipe PPSTATS WARPSTATS";
-    $command .= " -sources $inputSources";
     $command .= " -photometry";
     $command .= " -tracedest $traceDest -log $logDest";