Index: trunk/tools/runwarpskycell.pl
===================================================================
--- trunk/tools/runwarpskycell.pl	(revision 30857)
+++ trunk/tools/runwarpskycell.pl	(revision 31941)
@@ -17,4 +17,5 @@
 my $dbname = "gpc1";
 my ($warp_id, $skycell_id, $threads, $update, $redirect, $pretend, $save_temps);
+my $zaplog;
 
 GetOptions(
@@ -23,4 +24,5 @@
     'threads=i'         => \$threads,
     'pretend'           => \$pretend,
+    'zaplog'            => \$zaplog,
     'redirect-output'   => \$redirect,
     'update'            => \$update,
@@ -103,4 +105,18 @@
 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;