~mdw
/
zone
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
zone.lisp: TXT record data is always a list of strings.
[zone]
/
zone.lisp
diff --git
a/zone.lisp
b/zone.lisp
index
b9da45e
..
633e0d4
100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-439,7
+439,7
@@
(ttl min-ttl)
(serial (make-zone-serial zname)))
(listify head)
(ttl min-ttl)
(serial (make-zone-serial zname)))
(listify head)
- (values
zname
+ (values
(string-downcase zname)
(timespec-seconds ttl)
(make-soa :admin admin
:source (zone-parse-host source zname)
(timespec-seconds ttl)
(make-soa :admin admin
:source (zone-parse-host source zname)
@@
-632,8
+632,8
@@
(rec :data (zone-parse-host data zname)))
(defzoneparse :txt (name data rec)
(rec :data (zone-parse-host data zname)))
(defzoneparse :txt (name data rec)
- ":txt
TEXT
"
- (rec :data
data
))
+ ":txt
(TEXT*)
"
+ (rec :data
(listify data)
))
(export '*dkim-pathname-defaults*)
(defvar *dkim-pathname-defaults*
(export '*dkim-pathname-defaults*)
(defvar *dkim-pathname-defaults*
@@
-821,7
+821,7
@@
:ttl (zr-ttl zr) :data (zr-name zr))
(setf (gethash name seen) t))))))))))
:ttl (zr-ttl zr) :data (zr-name zr))
(setf (gethash name seen) t))))))))))
-(defzoneparse
(:multi)
(name data rec :zname zname :ttl ttl)
+(defzoneparse
:multi
(name data rec :zname zname :ttl ttl)
":multi (((NET*) &key :start :end :family :suffix) . REC)
Output multiple records covering a portion of the reverse-resolution
":multi (((NET*) &key :start :end :family :suffix) . REC)
Output multiple records covering a portion of the reverse-resolution
@@
-1003,7
+1003,7
@@
$TTL ~2@*~D~2%"
(cons "~2D ~2D ~A" data))
(:method ((type (eql :txt)) data)
(cons "~#[\"\"~;~S~:;(~@{~%~8T~S~} )~]"
(cons "~2D ~2D ~A" data))
(:method ((type (eql :txt)) data)
(cons "~#[\"\"~;~S~:;(~@{~%~8T~S~} )~]"
- (mapcar #'stringify
(listify data)
))))
+ (mapcar #'stringify
data
))))
(defmethod bind-record (type zr)
(destructuring-bind (format &rest args)
(defmethod bind-record (type zr)
(destructuring-bind (format &rest args)