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

o1KnoppiX · 08 Şubat 2012, 23:19

Eyw Dostum bu işe yaradı ama benim tcl de olmadı .

house · 10 Şubat 2012, 06:40

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..."
}}

aSpeNDos · 02 Mart 2013, 03:42

Konu Kilit.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Radyo dinleyici kayit sistemi	Set	mIRC Scripting Hazır Kodlar	18	15 Mart 2020 17:27
radyo tcl dinleyici nick	S-LiveBiz	TCL Scriptler	25	01 Temmuz 2019 16:22
Radyo.TCL Dinleyici Sayısı Yüksek Gösterme.	Antalya123456	TCL Scriptler	0	24 Aralık 2012 06:33
Radyo Dinleyici	Küsqün	Eggdrop, NeoStats, BNC	7	23 Şubat 2010 09:47
Radyo Dinleyici Sayısı Artırma	CanDostu	Eggdrop, NeoStats, BNC	9	22 Şubat 2010 04:47

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.