[jdev] Net::Jabber and DISCO

[Stefan Strigler]

Am Fr, den 13.08.2004 schrieb Stefan Strigler um 16:48:
> Hi there,
> 
> trying to reply to a disco#info request inside component written in
> Net::Jabber. What's the right way to do this. Obviously 
> 
> sub handleDiscoInfo() {
> 	my $IQ = $_[0];
> 	my $iqReply = $IQ->Reply(type=>'result');
> 	my $iqQuery =
> 	$iqReply->NewQuery("http://jabber.org/protocol/disco#info");
> 	
> 	$iqQuery->SetIdentity('category' => 'store','type' => 'file','name' =>
> 'Message Archive');
> 
> 	$iqQuery->SetFeature('var'=>'http://jabber.org/protocol/archive');
> 	
> 	$cmp->Send($iqReply);
> }
> 
> doesn't work. Get's me the following error:
> 
> Undefined function SetIdentity in package Net::Jabber::Query at
> /usr/lib/perl5/vendor_perl/5.8.2/Net/Jabber/Query.pm line 887
> 
> 
> Any help appreciated,

Please ignore. Functions are named differently from the manual page ...

Greets,
Steve