devba-stats

bind pub - !statistika pub_statistika

package require http

proc pub_statistika {nick host hand channel devba} {
set url "http://www.dev.ba/"
  set token [ ::http::geturl $url ]
  set page [ ::http::data $token ]
set devba [ regexp -all -inline {<h3>Statistics</h3>.*?</strong></p>} $page ]
regsub -all {&bull;} $devba "\u2022" devba
regsub -all {<.*?>} $devba "" devba
regsub -all {Statistics} $devba "" devba
regsub -all "\[\t\n\]" $devba { } devba
regsub -all -- {\}} $devba {} devba
regsub -all -- {\{} $devba {} devba
putserv "privmsg $channel Statistika Dev.BA - [encoding convertto utf-8 $devba]"
}