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

Timestamp:

Feb 28, 2008, 12:34:09 PM (18 years ago)

Author:

Paul Price

Message:

Fixing up input metadata for ppStack.

File:

• trunk/ippScripts/scripts/stack_skycell.pl (modified) (1 diff)

trunk/ippScripts/scripts/stack_skycell.pl

@@ -135 +135 @@
     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_die("Image $image does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $image );
     &my_die("Mask $mask does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists( $mask );
+    &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 );
    
     print $listFile "\tIMAGE\tSTR\t" . $image . "\n";
     print $listFile "\tMASK\tSTR\t" . $mask . "\n"; 
     print $listFile "\tWEIGHT\tSTR\t" . $weight . "\n"; 
+    print $listFile "\tPSF\tSTR\t" . $psf . "\n";
 
     ### XXX NEED TO UPDATE THESE appropriately
-    print $listFile "\tSEEING\tF32\t" . 1.0 . "\n";
     print $listFile "\tWEIGHTING\tF32\t" . 1.0 . "\n";
-    print $listFile "\tSCALE\tF32\t" . 1.0 . "\n";
 
     print $listFile "END\n\n";