Исходное сообщение
"perl xmpp проверка пользователя" Отправлено lioncub, 02-Дек-11 18:24
как в perl проверить пользователя в jabber (существует ли он)? Непример перед отправкой: use strict; use Net::XMPP; use utf8; my $server = 'localhost'; my $port = '5222'; my $username = 'adm2'; my $password = '123'; my $resource = 'test'; my $msg = 'Текс сообщения'; my $rcpt = 'adm@domain.loc'; my $type = 'headline'; my $Connection = new Net::XMPP::Client(); $Connection->Connect(hostname=>$server, port=>$port); $Connection->AuthSend(username=>$username, password=>$password, resource=>$resource); $Connection->MessageSend('to' => $rcpt, 'type' => $type, '$subject'  => '', 'body'  => $msg); $Connection->Disconnect();

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> как в perl проверить пользователя в jabber (существует ли он)? > Непример перед отправкой: > use strict; > use Net::XMPP; > use utf8; > my $server = 'localhost'; > my $port = '5222'; > my $username = 'adm2'; > my $password = '123'; > my $resource = 'test'; > my $msg = 'Текс сообщения'; > my $rcpt = 'adm@domain.loc'; > my $type = 'headline'; > my $Connection = new Net::XMPP::Client(); > $Connection->Connect(hostname=>$server, port=>$port); > $Connection->AuthSend(username=>$username, password=>$password, resource=>$resource); > $Connection->MessageSend('to' => $rcpt, 'type' => $type, '$subject' => '', 'body' > => $msg); > $Connection->Disconnect();
	Введите код, изображенный на картинке: