[JDEV] Registration with Net::Jabber

[Christophe Sauthier]

Hi,

I am playing a bit with Net::Jabber and I've a rellay weird problem: I
am trying to register to my jabber server (but with a plublic one I got
the same result, so my server is not the pb).

I want to retreive the elements needed to register: here my code

#!/usr/bin/perl -w
use Net::Jabber(Client);
$hostname=$ARGV[0];

$connexion=new Net::Jabber::Client();
$connexion->Connect(hostname=>$hostname);


if ($connexion->Connected()) {
	print "connected";
	%resultats=$connexion->RegisterRequest();
 	print "Fields: ",join(', ',keys %resultats),"\n";	

	
	$connexion->Disconnect();
	print "disconnected";	
}

But when I test it, I've got something weird:
	connected
	Odd number of elements in anonymous hash at
	/usr/share/perl5/Net/Jabber/Protocol.pm line 2533.
	Fields: fields
	Values: HASH(0x870c5e8)
	disconnected

In fact it gets only one key nammed fields and no value attached... IS
anybody got an idea ? because I can see why...

	chris

-- 
Christophe Sauthier <liste at reponses.net>