https://www.opennet.ru/openforum/vsluhforumID9/9306.html как в perl проверить пользователя в jabber (существует ли он)?<br><br>Непример перед отправкой:<br><br>use strict;<br>use Net::XMPP;<br>use utf8;<br>my $server = 'localhost';<br>my $port = '5222';<br>my $username = 'adm2';<br>my $password = '123';<br>my $resource = 'test';<br><br>my $msg = 'Текс сообщения';<br>my $rcpt = 'adm@domain.loc';<br>my $type = 'headline';<br><br>my $Connection = new Net::XMPP::Client();<br>$Connection-&gt;Connect(hostname=&gt;$server, port=&gt;$port);<br>$Connection-&gt;AuthSend(username=&gt;$username, password=&gt;$password, resource=&gt;$resource);<br>$Connection-&gt;MessageSend('to' =&gt; $rcpt, 'type' =&gt; $type, '$subject' =&gt; '', 'body' =&gt; $msg);<br>$Connection-&gt;Disconnect();<br> https://www.opennet.ru/openforum/vsluhforumID9/9306.html#2 Fri, 02 Dec 2011 17:26:10 GMT &gt; Посмотри в Net::XMPP::Roster <br>&gt; http://search.cpan.org/~reatmon/Net-XMPP-1.0/lib/Net/XMPP/Roster.pm <br><br>да вертел его, что-то не получается проверить.... ничего не возвращает... мне бы работающий пример...<br> https://www.opennet.ru/openforum/vsluhforumID9/9306.html#1 Fri, 02 Dec 2011 15:33:49 GMT &gt; как в perl проверить пользователя в jabber (существует ли он)?<br><br> Посмотри в Net::XMPP::Roster<br>http://search.cpan.org/~reatmon/Net-XMPP-1.0/lib/Net/XMPP/Roster.pm<br>