chiark / gitweb /
distorted.lisp: Actually publish default addresses for public services.
authorMark Wooding <mdw@distorted.org.uk>
Wed, 27 Jan 2016 18:06:18 +0000 (18:06 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Wed, 27 Jan 2016 18:06:18 +0000 (18:06 +0000)
I broke these by adding the TLSA records carelessly.  Maybe the zone
program should be fixed.

distorted.lisp

index 5f03355..860d822 100644 (file)
@@ -142,12 +142,12 @@ (defzone distorted.org.uk
 
   ;; 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")
-               (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"))