🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
# Radyo dinleyici eklentisi
# site: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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"
#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
}
}
Ben bota raw yetkisi vermiştim Operserv yazıyor yazıları.. Kendinize göre düzenleyin..
Teşekkür ederim bana da lazımdı bu yalnız yapamadım ben. Ben şu şekilde yaptım acaba yanlışım var mı, yada nerede yanlış yapıyorum :
1 - Bu satırlar komple kopyaladım ve şu an hali hazırda kullandığım Radyo.tcl 'nin en altına kopyaladım
2- Radyo botunu Oper Komutu girdirdim ircop seviyesinde