ljuska-stats

bind pub - !statistika pub_statistika

package require http

proc pub_statistika {nick host hand channel ljuska} {

set url "http://www.ljuska.org/"
set token [ ::http::geturl $url ]
set page [ ::http::data $token ]
set ljuska [ regexp -all -inline {<td class="row1"><img src="./styles/ljuska_radio2/theme/images/stats.gif" alt="Statistics" /></td>.*?</table>} $page ]
regsub -all {<.*?>} $ljuska "" ljuska
regsub -all "\[\t\n\]" $ljuska { } ljuska
regsub -all -- {\}} $ljuska {} ljuska
regsub -all -- {\{} $ljuska {} ljuska
regsub -all {Total posts} $ljuska "\002Total posts:\002" ljuska
regsub -all {Total topics} $ljuska "\002Total topics:\002" ljuska
regsub -all {Total members} $ljuska "\002Total members:\002" ljuska
regsub -all {Our newest member} $ljuska "\002Our newest member:\002" ljuska
putserv "privmsg $channel :Ljuska.Org statistika: $ljuska"

}