02/04/2017, 00:55
(02/04/2017, 00:14)CrazyCat a écrit : Vous avez pourtant tous les éléments...
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 }
Super, merci beaucoup !