From: R. Steve McKown <rsmckown@gmail.com>
Date: Tue, 3 Dec 2013 15:39:58 +0000 (-0700)
Subject: BackupPC_ovz: add debug for executed commands
X-Git-Url: https://oss.titaniummirror.com/gitweb?p=ovzbpc.git;a=commitdiff_plain;h=bf4484397a4859f7a246c675aa857441a6598e3c

BackupPC_ovz: add debug for executed commands
---

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);
   }
 }