Changeset 16480 for trunk/ippScripts/scripts/ipp_serial_inject_split.pl

Timestamp:

Feb 14, 2008, 2:47:16 PM (18 years ago)

Author:

eugene

Message:

added options for dvodb, tess_id, end_stage

File:

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

trunk/ippScripts/scripts/ipp_serial_inject_split.pl

@@ -25 +25 @@
 
 # Parse the command-line arguments
-my ($workdir, $dbname, $telescope, $camera, $reduction, $help);
-GetOptions(
-           'workdir|w=s'   => \$workdir, # working directory for output files
+my ($camera, $telescope, $workdir, $reduction, $dvo_db, $tess_id, $end_stage, $dbname, $help);
+GetOptions('camera|c=s'    => \$camera,    # Camera used              
+           'telescope|t=s' => \$telescope, # Telescope used      
+           'workdir|w=s'   => \$workdir,   # working directory for output files
+           'reduction=s'   => \$reduction, # user-supplied camera name
+           'dvodb=s'       => \$dvo_db,    # target dvo database 
+           'tess_id=s'     => \$tess_id,   # tessalation for warping
+           'end_stage=s'   => \$end_stage, # stop processing at this step
            'dbname|d=s'    => \$dbname, # Database name
-           'telescope|t=s' => \$telescope, # Telescope used      
-           'camera|c=s'    => \$camera,    # Camera used              
-           'reduction=s'   => \$reduction, # user-supplied camera name
-           'help'          => \$help # give help listing
+           'help'          => \$help # give help listing
 ) or pod2usage( 2 );
 
@@ -39 +41 @@
     defined $help;
 
-pod2usage( -msg => "Usage: $0 --telescope (name) --camera (name) [--workdir path] [--dbname dbname] (files)", 
+pod2usage( -msg => "Usage: $0 --telescope (name) --camera (name) [--workdir path] [--dbname dbname] [--reduction class] [--dvodb db] [--tess_id tess] [--end_stage stage] [--dbname name] (files)", 
            -exitval => 2 ) if 
     scalar @ARGV == 0;
 
 pod2usage(
-          -msg => "Required options: --camera --telescope --workdir --path --dbname",
+          -msg => "Required options: --camera --telescope",
           -exitval => 3) unless 
     defined $telescope and
@@ -53 +55 @@
 
 # if workdir is not defined, assign the current path
-# XXX we need to handle relative paths for workdir (not allowed)
+# we need to handle relative paths for workdir (not allowed)
 if (! $workdir) {
     $workdir = File::Spec->rel2abs( "." );
@@ -91 +93 @@
     $command_exp .= " -tmp_telescope $telescope";
     $command_exp .= " -workdir $workdir";
-    $command_exp .= " -dbname $dbname" if defined $dbname;
     $command_exp .= " -reduction $reduction" if defined $reduction;
+    $command_exp .= " -dvo_db $dvo_db"       if defined $dvo_db;
+    $command_exp .= " -tess_id $tess_id"     if defined $tess_id;
+    $command_exp .= " -end_stage $end_stage" if defined $end_stage;
+    $command_exp .= " -dbname $dbname"       if defined $dbname;
 
     my ( $success_exp, $error_code_exp, $full_buf_exp, $stdout_buf_exp, $stderr_buf_exp ) =