Changeset 8490

Timestamp:

Aug 22, 2006, 4:20:25 PM (20 years ago)

Author:

Paul Price

Message:

Changing outputFile to outputName.

File:

• trunk/ippScripts/scripts/detrend_process.pl (modified) (4 diffs)

trunk/ippScripts/scripts/detrend_process.pl

@@ -42 +42 @@
 
 ### Output file name --- must match camera configuration!
-my $outputFile = $output . "." . $classId . ".fit";
+my $outputName = $output . "." . $classId . ".fit";
 
 # Run ppImage
@@ -51 +51 @@
         run(command => $command, verbose => 1);
     die "Unable to perform ppImage on $input: $error_code\n" if not $success;
-    die "Couldn't find expected output file: $outputFile\n" if not -f $outputFile;
+    die "Couldn't find expected output file: $outputName\n" if not -f $outputName;
 }
 
@@ -58 +58 @@
 {
     my $statsFile;              # File handle
-    open $statsFile, "$output.stats";
+    open $statsFile, "$output.stats" or die "Can't open statistics file $output.stats: $!\n";
     my @contents = <$statsFile>; # Contents of file
     close $statsFile;
@@ -70 +70 @@
 {
     my $command = "dettool -addprocessed -det_id $detId -exp_id $expId " .
-        "-class_id $classId -recipe $recipe -uri $outputFile"; # Command to run dettool
+        "-class_id $classId -recipe $recipe -uri $outputName"; # Command to run dettool
     $command .= " -bg " . $stats->bg_mean();
     $command .= " -bg_stdev " . $stats->bg_stdev();