on *:sockopen:avdet:{
sockwrite -n $sockname GET /ip_locator.php?ip= $+ %ipi HTTP/1.1
sockwrite -n $sockname Host: ipinfodb.com $+ $crlf $+ $crlf
}
on *:sockread:avdet:{
if ($sockerr) {
msg %kanals Hata!
halt
}
set %avdet
sockread %avdet
if $regex($htmlfree(%avdet),/^((IP\saddress|Country|State/Province|City|Zip\sor\spostal\scode|Latitude|Longitude|Timezone|Local\stime|Hostname)\s:)/i) {
msg %kanals $htmlfree(%avdet)
}
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
on *:text:*:#sn-system:if $regex($1,/^(!dns)$/i) { sockclose avdet | set %ipi $2 | set %kanals # | sockopen avdet ipinfodb.com 80 | who +i %ipi }