Changeset 31942

Timestamp:

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

Author:

bills

Message:

--zaplog implementation is now in the ippScripts

Location:

trunk/tools

Files:

• runchipimfile.pl (modified) (2 diffs)
• runwarpskycell.pl (modified) (2 diffs)

trunk/tools/runchipimfile.pl

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