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

SharkyFLY

Дата 25.7.2009, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.7.2009

Репутация: нет
Всего: нет

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

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

DaemonSuw

Дата 26.7.2009, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 11.3.2008

Репутация: 3
Всего: 3

AnyEvent::XMPP

Это сообщение отредактировал(а) DaemonSuw - 26.7.2009, 09:31

SharkyFLY

Дата 26.7.2009, 12:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.7.2009

Репутация: нет
Всего: нет

Цитата(DaemonSuw @ 26.7.2009, 09:30)

AnyEvent::XMPP

Чё то не пойму, а как там принимать соообщения?

DaemonSuw

Дата 26.7.2009, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 11.3.2008

Репутация: 3
Всего: 3

Скачав архив модуля со спана, можно найти папку samples - где есть примеры скриптов.
можно получить повесив на событие message_xml анонимную функцию:

Код



$con->reg_cb (message_xml => sub {
      my ($con, $node) = @_;
................
   });

Сообщение придет в в виде объекта AnyEvent::XMPP::Node...

или можно создать объект коннекта AnyEvent::XMPP::IM::Connection там есть тоже событие, но для удобства в анонимную функцию передается просто объект AnyEvent::XMPP::IM::Message...

Еще есть немного инфы в топике http://forum.vingrad.ru/forum/topic-255545...xmpp/index.html

Модуль 100% работает с jabber.org проверял сам!

Это сообщение отредактировал(а) DaemonSuw - 26.7.2009, 14:13

SharkyFLY

Дата 3.8.2009, 12:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.7.2009

Репутация: нет
Всего: нет

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

DaemonSuw

Дата 3.8.2009, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 11.3.2008

Репутация: 3
Всего: 3

Цитата

Скачав архив модуля со спана, можно найти папку samples - где есть примеры скриптов.

Код


#!/opt/perl/bin/perl
use strict;
use utf8;
use AnyEvent::Impl::Tk;
use AnyEvent;
use AnyEvent::XMPP::Client;

my $j = AnyEvent->condvar;
my $cl = AnyEvent::XMPP::Client->new (debug => 1);
$cl->add_account ('[email protected]', 'test');
$cl->reg_cb (
   session_ready => sub {
      my ($cl, $acc) = @_;
      print "session ready\n";
      $cl->send_message (
         "Hi! I'm too lazy to adjust examples!" => '[email protected]', undef, 'chat'
      );
   },
   disconnect => sub {
      my ($cl, $acc, $h, $p, $reas) = @_;
      print "disconnect ($h:$p): $reas\n";
      $j->broadcast;
   },
   error => sub {
      my ($cl, $acc, $err) = @_;
      print "ERROR: " . $err->string . "\n";
   },
   message => sub {
      my ($cl, $acc, $msg) = @_;
      print "message from: " . $msg->from . ": " . $msg->any_body . "\n";
   }
);
$cl->start;
$j->wait;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »