#radyo kanali
set sc(kanal) "#Radyo"
#dj kanali
set sc(dkanal) "#Dj"
#radyo portu
set sc(port) "2599"
#radyo ip
set sc(ip) "72.20.58.121"
#radyo sifre
set sc(sifre) "zasxcdfv2"
set SayIp "0"

#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.

bind raw – 315 who_son
bind time – "* * * * *" sc:dinleyici
proc sc:dinleyici {min hour day month year} {
global nicks SayIp
http::config -useragent "Mozilla 5.0"
set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0 -timeout 10000]
set httpraw [http::data $baglan]
set nicks ""
set ips ""
set SayIp "0"
http::cleanup $baglan

if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {
set listeraw $veri
bind raw – 352 raw_oku
regsub -all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw
foreach strListe $listeraw {
if { [regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } {
if {[regexp $ipVeri $ips] == "0"} {
lappend ips $ipVeri
incr SayIp

}
}
}
}
foreach x $ips {
putserv "who +i $x"
}
}
proc raw_oku {from keyword arg} {
global nicks
set nick [lindex $arg 5]
if {[regexp {$nick} $nicks] == "0"} {

lappend nicks $nick
}
}
proc who_son {from keyword arg} {
global nicks SayIp
set SayIp [expr $SayIp - 1]
;#putlog $SayIp
if {$SayIp == "0"} {
foreach xy [chanlist $::sc(kanal)] {
if {[regexp $xy $nicks] == "1"} {
if {[isvoice $xy $::sc(kanal)] == "0"} {
putserv "sajoin $xy $::sc(kanal)"
putserv "mode $::sc(kanal) +v $xy"
putserv "privmsg $xy :0,12 Radyomuzu dinlediginiz için teşekkürler $xy. "
}
}
if {[regexp $xy $nicks] == "0"} {
if {[isvoice $xy $::sc(kanal)] == "1"} {
putserv "mode $::sc(kanal) -v $xy"
putserv "privmsg $xy :0,2 Radyomuzu dinlemek için tıklayın: 0,6 http://72.20.58.121:2599/listen.pls "
}
}
}
#putserv "PRIVMSG $::sc(dkanal) :0,4.::. Şuanda Radyomuzu Dinleyenler .::. 0,12 $nicks "
unbind raw – 352 raw_oku
}
}