Changeset 12106 for trunk/ippScripts/scripts/warp_overlap.pl

Timestamp:

Feb 27, 2007, 5:50:38 PM (19 years ago)

Author:

Paul Price

Message:

Must supply camera (as for most scripts).

File:

• trunk/ippScripts/scripts/warp_overlap.pl (modified) (2 diffs)

trunk/ippScripts/scripts/warp_overlap.pl

@@ -33 +33 @@
 use Pod::Usage qw( pod2usage );
 
-my ($warp_id, $dbname, $workdir, $no_update, $no_op);
+my ($warp_id, $camera, $dbname, $workdir, $no_update, $no_op);
 GetOptions(
     'warp_id|i=s'       => \$warp_id, # Warp identifier
+    'camera|c=s'        => \$camera, # Camera name
     'dbname|d=s'        => \$dbname, # Database name
     'workdir|w=s'       => \$workdir, # Working directory, for output files
@@ -46 +47 @@
     -msg => "Required options: --warp_id",
     -exitval => 3,
-) unless defined $warp_id;
+) unless defined $warp_id
+    and defined $camera;
 
 # Look for programs we need