[Résolu] Aide sur un tcl RAW

[Alucard`68]

@Dixit merci pour le putlog grace a toi j'ai réussie a debug une parti de mon script et j'avas oublié de mêtre le global donc voici le code modifié.

tclcopier

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

Donc maintenant le pseudo est bien détecté par contre le bot ne sajoin pas et je n'ai aucun message d'erreur en telnet avec le bot ...
le problème serais sur le if je pense mais je ne vois pas comment régler le problème...

Code :

[23:53:48] Userfile loaded, unpacking...
[23:53:59] lancement proc ok
[23:53:59] set type ok
[23:53:59] set pseudo : PetitCoeur
[23:53:59] -NOTICE- *** Client connecting: PetitCoeur

Merci d'avance.

Bye. :)

EDIT:
J'ai donc utiliser le même procédé pour voir si la variable "type" était bonne et effectivement elle ne l'était pas. Voici le code modifier.

tclcopier

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

Et le message d'erreur en telnet avec le bot :

Code :

[00:21:59] lancement proc ok
[00:21:59] set type : Client connecting:
[00:21:59] set pseudo : PetitCoeur
[00:21:59] Tcl error [sajoin:connexion]: wrong # args: should be "utimer seconds command ?count?"
[00:21:59] -NOTICE- *** Client connecting: PetitCoeur

Donc le problème viens du utimer si j'ai bien compris je me suis servis du wiki pour le utimer https://wiki.eggdrop.fr/Utimer
J'avoue que la je ne vois pas du tout comment faire...

Merci d'avance.

Bye. :)

Edit 2
Résolue j'ai travaillé sur le utimer fonctionne parfaitement mnt

tclcopier

set chan(sajoin) "#Accueil"
 
bind raw - "NOTICE" sajoin:connexion
 
proc sajoin:connexion {from key arg} {
  global chan
  set type [lrange $arg 2 3]
  set nick [lindex $arg 4]
	if {$type == "Client connecting:"} {
    utimer 5 [list putquick "sajoin $nick $chan(sajoin)"]
  }
}

Encore merci dixit pour ton aide :)

Bien à vous.

Bye. :)