Kod : Kodu kopyalamak için üzerine çift tıklayın!

         package require http

bind pub mnf|oa .ip getip

proc getip {nick uhost hand chan arg} {
    if {![llength [lindex [split $arg] 0]]} {
        putmsg $chan "Kullanımı: \00303$::lastbind <Nick Yada IP>\003 olmalı!"
        return 0
    } elseif {[onchan [lindex [split $arg] 0] $chan] &&\
            [regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]} {
        set albil [baglan [lindex [split [getchanhost [lindex [split $arg] 0]] @] 1]]
        putmsg $chan $albil
    } elseif {[regexp -- {^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$} [lindex [split $arg] 0] -> ip]} {
        set albil [baglan $ip]
        putmsg $chan $albil
    } else {
        putmsg $chan "\"[lindex [split $arg] 0]\" Geçerli bir IP/Nick değil ${nick}!"
    }
    return 0
}

proc tercume str {
        string map -nocase[list Hostname Host\
        Continent Kıta City Şehir\
        Country Ülke Code Kodu Region Bölgesi\
        Organization Organizasyon Longitude Boylam Latitude Enlem\
        Mobile Mobil Proxy Proksi Turkey Türkiye false yanlış\
        &amp\; & Germany Almanya Europe Avrupa Asia Asya] $str
}

proc baglan ip {
    set tok [http::geturl http://igs.gevezeyiz.net/bilgi.php?ip=$ip]
    set dt [http::data $tok]
    ::http::cleanup $tok
    regsub -all -- {\n} $dt { } dt
    regsub -all -- {<span>(.*?):</span> <span>} $dt \002\\1\002:\00304 dt
    regsub -all -- {</span><br/>} $dt \003 dt
    lappend cikti [string trim $dt]
    return [join [tercume $cikti]]
}