[Demande] bind pubm SQL

[DiXiT]

Pour ma part, je ne sais pas comment set une liste a partir d'une base SQL aurais-tu un TCL ou un exemple sous la main s'il te plait @CrazyCat ? Merci

[CrazyCat]

Vous avez pourtant tous les éléments...

Dans la procédure d'initialisation du script:

tclcopier

mysqlsel $::mysqlink "SELECT mot, salon FROM box"
::mysql::map $::mysqlink { mot salon } {
   lappend ::badwords([string tolower $salon]) $mot
}

Et le script "actif":

tclcopier

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
}

[DiXiT]

Vous avez pourtant tous les éléments...

Dans la procédure d'initialisation du script:

tclcopier

mysqlsel $::mysqlink "SELECT mot, salon FROM box"
::mysql::map $::mysqlink { mot salon } {
   lappend ::badwords([string tolower $salon]) $mot
}

Et le script "actif":

tclcopier

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 !