IRCForumu.ORG - Radyo DjKick TCL

Kod:


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

 

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