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

dns.stub: A stub resolver

db4
Eduardo Cavazos 2008-05-31 07:29:54 -05:00
parent bca323f2bb
commit b440a63406
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extra/dns/stub/stub.factor Normal file
View File

@ -0,0 +1,20 @@
USING: kernel sequences random accessors dns ;
IN: dns.stub
! Stub resolver
!
! Generally useful, but particularly when running a forwarding,
! caching, nameserver on localhost with multiple Factor instances
! querying it.
: name->ip ( name -- ip )
A IN query boa
query->message
ask
dup rcode>> NAME-ERROR =
[ message-query name>> name-error ]
[ answer-section>> [ type>> A = ] filter random rdata>> ]
if ;