on *:input:*: {
if ($1 == !ipv6dns) {
ipv6dns $2
[color:green]; set %ipv6output $active[/color]
}
}
alias ipv6dns {
set %ipv6host $1
sockopen ipv6 www.dnsstuff.com 80
}
on *:sockopen:ipv6: {
sockwrite -n $sockname get /tools/lookup.ch?name= $+ %ipv6host $+ &type=AAAA HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT)
sockwrite -n $sockname Host: www.dnsstuff.com $+ $crlf $+ $crlf
sockwrite -n $sockname Accept-Language: en-us
sockwrite -n $sockname Accept-Encoding: gzip, deflate
sockwrite -n $sockname Accept: */*
}
on *:sockread:ipv6: {
if ($sockerr) {
echo -a Error.
halt
}
else {
var %temptext
sockread %temptext
if (*<TR><TD> $+ %ipv6host $+ * iswm %temptext) {
echo -a Resolved %host to ipv6 address $left($gettok(%temptext,11,62),-4)
unset %host
sockclose ipv6
}
if (*No AAAA records* iswm %temptext) {
echo -a No ipv6 entry found.
unset %host
sockclose ipv6
}
}
}