binswood.lisp: New master router; expunge dead devices.

[zones] / binswood.lisp

diff --git a/binswood.lisp b/binswood.lisp
index 9f76fa55940e5c9ecba090ef2e9cf0912e4b3ada..5356168dddba62886ba67219068420f7d10cb67d 100644 (file)
--- a/binswood.lisp
+++ b/binswood.lisp
@@ -7,12 +7,8 @@ (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 binswrt.binswood (binswood 1))
 (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
 
@@ -24,15 +20,11 @@ (defzone binswood.org.uk
        (mythic-beasts-2.ns :ip mythic-ns2))
 
   ;; Internal hosts.
-  (netgear :a netgear.binswood)
-  (linksys :a linksys.binswood)
+  (binswrt :a binswrt.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)
+  ((@ www) :svc stratocaster)
 
   ;; Dynamic addresses.
   (dyn :ns ((radius.ns.dyn :ip radius)