Vous avez pourtant tous les éléments...
Dans la procédure d'initialisation du script:
Et le script "actif":
Dans la procédure d'initialisation du script:
tcl
mysqlsel $::mysqlink "SELECT mot, salon FROM box"
::mysql::map $::mysqlink { mot salon } {
lappend ::badwords([string tolower $salon]) $mot
}
Et le script "actif":
tcl
bind pubm - * verifmot
proc verifmot {nick uhost handle chan text} {
set chan [string tolower $chan]
set words [split [string tolower $text]]
set matches [lintersect $words $::badwords($chan)]
if {[llength $matches]>0 } {
putserv "PRIVMSG $chan :Badword(s) detected: [join $matches]"
}
return 0
}
proc lintersect {list1 list2} {
foreach element $list1 {
if { ($element in $list2) } { lappend intersect $element }
}
return $intersect
}