Nerden Tcl ( Güncel ) - IRCForumu.ORG
IRCForumu.ORG irc hosting  

Alt 14 Kasım 2021, 12:26   #1
Standart Nerden Tcl ( Güncel )

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




"Fark etmek acıydı ama gerekliydi."
 
Alıntı Yap
Alt 14 Kasım 2021, 12:39   #2
Standart

İçerik gizlenmiştir.

İçerikleri görebilmek için üye olmalı ve üye girişi yapmalısınız.
Giriş Yap Kayıt Ol




Est sularus oth mithas.
 
Alıntı Yap
Cevapla

Etiketler
güncel, nerden, tcl


Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:57.