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