IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - radyo.tcl de dinleyici Sayısı nasıl arttırılır ?

Alıntı:

proc listener { target } {
global streamip streamport streampass
putlog "shoutcast: $target requested listener count"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]
set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]
set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]]
set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]]
}}
close $sock
putserv "notice $target :0,14 Şuanda radyomuzu 15,1 ([expr $repl + 50]) 0,14 Kişi Dinlemekte. 0,14 Enfazla dinleyici sayısı 15,1 ([expr $maxl, + 50]) 0,14'dir. 0,14 Aynı anda en fazla dinleyici sayımız 15,1 ([expr $curhigh + 50])0,14 Kişidir..."
}}

Bunu radyo.tcl içindekiyle değiştir. +50 fazla gösteriyo kafana göre değişirsin onu.
Tüm iş şu kısımda;

Alıntı:

putserv "notice $target :0,14 Şuanda radyomuzu 15,1 ([expr $repl + 50]) 0,14 Kişi Dinlemekte. 0,14 Enfazla dinleyici sayısı 15,1 ([expr $maxl, + 50]) 0,14'dir. 0,14 Aynı anda en fazla dinleyici sayımız 15,1 ([expr $curhigh + 50])0,14 Kişidir..."
}}