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