tcl kikplay

[WoolF]

bonjour aliasangelius;
voila j'ai refais le tcl et avec ça, ma commande marche super bien, alors je vais la mettre ici comme cela ça pourra servir à d'autres.
------------------

tclcopier

bind pub - !kplay pub:!kicksource
 
proc pub:!kicksource {nick host handle chan text} {
 
set server "******"
set port "******"
set login "*******"
 
set sock [socket $server $port]
puts $sock "GET /admin.cgi?pass=$login&mode=kicksrc HTTP/1.0"
puts $sock "User-Agent:Mozilla"
puts $sock "Host: $server"
puts $sock "Authorization: Basic $login"
puts $sock ""
flush $sock
putquick "PRIVMSG #salon :\002\00304- Radio OFF -\002 \00312la playlist a été kicker par \002\00303$nick\002"
putquick "notice $nick :\00312Merci de patienter plus de 15 minutes avant de refaire un autre kick :)"
}