Net::Jabber 1.0024 on debian stable.
Just starting in on XDB.
OK - I have jabberd sending jabber:iq:auth through to my perl
script. If I dump the incoming xdb object thus (the rest of the script
is cribbed almost directly from component_accept.pl):
sub xdbCB {
my $sid = shift;
my $xdb = shift;
print Dumper($xdb);
}
I get:
$VAR1 = bless( {
'CHILDREN' => {},
'TAG' => 'xdb',
'DATA' => {
'id' => '62',
'type' => 'get',
'to' => bless( {
'RESOURCE' => '',
'JID' => '[EMAIL PROTECTED]',
'USERID' => 'chris',
'VERSION' => '1.0024',
'SERVER' => 'jabber.longship.org'
}, 'Net::Jabber::JID' ),
'from' => bless( {
'RESOURCE' => '',
'JID' => 'sessions',
'USERID' => '',
'VERSION' => '1.0024',
'SERVER' => 'sessions'
}, 'Net::Jabber::JID' ),
'ns' => 'jabber:iq:auth'
},
'DEBUGHEADER' => 'XDB',
'VERSION' => '1.0024'
}, 'Net::Jabber::XDB' );
So - it looks like data is there.
But - add the line:
my $reply = $xdb->Reply(type=>"result");
and you get:
Can't call method "GetXMLNS" on an undefined value at
/usr/share/perl5/Net/Jabber/XDB.pm line 392.
(the same happens if you call ->Reply() also).
line 392 is trying to call:
$reply->NewData($selfData->GetXMLNS());
where $selfData is the return from $self->GetData();
I also get undef if I try to access $xdb->GetData().
What have I missed?
Thanks in advance
--
Chris Searle
_______________________________________________
jdev mailing list
[EMAIL PROTECTED]
http://mailman.jabber.org/listinfo/jdev
