Changeset 31941

Timestamp:

Jul 27, 2011, 3:47:51 PM (15 years ago)

Author:

bills

Message:

add script to regenerate missing input files for a given component. Add flag
to tell the various scripts to delete existing log file (for use when the instance
is not available)

Location:

trunk

Files:

• ippScripts/scripts/chip_imfile.pl (modified) (3 diffs)
• ippScripts/scripts/diff_skycell.pl (modified) (3 diffs)
• ippScripts/scripts/warp_skycell.pl (modified) (3 diffs)
• tools/regenerateinput.pl (added)
• tools/runchipimfile.pl (modified) (3 diffs)
• tools/rundiffskycell.pl (modified) (3 diffs)
• tools/runwarpskycell.pl (modified) (3 diffs)

trunk/ippScripts/scripts/chip_imfile.pl

@@ -44 +44 @@
 my ( $exp_id, $chip_id, $class_id, $chip_imfile_id, $uri, $camera, $outroot, $dbname, $run_state, $reduction, $threads, $verbose,
      $no_update, $save_temps, $no_op, $redirect, $magicked, $deburned );
+
+my $zaplog = 0;
+
 GetOptions(
     'exp_id=s'          => \$exp_id,    # Exposure identifier
@@ -62 +65 @@
     'no-op'             => \$no_op,     # Don't do any operations?
     'redirect-output'   => \$redirect,
+    'zaplog'            => \$zaplog,
     'save-temps'        => \$save_temps, # Save temporary files?
     ) or pod2usage( 2 );
@@ -90 +94 @@
 my ($logDest, $traceDest);
 if ($run_state eq 'new') {
-    $logDest = prepare_output("LOG.IMFILE", $outroot, $class_id, 0);
+    $logDest = prepare_output("LOG.IMFILE", $outroot, $class_id, $zaplog);
     $traceDest = prepare_output("TRACE.IMFILE",  $outroot, $class_id, 1);
 } else {

trunk/ippScripts/scripts/diff_skycell.pl

@@ -40 +40 @@
 my ($skycell_id, $diff_skyfile_id);
 my ($use_convolved);
+my $zaplog = 0;
+
 GetOptions(
     'diff_id=s'         => \$diff_id, # Diff identifier
@@ -55 +57 @@
     'no-op'             => \$no_op, # Don't do any operations?
     'redirect-output'   => \$redirect,
+    'zaplog'            => \$zaplog, # delete any previous log file
 ) or pod2usage( 2 );
 
@@ -82 +85 @@
     $logDest .= '.update';
     # ... well we can just do the dirty work here
+    $ipprc->kill_file($logDest);
+} elsif ($zaplog) {
     $ipprc->kill_file($logDest);
 }

trunk/ippScripts/scripts/warp_skycell.pl

@@ -38 +38 @@
 
 my ($warp_id, $skycell_id, $warp_skyfile_id, $tess_dir, $reduction, $camera, $dbname, $outroot, $threads, $run_state, $magicked, $verbose, $no_update, $no_op, $redirect, $save_temps);
+my $zaplog = 0;
+
 GetOptions(
     'warp_id|i=s'         => \$warp_id, # Warp identifier
@@ -53 +55 @@
     'no-update'           => \$no_update, # Don't update the database?
     'no-op'               => \$no_op, # Don't do any operations?
+    'zaplog'              => \$zaplog, # delete previous logfile
     'redirect-output'     => \$redirect,
     'save-temps'          => \$save_temps, # Save temporary files?
@@ -74 +77 @@
 my $do_stats;
 if ($run_state eq 'new') {
-    $logDest = prepare_output("LOG.EXP", $outroot, $skycell_id, 0);
+    $logDest = prepare_output("LOG.EXP", $outroot, $skycell_id, $zaplog);
     $traceDest = prepare_output("TRACE.EXP", $outroot, $skycell_id, 1);
     $do_stats = 1;

trunk/tools/runchipimfile.pl

@@ -18 +18 @@
 my ($chip_id, $class_id, $threads, $update, $redirect, $pretend, $save_temps);
 
+my $zaplog;
+
 GetOptions(
     'chip_id=i'         => \$chip_id,
@@ -23 +25 @@
     'threads=i'         => \$threads,
     'pretend'           => \$pretend,
+    'zaplog'            => \$zaplog,
     'redirect-output'   => \$redirect,
     'update'            => \$update,
@@ -95 +98 @@
     }
 }
-print "command to process this skycell\n";
+print "command to process this chip\n";
 print "$command\n";
 
 exit 0 if $pretend;
+
+# XXX: implement this in chip_imfile.pl
+if ($zaplog) {
+    my $logfile = $path_base . ".$class_id.log";
+    my $cmd = "neb-mv $logfile $logfile.trash";
+    print "$cmd\n";
+    my $rc = system $cmd;
+    if ($rc) {
+        my $status = $rc >> 8;
+        print STDERR "neb-mv failed with $rc $status\n";
+        exit $status;
+    }
+}
 
 exit system $command;

trunk/tools/rundiffskycell.pl

@@ -26 +26 @@
 my $dbname = "gpc1";
 my ($diff_id, $skycell_id, $threads, $update, $redirect);
+my $zaplog;
 
 GetOptions(
@@ -32 +33 @@
     'threads=i'         => \$threads,
     'redirect-output'   => \$redirect,
+    'zaplog'            => \$zaplog,
     'update'            => \$update,
     'pretend'           => \$pretend,
@@ -74 +76 @@
 $command .= " --reduction $reduction" if $reduction;
 $command .= " --threads $threads" if $threads;
+$command .= " --zaplog" if $zaplog;
 
 print "command to process this skycell\n";

trunk/tools/runwarpskycell.pl

@@ -17 +17 @@
 my $dbname = "gpc1";
 my ($warp_id, $skycell_id, $threads, $update, $redirect, $pretend, $save_temps);
+my $zaplog;
 
 GetOptions(
@@ -23 +24 @@
     'threads=i'         => \$threads,
     'pretend'           => \$pretend,
+    'zaplog'            => \$zaplog,
     'redirect-output'   => \$redirect,
     'update'            => \$update,
@@ -103 +105 @@
 exit 0 if $pretend;
 
+# XXX: implement this in warp_skycell.pl
+if ($zaplog) {
+    my $logfile = $path_base . ".log";
+    my $cmd = "neb-mv $logfile $logfile.trash";
+    print "$cmd\n";
+    my $rc = system $cmd;
+    if ($rc) {
+        my $status = $rc >> 8;
+        print STDERR "neb-mv failed with $rc $status\n";
+        exit $status;
+    }
+}
+
+
 exit system $command;