From bf4484397a4859f7a246c675aa857441a6598e3c Mon Sep 17 00:00:00 2001
From: "R. Steve McKown" <rsmckown@gmail.com>
Date: Tue, 3 Dec 2013 08:39:58 -0700
Subject: [PATCH] BackupPC_ovz: add debug for executed commands

---
 BackupPC_ovz | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/BackupPC_ovz b/BackupPC_ovz
index bc7228d..014e082 100755
--- a/BackupPC_ovz
+++ b/BackupPC_ovz
@@ -47,7 +47,8 @@ sub cmdExecOrEval
     print(STDERR "Perl code fragment for exec shouldn't return!!\n");
     exit(1);
   } else {
-  $cmd = [split(/\s+/, $cmd)] if ( ref($cmd) ne "ARRAY" );
+    $cmd = [split(/\s+/, $cmd)] if ( ref($cmd) ne "ARRAY" );
+    print $dbgf ": execing command $cmd\n";
     alarm(0);
     $cmd = [map { m/(.*)/ } @$cmd];	# untaint
     #
@@ -68,8 +69,10 @@ sub cmdSystemOrEval
   $? = 0;
   $cmd = join(" ", $cmd) if ( ref($cmd) eq "ARRAY" );
   if ( (ref($cmd) eq "ARRAY" ? $cmd->[0] : $cmd) =~ /^\&/ ) {
+    print $dbgf ": evaluating command $cmd\n";
     eval($cmd);
   } else {
+    print $dbgf ": running command $cmd\n";
     system($cmd);
   }
 }
-- 
2.39.2