ban sur detection de realname

[bewess]

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

[CrazyCat]

C'est pas complet, juste le principe:

tclcopier

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
}

[bewess]

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

[BdS]

Modifier non, renseigner la condition " if {$realname ......} "

[bewess]

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

[BdS]

tu as sans doute oublier de poster ton code ...

[bewess]

apparemment

desole

[Babytigrou16]

Moi c'est bizzard j'ai tout fait comme il faut mais sa ne banni pas ^^ lolll

[CrazyCat]

tclcopier

if {$realname plop} {

Ca ne veut rien dire du tout ça. Et c'est pas de la programmation, juste de la logique.

tclcopier

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.

[bewess]

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

[BdS]

Prends l'habitude de poster ton code modifié ... sinon pour t'aider ça risque d'être compliqué.

[bewess]

le voila désolé

[CrazyCat]

L'erreur est de moi:

tclcopier

putserv "MODE +b #canal *!*@[lindex $user[2]]"

C'est bien sûr:

tclcopier

putserv "MODE +b #canal *!*@[lindex $user 2]"

[bewess]

cela ne marche tojours pas, mais la j'ai pas de messages d'erreur

[Babytigrou16]

ta rewgarder tes code comme il fo ?