From 0dc7cdea82d2b04b0c7b32164832cfd531f2b051 Mon Sep 17 00:00:00 2001
From: karchnu <karchnu@karchnu.fr>
Date: Fri, 20 Nov 2015 20:13:59 +0100
Subject: [PATCH] =?UTF-8?q?bind9=20=3D>=20correction=20de=20rndc=20qui=20s?=
 =?UTF-8?q?e=20lan=C3=A7ait=20via=20sudo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/interface/bind9.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/interface/bind9.pm b/lib/interface/bind9.pm
index e252a62..2aa10e9 100644
--- a/lib/interface/bind9.pm
+++ b/lib/interface/bind9.pm
@@ -10,8 +10,10 @@ sub reload {
     my ($self, $domain) = @_;
 
     my $cmd = "rndc reload $domain";
+    say "CMD: $cmd";
     qx/$cmd/;
     $cmd = "rndc notify $domain";
+    say "CMD: $cmd";
     qx/$cmd/;
 
     #my $cmd = "rndc reload $domain ";
@@ -75,13 +77,14 @@ sub reconfig {
 sub delzone {
     my ($self, $domain) = @_;
 
-    my $cmd = "sudo rndc delzone $domain ";
+    my $cmd = "rndc delzone $domain ";
 
     my $user = get_user_from_cfg($$self{mycfg});
     my $host = get_host_from_cfg($$self{mycfg});
     my $port = get_port_from_cfg($$self{mycfg});
 
-    remotecmd $user, $host, $port, $cmd;
+    #remotecmd $user, $host, $port, $cmd;
+    qx/$cmd/;
 
     my $file = get_zonedir_from_cfg($$self{mycfg});
     $file .= "/$domain";