Changeset 31942 for trunk/tools/runwarpskycell.pl

Timestamp:

Jul 27, 2011, 3:49:26 PM (15 years ago)

Author:

bills

Message:

--zaplog implementation is now in the ippScripts

File:

• trunk/tools/runwarpskycell.pl (modified) (2 diffs)

trunk/tools/runwarpskycell.pl

@@ -85 +85 @@
 $command .= " --verbose" unless $no_verbose;
 $command .= " --dbname $dbname" if $dbname;
-
+$command .= " --zaplog" if $zaplog;
 
 if ($update) {
@@ -104 +104 @@
 
 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;