From 498c01428a61df0f3d534f83d4b898b33bb25e53 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Tue, 30 Apr 2024 17:33:39 +0100 Subject: [PATCH] zone.lisp: Support `DNAME' records. --- zone.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/zone.lisp b/zone.lisp index 321c091..a80428f 100644 --- a/zone.lisp +++ b/zone.lisp @@ -860,6 +860,10 @@ ":cname HOST" (rec :data (zone-parse-host data zname))) +(defzoneparse :dname (name data rec :zname zname) + ":dname HOST" + (rec :data (zone-parse-host data zname))) + (defmethod zone-record-rrdata ((type (eql :cname)) zr) (rec-name (zr-data zr)) 5) @@ -1615,6 +1619,9 @@ $TTL ~2@*~D~2%" (defmethod zone-write-record ((format (eql :bind)) (type (eql :cname)) zr) (bind-format-record zr "~A~%" (bind-hostname (zr-data zr)))) +(defmethod zone-write-record ((format (eql :bind)) (type (eql :dname)) zr) + (bind-format-record zr "~A~%" (bind-hostname (zr-data zr)))) + (defmethod zone-write-record ((format (eql :bind)) (type (eql :ns)) zr) (bind-format-record zr "~A~%" (bind-hostname (zr-data zr)))) -- 2.11.0