From b868d3f442cc210f04bc4f0cfa44de12d9c2f2ae Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Wed, 4 Jul 2018 18:44:40 +0100 Subject: [PATCH] distorted.lisp: Do the split-horizon thing for TLSA records. Organization: Straylight/Edgeware From: Mark Wooding --- distorted.lisp | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/distorted.lisp b/distorted.lisp index 22f6726..59a3768 100644 --- a/distorted.lisp +++ b/distorted.lisp @@ -162,12 +162,16 @@ (defzone distorted.org.uk (www-cache :tlsa (3127 #1=(:trust-anchor-assertion :certificate :sha-256 #p"distorted-ca"))) (mail :tlsa ((:submission :imap :imaps) #1# #3#)) - (mail :tlsa (:smtp #1# - (:domain-issued-certificate - :public-key :sha-256 #p"smtps-stratocaster"))) - ((bugs lists) :tlsa (:smtp #1# - (:domain-issued-certificate - :public-key :sha-256 #p"smtps-telecaster"))) + (mail :tlsa (:smtp + #+view/inside #1# + #-view/inside (:domain-issued-certificate + :public-key :sha-256 + #p"smtps-stratocaster"))) + ((bugs lists) :tlsa (:smtp + #+view/inside #1# + #-view/inside (:domain-issued-certificate + :public-key :sha-256 + #p"smtps-telecaster"))) :svc #+view/inside stratocaster.colo #-view/inside stratocaster.jump (cabal :svc stratocaster.colo :sshfp "stratocaster") -- [mdw]