Changeset 24707 for trunk/ippScripts/scripts/publish_file.pl

Timestamp:

Jul 7, 2009, 1:29:37 PM (17 years ago)

Author:

Paul Price

Message:

Name detection files published to datastore with output root name publish.PUB_ID.EXP_ID, after request from Larry to include 'FPA_ID' in the file name.

File:

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

trunk/ippScripts/scripts/publish_file.pl

@@ -39 +39 @@
 
 # Parse the command-line arguments
-my ( $pub_id, $camera, $stage, $stage_id, $format, $product, $workdir );
+my ( $pub_id, $exp_id, $camera, $stage, $stage_id, $format, $product, $workdir );
 my ( $dbname, $verbose, $no_update, $save_temps, $redirect );
 
 GetOptions(
     'pub_id=s'          => \$pub_id, # Publish identifier
+    'exp_id=s'          => \$exp_id, # Exposure identifier
     'camera=s'          => \$camera, # Camera name
     'stage=s'           => \$stage,       # Stage of interest
@@ -57 +58 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --pub_id --camera --stage --stage_id --product --workdir",
+pod2usage( -msg => "Required options: --pub_id --exp_id --camera --stage --stage_id --product --workdir",
            -exitval => $PS_EXIT_CONFIG_ERROR) unless
     defined $pub_id and
+    defined $exp_id and
     defined $camera and
     defined $product and
@@ -66 +68 @@
     defined $workdir;
 
-my $outroot = "$workdir/$product.$pub_id"; # Output root name
+my $outroot = "$workdir/$product.$pub_id.$exp_id"; # Output root name
 
 my $ipprc = PS::IPP::Config->new( $camera ) or