distorted.lisp: Add SPF records for mail servers.

diff --git a/distorted.lisp b/distorted.lisp
index 8147a62e363f9e10f50b27a041a2417e1bf351c3..8ff1a3a640d39aa07351be1c05f71df5741f29d3 100644 (file)
--- 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)
   (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)
   ((_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)
 
   ;; Anycast services.
   (dns0 :anycast ((any dns0.any) (dmz radius.dmz)

diff --git a/odin.lisp b/odin.lisp
index 73abae100c96e15e4db19f9476276c12073b5934..fc04fdec5b798c738878e17ad72ede9ed684c9d8 100644 (file)
--- a/odin.lisp
+++ b/odin.lisp
@@ -26,4 +26,7 @@ (defzone odin.gg
   ;; Mail servers
   :mx ((mail :ip stratocaster))
   :srv ((:smtp mail))
   ;; 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.))
   (_domainkey :dname stratocaster.dkim.distorted.org.uk.))