Le deauth au rehash.
#1
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 :
Citation :/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 :

Citation :[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.

TCL
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..
Répondre Avertir
#2
J'ai trouver d'ou venez le bug..

En faite lorsque je faisait un rehash j'avais une procédure de désinstallation..
en commentant les lignes de ce code ci il ne se passe plus l'erreur.

TCL
# Désinstallation du Script.
    if {[info commands ::gestion::uninstall] eq "::gestion::uninstall"} { ::gestion::uninstall }
    proc uninstall {args} {
        variable script_name
        putlog "\0031Désallocation des ressources de\0031 $script_name"
        foreach binding [lsearch -inline -all -regexp [binds *[set gestion [string range [namespace current] 2 end]]*] " \{?(::)?$gestion"] {
            unbind [lindex $binding 0] [lindex $binding 1] [lindex $binding 2] [lindex $binding 4]
        }
        namespace delete [namespace current]
    }



Donc en faite le soucis viendrez de là.
Mais bon si je ne met pas ce type de procédure sa fait pas top dans un code comme je veux faire..
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté