08/01/2017, 18:06
Je pense que parfois, lire le wiki est utile.
Donc, ta procédure reçoit obligatoirement 5 arguments, pas un de plus ou de moins.
En définissant ta procédure ainsi, tu obtiens dans $text le nick à kicker suivi du message de kick. Il faut donc couper $text.
Citation :PUB
Utilisé pour une commande donnée sur un canal. Le premier mot devient la commande, ceux qui suivent deviennent les arguments text.
Syntaxe: bind pub <flags> <command> <proc>
Procédure: procname <nick> <user@host> <handle> <channel> <text>
Donc, ta procédure reçoit obligatoirement 5 arguments, pas un de plus ou de moins.
tcl
proc kickraison { nick host hand channel text } {
En définissant ta procédure ainsi, tu obtiens dans $text le nick à kicker suivi du message de kick. Il faut donc couper $text.
tcl
set args [split $text] # on mets chaque élément de $text dans la liste $args
set victim [lindex $args 0] # le premier élément de $args est la victime
set reason [join [lrange $args 1 end]] # la suite est la raison du kick