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 <[EMAIL PROTECTED]>
_______________________________________________
jdev mailing list
[EMAIL PROTECTED]
http://mailman.jabber.org/listinfo/jdev
