[Net::Jabber] problem with logging


£

£ucio

I'd like to send a message with Net::Jabber using a gadu-gadu (a polish
communicator) gateway. I have a working fine jabber account with gadu-gadu
gateway transport activated (it works fine from a regular jabber client),
but when i use a perl script to send a message to
(e-mail address removed), I get an error "Not logged in":

..
..
..
XMPP::Conn: AuthIQAuth: we authed!
XMPP::Conn: Connected: (1)
XMPP::Conn: SendXML: sent(<message to='(e-mail address removed)'><body>To
jest test.</body><subject>test</subject></message>
)
XML::Stream: Send: (<message to='(e-mail address removed)'><body>To jest
test.</body><subject>test</subject></message>
)
XMPP::Conn: Process: timeout(1)
XML::Stream: Read: buff(<message from='(e-mail address removed)'
to='(e-mail address removed)
..pl/SimpleSend' type='error' code='407'><error>Not logged
in</error><body>This is my test.</body></message>)
XMPP::Conn: CallBack: sid(44678BD7) received(<message code='407'
from='[email protected]
g.aster.pl' to='(e-mail address removed)/SimpleSend' type='error'><error>Not
logged i
n</error><body>This is my test.</body></message>)
XMPP::Conn: CallBack: tag(message)
XMPP::Conn: CallBack: we either want it or were waiting for it.
XMPP::Conn: CallBack: check directxpath
XMPP::Conn: CallBack: check
directxpath(/[@xmlns="urn:ietf:params:xml:ns:xmpp-sa
sl"])
XMPP::Conn: CallBack: check
directxpath(/[@xmlns="urn:ietf:params:xml:ns:xmpp-tl
s"])
XMPP::Conn: BuildObject: tag(message) package(Net::Jabber::Message)
XMPP::Conn: CheckID: tag(message) id()
XMPP::Conn: CallBack: no registry entry
XMPP::Conn: CallBack: goto user function(CODE(0x184ed3c))
XML::Stream: Send: (</stream:stream>)
XML::Stream: SetCallBacks: tag(node) func(CODE(0x184f6a8))
XMPP::Conn: Disconnect: bye bye


And here's my code:

use Net::Jabber;
my $c = new Net::Jabber::Client();
die("Could not connect to Jabber server") unless $c->Connect( 'hostname'
=> 'jabber.aster.pl', 'port' => 5222 );
$c->AuthSend( 'username' => 'jid', 'password' => 'password', 'resource' =>
'resource');
die "Authentication failed" unless ($c->Connected());
$c->Disconnect();


Do I need some kind of special method to log into this gateway?

Waiting for any help!
 
Ad

Advertisements


Top