+- 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 : Identification automatique (/showthread.php?tid=198)
Identification automatique - CrazyCat - 23/04/2008
On demande souvent un script d'identification automatique sur les services Anope... Voici ce que j'utilise:
tcl
# CONFIGURATION
set nickserv "nickserv"; # Nick du NickServ
set pass "monpass"; # Pass du nick
bind evnt - "init-server" evnt:init_server
proc evnt:init_server {type} {
global botnick nickserv pass username
putserv "MODE $botnick +iB-ws"
if {$botnick!=$username} {
putquick "PRIVMSG $nickserv :GHOST $username $pass"
}
putquick "PRIVMSG $nickserv :IDENTIFY $pass"
return 0
}
bind notc - "*IDENTIFY*" init:ident
proc init:ident {nick uhost handle text {dest ""}} {
global botnick nickserv pass
if {$dest == ""} {
set dest $botnick
}
putserv "PRIVMSG $nickserv :identify $pass"
return 0
}
putlog "Initialization loaded"
RE: Identification automatique - CrazyCat - 23/04/2008
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.
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"
RE: Identification automatique - N3bIlIm - 06/06/2008
Merci
RE: Identification automatique - Merwin - 06/06/2008
Citation :De plus, les variables $nickserv et $pass sont accessibles à toute personne ayant accès à la party-line si vous avez activé la commande .tcl
Je comprends pas,avec ta nouvelle version ce problème (qui n'en n'est pas) existe toujours non?
Code :
.tcl set AnopIdent::nspassJe vois pas trop l'intéret du namespace, si le gars donne accès à .tcl à n'importe qui c'est sa faute, aucun namespace n'y changera quoi que ce soit :-)
RE: Identification automatique - CrazyCat - 06/06/2008
Il est tout de même plus dur de trouver $::AnopIdent::nspass que $nspass
Et surtout, ça permet aussi de ne pas avoir de soucis avec un autre tcl qui utiliserait nspass
RE: Identification automatique - beni - 22/06/2008
CrazyCat a écrit :On demande souvent un script d'identification automatique sur les services Anope... Voici ce que j'utilise:
tcl
RE: Identification automatique - beni - 22/06/2008
bonjours l indentification automat m interesses mais ou decharger se script tcl je cherches et j arrives pas a trouver le dechargement svp aidez moi j ai des problemes d identification aupres de mon bot je suis sur irc.icq.com . salle : #testouille je m appeles beni .vos explications mon beaucoup aider mais la se script est introuvable.mon msn : davidchaim@hotmail.com
RE: Identification automatique - BdS - 23/06/2008
il suffit de copier/coller le code donner en remplaçant les variables ... cqfd non ?