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

Kod:
#########################

# Ayarlari Yapilandirin #

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

# Komutun gecerli olacagi kanali belirtiniz.

set kickkanal "#DJ"
 

# Kill komutunu belirtiniz.

set killkomut ".djkill"
 

# Radyonuzun ip veya domain adini belirtiniz.

set ip "irc.example.com"
 

# Radyonuzun portunu belirtiniz.

set port "8888"
 

# Radyonuzun sifresini belirtiniz.

set pass "radyopass"
 

# Radyonunun admin sifresini belirtiniz.

set adminpass "radyopass"
 

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

# Ayarlar Bitti #

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

bind pub - $killkomut djkill

proc djkill {nick host handle chan arg} {

global ip port pass adminpass kickkanal

        if {![string match -nocase $kickkanal $chan]} { return }

        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 $chan :Radyoda ki DJ yayindan dusurulmustur, yayini alabilirsiniz."

}
 

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

}
 

###########

# The End #

###########