soucis sur un bind join.

[CrazyCat]

Non, on ne fait pas un débug avec des putlog comme ça, mais plutôt:

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

Et comme ça, tu peux tester en vérifiant "à la main" ce que l'eggdrop envoie.