Add dns.misc

db4
Eduardo Cavazos 2008-06-01 10:46:02 -05:00
parent 0e655a204d
commit f0e3008317
1 changed files with 12 additions and 0 deletions
extra/dns/misc

View File

@ -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 ;