Changeset 27840 for branches/simtest_nebulous_branches/ippScripts/scripts/detrend_stack.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_stack.pl (modified) (4 diffs)

branches/simtest_nebulous_branches/ippScripts/scripts/detrend_stack.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 );
@@ -89 +90 @@
                   'DOMEFLAT_RAW'     => 'PPMERGE.OUTPUT.FLAT',
                   'SKYFLAT_RAW'      => 'PPMERGE.OUTPUT.FLAT',
+                  'SKYFLATTEST_RAW'  => 'PPMERGE.OUTPUT.FLAT',
                   'FLAT'             => 'PPMERGE.OUTPUT.FLAT',
                   'DOMEFLAT'         => 'PPMERGE.OUTPUT.FLAT',
@@ -113 +115 @@
                    'DOMEFLAT_RAW'     => 'DETSTATS',
                    'SKYFLAT_RAW'      => 'DETSTATS',
+                   'SKYFLATTEST_RAW'  => 'DETSTATS',
                    'FLAT'             => 'DETSTATS',
                    'DOMEFLAT'         => 'DETSTATS',
@@ -204 +207 @@
         &my_die("Unable to perform ppMerge: $error_code", $det_id, $iter, $class_id, $error_code);
     }
-    &my_die("Unable to find expected output file: $outputStack\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputStack);
-    &my_die("Unable to find expected output file: $outputCount\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputCount);
-    &my_die("Unable to find expected output file: $outputSigma\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputSigma);
+    &my_die("Unable to find expected output file: $outputStack\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStack);
+    &my_die("Unable to find expected output file: $outputCount\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputCount);
+    &my_die("Unable to find expected output file: $outputSigma\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputSigma);
 
     my $outputStatsReal = $ipprc->file_resolve($outputStats);
-    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $outputStatsReal;
+    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStatsReal);
 
     # parse stats from metadata