From 8dcb37002e1a38b33e38c71001ef74e0163852f9 Mon Sep 17 00:00:00 2001
Message-Id: <8dcb37002e1a38b33e38c71001ef74e0163852f9.1714911745.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Thu, 24 Jan 2013 21:07:09 +0000
Subject: [PATCH] New domain `binswood.org.uk'.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 Makefile      |  6 ++++++
 binswood.lisp | 28 ++++++++++++++++++++++++++++
 hosts.lisp    | 10 ++++++++++
 3 files changed, 44 insertions(+)
 create mode 100644 binswood.lisp

diff --git a/Makefile b/Makefile
index 046eb9a..eda4119 100644
--- a/Makefile
+++ b/Makefile
@@ -82,6 +82,12 @@ ZONESETS		+= felixpearce
 felixpearce_VIEWS	 = outside
 felixpearce_all_ZONES	 = felixpearce.com
 
+## binswood.org.uk
+ZONESETS		+= binswood
+binswood_VIEWS		 = outside
+binswood_all_ZONES	+= binswood.org.uk
+binswood_all_ZONES	+= 27.165.10.in-addr.arpa
+
 ###--------------------------------------------------------------------------
 ### Zone construction machinery.
 
diff --git a/binswood.lisp b/binswood.lisp
new file mode 100644
index 0000000..efd21cc
--- /dev/null
+++ b/binswood.lisp
@@ -0,0 +1,28 @@
+;;; Zone file for binswood.org.uk
+
+(load "hosts.lisp" :verbose nil)
+(setf *default-zone-admin* "hostmaster@distorted.org.uk")
+(setf *default-zone-source* 'radius.distorted.org.uk.)
+
+(defzone binswood.org.uk
+
+  ;; Nameservers
+  :ns ((radius.ns :ip radius)
+       (precision.ns :ip precision)
+       (mythic-beasts-1.ns :ip mythic-ns1)
+       (mythic-beasts-2.ns :ip mythic-ns2))
+
+  ;; Internal hosts.
+  (netgear :a netgear.binswood)
+  (linksys :a linksys.binswood)
+  (mango :a mango.binswood)
+
+  ;; Dynamic addresses.
+  (dyn :ns ((radius.ns.dyn :ip radius)
+	    (precision.ns.dyn :ip precision)))
+  (ext :cname ext.dyn))
+
+(defrevzone binswood
+  :ns ((radius.ns :ip radius)
+       (precision.ns :ip precision))
+  :reverse binswood)
diff --git a/hosts.lisp b/hosts.lisp
index cbec2d0..6cb5a9c 100644
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -108,6 +108,16 @@ (defhost www-cache.any (any 4))
 (defhost krb0.any (any 5))
 (defhost krb1.any (any 6))
 
+;;;--------------------------------------------------------------------------
+;;; Satellite networks.
+
+;; Binswood.  Address range retroactively claimed from Cambridge G-RIN.
+(defnet binswood.org.uk 10.165.27.0/24
+  (binswood 256))
+(defhost netgear.binswood (binswood 1))
+(defhost linksys.binswood (binswood 2))
+(defhost mango.binswood (binswood 3))
+
 ;;;--------------------------------------------------------------------------
 ;;; Host switch.
 
-- 
[mdw]