about summary refs log tree commit diff
path: root/lisp/dns/client.lisp
diff options
context:
space:
mode:
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))