From 6e1af3c0c706f13fa94d4d0daf5dfcae03c95755 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 31 Mar 2012 21:04:36 +0100
Subject: [PATCH] zoneconf.in: Allow control over query access.

Not generally useful except for special effects.  I have a special
effect.
---
 zoneconf.in | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/zoneconf.in b/zoneconf.in
index edf1184..13c269d 100755
--- a/zoneconf.in
+++ b/zoneconf.in
@@ -992,6 +992,7 @@ define-configuration-space zone ZONECFG {
   define-simple dir-mode 2775
   define-simple zone-file "%v/%z.zone"
   define-simple soa-format increment
+  define-simple allow-query nil
   define-list views *
   define-list sign-views {}
   define-list signzone-command \
@@ -1300,6 +1301,9 @@ proc write-zone-stanza {view chan config} {
       }
     }
   }
+  if {![string equal $zone(allow-query) nil]} {
+    puts $chan "\tallow-query {$zone(allow-query)};"
+  }
   puts $chan "};";
 }
 
-- 
2.11.0