Changeset 29419 for trunk/tools/runcameraexp.pl

Timestamp:

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

Author:

bills

Message:

optionally save temporary files

File:

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

trunk/tools/runcameraexp.pl

@@ -15 +15 @@
 
 my $dbname = "gpc1";
-my ($cam_id, $update, $redirect, $pretend, $no_verbose);
+my ($cam_id, $update, $redirect, $save_temps, $pretend, $no_verbose);
 
 GetOptions(
@@ -21 +21 @@
     'pretend'           => \$pretend,
     'redirect-output'   => \$redirect,
+    'save-temps'        => \$save_temps,
     'update'            => \$update,
     'dbname=s'          => \$dbname,
@@ -67 +68 @@
 $command .= " --dvodb $dvodb" if $dvodb and ($dvodb ne "NULL");
 $command .= " --redirect-output" if $redirect or $update;
+$command .= " --save-temps" if $save_temps;
 $command .= " --no-update" unless $update;
 $command .= " --verbose" unless $no_verbose;