Changeset 29419 for trunk/tools/runwarpskycell.pl

Timestamp:

Oct 14, 2010, 2:25:48 PM (16 years ago)

Author:

bills

Message:

optionally save temporary files

File:

• trunk/tools/runwarpskycell.pl (modified) (3 diffs)

trunk/tools/runwarpskycell.pl

@@ -16 +16 @@
 
 my $dbname = "gpc1";
-my ($warp_id, $skycell_id, $threads, $update, $redirect, $pretend);
+my ($warp_id, $skycell_id, $threads, $update, $redirect, $pretend, $save_temps);
 
 GetOptions(
@@ -27 +27 @@
     'dbname=s'          => \$dbname,
     'no-verbose'        => \$no_verbose, 
+    'save-temps'        => \$save_temps,
 ) or pod2usage( 2 );
 
@@ -78 +79 @@
 $command .= " --reduction $reduction" if $reduction and ($reduction ne "NULL");
 $command .= " --redirect-output" if $redirect;
+$command .= " --save-temps" if $save_temps;
 $command .= " --no-update" unless $update;
 $command .= " --verbose" unless $no_verbose;