From f0e3008317d7373c3174ea4b39e76531c1ba78bc Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 1 Jun 2008 10:46:02 -0500
Subject: [PATCH] Add dns.misc

---
 extra/dns/misc/misc.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 extra/dns/misc/misc.factor

diff --git a/extra/dns/misc/misc.factor b/extra/dns/misc/misc.factor
new file mode 100644
index 0000000000..90731cec43
--- /dev/null
+++ b/extra/dns/misc/misc.factor
@@ -0,0 +1,12 @@
+
+USING: kernel sequences splitting io.files io.encodings.utf8 random newfx ;
+
+IN: dns.misc
+
+: resolv-conf-servers ( -- seq )
+  "/etc/resolv.conf" utf8 file-lines
+  [ " " split ] map
+  [ 1st "nameserver" = ] filter
+  [ 2nd ] map ;
+
+: resolv-conf-server ( -- ip ) resolv-conf-servers random ;
\ No newline at end of file