Changeset 12421 for trunk/ippScripts/scripts/detrend_process_imfile.pl

Timestamp:

Mar 12, 2007, 5:01:10 PM (19 years ago)

Author:

Paul Price

Message:

Updating directory names, output file names.

File:

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

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -88 +88 @@
 }
 
-### Output file name
+$input_uri = $ipprc->convert_filename_absolute( $input_uri );
+
+# Set output directory
 if (defined $workdir) {
     $workdir = $ipprc->convert_filename_absolute( $workdir );
+    my $subdir = "$camera.$det_type.$det_id";
+    $workdir = File::Spec->catdir( $workdir, $subdir, $exp_tag );
 } else {
     my ($vol, $dir, $file) = File::Spec->splitpath( $input_uri );
     $workdir = $dir;
 }
+system "mkdir -p $workdir" unless -d $workdir;
+
+# Output files
 my $outputFile = "$exp_tag.detproc.$det_id"; # Root name
-my $outputRoot = File::Spec->catfile( $workdir, $exp_tag, $outputFile );
+my $outputRoot = File::Spec->catfile( $workdir, $outputFile );
 my $outputImage = $ipprc->filename("PPIMAGE.OUTPUT", $outputRoot, $class_id);
 my $outputBin1 = $ipprc->filename("PPIMAGE.BIN1", $outputRoot, $class_id);
 my $outputBin2 = $ipprc->filename("PPIMAGE.BIN2", $outputRoot, $class_id);
-
 my $outputStats = $outputRoot . '.' . $class_id . '.stats';
-
-$input_uri = $ipprc->convert_filename_absolute( $input_uri );
 
 # Run ppImage