about summary refs log tree commit diff
path: root/lisp/dns/client.lisp
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@google.com>2020-01-27T00·47+0000
committerVincent Ambo <tazjin@google.com>2020-01-27T00·47+0000
commit90dd82460637c58ae0aea464b37e50a051b425d4 (patch)
treef7103dab2bbb2f354f55caadaf952a0e9bcd39ed /lisp/dns/client.lisp
parenta8c9058a58b9d444fac09a07934ae090fe68bd93 (diff)
feat(lisp/dns): Support CNAME & NS record RDATAs r/464
Diffstat (limited to 'lisp/dns/client.lisp')
-rw-r--r--lisp/dns/client.lisp8
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/dns/client.lisp b/lisp/dns/client.lisp
index e261c75a9335..01d403a600dd 100644
--- a/lisp/dns/client.lisp
+++ b/lisp/dns/client.lisp
@@ -74,3 +74,11 @@
 (defun lookup-mx (name &key (doh-url *doh-base-url*))
   "Look up the MX records at NAME."
   (lookup-generic name "MX" doh-url))
+
+(defun lookup-cname (name &key (doh-url *doh-base-url*))
+  "Look up the CNAME records at NAME."
+  (lookup-generic name "CNAME" doh-url))
+
+(defun lookup-ns (name &key (doh-url *doh-base-url*))
+  "Look up the NS records at NAME."
+  (lookup-generic name "NS" doh-url))