Unnamed

on $*:TEXT:/^[@!.]stats/Si:#:{ hadd -m $+(stats.,$replace($2,$chr(32),+,_,+,-,+)) disp $iif($left($1,1) == @,msg $chan,notice $nick) | sockopen $+(stats.,$replace($2,$chr(32),+,_,+,-,+)) parsers.freehostia.com 80 }

on *:SOCKOPEN:stats.*:{ var %a = sockwrite -nt $sockname | %a GET $+(/parsers/statsoww.php?rsname=,$replace($gettok($sockname,2,46),_,-,-,+)) HTTP/1.1 | %a Host: parsers.freehostia.com $+ $crlf $+ $crlf }

on *:SOCKREAD:stats.*:{ var %a | sockread -f %a | tokenize 32 %a | if (($1 != END) && ($remove($2,$chr(44)) isnum)) { set %line %line $1 $+ : $3 } | if ($1 == END) { $hget($sockname,disp) Stats for: $gettok($sockname,2,46) | $hget($sockname,disp) $remove(%line,HTTP/1.1:,Content-Length::,OK) | unset %line | hfree $sockname | sockclose $sockname | halt } }