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;