@program dnslookup.muf
1 1000 d
i
$include $lib/alynna
$include $lib/tcpip
lvar param
 
: dns
var result
param @ "0.11.184" 53 rpc result !
str param @ " DNS result: " result @ cat "DNS" pretty tellme
;
 
: rdns
var result
"" param @ 54 rpc result !
str param @ " reverse DNS result: " result @ cat "RDNS" pretty tellme
;
 
: dnslookup
param !
param @ not if
 "Format: +dns <person/place/thing> or +rdns <ip>" "DNS" pretty tellme exit
then
command @ "+dns" smatch if dns exit then
command @ "+rdns" smatch if rdns exit then
;
.
c
q