[jdev] Net::Jabber and DISCO

[Stefan Strigler]

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,

Steve