Changeset 11298 for trunk/ippScripts/scripts/detrend_norm_apply.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_apply.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_norm_apply.pl

@@ -24 +24 @@
     $detType,                   # Detrend type
     $dbname,                    # Database name
+    $workdir,                   # Working directory, for output files
     $no_update                  # Don't update the database
     );
@@ -35 +36 @@
     'det_type|t=s'      => \$detType,
     'dbname|d=s'        => \$dbname,
+    'workdir|w=s'       => \$workdir, # Working directory, for output files
     'no-update'         => \$no_update
     ) or pod2usage( 2 );
@@ -60 +62 @@
 die "Can't find required tools.\n" if $missing_tools;
 
-my ($vol, $dir, $file) = File::Spec->splitpath( $input );
+unless (defined $workdir) {
+    my ($vol, $dir, $file) = File::Spec->splitpath( $input );
+    $workdir = $dir;
+}
 $input = $ipprc->convert_filename_absolute( $input );
 
 # Output name
 my $outputRoot = $camera . '.' . $detType . '.norm.' . $detId . '.' . $iter; # Root output name
-$outputRoot = File::Spec->catpath( $vol, $dir, $outputRoot );
+$outputRoot = File::Spec->catfile( $workdir, $outputRoot );
 $outputRoot = $ipprc->convert_filename_absolute($outputRoot);