chiark / gitweb /
*.lisp: Preparation for `eggle' as public secondary nameserver.
[zones] / binswood.lisp
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
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 binswrt.binswood (binswood 1))
11 (defhost mango.binswood (binswood 3))
12
13 (defzone binswood.org.uk
14
15   ;; Nameservers
16   :ns ((radius.ns :ip radius)
17        (precision.ns :ip precision)
18        (telecaster.ns :ip telecaster)
19        (national.ns :ip national)
20        #+deploy-eggle (eggle.ns :ip eggle)
21        (mythic-beasts-1.ns :ip mythic-ns1)
22        (mythic-beasts-2.ns :ip mythic-ns2)
23        (mythic-beasts-3.ns :ip mythic-ns3))
24
25   ;; Certification.
26   :caa ((:issue "letsencrypt.org")
27         (:issue "distorted.org.uk"))
28
29   ;; Internal hosts.
30   (binswrt :a binswrt.binswood)
31   (mango :a mango.binswood)
32
33   ;; External services.
34   ((@ www) :svc stratocaster)
35
36   ;; Dynamic addresses.
37   (dyn :ns ((radius.ns.dyn :ip radius)
38             (precision.ns.dyn :ip precision)
39             (telecaster.ns.dyn :ip telecaster)
40             (national.ns.dyn :ip national)
41             #+deploy-eggle (eggle.ns.dyn :ip eggle)))
42   (ext :cname ext.dyn))
43
44 (defzone (dyn.binswood.org.uk :source telecaster.distorted.org.uk.)
45   :ns ((radius.ns :ip radius)
46        (precision.ns :ip precision)
47        (telecaster.ns :ip telecaster)
48        (national.ns :ip national)
49        #+deploy-eggle (eggle.ns :ip eggle)))
50
51 (defrevzone binswood
52   :ns ((radius.ns :ip radius)
53        (precision.ns :ip precision))
54   :reverse binswood)