10 Şubat 2012, 06:40
|
#12 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: 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..."
}}
|
|
|
| |
Benzer Konular 
Normal
