X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/9c799478caee5865a3c1029625ffe239b6b2a576..382d444fbf6310ffd1a040fde9c281a08f84eb3d:/zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 914c6c5..f68af5d 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -1037,6 +1037,11 @@ (defzoneparse :dkim (name data rec)
 		      (return))
 		    (write-string line out))))))))))
 
+(defzoneparse :dmarc (name data rec)
+  ":dmarc ({:TAG VALUE}*)"
+  (rec :type :txt
+       :data (split-txt-data (format nil "~{~(~A~)=~A~^; ~}" data))))
+
 (defenum sshfp-algorithm () (:rsa 1) (:dsa 2) (:ecdsa 3) (:ed25519 4))
 (defenum sshfp-type () (:sha-1 1) (:sha-256 2))