soucis sur un bind join.

[aliasangelius]

un set errorInfo donne rien vus qui na pas d'erreur en Pl.
Ensuite le $hostmask donne ceci sur tout les bans : [08:55:03] [Mode] Talk-Me met +bbb *!*@*1619623353.fr alias_angelius!*@* alias_angelius|*!*@*

Après concernant les putlog j'ai fait ça et j'ai ceci comme retour :

[10:38:34] [Join] alias_angelius [Admin@761501953.fr] a rejoint #back-talk-me
[10:38:40] (@Talk-Me) Autorisation refusé pour alias_angelius

Et aucun ban.. rien.

pour ce qui concerne la PL voici ce que sa donne :

[10:38:33] <Talk-Me> [10:38:48] ok1
[10:38:34] <Talk-Me> [10:38:48] ok2
[10:38:34] <Talk-Me> [10:38:48] ok3
[10:38:34] <Talk-Me> [10:38:48] ok4
[10:38:34] <Talk-Me> [10:38:48] ok5

Et j'ai fait comme ceci dans le code :

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"
            putlog "ok1"
            putserv "mode $::autorise::salonop +b $hostmask"
            putlog "ok2"
            putserv "mode $::autorise::salonop +b $k!*@*"
            putlog "ok3"
            putserv "mode $::autorise::salonop +b $k|*!*@*"
            putlog "ok4"
            puthelp "kick $::autorise::salonop $vnick :[msgcat::mc m0]"
            putlog "ok5"
            return 1
        } else {
            puthelp "privmsg $::autorise::salonop :[msgcat::mc m1] $nick"
            putlog "ok1bis"
            putserv "mode $::autorise::salonop +ov $nick $nick"
            putlog "ok2bis"
            return 0
        }
    }
}