# 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
    }
}