Add debug mode.

diff --git a/mirror b/mirror
index 45fea35638e71758a21ce0a443899e68c3faf6a6..b67b9a3d579bde5dc33b73313cbd2b26a253cefe 100644 (file)
--- a/mirror
+++ b/mirror
@@ -99,10 +99,13 @@ use Getopt::Long;
 
 my $config_file = "mirror.yaml";
 my $sync = undef;
+my $DEBUG = undef;
 my $lock_file = "/var/lock/mirror-" . hostname;
 
 GetOptions("config|c=s"  => $config_file,
-           "sync|s"      => $sync);
+           "sync|s"      => $sync,
+           "debug|d"     => $DEBUG,
+);
 
 my @errors   = ();
 my @warnings = ();
@@ -280,6 +283,11 @@ sub run_and_check {
   $cmd = "$c->{$rmtssh} \"$cmd\""
     if defined $c->{rmtssh};
 
+  if (defined $DEBUG) {
+    print "Want to run: $cmd\n";
+    return;
+  }
+
   system($cmd);
   if ($? >> 8 != 0) {
     push @errors, "Command \"$cmd\" failed with return code " . ($? >> 8);