Changeset 14133

Timestamp:

Jul 10, 2007, 4:50:03 PM (19 years ago)

Author:

eugene

Message:

option to supply a reduction class

File:

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

trunk/ippScripts/scripts/ipp_serial_inject.pl

@@ -24 +24 @@
 
 # Parse the command-line arguments
-my ($workdir, $dbname, $telescope, $camera, $help);
+my ($workdir, $dbname, $telescope, $camera, $reduction, $help);
 GetOptions(
     'workdir|w=s'    => \$workdir, # working directory for output files
@@ -30 +30 @@
     'telescope|t=s'  => \$telescope, # user-supplied telescope name
     'camera|i=s'     => \$camera, # user-supplied camera name
+    'reduction=s'    => \$reduction, # user-supplied camera name
     'help'           => \$help # give help listing
 ) or pod2usage( 2 );
@@ -85 +86 @@
     $command_exp .= " -workdir $workdir";
     $command_exp .= " -dbname $dbname" if defined $dbname;
+    $command_exp .= " -reduction $reduction" if defined $reduction;
 
     my ( $success_exp, $error_code_exp, $full_buf_exp, $stdout_buf_exp, $stderr_buf_exp ) =