####################################################
# by wiebe @ QuakeNet
#
####################################################

####################################################
# matchignore
# matchignore mask (nick!user@host format)
# returns 1 if a matching ignore exists, 0 otherwise
####################################################
proc matchignore { m } {
  if {[isignore $m]} { return 1 }
  regsub -all {[][\\]} $m {\\\0} m
  foreach e [ignorelist] { if {[string match -nocase [lindex $e 0] $m]} { return 1 } }
  return 0
}


set scriptdb(matchignore) {
  "provides matchignore proc since eggdrop does not have this."
}