Changeset 23874

Timestamp:

Apr 15, 2009, 10:00:58 AM (17 years ago)

Author:

bills

Message:

add --clean argument to dist_advancerun.pl

File:

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

trunk/ippScripts/scripts/dist_advancerun.pl

@@ -28 +28 @@
 
 # Parse the command-line arguments
-my ($dist_id, $stage, $stage_id, $outdir);
+my ($dist_id, $stage, $stage_id, $outdir, $clean);
 my ($dbname, $save_temps, $verbose, $no_update, $no_op, $logfile);
 
@@ -35 +35 @@
            'stage=s'        => \$stage,      # raw, chip, warp, or diff
            'stage_id=s'     => \$stage_id,   # exp_id, chip_id, warp_id, or diff_id
-           'outdir=s'       => \$outdir,    # "directory" for outputs
+           'clean'          => \$clean,      # exporting a clean run
+           'outdir=s'       => \$outdir,     # "directory" for outputs
            'save-temps'     => \$save_temps, # Save temporary files?
            'dbname=s'       => \$dbname,     # Database name
@@ -94 +95 @@
 {
     my $command = "$tool_cmd $stage_id -exportrun -outfile $outfile";
+    $command .= " -clean" if defined $clean;
     $command .= " -dbname $dbname" if defined $dbname;