# Kanal'i belirtin.
set ara(kanal) "#Webmaster"

# Komut on eki.
set ara(komut) ".ara"

#####
# ¿ #
#####

# 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 #
#######