Changeset 29419

Timestamp:

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

Author:

bills

Message:

optionally save temporary files

Location:

trunk/tools

Files:

• runcameraexp.pl (modified) (3 diffs)
• runwarpskycell.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;

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;