Changeset 34590

Timestamp:

Oct 25, 2012, 11:09:21 AM (14 years ago)

Author:

bills

Message:

allow changing of outroot (for testing)

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, $save_temps);
+my ($warp_id, $skycell_id, $threads, $update, $redirect, $pretend, $save_temps, $outdir);
 my $zaplog;
 
@@ -26 +26 @@
     'zaplog'            => \$zaplog,
     'redirect-output'   => \$redirect,
+    'outdir=s'          => \$outdir,
     'update'            => \$update,
     'dbname=s'          => \$dbname,
@@ -74 +75 @@
 } else {
     die "unexpected warpRun.state found: $state\n";
+}
+
+if ($outdir) {
+    my $base = basename($path_base);
+    $path_base = "$outdir/$base";
+    print "changing path_base to $path_base\n";
 }