bind pub -|- {!test} test_handler bind pub -|- {!тест} test_handler proc test_handler { unick uhost uhandle uchannel utext } { set text [string toupper "$unick on $uchannel, you said (ты сказал): $utext ([encoding system])"] putserv "PRIVMSG $channel :$text" }