| CeSaRCripS | 16 Aralık 2012 12:51 |
Google Arama Botu google.tcl Tcl script
Merhaba, bu tcl script ile google üzerinden dosya, müzik vs araması yaptırabilirsiniz sunucunuzda. Kod:
#######################################################################
#######################################################################
# Google by CeSAR #
# v1.0 #
# #
# Gets search results from Google.com. Nothing fancy yet, just gets #
# however many returns you want. Idea is based on a script by #
# aNa|0Gue, although the code is all new. #
# #
# Latest version @
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Comments & Questions to murf@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]less.com #
#######################################################################
# Only tested on TCL v8.3 and Egg v1.6x, although I kept the code #
# generic enough for TCL v8.0 and probably v1.3 of egg. #
#######################################################################
# #
# Commands #
# #
# .google keyword(s) <# of results> #
# #
# e.g. .google murf 5 #
# #
# Version #
# v1.0 Aug 16 2002 #
# -- first version #
# #
# Contact murf@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]less.com for bugs/comments #
# This and other scripts available @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #
#######################################################################
#######################################################################
## default number of returns
set google_def_num 10
## max number of returns
set google_max 10
## public bind
set glpubbind ara
set gl_output "PRIVMSG $nick"
##########binds######################
bind pub -|- $glpubbind pub_google
##########Procs######################
proc pub_google {nick uhost handle chan search} {
global gl_ouput
set gl_output "PRIVMSG $nick"
if {[llength $search] == 0} {
puthelp "$gl_output : Ne aricagini soylemeyi unutmadin mi acaba!?"
return 0
}
set url [google_url $search $nick $chan]
google_getpage $url
return 0
}
## Google_url #############################################
## Takes input and parses to set the url, returns the url
proc google_url {search nick chan} {
global google_def_num google_max gl_output
set google_num [lindex $search end]
if {[regexp { [0-9]+} $search match $google_num]} {
if {$google_num > $google_max} { set google_num $google_max }
set search [lrange $search 0 [expr {[llength $search] - 2}]]
} else {
set google_num $google_def_num
}
if {$google_num >= 5} {
set gl_output "PRIVMSG $nick"
} else {
set gl_output "PRIVMSG $chan"
}
regsub -all { } $search {+} search
set url "/search?hl=en&num=$google_num&lr=&ie=ISO-8859-1&q=$search"
return $url
}
## google_getpage ##########################################
## gets the webpage and parses for the returns
proc google_getpage {url} {
global gl_output
## Open socket
if {[catch {set glsock [socket -async [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80]} sockerr]} {
puthelp "PRIVMSG $nick :$sockerr"
puthelp "PRIVMSG $nick :Daha sonra dene, bu sirada pencereden disari bakabilirsin!"
close $glsock
return 0
}
puts $glsock "GET $url"
flush $glsock
set i 0
set j 1
set glout [gets $glsock]
while {[regexp {Dissatisfied with your results?} $glout] == 0} {
set glout [gets $glsock]
incr i
if {$i >= 150} {
break
}
if {[regexp {#008000>(.*?) - } $glout match gl_result($j)]} {
puthelp "$gl_output :$j. http://$gl_result($j)"
incr j
}
}
close $glsock
return 0
}
putlog "Google v1.0 by CeSaR loaded"
| 