[Heartbroken]

Şunun: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
(Şöyle Böyle!) Tcl'si ...


Kanal'daki Nick Yada IP Sorgulayabilirsiniz.

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

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Che]

Eline emeğine sağlık.

[Bülbül]

çalışmıyor neden

[Che]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sorunsuz çalışıyor.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Heartbroken]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Script'te Kullanılan putmsg
Eggdrop'la Birlikte Gelen alltools.tcl
Script'inin Sağladığı Bir Komut!


source scripts/alltools.tcl
Satırıyla .Conf'ta Gösterirseniz,
putmsg Komutunu Tanıyabilir.
Bu Script'ten Daha Üst Satırda
Ekleyin .Conf'a.


"Yüklemek İstemiyorum" Deniyorsa;
Tüm putmsg $chan " .. 'ları:
putserv "PRIVMSG $chan : .. İle
Değiştirin Yukarıdaki Script Üzerinde...


Çalışmama Sebebi Bu Olabilir.
Bota Bağlanıp Gözlerseniz,
Neden İşlemediğine Dair
İpucu Görebilirsiniz.
Komut Kullanıldığında Hata
Atılıyor Mu Vs..


Bunun Dışında Tcl Sürümü Vs..
Gibi Bir Sorun Olamaz!
Script'te kullanılan Tcl Komutları,
8.4 Ve Üzeri Tüm Tcl Sürümlerine
Uyumlu...

Olsa Olsa alltools Yüklü Olmamasındandır...

[Bülbül]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] size nasıl ulaşabilirim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 10:15 -->-> Daha önceki mesaj 10:11 --

Che Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Eline emeğine sağlık.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sunucuna geldim bakar mısın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.