Changeset 11298 for trunk/ippScripts/scripts/detrend_norm_exp.pl

Timestamp:

Jan 25, 2007, 3:15:46 PM (19 years ago)

Author:

Paul Price

Message:

Adding -workdir to all scripts.

File:

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

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -19 +19 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $det_type, $camera, $dbname, $no_update);
+my ($det_id, $iter, $det_type, $camera, $dbname, $workdir, $no_update);
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -26 +26 @@
     'det_type|t=s'      => \$det_type,
     'dbname|d=s'        => \$dbname, # Database name
+    'workdir|w=s'       => \$workdir,   # Working directory, for output files
     'no-update'         => \$no_update
 ) or pod2usage( 2 );
@@ -92 +93 @@
 }
 
-my $example = ${$files}[0]->{b1_uri}; # Example file, for path
-my ($vol, $dir, $file) = File::Spec->splitpath( $example );
+unless (defined $workdir) {
+    my $example = ${$files}[0]->{b1_uri}; # Example file, for path
+    my ($vol, $dir, $file) = File::Spec->splitpath( $example );
+    $workdir = $dir;
+}
 
 # Generate the file list, and get the statistics
 my $outputRoot = $camera . '.' . $det_type . '.norm.' . $det_id . '.' . $iter; # Root output name
-$outputRoot = File::Spec->catpath( $vol, $dir, $outputRoot );
+$outputRoot = File::Spec->catfile( $workdir, $outputRoot );
 $outputRoot = $ipprc->convert_filename_absolute( $outputRoot );
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
@@ -114 +118 @@
 close $list2File;
 
-# Output products --- need to synch with the camera configuration!
+# Output products
 my $jpeg1Name = $ipprc->filename("PPIMAGE.JPEG1", $outputRoot); # Binned JPEG #1
 my $jpeg2Name = $ipprc->filename("PPIMAGE.JPEG2", $outputRoot); # Binned JPEG #2