~mdw
/
zones
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
distorted.lisp: Add SPF records for mail servers.
[zones]
/
distorted.lisp
diff --git
a/distorted.lisp
b/distorted.lisp
index
aa3a375
..
8ff1a3a
100644
(file)
--- a/
distorted.lisp
+++ b/
distorted.lisp
@@
-82,10
+82,16
@@
;; Mail servers.
((@ mail blackhole) :mx mail :srv ((:smtp mail)))
;; Mail servers.
((@ mail blackhole) :mx mail :srv ((:smtp mail)))
- (
(bugs) :ttl 300
:mx lists :srv ((:smtp bugs)))
- (
(lists) :ttl 300
:mx lists :srv ((:smtp lists)))
+ (
bugs
:mx lists :srv ((:smtp bugs)))
+ (
lists
:mx lists :srv ((:smtp lists)))
((_domainkey _domainkey.mail) :dname stratocaster.dkim)
((_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)