odin.lisp: Retreat to glueless delegation due to loss of glue records.

[zones] / binswood.lisp

diff --git a/binswood.lisp b/binswood.lisp
index 767e1785e0d7de858c3fb1a8c44d1da2f09dd749..12342ffcb4f307d0376d68aa0585b0f14d7f667e 100644 (file)
--- a/binswood.lisp
+++ b/binswood.lisp
@@ -4,25 +4,50 @@ (load "hosts.lisp" :verbose nil)
 (setf *default-zone-admin* "hostmaster@distorted.org.uk")
 (setf *default-zone-source* 'radius.distorted.org.uk.)
 
 (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 binswrt.binswood (binswood 1))
+(defhost mango.binswood (binswood 3))
+

 (defzone binswood.org.uk
 
   ;; Nameservers
   :ns ((radius.ns :ip radius)
        (precision.ns :ip precision)
 (defzone binswood.org.uk
 
   ;; Nameservers
   :ns ((radius.ns :ip radius)
        (precision.ns :ip precision)

+       (telecaster.ns :ip telecaster)
+       (national.ns :ip national)
+       (eggle.ns :ip eggle)

        (mythic-beasts-1.ns :ip mythic-ns1)
        (mythic-beasts-1.ns :ip mythic-ns1)

-       (mythic-beasts-2.ns :ip mythic-ns2))
+       (mythic-beasts-2.ns :ip mythic-ns2)
+       (mythic-beasts-3.ns :ip mythic-ns3))
+
+  ;; Certification.
+  :caa ((:issue "letsencrypt.org")
+       (:issue "distorted.org.uk"))

 
   ;; Internal hosts.
 
   ;; Internal hosts.

-  (netgear :a netgear.binswood)
-  (linksys :a linksys.binswood)
+  (binswrt :a binswrt.binswood)

   (mango :a mango.binswood)
   (mango :a mango.binswood)

-  (hplaser :a hplaser.binswood)
+
+  ;; External services.
+  ((@ www) :svc stratocaster)

 
   ;; Dynamic addresses.
   (dyn :ns ((radius.ns.dyn :ip radius)
 
   ;; Dynamic addresses.
   (dyn :ns ((radius.ns.dyn :ip radius)

-           (precision.ns.dyn :ip precision)))
+           (precision.ns.dyn :ip precision)
+           (telecaster.ns.dyn :ip telecaster)
+           (national.ns.dyn :ip national)
+           (eggle.ns.dyn :ip eggle)))

   (ext :cname ext.dyn))
 
   (ext :cname ext.dyn))
 

+(defzone (dyn.binswood.org.uk :source telecaster.distorted.org.uk.)
+  :ns ((radius.ns :ip radius)
+       (precision.ns :ip precision)
+       (telecaster.ns :ip telecaster)
+       (national.ns :ip national)
+       (eggle.ns :ip eggle)))
+

 (defrevzone binswood
   :ns ((radius.ns :ip radius)
        (precision.ns :ip precision))
 (defrevzone binswood
   :ns ((radius.ns :ip radius)
        (precision.ns :ip precision))