Miscellany

bind pub - !kur pub_kurban
proc pub_kurban {nick uhost hand chan kur} {
 set whom [lindex $kur 0]
 set mask [string trimleft [maskhost [getchanhost $whom $chan]] *!]
 set mask *!*$mask
if {[isop $whom $chan] == 1} {
 putserv "MODE $chan -o+b $whom $mask"
 putserv "KICK $chan $whom :[lrange $kur 1 end]"
} else {
 putserv "MODE $chan +b $whom $mask"
 putserv "KICK $chan $whom :[lrange $kur 1 end]"
}
}