~mdw
/
zone
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e1528fd
)
zone.lisp: Add support for TXT records.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 22 May 2011 14:28:14 +0000
(15:28 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 22 May 2011 14:34:20 +0000
(15:34 +0100)
zone.lisp
patch
|
blob
|
blame
|
history
diff --git
a/zone.lisp
b/zone.lisp
index
8dc3df0
..
0e0ed47
100644
(file)
--- a/
zone.lisp
+++ b/
zone.lisp
@@
-575,6
+575,10
@@
":cname HOST"
(rec :data (zone-parse-host data zname)))
":cname HOST"
(rec :data (zone-parse-host data zname)))
+(defzoneparse :txt (name data rec)
+ ":txt TEXT"
+ (rec :data data))
+
(defzoneparse :mx (name data rec :zname zname)
":mx ((HOST :prio INT :ip IPADDR)*)"
(dolist (mx (listify data))
(defzoneparse :mx (name data rec :zname zname)
":mx ((HOST :prio INT :ip IPADDR)*)"
(dolist (mx (listify data))