14 lines
488 B
Factor
14 lines
488 B
Factor
! Copyright (C) 2010 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: assocs dns io.encodings.utf8 io.files kernel
|
|
math.statistics sequences splitting system unicode.categories ;
|
|
IN: dns.unix
|
|
|
|
: load-resolve.conf ( -- seq )
|
|
"/etc/resolv.conf" utf8 file-lines
|
|
[ [ blank? ] trim ] map harvest
|
|
[ "#" head? not ] filter
|
|
[ [ " " split1 swap ] dip push-at ] sequence>hashtable "nameserver" swap at ;
|
|
|
|
M: unix initial-dns-servers load-resolve.conf ;
|