Changeset 29163

Timestamp:

Sep 15, 2010, 1:58:11 PM (16 years ago)

Author:

bills

Message:

documented but forgot to implement --pretend option

File:

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

trunk/tools/rundiffskycell.pl

@@ -22 +22 @@
 use IO::File;
 
-my ($first, $last, $stage, $alt_workdir, $no_verbose);
+my ($first, $last, $stage, $alt_workdir, $no_verbose, $pretend);
 
 my $dbname = "gpc1";
@@ -33 +33 @@
     'redirect-output'   => \$redirect,
     'update'            => \$update,
+    'pretend'           => \$pretend,
     'dbname=s'          => \$dbname,
     'no-verbose'        => \$no_verbose, 
@@ -79 +80 @@
 if ($update) {
     my $revert_command = "difftool -revertdiffskyfile -diff_id $diff_id -skycell_id $skycell_id -dbname $dbname";
-    my $rc = system $revert_command;
-    if ($rc != 0) {
-        my $status = $rc >> 8;
-        print STDERR "$revert_command failed: $rc $status\n";
-        exit $status;
+    if ($pretend) {
+        print "skipping $revert_command\n";
+    } else {
+        my $rc = system $revert_command;
+        if ($rc != 0) {
+            my $status = $rc >> 8;
+            print STDERR "$revert_command failed: $rc $status\n";
+            exit $status;
+        }
     }
 }
 
+print "command to process this skycell\n";
+print "$command\n";
+
+exit 0 if $pretend;
+
 exit system $command;
-