extra/dns/misc/misc.factor

   1
   2 USING: kernel sequences splitting io.files io.encodings.utf8 random newfx ;
   3
   4 IN: dns.misc
   5
   6 : resolv-conf-servers ( -- seq )
   7   "/etc/resolv.conf" utf8 file-lines
   8   [ " " split ] map
   9   [ 1st "nameserver" = ] filter
  10   [ 2nd ] map ;
  11
  12 : resolv-conf-server ( -- ip ) resolv-conf-servers random ;