Changeset 27840 for branches/simtest_nebulous_branches/ippScripts/scripts/detrend_resid_imfile.pl

Timestamp:

May 3, 2010, 8:50:52 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/simtest_nebulous_branches

Files:

• . (modified) (1 prop)
• ippScripts/scripts/detrend_resid_imfile.pl (modified) (4 diffs)

branches/simtest_nebulous_branches/ippScripts/scripts/detrend_resid_imfile.pl

@@ -8 +8 @@
 use Sys::Hostname;
 my $host = hostname();
+my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host\n\n";
+print "Starting script $0 on $host at $date\n\n";
 
 use vars qw( $VERSION );
@@ -111 +112 @@
     'DOMEFLAT_RAW'     => '-flat',      # Specify the flat frame
     'SKYFLAT_RAW'      => '-flat',      # Specify the flat frame
+    'SKYFLATTEST_RAW'  => '-flat',      # Specify the flat frame
     'FLAT'             => '-flat',      # Specify the flat frame
     'DOMEFLAT'         => '-flat',      # Specify the flat frame
@@ -137 +139 @@
                   'DOMEFLAT_RAW'     => 'PPIMAGE.OUTPUT.DETREND',
                   'SKYFLAT_RAW'      => 'PPIMAGE.OUTPUT.DETREND',
+                  'SKYFLATTEST_RAW'  => 'PPIMAGE.OUTPUT.DETREND',
                   'FLAT'             => 'PPIMAGE.OUTPUT.DETREND',
                   'DOMEFLAT'         => 'PPIMAGE.OUTPUT.DETREND',
@@ -188 +191 @@
     }
 
-    &my_die("Couldn't find expected output file: $outputName", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputName);
-    &my_die("Couldn't find expected output file: $bin1Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($bin1Name);
-    &my_die("Couldn't find expected output file: $bin2Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($bin2Name);
+    &my_die("Couldn't find expected output file: $outputName", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputName);
+    &my_die("Couldn't find expected output file: $bin1Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($bin1Name);
+    &my_die("Couldn't find expected output file: $bin2Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($bin2Name);
 
     my $outputStatsReal = $ipprc->file_resolve($outputStats);
-    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $outputStatsReal;
+    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStatsReal);
 
     # ppStatsFromMetadata $outputStats - DETREND_RESID_IMFILE