Changeset 31941 for trunk/tools/runchipimfile.pl

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)

File:

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

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;