google

**Dylan** Mar 29 Déc - 4:55

Code:: # google.tcl v0.1 # by aNa|0Gue - analogue@glop.org - http://www.glop.org package require http bind pub - !help pub:help bind pub - !google pub:google proc pub:help { nick uhost handle channel arg } { putserv "NOTICE $nick :!google google sur IRC !" } proc pub:google { nick uhost handle channel arg } { if {[llength $arg]==0} { putserv "PRIVMSG $channel :hey ! tappes des mots boulet !" } else { set query "http://www.google.fr/search?btnI=&q=" for { set index 0 } { $index<[llength $arg] } { incr index } { set query "$query[lindex $arg $index]" if {$index<[llength $arg]-1} then { set query "$query+" } } # putserv "PRIVMSG $channel :$query" set token [http::geturl $query] puts stderr "" upvar #0 $token state set max 0 foreach {name value} $state(meta) { if {[regexp -nocase ^location$ $name]} { set newurl [string trim $value] putserv "PRIVMSG $channel :$newurl" } } } }