Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


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 :
Quote:/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 :

Quote:[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..
#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..


Possibly Related Threads…
Thread Author Replies Views Last Post
  Rehash & Restart Babytigrou16 13 8,297 02/06/2010, 15:11
Last Post: Marc

Forum Jump:


Users browsing this thread: 1 Guest(s)