New domain `binswood.org.uk'.

diff --git a/Makefile b/Makefile
index 046eb9a..eda4119 100644 (file)
--- 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 (file)
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 (file)
--- a/hosts.lisp
+++ b/hosts.lisp
@@ -109,6 +109,16 @@
 (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.
 
 (preferred-subnet-case