Pb: TCL Kick PL

[Aristide]

Bonjour,
J'aimerais ajouter une fonctionnalité sur mon Bot pour pouvoir Kicker la Playlist Shoutcast par une commande "!kicksrc", j'ai essayé plusieurs codes TCL, mais je n'ai eu aucun résultat. Quand je tape la commande "!kicksrc" la requête n'arrive au Serveur pour réaliser le Kick, je vous poste le code afin de voir s'il s'agit d'une erreur de codage, ou un problème de flags avec le Bot.

NB: Je n'ai aucune erreur en Party-Line, le script TCL se charge correctement.

Merci de votre aide par avance.

Cordialement.

Code :

TCL:

bind pub n !kicksrc kicksource

proc kicksource {nick host handle chan text} {
#ip:
set server "l'adresse de mon serveur"
#port:
set port "le port du serveur"
set login "mot de passe du streaming"

######Config######

set sock [socket $server $port]
puts $sock "GET http://IP:Port/admin.cgi?mode=kicksrc HTTP/1.1"
puts $sock "User-Agent:Mozilla"
puts $sock "Host: $server"
puts $sock "Authorization: Basic $login"
puts $sock ""
flush $sock
}
putlog "Kicksource loaded"