Changeset 11110 for trunk/ippScripts/scripts/phase3.pl

Timestamp:

Jan 15, 2007, 3:17:04 PM (19 years ago)

Author:

eugene

Message:

adding outpath option to scripts

File:

• trunk/ippScripts/scripts/phase3.pl (modified) (3 diffs)

trunk/ippScripts/scripts/phase3.pl

@@ -19 +19 @@
 use Pod::Usage qw( pod2usage );
 
-my ($exp_tag, $camera, $no_update);
+my ($exp_tag, $camera, $outpath, $no_update);
 GetOptions(
     'exp_tag|e=s'       => \$exp_tag,
     'camera|c=s'        => \$camera,
+    'outpath|o=s'   => \$outpath,
     'no-update'         => \$no_update
 ) or pod2usage( 2 );
@@ -28 +29 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --exp_tag --camera",
+    -msg => "Required options: --exp_tag --camera --outpath",
     -exitval => 3,
 ) unless defined $exp_tag
@@ -95 +96 @@
 }
 
-my $example = ${$files}[0]->{b1_uri}; # Example filename
-my ($vol, $dir, $file) = File::Spec->splitpath( $example );
+# XXX old verison, drop
+#my $example = ${$files}[0]->{b1_uri}; # Example filename
+#my ($vol, $dir, $file) = File::Spec->splitpath( $example );
 
 # Generate the file list, and get the statistics
 my $outputRoot = $exp_tag . '.p3'; # Root output name
-$outputRoot = File::Spec->catpath( $vol, $dir, $outputRoot );
+$outputRoot = File::Spec->catpath( $outpath, $outputRoot );
 $outputRoot = $ipprc->convert_filename_absolute($outputRoot);
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1