NAME

       AnyEvent::XMPP::Ext::Disco - Service discovery manager class for XEP-0030

SYNOPSIS

          use AnyEvent::XMPP::Ext::Disco;

          my $con = AnyEvent::XMPP::IM::Connection->new (...);
          $con->add_extension (my $disco = AnyEvent::XMPP::Ext::Disco->new);
          $disco->request_items ($con, 'romeo@montague.net', undef,
             sub {
                my ($disco, $items, $error) = @_;
                if ($error) { print "ERROR:" . $error->string . "\n" }
                else {
                   ... do something with the $items ...
                }
             }
          );

DESCRIPTION

       This module represents a service discovery manager class.  You make instances of this
       class and get a handle to send discovery requests like described in XEP-0030.

       It also allows you to setup a disco-info/items tree that others can walk and also lets you
       publish disco information.

       This class is derived from AnyEvent::XMPP::Ext and can be added as extension to objects
       that implement the AnyEvent::XMPP::Extendable interface or derive from it.

METHODS

       new (%args)
           Creates a new disco handle.

       set_identity ($category, $type, $name)
           This sets the identity of the top info node.

           $name is optional and can be undef.  Please note that $name will overwrite all
           previous set names! If $name is undefined then no previous set name is overwritten.

           For a list of valid identites look at:

              http://www.xmpp.org/registrar/disco-categories.html

           Valid identity $types for "$category = "client"" may be:

              bot
              console
              handheld
              pc
              phone
              web

       unset_identity ($category, $type)
           This function removes the identity $category and $type.

       enable_feature ($uri)
           This method enables the feature $uri, where $uri should be one of the values from the
           Name column on:

              http://www.xmpp.org/registrar/disco-features.html

           These features are enabled by default:

              http://jabber.org/protocol/disco#info
              http://jabber.org/protocol/disco#items

           You can pass also a list of features you want to enable to "enable_feature"!

       disable_feature ($uri)
           This method enables the feature $uri, where $uri should be one of the values from the
           Name column on:

              http://www.xmpp.org/registrar/disco-features.html

           You can pass also a list of features you want to disable to "disable_feature"!

       request_items ($con, $dest, $node, $cb)
           This method does send a items request to the JID entity $from.  $node is the optional
           node to send the request to, which can be undef.

           $con must be an instance of AnyEvent::XMPP::Connection or a subclass of it.  The
           callback $cb will be called when the request returns with 3 arguments: the disco
           handle, an AnyEvent::XMPP::Ext::Disco::Items object (or undef) and an
           AnyEvent::XMPP::Error::IQ object when an error occured and no items were received.

           The timeout of the request is the IQ timeout of the connection $con.

              $disco->request_items ($con, 'a@b.com', undef, sub {
                 my ($disco, $items, $error) = @_;
                 die $error->string if $error;

                 # do something with the items here ;_)
              });

       request_info ($con, $dest, $node, $cb)
           This method does send a info request to the JID entity $from.  $node is the optional
           node to send the request to, which can be undef.

           $con must be an instance of AnyEvent::XMPP::Connection or a subclass of it.  The
           callback $cb will be called when the request returns with 3 arguments: the disco
           handle, an AnyEvent::XMPP::Ext::Disco::Info object (or undef) and an
           AnyEvent::XMPP::Error::IQ object when an error occured and no items were received.

           The timeout of the request is the IQ timeout of the connection $con.

              $disco->request_info ($con, 'a@b.com', undef, sub {
                 my ($disco, $info, $error) = @_;
                 die $error->string if $error;

                 # do something with info here ;_)
              });

AUTHOR

       Robin Redeker, "<elmex at ta-sa.org>", JID: "<elmex at jabber.org>"

COPYRIGHT & LICENSE

       Copyright 2007, 2008 Robin Redeker, all rights reserved.

       This program is free software; you can redistribute it and/or modify it under the same
       terms as Perl itself.