ForumAilem.Com - Paylasimin Yeni Adresi

Kod:
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 }