Detecter Flood texte

[DnS]

Bonjour,

j'aimerais savoir comment détecter le même caractère dans un flood.je m'explique beaucoup d'user flood avec les meme caractere du genre:

helloooooooooooooooooooooooooooooo ect ... et j'aimerais restreindre cela.
j'ai trouver divers TCL mais il ne détecte seulement la longueur de la phrase malheureusement.auriez vous un exemple de proc pour détecter la longueur du mot flood et non le texte ?

en espérant que j'ai pu être clair :x

Cordialement

[CrazyCat]

Oui, ça me semble assez clair, mais ce n'est pas du flood :)
Il faudrait utiliser une regexp du genre:

Code :

(.)(\1{3,})

Celle-ci permet de capter lorsqu'un même caractère est répété au moins 3 fois.

En TCL, ça donnerait:

tclcopier

bind pubm - "*" repet_test
proc repet_test { nick uhost hande chan text } {
   if { [regexp -all -- {(.)(\1{3,})} $text] } {
      putserv "PRIVMSG $chan :Dis donc $nick, tu as bloqué ta touche ?"
   }
   return
}

Le "& #92;" est à remplacer par \
Edit
Testé par DnS, ça fonctionne. J'avais commit une petite erreur : ne pas mettre le -inline dans les options de regexp si on veut avoir un résultat booléen (-inline retourne le tableau de ce qui a matché).

[DnS]

BOnjour,

j'aimerais savoir si il est possible de remplacer le 3 dans

Code PHP :

(.)(\1{3,}) 


par une variable ?

Code PHP :

set NFD "50"

bind pubm - "*" repet_test
proc repet_test { nick uhost hande chan text } {
   if { [regexp -all -- {(.)(\1{$::NFD,})} $text] } {
      putserv "PRIVMSG $chan :Dis donc $nick, tu as bloqué ta touche ?"
   }
   return
} 


[CrazyCat]

Déjà, il te manque le \ avant le 1.
Et la solution est:

tclcopier

set NFD "50"
 
bind pubm - "*" repet_test
proc repet_test { nick uhost hande chan text } {
   if { [regexp -all -- "\(.\)\(\\1\{$::NFD\,\}\)" $text] } {
      putserv "PRIVMSG $chan :Dis donc $nick, tu as bloqué ta touche ?"
   }
   return
}

[DnS]

merci CrazyCat pour cette solution

juste une chose pourquoi ajouter les \ dans le regexp ?
certes j'ai bien vue que sans les \ il prenais pas le nombres dans la variable ,mais j'aurais pas pensé à ajouter les \

[DnS]

parcontre je rencontre un souci avec ce code.je m'explique que je charge le script mon eggy monte en CPU 67.3 et ce qui fait que mon bot ping

dns 31966 67.3 0.3 5244 3428 pts/1 R 23:08 3:50 ./eggdrop DnS.conf

et qd je suprime le tcl mon bot tourne normalement :x

dns 5296 0.0 0.2 4812 3124 pts/1 S 23:15 0:00 ./eggdrop DnS.conf

une idée sur ce souci svp ?


Cordialement

[CrazyCat]

Non seulement l'eggdrop analyse tout les messages qui passent sur le (ou les) canal, mais en plus l'expression régulière est très gourmande car elle est sous forme de string et doit être interprétée.
Si tu utilisais la première expression régulière, ça consommerait bien moins.

[DnS]

merci pour cette réponse CrazyCat.