Changeset 23777 for trunk/ippScripts/scripts/dist_advancerun.pl
- Timestamp:
- Apr 9, 2009, 1:56:50 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/dist_advancerun.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/dist_advancerun.pl
r23744 r23777 28 28 29 29 # Parse the command-line arguments 30 my ($dist_id, $stage, $stage_id, $out root);30 my ($dist_id, $stage, $stage_id, $outdir); 31 31 my ($dbname, $save_temps, $verbose, $no_update, $no_op, $logfile); 32 32 … … 35 35 'stage=s' => \$stage, # raw, chip, warp, or diff 36 36 'stage_id=s' => \$stage_id, # exp_id, chip_id, warp_id, or diff_id 37 'out root=s' => \$outroot, # "directory" for outputs37 'outdir=s' => \$outdir, # "directory" for outputs 38 38 'save-temps' => \$save_temps, # Save temporary files? 39 39 'dbname=s' => \$dbname, # Database name … … 45 45 46 46 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; 47 pod2usage( -msg => "Required options: --dist_id --stage --stage_id --out root",47 pod2usage( -msg => "Required options: --dist_id --stage --stage_id --outdir", 48 48 -exitval => 3) unless 49 49 defined $dist_id and 50 50 defined $stage and 51 51 defined $stage_id and 52 defined $out root;52 defined $outdir; 53 53 54 54 $ipprc->redirect_output($logfile) if $logfile; … … 90 90 91 91 # XXX we should create a file rule for this 92 my $outfile = "$out root/dbinfo.$stage.$stage_id.mdc";92 my $outfile = "$outdir/dbinfo.$stage.$stage_id.mdc"; 93 93 94 94 {
Note:
See TracChangeset
for help on using the changeset viewer.
