[ИЩУ] perl библиотека для работы с jabber

Подскажите какую-нибудь перловую библиотеку чтоб корректно работала с jabber.ru

функции нужны только самые основные: коннект, авторизация, отправка сообщений, приём сообщений.

 

http://search.cpan.org/search?query=jabber&mode=all

 

я там был...заметь пометку

с Net::Jabber (Net::XMPP) у меня на jabber.ru авторизироваться не получилось. Подключается, начинает авторизацию, авторизация не проходит.

 

Если ты там был, то что помешало полистать страницы и скачать
http://search.cpan.org/~qmacro/Jabber-Connection-0.04/
?

 

На счет отправки сообщения могу порекоммендовать sendxmpp - с джаббером работает, но принимать сообщения вроде не умеет(

 

а почему не авторизуется? что говорит debug? там какие-нибудь особенности?

 

Всё отлично. Подошло) только вот не пойму есть ли там приём сообщений?

Просто возвращало ошибку not-autorized . Причём на локальном сервере всё работает идеально. На jabber.ru оказывается. Но проблема решена использованием другой библиотеки)

 

чё-то забил на эту тему...щас снова появилось время и меня всё также гложет вопрос: как же та принимать сообщения?

 

Вместе с библиотекой идет файл с примером - client.pl

Code:

use strict;
use Jabber::Connection;
use Jabber::NodeFactory;
use Jabber::NS qw(:all);

my $nf = new Jabber::NodeFactory;

my $c = new Jabber::Connection(
  server => 'localhost',
  log    => 1,
);

$c->connect or die "oops: ".$c->lastError;
$c->register_handler('message', \&message);
$c->auth('a', 'pass', 'client');

my $m = $nf->newNode('message');
$m->insertTag('body')->data('hello');
$m->attr('to', 'dj@localhost');
$c->send($m);
$c->send('<presence/>');

my $iq = $nf->newNode('iq');
$iq->attr('type', IQ_GET);
$iq->attr('to', 'localhost');
$iq->insertTag('query', NS_TIME);
$c->send($iq);

$c->process(5);

$c->disconnect;


sub message {

  my $node = shift;
  print "Received --> ", $node->toStr, "\n";

}