[perl] Net::Jabber

немного не в тему - у меня работает Net::XMPP2

если ответов больше не будет......

работает. да, текстом.
код покажите.

use Jabber::SimpleSend qw(send_jabber_message);

send_jabber_message('shmah@jabber.ru',
'partiya',
'kaj@darkdna.net',
'Subject!',
'Hello!');


пароль и пользователь - настоящие.
если использовать сабж, то же самое. ну раз у всех работает, не все потеряно!

Jabber::SimpleSend - обёртка, не умеющая tls, я думаю, что дело в этом.
Используй напрямую Net::Jabber. Возьми вон тот же Jabber::SimpleSend как пример и переделай.

я и так тоже пробовал.

use Net::Jabber;
my $client = new Net::Jabber::Client (debuglevel => 1);

$client->SetCallBacks (send => sub { print "message was sent\n"; }, onauth => sub { print "authorized\n" });

$client->Execute(hostname=>'jabber.ru',
username=>'shmah',
password=>'partiya',
resource=>'Test',
tls=>1
);

$client->Connected || die "Not Connected\n";

==========================================
вот конец лога:

XMPP::Conn: Execute: Connected...
XMPP::Conn: AuthSASL: shiney new auth
XML::Stream: Send: (<auth xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='DIGEST-MD5'></auth>)
XMPP::Conn: AuthSASL: haven't authed yet... let's wait.
XMPP::Conn: Process: timeout(1)
XML::Stream: Read: buff(<challenge xmlns='urn:ietf:params:xml:ns:xmpp-sasl'>bm9uY2U9IjE5MTQ0Nzg5MjQiLHFvcD0iYXV0aC IsY2hhcnNldD11dGYtOCxhbGdvcml0aG09bWQ1LXNlc3M=</challenge>)
XML::Stream: Send: (<response xmlns='urn:ietf:params:xml:ns:xmpp-sasl'>YXV0aHppZD0ic2htYWhAamFiYmVyLnJ1IixjaG Fyc2V0PXV0Zi04LGNub25jZT0iODYzMWZiOGI1YjBhNGJhOGQxNDI1NzUzMmQyNjc2MTQiLGRpZ2VzdC 11cmk9Ii8iLG5jPTAwMDAwMDAxLG5vbmNlPSIxOTE0NDc4OTI0Iixxb3A9YXV0aCxyZXNwb25zZT03Mm IzODE5NGI2ZGQ4N2E5ODI5NjlmZWEyYjg1ZTgxNyx1c2VybmFtZT0ic2htYWgi</response>)
XMPP::Conn: AuthSASL: haven't authed yet... let's wait.
XMPP::Conn: Process: timeout(1)
XML::Stream: Read: buff(<failure xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><not-authorized/></failure>)
XMPP::Conn: AuthSASL: Authentication failed.
XMPP::Conn: Execute: Could not auth with server: (error: not-authorized)
XMPP::Conn: Execute: Register turned off. Exiting.
XML::Stream: Send: (</stream:stream>)
XML::Stream: SetCallBacks: tag(node) func(CODE(0xa498160))
XMPP::Conn: Disconnect: bye bye
XMPP::Conn: Connected: (0)
XMPP::Conn: Execute: end
XMPP::Conn: Connected: (0)
Not Connected

==================================================

не получается авторизоваться
можете у себя такой код запустить ? (если не трудно)
там вроде могут быть проблемы из-за версий всяких модулей, напр IO::Socket::SSL, но я не знаю точно

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


#!/usr/bin/perl
use Net::Jabber;
use strict;
use warnings;

my $client = new Net::Jabber::Client (debuglevel => 1);

$client->PresenceDB();
$client->RosterDB();

$client->SetCallBacks (send => sub { print "message was sent\n"; }, onauth => sub { print "authorized\n" });

$client->Connect(
hostname=>'aumi.ru',
);

my @result=$client->AuthSend(
username=>'marisa',
password=>'********',
resource=>'Test',
);


$client->Connected || die "Not Connected\n";

спасибо, но
authentification failed :)
кстати с XMPP2 тоже ничего не получилось