Changeset 16639 for trunk/ippScripts/scripts/ipp_inject_fileset.pl
- Timestamp:
- Feb 24, 2008, 11:53:57 AM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/ipp_inject_fileset.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/ipp_inject_fileset.pl
r16569 r16639 23 23 24 24 # Parse the command-line arguments 25 my ($camera, $telescope, $workdir, $reduction, $dvo_db, $tess_id, $end_stage, $label, $dbname, $no_ update, $no_op, $help);26 GetOptions('camera|i=s' => \$camera, # user-supplied camera name25 my ($camera, $telescope, $workdir, $reduction, $dvo_db, $tess_id, $end_stage, $label, $dbname, $no_op, $help); 26 GetOptions('camera|i=s' => \$camera, # user-supplied camera name 27 27 'telescope|t=s' => \$telescope, # user-supplied telescope name 28 'workdir|w=s' => \$workdir, # working directory for output files28 'workdir|w=s' => \$workdir, # working directory for output files 29 29 'reduction=s' => \$reduction, # user-supplied camera name 30 30 'dvodb=s' => \$dvo_db, # target dvo database 31 31 'tess_id=s' => \$tess_id, # tessalation for warping 32 32 'end_stage=s' => \$end_stage, # stop processing at this step 33 'label=s' => \$label, # s top processing at this step33 'label=s' => \$label, # set chip label 34 34 'dbname|d=s' => \$dbname, # Database name 35 'no-update' => \$no_update, # Update the database? 36 'no-op' => \$no_op, # Don't do any operations? 35 'no-op' => \$no_op, # pretend but don't actually inject 37 36 'help' => \$help # give help listing 38 37 ) or pod2usage( 2 ); … … 42 41 defined $help; 43 42 44 pod2usage( -msg => "Usage: $0 --telescope (name) --camera (name) [--workdir path] [--reduction class] [--dvodb db] [--tess_id tess] [--end_stage stage] [-- dbname dbname] (files)",43 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)", 45 44 -exitval => 2 ) if 46 45 scalar @ARGV == 0; … … 138 137 $command_update .= " -dbname $dbname" if defined ($dbname); 139 138 140 unless ($no_ update) {139 unless ($no_op) { 141 140 my ( $success_update, $error_code_update, $full_buf_update, $stdout_buf_update, $stderr_buf_update ) = run( command => $command_update, verbose => 1 ); 142 141 die "Unable to update $exp_name: $error_code_update\n" if not $success_update;
Note:
See TracChangeset
for help on using the changeset viewer.
