bind join - * RanaUsman:wjoin
 
proc RanaUsman:wjoin {nick uhost hand chan} {
  global urchan reason banmask
  if {(([lsearch -exact [string tolower $urchan] [string tolower $chan]] != -1)  || ($urchan == ""))} {
  if {([matchattr $hand p]) || ([isbotnick $nick])} {return 0}
    putquick "MODE $chan +b *!*@[join [lindex [split [getchanhost $nick] @] 1]]"
    putkick $chan $nick $reason
  }
}