Print a newline after each TXT message in DNS.
parent
250d96d7b1
commit
1e78347643
|
@ -351,7 +351,7 @@ M: TXT rdata>byte-array
|
||||||
] map ;
|
] map ;
|
||||||
|
|
||||||
: TXT. ( domain -- )
|
: TXT. ( domain -- )
|
||||||
dns-TXT-query TXT-message>strings [ [ write ] each ] each ;
|
dns-TXT-query TXT-message>strings [ [ write ] each nl ] each ;
|
||||||
|
|
||||||
: reverse-lookup ( reversed-ip -- message )
|
: reverse-lookup ( reversed-ip -- message )
|
||||||
PTR IN <query> dns-query ;
|
PTR IN <query> dns-query ;
|
||||||
|
|
Loading…
Reference in New Issue