zoneconf.in: Allow control over query access.
authorMark Wooding <mdw@distorted.org.uk>
Sat, 31 Mar 2012 20:04:36 +0000 (21:04 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Sat, 31 Mar 2012 20:04:36 +0000 (21:04 +0100)
Not generally useful except for special effects.  I have a special
effect.

zoneconf.in

index edf1184..13c269d 100755 (executable)
@@ -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 "};";
 }