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

Timestamp:

Dec 6, 2010, 3:00:09 PM (15 years ago)

Author:

Serge CHASTEL

Message:

ppMops -version flag supported

File:

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

trunk/ippScripts/scripts/publish_file.pl

@@ -44 +44 @@
 my ( $pub_id, $camera, $stage, $stage_id, $fileset, $format, $product, $workdir );
 my ( $dbname, $verbose, $no_update, $no_op, $save_temps, $redirect );
+my ( $output_format );
 
 GetOptions(
@@ -59 +60 @@
     'save-temps'        => \$save_temps, # Save temporary files?
     'redirect-output'   => \$redirect,   # Redirect output to log file?
+    'output_format'        => \$output_format, # Output format for ppMops
     ) or pod2usage( 2 );
 
@@ -335 +337 @@
     $command .= " -zp_error " . $data->{zp_err} if defined $data->{zp_err};
     $command .= " -astrom_rms " . $data->{astrom} if defined $data->{astrom};
+    $command .= " -version " . $data->{output_format} if defined $data->{output_format};
 
     unless ($no_op) {