Skip to content

Instantly share code, notes, and snippets.

@kronos

kronos/xui.clj

Created October 18, 2016 08:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kronos/f66d2bcca948685ca8271b6fc0d56e0e to your computer and use it in GitHub Desktop.
Save kronos/f66d2bcca948685ca8271b6fc0d56e0e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
xui.clj
(ns clj-dns.impl.resolver
(:import [org.xbill.DNS SimpleResolver Lookup]))
(defn set-dns-address
[host port]
(Lookup/setDefaultResolver (doto (SimpleResolver. host)
(.setPort port))))
(defn record->map
[record]
{:name (-> record .getName str)
:address (.rdataToString record)})
(defn lookup
[fqdn]
(if-let [results (-> (Lookup. fqdn) .run)]
(map record->map results)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment