Net::Jabber::Query::Agents - Jabber Query Agents Module
Net::Jabber::Query::Agents is a companion to the Net::Jabber::Query module. It provides the user a simple interface to set and retrieve all parts of a Jabber Query Agents.
To initialize the Agents with a Jabber <iq/> you must pass it the XML::Parser Tree array from the module trying to access the <iq/>. In the callback function: use Net::Jabber; sub iqCB { my $iq = new Net::Jabber::IQ(@_); my $agents = $iq->GetQuery(); . . . } You now have access to all of the retrieval functions available. To create a new Agents request to send to the server: use Net::Jabber; $client = new Net::Jabber::Client(); $iq = new Net::Jabber::IQ(); $agents = $iq->NewQuery("jabber:iq:agents"); $client->Send($iq); Or you can call the creation functions below before sending. For more information about the array format being passed to the CallBack please read the Net::Jabber::Client documentation.
@agents = $agents->GetAgents();
$agent = $agents->NewAgent(jid=>"icq.jabber.org", name=>"ICQ Transport", description=>"This is the ICQ Transport", transport=>"ICQ#", service=>"icq", register=>"", search=>""); $agent = $agents->NewAgent(); $agent->SetXXXXX()
GetAgents() - returns an array of jabber:iq:agent objects. For more info on this object see the docs for Net::Jabber::Query::Agent.
NewAgent(jid=>string, - creates a new jabber:iq:agent object name=>string, and sets multiple fields in the <iq/> description=>string, at one time. This is a cumulative and transport=>string, over writing action. If you set the service=>string, "jid" attribute twice, the second register=>string, setting is what is used. If you set search=>string) the name, and then set the search then both will be in the <iq/> tag. For valid settings read the specific Set functions in Net::Jabber::Query::Agent. This function returns a new JID object that you can call the SetXXX functions on directly if you want.
By Ryan Eatmon in May of 2000 for http://jabber.org..
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Net::Jabber, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Jabber
CPAN shell
perl -MCPAN -e shell install Net::Jabber
For more information on module installation, please visit the detailed CPAN module installation guide.