S3.Blog

Долго же я бился над передачей русского текста в jabber...
Перепробовал многие варианты:

• исходный текст в UTF-8 == кракозяблы
• исходный текст в WIN == кракозяблы
• исходный текст в KOI8 == кракозяблы
• utf8::decode($message); == кракозяблы

Ничего не помогало, пока случайно не наткнулся на исходник Jabber Shell Bot
Решение не очевидное, но, как ни странно, работающее:

use Net::Jabber;
use Encode;
....

$message = 'blablabla'; # текст должен быть в UTF-8 !!!
$message = Encode::decode('utf-8', $message);
....

$jabber->MessageSend( to => $to, body => $message, "type" => "chat" );