Changeset 9097 for trunk/ippScripts/scripts/detrend_reject_imfile.pl

Timestamp:

Oct 2, 2006, 12:16:03 PM (20 years ago)

Author:

Paul Price

Message:

Changing 'exp id' to 'exp tag' throughout, following corresponding change in database.

File:

• trunk/ippScripts/scripts/detrend_reject_imfile.pl (modified) (5 diffs)

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -15 +15 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $exp_id, $det_type, $no_update);
+my ($det_id, $iter, $exp_tag, $det_type, $no_update);
 GetOptions(
     'det_id|d=s'        => \$det_id,
     'iteration=s'       => \$iter,
-    'exp_id|e=s'        => \$exp_id,
+    'exp_tag|e=s'        => \$exp_tag,
     'det_type|t=s'      => \$det_type,
     'no-update'         => \$no_update
@@ -26 +26 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --det_id --iteration --exp_id --det_type",
+    -msg => "Required options: --det_id --iteration --exp_tag --det_type",
     -exitval => 3,
 ) unless defined $det_id
     and defined $iter
-    and defined $exp_id
+    and defined $exp_tag
     and defined $det_type;
 
@@ -87 +87 @@
 my $files;                      # Array of component files
 {
-    my $command = "$dettool -residimfile -det_id $det_id -iteration $iter -exp_id $exp_id"; # Command to run
+    my $command = "$dettool -residimfile -det_id $det_id -iteration $iter -exp_tag $exp_tag"; # Command to run
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);
@@ -97 +97 @@
 
 # Generate the file list, and get the statistics
-my $outputRoot = $exp_id . '.detresid.' . $det_id . '.' . $iter; # Root output name
+my $outputRoot = $exp_tag . '.detresid.' . $det_id . '.' . $iter; # Root output name
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1
 my $list2Name = $outputRoot . '.b2.list'; # Name for the input file list for binning 2
@@ -195 +195 @@
 # Add the result into the database
 unless ($no_update) {
-    my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_id $exp_id " .
+    my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_tag $exp_tag " .
         "-recip " . RECIPE1() . "," . RECIPE2() . " -b1_uri $jpeg1Name -b2_uri $jpeg2Name " .
         "-bg $mean -bg_stdev $stdev -bg_mean_stdev $meanStdev"; # Command to run