Çevrimdışı

Kodu Radyo Botuma Yukledim ama calısmadı. Sunucuma Bu kodu tcl olarak attım rayo botunada tcleyi yükledim ama yinede calısmadı

set kickkanal "#dj"
bind pub - !kickyauf kickyauf
proc kickyauf {nick host handle chan arg} {
if {$chan != $kickkanal} {return 0}
set ip "95.168.171.134"
set port "2009"
set adminpass "şifresi"
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 :2 Yayındası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
}
putcmdlog "Load Radyo kick. Coded Sessiz"