soucis sur un bind join.

[aliasangelius]

Bonjour,

Voila je travail actuellement sur un tcl d'autorisation.
C'est à dire, si tel pseudo et dans le fichier db, il ne sera pas exclu.
Au contraire s'il n’est pas dans le fichier db, il sera exclu du salon.

Mon soucis et lorsque je suis dans le fichier db, il reconnaît bien et applique bien les modes qu'il faut.

Et lorsque je ne suis pas dedans, il dit juste la phrase ou je ne suis pas autorisé, et n'applique aucun mode +b ainsi que le kick.

Je ne vois pas trop comment faire.. Si quelqu'un aurait une idée, ou me signalé à quel endroit et mon erreur.
S’il vous plaît merci.

tclcopier

bind join - "$::autorise::salonop *" [namespace current]::autor
    proc autor { nick host hand chan} {
        set k [lindex [split $nick |] 0]
        if {$nick == $::botnick} { return 0 }
        if {[progfile autorise cf $k]=="0"} {
            set vnick $nick
            set hostmask "[split [getchanhost $nick $chan] @]"
            set hostmask "!*@*[lindex $hostmask 1]"
            puthelp "privmsg $::autorise::salonop :[msgcat::mc m10] $nick"
            putserv "mode $::autorise::salonop +b $hostmask"
            putserv "mode $::autorise::salonop +b $k!*@*"
            putserv "mode $::autorise::salonop +b $k|*!*@*"
            puthelp "kick $::autorise::salonop $vnick :[msgcat::mc m0]"
            return 1
        } else {
            puthelp "privmsg $::autorise::salonop :[msgcat::mc m1] $nick"
            putserv "mode $::autorise::salonop +ov $nick $nick"
            return 0
        }
    }
}