Changeset 24452

Timestamp:

Jun 16, 2009, 3:25:23 PM (17 years ago)

Author:

Paul Price

Message:

Fix compilation errors.
Ignore bad quality files.

File:

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

branches/pap_mops/ippScripts/scripts/publish_file.pl

@@ -39 +39 @@
 
 # Parse the command-line arguments
-my ( $pub_id, $stage, $stage_id, $format, $product, $workdir );
+my ( $pub_id, $camera, $stage, $stage_id, $format, $product, $workdir );
 my ( $dbname, $verbose, $no_update, $save_temps );
 
@@ -56 +56 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --pub_id --stage --stage_id --product --workdir",
+pod2usage( -msg => "Required options: --pub_id --camera --stage --stage_id --product --workdir",
            -exitval => $PS_EXIT_CONFIG_ERROR) unless
     defined $pub_id and
+    defined $camera and
     defined $product and
     defined $stage and
@@ -99 +100 @@
     foreach my $comp ( @$components ) {
         my $path_base = $comp->{path_base}; # Base name for file
+        next if defined $comp->{quality} and $comp->{quality} > 0;
 
         if ($stage eq 'diff') {