Changeset 16639

Timestamp:

Feb 24, 2008, 11:53:57 AM (18 years ago)

Author:

eugene

Message:

cleanups, remove no-op (only use no-update)

File:

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

trunk/ippScripts/scripts/ipp_inject_fileset.pl

@@ -23 +23 @@
 
 # Parse the command-line arguments
-my ($camera, $telescope, $workdir, $reduction, $dvo_db, $tess_id, $end_stage, $label, $dbname, $no_update, $no_op, $help);
-GetOptions('camera|i=s'     => \$camera, # user-supplied camera name
+my ($camera, $telescope, $workdir, $reduction, $dvo_db, $tess_id, $end_stage, $label, $dbname, $no_op, $help);
+GetOptions('camera|i=s'     => \$camera,    # user-supplied camera name
            'telescope|t=s'  => \$telescope, # user-supplied telescope name
-           'workdir|w=s'    => \$workdir, # working directory for output files
+           '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
-           'label=s'        => \$label,     # stop processing at this step
+           'label=s'        => \$label,     # set chip label
            'dbname|d=s'     => \$dbname,    # Database name
-           'no-update'      => \$no_update, # Update the database?
-           'no-op'          => \$no_op,     # Don't do any operations?
+           'no-op'          => \$no_op,     # pretend but don't actually inject
            'help'           => \$help       # give help listing
            ) or pod2usage( 2 );
@@ -42 +41 @@
     defined $help;
 
-pod2usage( -msg => "Usage: $0 --telescope (name) --camera (name) [--workdir path] [--reduction class] [--dvodb db] [--tess_id tess] [--end_stage stage] [--dbname dbname] (files)", 
+pod2usage( -msg => "Usage: $0 --telescope (name) --camera (name) [--workdir path] [--reduction class] [--dvodb db] [--tess_id tess] [--end_stage stage] [--label label] [--dbname dbname] (files)", 
            -exitval => 2 ) if 
     scalar @ARGV == 0;
@@ -138 +137 @@
 $command_update .= " -dbname $dbname" if defined ($dbname);
 
-unless ($no_update) {
+unless ($no_op) {
     my ( $success_update, $error_code_update, $full_buf_update, $stdout_buf_update, $stderr_buf_update ) = run( command => $command_update, verbose => 1 );
     die "Unable to update $exp_name: $error_code_update\n" if not $success_update;