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

tools.dns: Show ipv6 ips in host command.

db4
Doug Coleman 2012-10-10 15:00:48 -07:00
parent 67e63615bd
commit 89c262982c
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/tools/dns/dns.factor
View File

@ -6,10 +6,20 @@ IN: tools.dns
: a-line. ( host ip -- )
[ write " has address " write ] [ print ] bi* ;
: aaaa-line. ( host ip -- )
[ write " has IPv6 address " write ] [ print ] bi* ;
: a-message. ( message -- )
[ message>query-name ] [ message>a-names ] bi
[ a-line. ] with each ;
: (aaaa-message.) ( message -- )
[ message>query-name ] [ message>aaaa-names ] bi
[ aaaa-line. ] with each ;
: aaaa-message. ( message -- )
[ a-message. ] [ (aaaa-message.) ] bi ;
: mx-line. ( host pair -- )
[ write " mail is handled by " write ]
[ first2 [ number>string write bl ] [ print ] bi* ] bi* ;
@ -20,5 +30,5 @@ IN: tools.dns
: host ( domain -- )
[ dns-A-query a-message. ]
[ dns-AAAA-query a-message. ]
[ dns-AAAA-query aaaa-message. ]
[ dns-MX-query mx-message. ] tri ;