IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Merhaba arkadaşlar. Bir çok sitede olmasına rağmen çoğu işlev görmüyor. Denenmiştir çalışıyor.

Yayın kickleme komutu !kickradyo

Kod:

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

set ip "RADYO-IP ADRESİ"

##Buraya Radyonun Portunu Yazın..

set port "RADYO-PORT"

##Buraya Radyonun Şifresini Yazın..

set pass "RADYO-SIFRESI"

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

set adminpass "AdminPASS"

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

set kickkanal "#DJ"

## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim 😉

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

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 5 Saniye içinde 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

}