/ 
Net-XMPP2-0.01
/ Net::XMPP2::Client

NAME

Net::XMPP2::Client - A XMPP Client abstraction

SYNOPSIS

use Net::XMPP2::Client;
use AnyEvent;

my $j = AnyEvent->condvar;

my $cl = Net::XMPP2::Client->new;
$cl->start;

$j->wait;

DESCRIPTION

This module tries to implement a straight forward and easy to use API to communicate with XMPP entities. Net::XMPP2::Client handles connections and timeouts and all such stuff for you.

For more flexibility please have a look at Net::XMPP2::Connection and Net::XMPP2::IM::Connection, they allow you to control what and how something is being sent more precisely.

METHODS

new (%args)

Following arguments can be passed in %args:

add_account ($jid, $password, $host, $port)

This method adds a jabber account for connection with the JID $jid and the password $password.

$host and $port are optional and can be undef. $host overrides the host to connect to.

Returns 1 on success and undef when the account already exists.

start ()

This method initiates the connections to the XMPP servers.

update_connections ()

This method tries to connect all unconnected accounts.

disconnect ($msg)

Disconnect all accounts.

remove_accounts ($msg)

Removes all accounts and disconnects.

remove_account ($acc)

Removes and disconnects account $acc.

send_message ($msg, $dest_jid, $src)

Sends a message to the destination $dest_jid. $msg can either be a string or a Net::XMPP2::IM::Message object. If $msg is such an object $dest_jid is optional, and will, when passed, override the destination of the message.

$src is optional. It specifies which account to use to send the message. If it is not passed Net::XMPP2::Client will try to find an account itself. First it will look through all rosters to find $dest_jid and if none found it will pick any of the accounts that are connected.

$src can either be a JID or a Net::XMPP2::IM::Account object as returned by add_account and get_account.

get_account ($jid)

Returns the Net::XMPP2::IM::Account account object for the JID $jid if there is any such account added. (returns undef otherwise).

get_accounts ()

Returns a list of Net::XMPP2::IM::Accounts.

get_accounts ()

Returns a list of connected Net::XMPP2::IM::Accounts.

Same as:

grep { $_->is_connected } $client->get_accounts ();

find_account_for_dest_jid ($jid)

This method tries to find any account that has the contact $jid on his roster. If no account with $jid on his roster was found it takes the first one that is connected. (Return value is a Net::XMPP2::IM::Account object).

If no account is connected it returns undef.

get_contacts_for_jid ($jid)

This method returns all contacts that we are connected to. That means: It joins the contact lists of all account's rosters that we are connected to.

get_priority_presence_for_jid ($jid)

This method returns the presence for the contact $jid with the highest priority.

If the contact $jid is on multiple account's rosters it's undefined which roster the presence belongs to.

set_presence ($show, $status, $priority)

This sets the presence of all accounts. For a meaning of $show, $status and $priority see the description of the %attrs hash in send_presence method of Net::XMPP2::Writer.

EVENTS

In the following event descriptions the argument $account is always a Net::XMPP2::IM::Account object.

All events from Net::XMPP2::IM::Connection are forwarded to the client, only that the first argument for every event is a $account object.

Aside fom those, these events can be registered on with reg_cb:

connected => $account

This event is sent when the $account was successfully connected.

connect_error => $account

This event is emitted when an error occured in the connection process for the account $account.

error => $account

This event is emitted when any error occured while communicating over the connection to the $account - after a connection was established.

AUTHOR

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

COPYRIGHT & LICENSE

Copyright 2007 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.