++ed by:

2 non-PAUSE users.

Ryan Eatmon


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");


  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.

Retrieval functions

    @agents      = $agents->GetAgents();
    @agentTreess = $agents->GetAgentTrees();

Creation functions

    $agent = $agents->NewAgent();
    $agent = $agents->NewAgent(jid=>"icq.jabber.org",
                               name=>"ICQ Transport",
                               description=>"This is the ICQ Transport",


Retrieval functions

  GetAgents() - returns an array of Net::Jabber::Query::Agent
                objects.  For more info on this object see the
                docs for Net::Jabber::Query::Agent.

  GetAgentTrees() - returns an array of XML::Parser objects that
                    contain the data for each agent.

Creation functions

  NewAgent(hash) - creates and returns a new Net::Jabber::Query::Agent
                   object.  The argument hash is passed to the SetAgent
                   function.  Check the Net::Jabber::Query::Agent 
                   man page for the valid values.


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.