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