Changeset 11952 for trunk/ippScripts/scripts/phase2.pl

Timestamp:

Feb 20, 2007, 4:16:04 PM (19 years ago)

Author:

Paul Price

Message:

Make output directory if it doesn't exist.

File:

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

trunk/ippScripts/scripts/phase2.pl

@@ -82 +82 @@
 }
 
+$workdir = File::Spec->catfile( $workdir, $exp_tag );
+system "mkdir -p $workdir" unless -d $workdir;
+
 ### Output file name --- must match camera configuration!
 my $outputFile =  "$exp_tag.p2";
-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);