bind pub - * badwords:check

proc badwords:check {nick host hand chan text} { 
  global badword botnick
         
         if {[file exists $chan.db]} {
 set cword [split [read [set fwl [open $chan.db]]] \n][close $fwl]
} { set cword [list] }

      foreach line $cword {
      if {[string match -nocase $text $line]} {puthelp "privmsg $chan :bla bla bla "}
      }
 }