как в 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();
Вариант для распечатки
(??) on 02-Дек-11, 19:33 
