Changeset 9097 for trunk/ippScripts/scripts/phase0exp.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/phase0exp.pl (modified) (5 diffs)

trunk/ippScripts/scripts/phase0exp.pl

@@ -12 +12 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 
-my ($expid, $no_update);
+my ($exptag, $no_update);
 
 GetOptions(
-    'exp_id|e=s'    => \$expid,
+    'exp_tag|e=s'    => \$exptag,
     'no-update'     => \$no_update
 ) or pod2usage( 2 );
@@ -21 +21 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --exp_id",
+    -msg => "Required options: --exp_tag",
     -exitval => 3,
-) unless defined $expid;
+) unless defined $exptag;
 
 # Define setup
@@ -73 +73 @@
 my $imfiles;
 {
-    my $command = "$p0tool -rawimfile -exp_id $expid";
+    my $command = "$p0tool -rawimfile -exp_tag $exptag";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);
-    die "Unable to perform p0tool on exposure id $expid: $error_code\n" if not $success;
+    die "Unable to perform p0tool on exposure id $exptag: $error_code\n" if not $success;
     my $metadata = $mdcParser->parse(join "", @$stdout_buf)
             or die "unable to parse metadata config doc";
@@ -117 +117 @@
 # Output results to the database
 unless ($no_update) {
-    my $command = "$p0tool -updateexp -exp_id $expid"; # Command to execute to update exposure parameters
+    my $command = "$p0tool -updateexp -exp_tag $exptag"; # Command to execute to update exposure parameters
     
     # Add the values of interest
@@ -157 +157 @@
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);
-    die "Unable to run phase0 update for $expid: $error_code\n" if not $success;
+    die "Unable to run phase0 update for $exptag: $error_code\n" if not $success;
 }