bind pub n|n .bh ban:host
proc ban:host { nick host handle chan text  } {
set stext [lindex [split [getchanhost $text $chan] @] 1]
set reason "PErmanently banned"
  newban $stext $handle $reason 0
 }