distorted.lisp: Reorder the network infrastructure hosts.

[zones] / binswood.lisp

diff --git a/binswood.lisp b/binswood.lisp
index 767e1785e0d7de858c3fb1a8c44d1da2f09dd749..8cb184ffad0c51526d1444699aaf449672aea860 100644 (file)
--- a/binswood.lisp
+++ b/binswood.lisp
@@ -4,11 +4,22 @@ (load "hosts.lisp" :verbose nil)
 (setf *default-zone-admin* "hostmaster@distorted.org.uk")
 (setf *default-zone-source* 'radius.distorted.org.uk.)
 
+;; 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))
+(defhost hplaser.binswood (binswood 4))
+(defhost wifi-client-1.binswood (binswood 5))
+(defhost hplaser2.binswood (binswood 6))
+
 (defzone binswood.org.uk
 
   ;; Nameservers
   :ns ((radius.ns :ip radius)
        (precision.ns :ip precision)
+       (telecaster.ns :ip telecaster)
        (mythic-beasts-1.ns :ip mythic-ns1)
        (mythic-beasts-2.ns :ip mythic-ns2))
 
@@ -17,6 +28,11 @@ (defzone binswood.org.uk
   (linksys :a linksys.binswood)
   (mango :a mango.binswood)
   (hplaser :a hplaser.binswood)
+  (hplaser2 :a hplaser2.binswood)
+  (wifi-client-1 :a wifi-client-1.binswood)
+
+  ;; External services.
+  ((@ www) :svc stratocaster)
 
   ;; Dynamic addresses.
   (dyn :ns ((radius.ns.dyn :ip radius)