##Buraya Radyonun İp Adresini Yazın..

 
set ip "radyoipadresi"

 
##Buraya Radyonun Portunu Yazın..

 
set port "radyoport"

 
##Buraya Radyonun Şifresini Yazın..

 
set pass "radyosifresi"

 
##Buraya Radyonun Admin Şifresini Yazın..

 
set adminpass "radyoadminsifresi"

 
## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

 
set kickkanal "#DJ"

 
## Başkada Birşeye Dokunmuyoruz. 

 
 
bind pub - !kickradyo kickradyo

 
proc kickradyo {nick host handle chan arg} {

 
global ip port pass adminpass kickkanal

 
if {$chan != $kickkanal} {return 0}

 
set sock [socket [duzelt $ip] [duzelt $port]]

 
puts $sock "GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0"

 
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

 
puts $sock "Host: $ip"

 
puts $sock "Connection: close"

 
puts $sock ""

 
flush $sock

 
close $sock

 
putserv "PRIVMSG #Dj :12Radyo Yayını Düşürülmüştür.. Lütfen Yayını Alınız.."

 
}

 
 
 
proc duzelt { a } {

 
regsub -all {\}} $a "" a

 
regsub -all {\{} $a "" a

 
regsub -all {\;} $a "" a

 
regsub -all {\*} $a "" a

 
regsub -all " " $a "" a

 
return $a

 
}

 
 
 
######kickradyo.tcl#########

 
## Coded By iSyan #

 
############################