+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : Le deauth au rehash. (/showthread.php?tid=1252)
Le deauth au rehash. - aliasangelius - 27/09/2012
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..
RE: Le deauth au rehash. - aliasangelius - 27/09/2012
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..