+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : ban sur detection de realname (/showthread.php?tid=304)
Pages :
1
2
ban sur detection de realname - bewess - 11/12/2008
Bonjour
J'aimerais savoir si quelqu'un, ou si s'etait possible de faire une detection sur une ou des realnames et banir a cette detection le pseudo.
ce serais sur un chan d'environ 80 users, donc un scan tout les x temps ne feront pas laguer le bot ou sur on joint.
Je sais pas du tout
Par avance merci et bonne journée a vous
RE: ban sur detection de realname - CrazyCat - 11/12/2008
C'est pas complet, juste le principe:
tcl
bind join - "#canal *" rn:scan
proc rn:scan {nick uhost handle chan} {
putserv "WHOIS $nick"
return 0
}
bind raw - 311 rn:check
proc rn:check {from kw text} {
set infos [split $text ":"]
set user [split $infos 0]
set realname [lindex $infos 1]
if {$realname ......} {
putserv "MODE +b #canal *!*@[lindex $user[2]]"
}
return 1
}
RE: ban sur detection de realname - bewess - 11/12/2008
Merci pour la reponse rapide
Quand tu dis c'est pas complet, il faut modifier bcp de chose?
Car je ne sais pas coder, je comprends quand c'est marquer le principe mais apres le faire ...
Merci
RE: ban sur detection de realname - BdS - 12/12/2008
Modifier non, renseigner la condition " if {$realname ......} "
RE: ban sur detection de realname - bewess - 12/12/2008
bonjour,
j'ai tester mais cela marche pas j'ai ce message d'erreur :
Tcl error [rn:check]: syntax error in expression "$realname ddd": extra tokens at end of expression
cela viens d'ou svp ?
Voici le tcl avec
Par avance merci
RE: ban sur detection de realname - BdS - 12/12/2008
tu as sans doute oublier de poster ton code ...
RE: ban sur detection de realname - bewess - 12/12/2008
apparemment
desole
RE: ban sur detection de realname - Babytigrou16 - 13/12/2008
Moi c'est bizzard j'ai tout fait comme il faut mais sa ne banni pas ^^ lolll
RE: ban sur detection de realname - CrazyCat - 13/12/2008
tcl
if {$realname plop} {
Ca ne veut rien dire du tout ça. Et c'est pas de la programmation, juste de la logique.
tcl
if {[string first "plop" $realname] != -1} {
peut fonctionner
Et mon exemple était juste un exemple, il faut vérifier que $realname contient bien ce que tu veux, et même que le serveur renvoie bien le raw 311.
RE: ban sur detection de realname - bewess - 15/12/2008
bonjour
il me met ca maintenant comme erreur :
[11:56] Tcl error [rn:check]: invalid command name "2"
cela viens d'ou ?
par avance merci
RE: ban sur detection de realname - BdS - 15/12/2008
Prends l'habitude de poster ton code modifié ... sinon pour t'aider ça risque d'être compliqué.
RE: ban sur detection de realname - bewess - 15/12/2008
le voila désolé
RE: ban sur detection de realname - CrazyCat - 15/12/2008
L'erreur est de moi:
tcl
putserv "MODE +b #canal *!*@[lindex $user[2]]"C'est bien sûr:
tcl
putserv "MODE +b #canal *!*@[lindex $user 2]"RE: ban sur detection de realname - bewess - 15/12/2008
cela ne marche tojours pas, mais la j'ai pas de messages d'erreur
RE: ban sur detection de realname - Babytigrou16 - 21/12/2008
ta rewgarder tes code comme il fo ?