Flag dans un bnd join..

[aliasangelius]

Bonjour,

Je suis actuellement sur un projet de code Tcl qui fera un système de Services.
Ya bien évidament un système de auto-op pour des Robots que je doit prévoir dans mon projet actuel.

Seulement le problème que je rencontre c'est que je ne trouve pas comment faire..
J'ai essayer d'inclure le sytème de flag par bind join directement dans le bind join sans utiliser bien évidament matchattr car je veux passer par une variable.

Donc J'ai bien évidament mis des putlog au niveau de chaque ligne de code au niveau du bind join voir si j'avais un retour ou pas et je n'es absolument rien.
Même en erreur PL je n'es absolument rien.. je ne trouve pas d'ou peut venir le soucis si quelqu'un pouvais m'aider

Je met des * pour ne pas spam le nom de reseau ^^

Voici Donc le code Tcl en question :

tclcopier

#*************************************************************#
# Tcl Service en cour de Création pour le réseau **********   #
#                                                             #
# By alias_angelius.                                          #
#*************************************************************#
 
namespace eval ::robot {
    package require msgcat
    package require Tcl 8.5
    # Ici ont met le salon ou ont désire mettre le auto-op/voice.
    variable sal "#Accueil"
    # Ici ont mets le temps d'opage et de voice en secondes.
    variable opsec 3
    # Ici ont met le message pour le/les Robot(s)/users en msgcat.
    ::msgcat::mcset fr m0 "\0034Auto-voice et Auto-op accepter pour le Robot.\0034"
    # Langue qu'ont désire mettre pour msgcat.
    ::msgcat::mclocale fr
    # Ici ont met le flag que les robot/users doivent avoir pour l'auto-op/voice.
    variable xflag "I|I"
    # Auteur.
    variable veraut "Service.tcl V1.0 by alias_angelius."
    putlog "\002\0034$::robot::veraut\002\0034"
    
    # Procédure de Join sur le salon défini.
    proc robotjoin {nick host hand chan} {
        if {$nick == $::botnick} {return 0}
        if {$::robot::sal == "" && [botisop $chan]}
        putserv "privmsg ::robot::sal :[::msgcat::mc m0]"
        utimer $::robot::opsec [list ::robot::verif $nick $chan]
    }
    
    # Procédure d'auto-Voice/Op Robot.
    proc verif {nick chan} {
        if {[isop $nick $chan]} {return}
            putserv "mode $chan +ov $nick $nick"
    }
    
    # Package.
    if {[catch {package require Tcl 8.5}]} {
        putlog "\002auto-op-voice.tcl\002 : Vous avez besoin de Tcl en version 8.5 au moins pour pouvoir utiliser ce script."
        return
    }
    # Les binds.
    bind join - "$::robot::xflag" [namespace current]::robotjoin
}