From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 4 May 2024 23:34:05 +0000 (+0100)
Subject: distorted.lisp: Add SPF records for mail servers.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zones/commitdiff_plain/37a0e2783699b79dfa47018cca7f206dc7b97b5b

distorted.lisp: Add SPF records for mail servers.
---

diff --git a/distorted.lisp b/distorted.lisp
index 8147a62..8ff1a3a 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -85,7 +85,13 @@ (defzone distorted.org.uk
   (bugs :mx lists :srv ((:smtp bugs)))
   (lists :mx lists :srv ((:smtp lists)))
   ((_domainkey _domainkey.mail) :dname stratocaster.dkim)
+  ((stratocaster @ mail) :spf ((:version "spf1")
+			       (:pass :ip stratocaster.dmz)
+			       (:shrug :all)))
   ((_domainkey.bugs _domainkey.lists) :dname telecaster.dkim)
+  ((telecaster bugs lists) :spf ((:version "spf1")
+				 (:pass :ip telecaster.dmz)
+				 (:shrug :all)))
 
   ;; Anycast services.
   (dns0 :anycast ((any dns0.any) (dmz radius.dmz)
diff --git a/odin.lisp b/odin.lisp
index 73abae1..fc04fde 100644
--- a/odin.lisp
+++ b/odin.lisp
@@ -26,4 +26,7 @@ (defzone odin.gg
   ;; Mail servers
   :mx ((mail :ip stratocaster))
   :srv ((:smtp mail))
+  :spf ((:version "spf1")
+	(:pass :ip stratocaster.dmz)
+	(:shrug :all))
   (_domainkey :dname stratocaster.dkim.distorted.org.uk.))