Jabber - temporary-auth-failure

w3b has asked for the wisdom of the Perl Monks concerning the following question:

So I writing client for jabber... and i do everythink like cpan 'say' and it dosen't work... i used 'print $hm' to saw connection status and it was: temporary-auth-failure, and here is a code:

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

my $con = new Net::Jabber::Client();

$con->SetCallBacks("message" => \&InMessage,
                   "presence" => \&InPresence,
                   "iq" => \&InIQ
                 );

my $lol = $con->Connect(hostname => 'chrome.pl');

my $hm = $con->AuthSend(username=>'login',
                        password=>'password',
                        resource=>'w3b');
print $hm;
[download]

thx :)

Comment on Jabber - temporary-auth-failure Download Code

Replies are listed 'Best First'.
Re: Jabber - temporary-auth-failure by gellyfish (Monsignor) on May 12, 2006 at 19:24 UTC
Well I would guess that the problem is actually on the server end as that code should work (assuming you have the username and password correct), you could try setting the debugging on as described in the documentation to see if that sheds any extra light on the matter. Of course there are already Jabber clients in Perl such as Jarl. /J\	[reply]