#********************************************************************
# İstatistik v1 Yapımcı :Armağan YÜKSEL
# 
# İrc serverdaki kanalları ve user sayılarını .txt dosyasına kaydeder.
# 3 dk. sonra kendini günceller. (Süreyi kendiniz ayarlayabilirsiniz)
# Yazacağınız herhangi bir javascript,php,asp ..vs koduyla dosyayı okutup,
# web sayfasina yansıtabilirsiniz. Çalışan halini;
# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinde görebilirsiniz.
# ********************************************************************

#Verilerin tutulacagi dosya adi.Yol belirtemyip sadece istatistik.txt seklinde yazarsaniz,
#Eggdrop kalsorunde botunuzun .conf dosyasinin oldugu dizine yaratacaktir ve web sitenizden dosyayi okuyamiyacaksiniz.
#Bu yuzden dosyayi web klasorunuzun icine yaratmaniz gerekiyor. 
set dosyaadi "/home/xxx/public_html/istatistik.txt"

#bindler
bind join - * listcek
bind raw -|- 322 listele_ve_yaz

#Bot servera baglandiginda /list cekiyor..
proc listcek {args} {
global chan dosyaadi
putserv "LIST"
#Burda dosya yoksa yaratiyor. 3dk sonra geri dondugunde dosyayi temizliyor.
set fs [open "$dosyaadi" w]
close $fs 
}

#Bot /list komutuyla gelen verilerin icersinden kanal isimlerini ve kisi sayilarini aliyor.
proc listele_ve_yaz {from key arg} {
global kanal kisi dosyaadi
#burda verileri aliyor
set kanal [lindex $arg 1]
set kisi [lindex $arg 2]
#burda dosyaya yaziyor.
set fs [open "$dosyaadi" a]
#Ben kendi web sayfamdaki tasarimima gore dosyaya <div>'ler ve style'larla beraber yazmasini istedim.
#Ozellikle silmedimki belki sizede yardimci olur.
#Siz "" icini kendinize gore ayarlayabilir yada sadece $kanal ve $kisi yazarak bu bilgileri yazdirabilirsiniz. 
puts $fs "<div style=\"float:left; padding:3px; width:150px;\"><span style=\"font-weight:bold; color:black;\">$kanal:</span>$kisi kisi</div>"
close $fs
#burda 3 dk. bekliyor ve tekrar basa donuyor.(Boylelikle yeniden /list cekilmesini sagliyor ve
#verilerin oldugu dosyayi yeni verilerin yazilmasi icin temizliyor.
timer 3 listcek
}
putlog "4Istatistik.v1 Yüklendi.."
putlog "4Yapımcı : Armağan YÜKSEL"