Le deauth au rehash.

[aliasangelius]

Bonjour,

Voilà je suis sur un soucis d'incompréhension..
Je m'explique.

Lorsque je me auth auprès de mon eggdrop je tape la commande :

/msg lebot auth pseudo pass

La il m'authentifie correctement sans aucun soucis.
Mais si je fait disons un rehash de l'eggdrop après m'être authentifié pour par exemple une modification dans le code ou un chargement d'un autre tcl peut importe.

Il ne me déauth pas si je tape la commande.
Voici ce qu'il me dit en PL :

[10:58:38] <Talk-me> [10:58:51] [alias_angelius!040Hindifferent@4266579431.com] deauth alias_angelius ******

Par contre s'il n'as aucun rehash le deauth se faire correctement.
Voici le code de deauth.

tclcopier

proc deauth { nick host hand arg } {
        variable chanlog
        set arg [gbfilter $arg]
        set args [split $arg]
        set pseudo [lindex $arg 0]
        set pass [lindex $args 1]
        if {[llength $args] != 2} {
            putserv "notice $nick :[::msgcat::mc ErrorDeauth $::botnick]"
            return 0
        }
        if {[nick2hand $pseudo] eq "*"} {
            putserv "notice $nick :[::msgcat::mc NoAxx $nick]"
            return 0
        }
        if {![passwdok $pseudo $pass]} {
            putserv "notice $nick :[::msgcat::mc ErrorPass]"
            return 0
        }
        if {[getuser $hand XTRA auth] eq "ON"} {
            putserv "notice $nick :[::msgcat::mc AuthOff $nick]"
            putserv "privmsg $chanlog :[::msgcat::mc DeauthLog $hand]"
            setuser $pseudo XTRA AUTH OFF;
            chattr $hand -p
            save
            boot $hand "Vous êtes déauthentifié,vous ne pouvez rester en Party-Line."
            return
        }
    }
# Les binds.
bind msg - "deauth" [namespace current]::deauth

Si quelqu'un à une idée..