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