distorted.lisp: Actually publish default addresses for public services.

I broke these by adding the TLSA records carelessly.  Maybe the zone
program should be fixed.

diff --git a/distorted.lisp b/distorted.lisp
index 5f03355eb843c608e4d8ad39b75a60e8b2be9435..860d822998a65d657a544ced110b1ea2335e0afc 100644 (file)
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -142,12 +142,12 @@ (defzone distorted.org.uk
 
   ;; Colocated services.
   ((irc vox keys wiki) (colo :svc jazz.colo :sshfp "jazz")
 
   ;; Colocated services.
   ((irc vox keys wiki) (colo :svc jazz.colo :sshfp "jazz")

-                      (jump :svc jazz.jump :sshfp "jazz")
-                      :tlsa (:https (:service-certificate-constraint
+                      (jump :svc jazz.jump :sshfp "jazz"))
+  ((irc vox keys wiki) :tlsa (:https (:service-certificate-constraint

                                      :public-key :sha-256 #p"https-jazz")))
   ((bugs lists) (colo :svc telecaster.colo :sshfp "telecaster")
                                      :public-key :sha-256 #p"https-jazz")))
   ((bugs lists) (colo :svc telecaster.colo :sshfp "telecaster")

-               (jump :svc telecaster.jump :sshfp "telecaster")
-               :tlsa (:https (:service-certificate-constraint
+               (jump :svc telecaster.jump :sshfp "telecaster"))
+  ((bugs lists) :tlsa (:https (:service-certificate-constraint

                               :public-key :sha-256 #p"https-telecaster")))
   ((git www mail) (colo :svc stratocaster.colo :sshfp "stratocaster")
                  (jump :svc stratocaster.jump :sshfp "stratocaster"))
                               :public-key :sha-256 #p"https-telecaster")))
   ((git www mail) (colo :svc stratocaster.colo :sshfp "stratocaster")
                  (jump :svc stratocaster.jump :sshfp "stratocaster"))