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

dns.server: add CNAME to rr->rdata-names

db4
Eduardo Cavazos 2008-06-14 14:45:37 -05:00
parent a36307a11b
commit 094cb776fb
1 changed files with 4 additions and 3 deletions
extra/dns/server

7
extra/dns/server/server.factor
View File

@ -50,9 +50,10 @@ IN: dns.server
: rr->rdata-names ( rr -- names/f )
{
{ [ dup type>> NS = ] [ rdata>> {1} ] }
{ [ dup type>> MX = ] [ rdata>> exchange>> {1} ] }
{ [ t ] [ drop f ] }
{ [ dup type>> NS = ] [ rdata>> {1} ] }
{ [ dup type>> MX = ] [ rdata>> exchange>> {1} ] }
{ [ dup type>> CNAME = ] [ rdata>> {1} ] }
{ [ t ] [ drop f ] }
}
cond ;