package require http
bind pub - !stats foo
proc foo {n u h c a} {
set nick [lindex [split $a] 0]
if {$nick!=""} {
set data [::http::geturl http://torrentelite.com/ircstats.php?search=$nick]
foreach line [split [::http::data $data] \n] {
putserv "PRIVMSG $c :$line"
}
::http::cleanup $data
}
}