[Résolu] Aide sur un tcl RAW

[Alucard`68]

Bonsoir à tous,

Alors voila j'essaie de faire un script avec un raw pour detecter la connexion des users et les sajoins apres 5 seconde sur le salon accueil.
Voila le code.

tclcopier

set chan(sajoin) "#Accueil"
 
bind raw - "NOTICE" sajoin:connexion
 
proc sajoin:connexion {from key arg} {
putlog "lancement proc ok"
 set type [lrange $arg 4 5]
putlog "set type ok"
 set pseudo [lindex $arg 6]
putlog "set pseudo ok"
if {$type == "Client connecting:"} {
putlog "set if type ok"
   set foo [list [utimer 5 sajoin $pseudo $chan(sajoin)]]
putlog "sajoin ok"
 }
}

J'ai mis des putlog pour voir d'ou venais le problème.

Code :

[22:19:11] lancement proc ok
[22:19:11] set type ok
[22:19:11] set pseudo ok
[22:19:11] -NOTICE- *** Client connecting: PetitCoeur (~PetitCoeur@*********.fr) [**.***.**.**] {clients}

Il semblerais que le problème vienne du if mais je ne vois pas comment régler le problème...

Merci pour votre aide future.

Bien à vous.

Bye.