# HG changeset patch
# User heiko
# Date 1421665299 -3600
# Node ID 88749a69668eece50c0d54606145d27df3a6ea0b
# Parent  d20452378eadb9da9eb1a24f962c4266f58582ee
local: read from nzf

diff -r d20452378ead -r 88749a69668e lib/Nagios/Check/DNS/delegation.pm
--- a/lib/Nagios/Check/DNS/delegation.pm	Mon Jan 19 11:34:00 2015 +0100
+++ b/lib/Nagios/Check/DNS/delegation.pm	Mon Jan 19 12:01:39 2015 +0100
@@ -28,7 +28,19 @@
 # bind
 sub get_local_zones {
     my @conf;
-    open(my $z, '-|', 'named-checkconf -p');
+    open(my $z, '-|') or do {
+        my $bind_directory;
+        open(my $x, '-|', 'named-checkconf -p');
+        while (<$x>) {
+            /^\s*directory\s+"(.*)";/ and $bind_directory = $1;
+            print;
+        }
+        if (defined $bind_directory) {
+            local @ARGV = grep { -f } glob "$bind_directory/*nzf";
+            print <> if @ARGV;
+        }
+        exit 0;
+    };
     while (<$z>) {
         state $line;
         s/^\s*(.*?)\s*$/$1 /;