soucis sur un bind join.

[DnS]

tu a essayé comme ça ? le souci viendrais peut etre de ta proc "progfile" ?

tclcopier

bind join - "$::autorise::salonop *" [namespace current]::autor
proc autor { nick host hand chan} {
    if [isbotnick $nick] return   
        set k [lindex [split $nick |] 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
        } 
       if {[progfile autorise cf $k]=="1"} {
            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
           }
        }

j'ai pas tester,à testé ...

Cordialement