chiark / gitweb /
binswood.lisp: Static allocation for Wifi client gadget.
[zones] / binswood.lisp
CommitLineData
8dcb3700
MW
1;;; Zone file for binswood.org.uk
2
3(load "hosts.lisp" :verbose nil)
4(setf *default-zone-admin* "hostmaster@distorted.org.uk")
5(setf *default-zone-source* 'radius.distorted.org.uk.)
6
827f2f1e
MW
7;; Binswood. Address range retroactively claimed from Cambridge G-RIN.
8(defnet binswood.org.uk 10.165.27.0/24
9 (binswood 256))
10(defhost netgear.binswood (binswood 1))
11(defhost linksys.binswood (binswood 2))
12(defhost mango.binswood (binswood 3))
13(defhost hplaser.binswood (binswood 4))
625b0fd3 14(defhost wifi-client-1.binswood (binswood 5))
827f2f1e 15
8dcb3700
MW
16(defzone binswood.org.uk
17
18 ;; Nameservers
19 :ns ((radius.ns :ip radius)
20 (precision.ns :ip precision)
21 (mythic-beasts-1.ns :ip mythic-ns1)
22 (mythic-beasts-2.ns :ip mythic-ns2))
23
24 ;; Internal hosts.
25 (netgear :a netgear.binswood)
26 (linksys :a linksys.binswood)
27 (mango :a mango.binswood)
3981f7c3 28 (hplaser :a hplaser.binswood)
625b0fd3 29 (wifi-client-1 :a wifi-client-1.binswood)
8dcb3700
MW
30
31 ;; Dynamic addresses.
32 (dyn :ns ((radius.ns.dyn :ip radius)
33 (precision.ns.dyn :ip precision)))
34 (ext :cname ext.dyn))
35
36(defrevzone binswood
37 :ns ((radius.ns :ip radius)
38 (precision.ns :ip precision))
39 :reverse binswood)