zone.lisp: Add a parser for DMARC policy records.

diff --git a/zone.lisp b/zone.lisp
index 914c6c5310294366f3799bb86aeb2f466352fe17..f68af5dcc4af293109494bfc82e1d43b62f7d9e8 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1037,6 +1037,11 @@ (defzoneparse :dkim (name data rec)
                      (return))
                    (write-string line out))))))))))
 
                      (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))
 
 (defenum sshfp-algorithm () (:rsa 1) (:dsa 2) (:ecdsa 3) (:ed25519 4))
 (defenum sshfp-type () (:sha-1 1) (:sha-256 2))