Changeset 31253 for branches/czw_branch/20110406/tools/runcameraexp.pl

Timestamp:

Apr 8, 2011, 6:31:08 PM (15 years ago)

Author:

watersc1

Message:

merge from trunk

Location:

branches/czw_branch/20110406

Files:

• . (modified) (1 prop)
• tools/runcameraexp.pl (modified) (3 diffs)

branches/czw_branch/20110406/tools/runcameraexp.pl

@@ -16 +16 @@
 my $dbname = "gpc1";
 my ($cam_id, $update, $redirect, $save_temps, $pretend, $no_verbose);
+my ($outdir);
 
 GetOptions(
@@ -22 +23 @@
     'redirect-output'   => \$redirect,
     'save-temps'        => \$save_temps,
+    'outdir=s'          => \$outdir,
     'update'            => \$update,
     'dbname=s'          => \$dbname,
@@ -55 +57 @@
 
 die "Cannot update when run is not faulted\n" if $update and ! $fault;
+
+if ($outdir) {
+    my $base = basename($path_base);
+    $path_base = "$outdir/$base";
+    print STDERR "changing path_base to $path_base";
+    $update = 0;
+}
 
 my  $run_state;