##Buraya Radyonun İp Adresini Yazın..
set ip "31.210.155.94"
##Buraya Radyonun Portunu Yazın..
set port "4237"
##Buraya Radyonun Şifresini Yazın..
set pass "ruzgarfmm"
##Buraya Radyonun Admin Şifresini Yazın..
set adminpass "ruzgarfmm"
## 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 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#########

alias .host {
  return 31.210.155.75
}
alias .port {
  return 4237
}
alias .adminpass {
  return askbirfmm
}
alias .sock {
  return shoutcast
}
on 1:SOCKOPEN:$($.sock): {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$.adminpass,&mode=kicksrc HTTP/1.1)
  sockwrite -n $sockname Host: $+($.host, :, $.port)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}
alias sessiz {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $.sock $.host $.port
}
on 1:text:*:#dj:{
  if *!djkick* iswm $1- {
    sessiz
    msg #dj 0,1 8 Çatlama Gardaş Düşürdük işte ? 
  }
}

set kickkanal "#DJ"

bind pub - !djat kick

proc kick {nick host handle chan arg} {
global ip port adminpass kickkanal
if {$chan != $kickkanal} {return 0}

# asagisi radyo IP 'si olcak.
set ip "33.33.22.22"
# simdi de portunu yaz.
set port "8080"
# admin pass veya kullanmiyosan yayin sifren
set adminpass "sifrem33"

set sock [socket [duzelt $ip] [duzelt $port]]
puts $sock "GET /admin.cgi?pass=[duzelt $adminpass]&mode=kicksrc 
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 :Yayindaki DJ dusuruldu, lutfen yayini aliniz. Komutu gereksiz kullanmanizin tespit edilmesi halinde yetkilerinizin alinabilecegini unutmayiniz..."
}

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
}