distorted.lisp: Add delegation for `play' subdomain, for experiments.

[zones] / escorted.lisp

diff --git a/escorted.lisp b/escorted.lisp
index 3e4b5edc30d817354c5e26d41f0ed1f12c5e1357..e2f542d962e8de9a611cf638d11c445a7f7b7ce5 100644 (file)
--- a/escorted.lisp
+++ b/escorted.lisp
@@ -9,15 +9,21 @@ (setf *default-zone-source* 'radius.distorted.org.uk.)
 (defzone escorted.org.uk
 
   ;; Nameservers
 (defzone escorted.org.uk
 
   ;; Nameservers

-  :ns ((radius-ns :ip radius)
-       (precision-ns :ip precision)
-       (telecaster-ns :ip telecaster)
+  :ns ((radius.ns :ip radius)
+       (precision.ns :ip precision)
+       (telecaster.ns :ip telecaster)
+       (national.ns :ip national)

        (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))

 
   ;; Web service.
   ((@ www) :svc stratocaster)
 
 
   ;; Web service.
   ((@ www) :svc stratocaster)
 

+  ;; Certification.
+  :caa ((:issue "letsencrypt.org")
+       (:issue "distorted.org.uk"))
+

   ;; Mail servers
   :mx ((mail :ip stratocaster))
   :srv ((:smtp mail))
   ;; Mail servers
   :mx ((mail :ip stratocaster))
   :srv ((:smtp mail))