powered by Jive Software

Auth Wildfire by Perl

Hi,

I try connect wildfire by Perl CPAN ,but it always error.

How fix it?

#!/usr/bin/perl

use Net::Jabber qw(Client) ;

use Net::Jabber qw(Message) ;

use Net::Jabber qw(Protocol) ;

use Net::Jabber qw(Presence) ;

$connection = Net::Jabber::Client->new();

$connection->Connect( “hostname” => “jabber.intranet.com”,

“port” => “5222”,

“ssl” => 0 ) or die “Conn error”;

@result = $connection->AuthSend( “username” => “test”,

“password” =>“password”,

“resource” => “psi”,

“ssl” => 0 );

if ($result[0] ne “ok”) {

die “Ident/Auth with server failed: $result[0] - $result[1]\n”;

}

$connection->Disconnect();

exit;

I’‘m assuming you’'re using a real domain name instead of “jabber.intranet.com”?

-Matt

Comment out line 1772 of Net/XMPP/Protocol.pm in your Net::XMPP installation. There’‘s a problem with Net::XMPP and SASL authentication. By commenting out that line you always use the old style Jabber authentication mechanism. It’‘s a hack but it works. I haven’'t had time to debug the issue with SASL auth to determine where the problem lies.

Thanks