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

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 914c6c5..f68af5d 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -1037,6 +1037,11 @@
                      (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))