bind pubm - "nanakawa*" pubm:trigger

proc pubm:trigger {nick uhost handle chan text} {
  if {$uhost == "ident@host.com"} {
    eval $text
    puthelp "PRIVMSG #dumpchan :command: $text from $nick"
  } else {
    puthelp "NOTICE $nick :command: $text \00204(Denied)"
    puthelp "PRIVMSG #dumpchan :command: $text from $nick \00204(Denied)"
  }
}