# Radyo dinleyici eklentisi

# site: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set sc(kanal) "#dj"

#radyo portu

set sc(port) "8000"

#radyo ip

set sc(ip) "ip"

#radyo sifre

set sc(sifre) "sifre"

 
 
#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.

bind raw - 315 who_son

 bind pub - .dinleyici dinleyici

 proc dinleyici {from keyword text} {

    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]

    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]

    if {$SayIp == "0"} {

                putserv "PRIVMSG $::sc(kanal) :\02 .::. Radyomuzu Dinleyenler .::.\02  $nicks"

        unbind raw - 352 raw_oku

}

}