Tcl de recherche google Googlesearch.tcl
#1
Voici un code assez basique que je viens de développer.

Vous pouvez me faire part de vos suggestions, améliorations etc.

TCL
#############
## GNU/GPL ##
######################################
# see www.gnu.org/licenses/agpl.txt  #
######################################
 
set ::cmd "!search"
set ::lastcmd "!lastsearch"
set ::author "BlackNight"
set ::version "1.0"
 
set ::chan {
"#ch@os"
"#les-tenebres"
"#la_tour_des_anges"
}
 
bind pub - $::cmd google_search
bind pub - $::lastcmd google_lastsearch
 
proc google_search {nick host hand chan arg} {
foreach google $::chan {
 if [string match -nocase $google $chan]  {
set ::search [join [lrange $arg 0 end] +]
set ::url "http://www.google.fr/search?hl=fr&q=$::search"
set ::unick $nick
putquick "PRIVMSG $chan :\002\00307$::unick \00312votre recherche se trouve sur\00303 $::url \002\003"
}
}
}
 
 
proc google_lastsearch {nick host hand chan arg} {
foreach google $::chan {
 if [string match -nocase $google $chan]  {
putquick "PRIVMSG $chan :\002\00312La dernière recherche effectuée par\00312\00307 $::unick\00307 \00312est\00312 \00303$::url\00303\002"
}
}
}
 
putlog "GoogleSearch $::version par $::author chargé avec succès"


Répondre Avertir


Messages dans ce sujet
Tcl de recherche google Googlesearch.tcl - par BlackNight - 11/08/2009, 16:16

Atteindre :


Utilisateur(s) parcourant ce sujet : 2 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté