Vous aurez constaté que le tcl donné précédemment fait 2 fois l'identification. L'identification lors de la connexion au serveur n'est en fait utile que lorsqu'il y a un réglage KILL IMMED sur NickServ, ce qui est rare et cela peut être dangereux si vous envoyez votre eggdrop sur un serveur ne possédant pas de NickServ et où un petit malin aura pris ce nick.
De plus, les variables $nickserv et $pass sont accessibles à toute personne ayant accès à la party-line si vous avez activé la commande .tcl
Voici donc une version légèrement différente, et je ferais bientôt une version permettant de vérifier un peu plus que le nick de NickServ.
De plus, les variables $nickserv et $pass sont accessibles à toute personne ayant accès à la party-line si vous avez activé la commande .tcl
Voici donc une version légèrement différente, et je ferais bientôt une version permettant de vérifier un peu plus que le nick de NickServ.
tcl
namespace eval AnopIdent {
variable nickserv "NickServ"
variable chanserv "ChanServ"
variable nspass "monpass"
bind notc - "*IDENTIFY*" AnopIdent::ident
}
proc AnopIdent::ident {nick uhost handle text {dest ""}} {
if {$dest == ""} { set dest $::botnick }
if {[string tolower $nick]!=[string tolower $AnopIdent::nickserv]} { return 0 }
putserv "PRIVMSG $AnopIdent::nickserv :identify $AnopIdent::nspass"
return 0
}
putlog "Initialization loaded"