devba-new-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
regsub -all {Total posts} $devba "\002Ukupno postova:\002\0033" devba
regsub -all {Total topics} $devba "\0034\u2022\003 \002Ukupno tema:\002\0033" devba
regsub -all {Total members} $devba "\0034\u2022\003 \002Ukupno korisnika:\002\0033" devba
regsub -all {Our newest member} $devba "\0034\u2022\003 \002Najnoviji korisnik:\002\0033" devba
putserv "privmsg $channel \00315Dev.ba statistika:\003 [encoding convertto utf-8 $devba]"
}