+- 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 : Problème anti insultes (/showthread.php?tid=172)
Problème anti insultes - Alpha_67 - 06/03/2008
Salut all,
j'ai trouver ce script :
Code :
##################################
# ce programme permet d'interdir certains mots sur un chan sinon la personne riske le kick
# puis le ban au bout de 3 kicks !
# Attention cepdt ce TCL crée parfois des pb chez les bots (surtt sous windows !)
##################################
############################################################################
# File Name : badwords.tcl
# Author : SOLaL <alain@antinea.org>
############################################################################
set bwLog "badwords.tcl"
set bwVersion "1.0b"
set bwCopyright "(c) 1999-2000 SOLaL <alain@antinea.org>"
set bwChan "#buffy"
# YOU SHOULDN'T MODIFY ANTYTHING BELOW THIS LINE
set bwRun 1
set bwArray() ""
set bwNumber 0
set bwFilename "badwordsfile.txt"
############################################################################
# MAIN proc
############################################################################
if { ![info exists bwLoaded] } {
putlog "$bwLog (c) 2000 SOLaL <alain@antinea.org>"
set bwLoaded 1
} else {
putlog "$bwLog : Already loaded..."
}
# Load the badwords file into memory
if { [file exists $bwFilename] } {
set fd [open $bwFilename r]
while { ![eof $fd] } {
set bwArray($bwNumber) [gets $fd]
incr bwNumber
}
close $fd
}
############################################################################
# CONTROL proc
############################################################################
bind pub o|o !control bwControl
proc bwControl {nick uhost hand channel args} {
global bwChan bwLog bwVersion bwCopyright bwRun
set channel [string tolower $channel]
if { $bwChan != $channel } {
return 0
}
putserv "PRIVMSG $bwChan :$bwLog ($bwVersion) - $bwCopyright"
return 0
}
############################################################################
# VER proc
############################################################################
bind pub o|o !ver bwVersion
proc bwVersion {nick uhost hand channel args} {
global bwChan bwLog bwVersion bwCopyright bwRun
set channel [string tolower $channel]
if { $bwChan != $channel } {
return 0
}
putserv "PRIVMSG $bwChan :$bwLog ($bwVersion) - $bwCopyright"
return 0
}
############################################################################
# SURVEYpub proc
############################################################################
bind pubm - * bwSurveypub
proc bwSurveypub {nick uhost hand channel args} {
global bwLog bwChan bwArray bwNumber bwRun
set channel [string tolower $channel]
if { $bwChan != $channel } {
return 0
}
if { ([isop $nick $bwChan])||([matchattr $nick o|o $bwChan])||([isvoice $nick $bwChan]) } {
return 0
}
set args [join $args]
set args [string tolower $args]
for {set i 0} {$i < $bwNumber} {incr i} {
if { $bwArray($i) != "" } {
set badw [join $bwArray($i)]
set dummy ""
if { [regsub -all "$badw" $args "" dummy] } {
putlog "$bwLog KICK $nick because saying '$badw'"
putserv "KICK $bwChan $nick :Mot interdit ($badw) !"
}
}
}
return 0
}
############################################################################
# SURVEYact proc
############################################################################
bind ctcp - ACTION bwSurveyact
proc bwSurveyact {nick uhost hand channel keyword args} {
bwSurveypub $nick $uhost $hand $channel $args
return 0
}
############################################################################
# LIST proc
############################################################################
bind pub o|o !lst bwList
proc bwList {nick uhost hand channel args} {
global bwLog bwChan bwArray bwNumber bwRun
set channel [string tolower $channel]
if { $bwChan != $channel } {
return 0
}
putlog "$bwLog $nick ($uhost) uses !lst"
set txForbidden ""
set nWords 0
for {set i 0} {$i < $bwNumber} {incr i} {
if { $bwArray($i) != "" } {
set txForbidden "$txForbidden $bwArray($i)"
incr nWords
}
}
if { $nWords == 0 } {
putserv "PRIVMSG $bwChan :Mots interdits : <liste vide>"
} else {
putserv "PRIVMSG $bwChan :Mots interdits :$txForbidden"
}
return 0
}
############################################################################
# ADD proc
############################################################################
bind pub o|o !add bwAdd
proc bwAdd {nick uhost hand channel args} {
global bwLog bwChan bwArray bwNumber bwFilename bwRun
set channel [string tolower $channel]
if { $bwChan != $channel } {
return 0
}
if { ![isop $nick $bwChan] } {
return 0
}
if { $args == [list {}] } {
putserv "PRIVMSG $bwChan :Mots interdits : usage is !add words"
return 0
}
set args [string tolower $args]
putlog "$bwLog $nick ($uhost) uses !add (word is : '$args')"
for {set i 0} {$i < $bwNumber} {incr i} {
if { $args == $bwArray($i) } {
putserv "PRIVMSG $bwChan :Mots interdits : '$args' existe déjà"
return 0
}
}
set bwArray($bwNumber) "$args"
incr bwNumber
putserv "PRIVMSG $bwChan :Mots interdits : ajout de '$args'"
bwWritefile
}
############################################################################
# DEL proc
############################################################################
bind pub o|o !del bwDel
proc bwDel {nick uhost hand channel args} {
global bwLog bwChan bwArray bwNumber bwFilename
set channel [string tolower $channel]
if { $bwChan != $channel } {
return 0
}
if { ![isop $nick $bwChan] } {
return 0
}
if { $args == [list {}] } {
putserv "PRIVMSG $bwChan :Mots interdits : usage is !del words"
return 0
}
set args [string tolower $args]
putlog "$bwLog $nick ($uhost) uses !del (word is : '$args')"
for {set i 0} {$i < $bwNumber} {incr i} {
if { $args == $bwArray($i) } {
set bwArray($i) ""
}
}
putserv "PRIVMSG $bwChan :Mots interdits : suppression de '$args'"
bwWritefile
return 0
}
############################################################################
# WRITEFILE proc
############################################################################
proc bwWritefile {} {
global bwArray bwNumber bwFilename
set fd [open $bwFilename w]
for {set i 0} {$i < $bwNumber} {incr i} {
if { $bwArray($i) != "" } {
puts $fd "$bwArray($i)"
}
}
close $fd
return 0
}J'ai ajouter !add con mais quand on ecris par contre, l'user se fait kick...
Je dois chercher dans quoi pour éviter ce problème ?
Merci
RE: Problème anti insultes - CrazyCat - 06/03/2008
Remplace les 2 fois ou tu as
tcl
set bwArray($bwNumber) ....
par:
tcl
set bwArray($bwNumber) [concat " " ... " "]
en remplaçant bien sûr "..." par les valeurs respectives
RE: Problème anti insultes - Alpha_67 - 06/03/2008
Merci donc j'ai fait :
Code :
set bwArray($bwNumber) [concat " "gets $fd" "]Code :
set bwArray($bwNumber) [concat " "$args" "]j'obtiens cette erreur :
Citation : while compiling
"set bwArray($bwNumber) [concat " "gets $fd" "]
incr bwNumber
"
("while" body line 3)
while compiling
"while { ![eof $fd] } {
#set bwArray($bwNumber) [gets $fd]
set bwArray($bwNumber) [concat " "gets $fd" "]
incr bwNumber
}"
invoked from within
"if { [file exists $bwFilename] } {
set fd [open $bwFilename r]
while { ![eof $fd] } {
#set bwArray($bwNumber) [gets $fd]
set bwArray($bwNumber) ..."
(file "scripts/badwords-.tcl" line 34)
invoked from within
"source scripts/badwords-.tcl"
(file "eggdrop.conf" line 1351)
[22:45] * FICHIER DE CONFIGURATION NON CHARGE (INTROUVABLE OU ERREUR)
RE: Problème anti insultes - CrazyCat - 06/03/2008
tcl
set bwArray($bwNumber) [concat " " [gets $fd] " "]
Et
tcl
set bwArray($bwNumber) " $args "
(plus simple)
RE: Problème anti insultes - Alpha_67 - 07/03/2008
Plus d'erreur mais personne pour tester, je vous dirais ça demain ou courant du week-end.
Bonne nuit.
RE: Problème anti insultes - Alpha_67 - 07/03/2008
je suis quand même kicker en tapant par contre...
Citation :[08:30:16] <alpha_css_AbS> par contre
[08:30:16] * Vous avez été kické de Support-CSS (Mot interdit (con) !)
RE: Problème anti insultes - CrazyCat - 07/03/2008
Je pense que le soucis vient alors du test (il y a un join sur le badword défini, ça doit virer les espaces).
tcl
if { [regsub -all "$badw" $args "" dummy] } {
vérifie la présence du mot (ou de la chaine de mots) dans les arguments, il faudrait lui ajouter des délimiteurs comme \b (délimiteur de mot) avant et après $badw
RE: Problème anti insultes - Alpha_67 - 07/03/2008
Si j'ajoute /b avant et/ou après, il ne fonctionne plus du tout....
Code :
if { [regsub -all /b "$badw" /b $args "" dummy]Code :
if { [regsub -all /b "$badw" $args "" dummy]Code :
if { [regsub -all "$badw" /b $args "" dummy]Si je tape con, il me kick plus ^^
RE: Problème anti insultes - Alpha_67 - 07/03/2008
Alpha_67 a écrit :Si j'ajoute /b avant et/ou après, il ne fonctionne plus du tout....
ouCode :if { [regsub -all /b "$badw" /b $args "" dummy]ou encoreCode :if { [regsub -all /b "$badw" $args "" dummy]Code :if { [regsub -all "$badw" /b $args "" dummy]
Si je tape con, il me kick plus ^^
edit :
le script bug complètement, je le vire, c'est plus simple.
Merci de votre aide.
RE: Problème anti insultes - CrazyCat - 07/03/2008
Je pense qu'un petit cours sur les expressions régulières t'aurait aidé:
tcl
if { [regsub -all "\b$badw\b" $args "" dummy] } {
RE: Problème anti insultes - Alpha_67 - 07/03/2008
Je débute donc oui certainement ;)
mais le script déconne donc autant ne pas le garder....
;)
RE: Problème anti insultes - CrazyCat - 07/03/2008
Il est clair que le script n'est pas bon, car il cherche une chaine de caractère sans options particulières (mot entier, début de mot, fin de mot).
RE: Problème anti insultes - Alpha_67 - 07/03/2008
Fallait le dire avant :D je l'aurais directement supprimé...
@+