keys/, distorted.lisp: Add SSHFP recortds for virtual servers.

[zones] / binswood.lisp

diff --git a/binswood.lisp b/binswood.lisp
index 537595c..12342ff 100644 (file)
--- a/binswood.lisp
+++ b/binswood.lisp
@@ -17,8 +17,14 @@
        (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-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.
   (binswrt :a binswrt.binswood)
@@ -29,18 +35,18 @@
 
   ;; Dynamic addresses.
   (dyn :ns ((radius.ns.dyn :ip radius)
-           (vampire.ns.dyn :ip vampire)
            (precision.ns.dyn :ip precision)
            (telecaster.ns.dyn :ip telecaster)
-           (national.ns.dyn :ip national)))
+           (national.ns.dyn :ip national)
+           (eggle.ns.dyn :ip eggle)))
   (ext :cname ext.dyn))
 
-(defzone dyn.binswood.org.uk
+(defzone (dyn.binswood.org.uk :source telecaster.distorted.org.uk.)
   :ns ((radius.ns :ip radius)
-       (vampire.ns :ip vampire)
        (precision.ns :ip precision)
        (telecaster.ns :ip telecaster)
-       (national.ns :ip national)))
+       (national.ns :ip national)
+       (eggle.ns :ip eggle)))
 
 (defrevzone binswood
   :ns ((radius.ns :ip radius)