ForumTEK.Net - IRC Forumu - Google Sıra Bulucu TCL

.ara <url> <kelime> seklinde calismaktadir.
Ornek: .ara forumtek.net unrealircd gibi...

Duzenlemeniz gereken kisimlar:

Kod:

# Kanal'i belirtin.

set ara(kanal) "#Webmaster"



# Komut on eki.

set ara(komut) ".ara"

Kod:

#####

# ¿ #

#####



# Kanal'i belirtin.

set ara(kanal) "#Webmaster"



# Komut on eki.

set ara(komut) ".ara"



##########

# CISS ! #

##########



bind pub – $ara(komut) ara:sira

proc ara:sira {nick uhost hand chan text} {

global botnick ara

        if {[string match -nocase $ara(kanal) $chan]} {

                set url "[lindex $text 0]"

                set keyword "[lrange $text 1 end]"

                regsub -all " " $keyword "%20" keyword

                if {$url == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara <url> <kelime> seklindedir."; return 0 }

                if {$keyword == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara $url <kelime> seklindedir."; return 0 }

                set apiweb "http://proje.ircdepo.tk/sirabulucu/api.xml?url=$url&keyword=$keyword"

                catch {set sayfa [::http::geturl $apiweb -timeout 5000]} error

                if {[string match -nocase "*couldn't open socket*" $error]} {

                        putquick "PRIVMSG $chan :Hata: Suan siteye baglanilamiyor... Daha sonra tekrar deneyiniz..."

                        ::http::cleanup $sayfa

                        return 0

                }

                if {[::http::status $sayfa] == "*timeout*"} {

                        putquick "PRIVMSG $chan :Hata: Baglanti zaman asimina ugradi..."

                        ::http::cleanup $sayfa

                        return 0

                }

                set html "[::http::data $sayfa]"

                ::http::cleanup $sayfa

                regexp -nocase {<url>(.*?)</url>} $html match adres

                regexp -nocase {<kelime>(.*?)</kelime>} $html match kelime

                regexp -nocase {<sira>(.*?)</sira>} $html match sira

                putquick "PRIVMSG $chan :12G4o8o12g3l4e 1siralamaniz asagida yer almaktadir:"

                putquick "PRIVMSG $chan :"

                putquick "PRIVMSG $chan :10Aranan(lar):"

                putquick "PRIVMSG $chan :1Url:12 $url"

                regsub -all "%20" $keyword " " keyword

                putquick "PRIVMSG $chan :1Kelime:12 $keyword"

                putquick "PRIVMSG $chan :"

                putquick "PRIVMSG $chan :10Sonuc(lar):"

                if {$sira == ""} { set sira "YOK" }

                putquick "PRIVMSG $chan :1Siraniz:12 $sira"

                putquick "PRIVMSG $chan :"

                putquick "PRIVMSG $chan :12G4o8o12g3l4e 1sorgulama sonu..."

                ::http::cleanup $html

        }

}



#######

# SON #

#######

Yapımcısı; ¿