Merhaba arkadaşlar,
Bildiğimiz üzere şuan da bu işlevi
sock botlar yapmaktadır. Bazen
Sock botlar da güncelleme gibi durumlar sunuculardan ayrılabiliyor. Bu bot ise tam da bu zamanlar için.
Oto Dj var ve
Sock botlarınız sunucu da yok mu ? Önemli değil. Eggdrop botunuz ile yine aynı işlemi yaptırabilirsiniz.
Botunuzun
Nicki kayıtlı olmalı ve en az
services admin olup
OS admin listte olup
kick TCL'yi düzgün bir şekil de doldurduğunuz zaman
OtoDj'i kick attırıp yerine geçecek olan Dj'i aynı düzen de yayını alabilir...
- Günümüz de pek işe yaramayacak gözüyle bakılsa da ben gibi garantici arkadaşların işine yaracağını düşündüğümden buraya bırakma gereksimi duydum.
Kod
##Buraya Radyonun İp Adresini Yazın..
set ip "94.242.238.61"
##Buraya Radyonun Portunu Yazın..
set port "8888"
##Buraya Radyonun Şifresini Yazın..
set pass "asdasdasd"
##Buraya Radyonun Admin Şifresini Yazın..
set adminpass "asdasdasd"
## 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########
############################