# Radyo dinleyici eklentisi
# site:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# Alinti: SaW
# Duzenleyen: aCoustiC
#radyo kanali
set sc(kanal) "#radyo"
#radyo portu
set sc(port) "7979"
#radyo ip
set sc(ip) "174.36.194.119"
#radyo sifre
set sc(sifre) "adminsifremiz"
bu tcl kodun mirc versionu varmı arkadaşlar
#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 #radyo"
putserv "mmmode $::sc(kanal) +v $xy"
}
}
if {[regexp $xy $nicks] == "0"} {
if {[isvoice $xy $::sc(kanal)] == "1"} {
putserv "mmmode $::sc(kanal) -v $xy"
}
}
}
putserv "os raw :operserv PRIVMSG $::sc(kanal) :\02 0,4.::. Radyomuzu Dinleyenler .::.\02 0,1 $nicks"
unbind raw - 352 raw_oku
}
}