# Last version of egglib_pub can be grabbed here:
# http://eggdrop.org.ru/scripts/egglib.zip

if { ![info exists egglib(ver)] || [expr {$egglib(ver) < 1.2}] } {
  putlog "***********************************************"
  putlog "   egglib_pub NOT FOUND OR VERSION IS TOO OLD!"
  putlog "   Download last version of egglib_pub here:"
  putlog "http://eggdrop.org.ru/scripts/egglib_pub.zip"
  putlog "***********************************************"
  die
}

bind pub - .ss pub_kzstats
bind pub - .servers pub_kzstats

proc pub_kzstats {nick uhost hand chan args} {

  # Путь к нашему скрипту
  set query "http://localhost/denwer/cs.php"
  set snum "S1"

  set id [::egglib::http_init "pub_kzstats_"]
 ::egglib::http_get $id $query [list $nick $uhost $chan]
}


proc pub_kzstats_on_error {id nick uhost chan} {
       ::egglib::out $nick $chan "OFF"
}

proc pub_kzstats_on_data {id data nick uhost chan} {

putlog "kzstat command"

foreach line [split $data \n] {

       if { [regexp -nocase -- {<cut>(.*?)</cut>} $line garb kzstat] } {
               putserv "PRIVMSG $chan $kzstat"
       }
}

}