steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

dns.resolver: use 'resolv.conf' servers by default

db4
Eduardo Cavazos 2008-10-22 10:21:36 -05:00
parent 8c3ae91ef3
commit 92abf28256
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/dns/resolver/resolver.factor
View File

@ -2,7 +2,7 @@
USING: kernel accessors namespaces continuations
io io.sockets io.binary io.timeouts io.encodings.binary
destructors
locals strings sequences random prettyprint calendar dns ;
locals strings sequences random prettyprint calendar dns dns.misc ;
IN: dns.resolver
@ -50,7 +50,11 @@ IN: dns.resolver
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: dns-servers ( -- seq ) \ dns-servers get ;
: dns-servers ( -- seq )
\ dns-servers get
[ ]
[ resolv-conf-servers \ dns-servers set dns-servers ]
if* ;
! : dns-server ( -- server ) dns-servers random ;