Changeset 12056 for trunk/ippScripts/scripts/stack_skycell.pl

Timestamp:

Feb 26, 2007, 11:57:00 AM (19 years ago)

Author:

Paul Price

Message:

Don't need --camera from the command line because it can come through the query.

File:

• trunk/ippScripts/scripts/stack_skycell.pl (modified) (4 diffs)

trunk/ippScripts/scripts/stack_skycell.pl

@@ -34 +34 @@
 use Pod::Usage qw( pod2usage );
 
-my ($stack_id, $camera, $dbname, $workdir, $no_update, $no_op);
+my ($stack_id, $dbname, $workdir, $no_update, $no_op);
 GetOptions(
     'stack_id|d=s'      => \$stack_id, # Stack identifier
-    'camera|c=s'        => \$camera, # Camera name
     'dbname|d=s'        => \$dbname, # Database name
     'workdir|w=s'       => \$workdir,   # Working directory, for output files
@@ -46 +45 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --stack_id --camera",
+    -msg => "Required options: --stack_id",
     -exitval => 3,
-) unless defined $stack_id
-    and defined $camera;
-
-$ipprc->define_camera($camera);
+          ) unless defined $stack_id;
 
 # Look for programs we need
@@ -87 +83 @@
 my $inputList;                  # List of input files
 my $skycell_id;                 # Skycell identifier
+my $camera;                     # Camera
 foreach my $file (@$files) {
     my $uri = $ipprc->convert_filename_absolute( $file->{uri} ); # URI for file
@@ -96 +93 @@
         $skycell_id = $file->{skycell_id};
     }
-}
+    if (defined $camera) {
+        &my_die("Cameras don't match", $stack_id, $PS_EXIT_SYS_ERROR) unless $file->{camera} eq $camera;
+    } else {
+        $camera = $file->{camera};
+    }
+}
+$ipprc->define_camera($camera);
+
 
 ### Working directory