[immortaL]

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

#####
# .. #
#####

# 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 "https://www.sirabul.tk/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 -- {<hata>(.*?)</hata>} $html match hata
		regexp -- {<hataGoogle>(.*?)</hataGoogle>} $html match hataGoogle
		regexp -- {<hataBing>(.*?)</hataBing>} $html match hataBing
		regexp -- {<hataYandex>(.*?)</hataYandex>} $html match hataYandex
		regexp -- {<sonucGoogle>(.*?)</sonucGoogle>} $html match sonucGoogle
		regexp -- {<sonucBing>(.*?)</sonucBing>} $html match sonucBing
		regexp -- {<sonucYandex>(.*?)</sonucYandex>} $html match sonucYandex
		regexp -- {<gsira>(.*?)</gsira>} $html match gsira
		regexp -- {<glink>(.*?)</glink>} $html match glink
		regexp -- {<bsira>(.*?)</bsira>} $html match bsira
		regexp -- {<blink>(.*?)</blink>} $html match blink
		regexp -- {<ysira>(.*?)</ysira>} $html match ysira
		regexp -- {<ylink>(.*?)</ylink>} $html match ylink
		set glogo "12G4o7o12g3l4e"
		set blogo "12Bing"
		set ylogo "4Y1andex"
		if {[info exists hata]} {
			putquick "PRIVMSG $chan :1$hata"
		}
		if {![info exists hata]} {
			putquick "PRIVMSG $chan :1Arama motorlari siralamalariniz asagida yer almaktadir:"
			putquick "PRIVMSG $chan :"
			putquick "PRIVMSG $chan :10Aranan(lar):"
			putquick "PRIVMSG $chan :4Url:2 $url"
			regsub -all "%20" $keyword " " keyword
			putquick "PRIVMSG $chan :4Kelime:2 $keyword"
			putquick "PRIVMSG $chan :"
			if {[info exists hataGoogle]} {
				putquick "PRIVMSG $chan :$glogo: 2$hataGoogle"
				putquick "PRIVMSG $chan :"
			}
			if {[info exists sonucGoogle]} {
				putquick "PRIVMSG $chan :$glogo 10siralamaniz"
				putquick "PRIVMSG $chan :4Siraniz:2 $gsira"
				putquick "PRIVMSG $chan :4Link:2 $glink"
				putquick "PRIVMSG $chan :"
			}
			if {[info exists hataBing]} {
				putquick "PRIVMSG $chan :$hlogo: 2$hataBing"
				putquick "PRIVMSG $chan :"
			}
			if {[info exists sonucBing]} {
				putquick "PRIVMSG $chan :$blogo 10siralamaniz"
				putquick "PRIVMSG $chan :4Siraniz:2 $bsira"
				putquick "PRIVMSG $chan :4Link:2 $blink"
				putquick "PRIVMSG $chan :"
			}
			if {[info exists hataYandex]} {
				putquick "PRIVMSG $chan :$ylogo: 2$hataYandex"
				putquick "PRIVMSG $chan :"
			}
			if {[info exists sonucYandex]} {
				putquick "PRIVMSG $chan :$ylogo 10siralamaniz"
				putquick "PRIVMSG $chan :4Siraniz:2 $ysira"
				putquick "PRIVMSG $chan :4Link:2 $ylink"
				putquick "PRIVMSG $chan :"
			}
			putquick "PRIVMSG $chan :1Sorgulama sonu..."
		}
		::http::cleanup $html
	}
}

putlog "sira-bulucu-v3.tcl by TCL"

#######
# SON #
#######