/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * Copyright (C) 2007 Collabora Ltd.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this program; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 * 
 * Authors: Xavier Claessens <xclaesse@gmail.com>
 */

#include <config.h>

#include <string.h>

#include <libtelepathy/tp-conn.h>
#include <libtelepathy/tp-conn-iface-aliasing-gen.h>
#include <libtelepathy/tp-conn-iface-presence-gen.h>
#include <libtelepathy/tp-conn-iface-avatars-gen.h>
#include <libmissioncontrol/mission-control.h>

#include "empathy-contact-factory.h"
#include "empathy-utils.h"
#include "empathy-debug.h"

#define GET_PRIV(obj) (G_TYPE_INSTANCE_GET_PRIVATE ((obj), \
		       EMPATHY_TYPE_CONTACT_FACTORY, EmpathyContactFactoryPriv))

#define DEBUG_DOMAIN "ContactFactory"

struct _EmpathyContactFactoryPriv {
	MissionControl *mc;
	GHashTable     *accounts;
};

typedef struct {
	EmpathyContactFactory *factory;
	McAccount             *account;
	guint                  nb_pending_calls;

	TpConn                *tp_conn;
	DBusGProxy            *aliasing_iface;
	DBusGProxy            *avatars_iface;
	DBusGProxy            *presence_iface;

	GList                 *contacts;
	guint                  self_handle;
} ContactFactoryAccountData;

typedef struct {
	ContactFactoryAccountData *account_data;
	GList                     *contacts;
} RequestHandlesData;

typedef struct {
	ContactFactoryAccountData *account_data;
	guint                     *handles;
} RequestAliasesData;

typedef struct {
	ContactFactoryAccountData *account_data;
	EmpathyContact            *contact;
} RequestAvatarData;

static void empathy_contact_factory_class_init (EmpathyContactFactoryClass *klass);
static void empathy_contact_factory_init       (EmpathyContactFactory      *factory);

G_DEFINE_TYPE (EmpathyContactFactory, empathy_contact_factory, G_TYPE_OBJECT);

static gint
contact_factory_find_by_handle (gconstpointer a,
				gconstpointer b)
{
	EmpathyContact *contact;
	guint           handle; 

	contact = EMPATHY_CONTACT (a);
	handle = GPOINTER_TO_UINT (b);

	return handle - empathy_contact_get_handle (contact);
}

static EmpathyContact *
contact_factory_account_data_find_by_handle (ContactFactoryAccountData *account_data,
					     guint                      handle)
{
	GList *l;

	l = g_list_find_custom (account_data->contacts,
				GUINT_TO_POINTER (handle),
				contact_factory_find_by_handle);

	return l ? l->data : NULL;
}

static gint
contact_factory_find_by_id (gconstpointer a,
			    gconstpointer b)
{
	EmpathyContact *contact;
	const gchar    *id = b;

	contact = EMPATHY_CONTACT (a);

	return strcmp (id, empathy_contact_get_id (contact));
}

static EmpathyContact *
contact_factory_account_data_find_by_id (ContactFactoryAccountData *account_data,
					 const gchar               *id)
{
	GList *l;

	l = g_list_find_custom (account_data->contacts,
				id,
				contact_factory_find_by_id);

	return l ? l->data : NULL;
}

static void contact_factory_account_data_free (gpointer data);

static void
contact_factory_account_data_return_call (ContactFactoryAccountData *account_data)
{
	if (--account_data->nb_pending_calls == 0 &&
	    account_data->contacts == NULL) {
		contact_factory_account_data_free (account_data);
	}
}

static void
contact_factory_presences_table_foreach (const gchar      *state_str,
					 GHashTable       *presences_table,
					 EmpathyPresence **presence)
{
	McPresence    state;
	const GValue *message;

	state = empathy_presence_state_from_str (state_str);
	if (state == MC_PRESENCE_UNSET) {
		return;
	}

	if (*presence) {
		g_object_unref (*presence);
		*presence = NULL;
	}

	*presence = empathy_presence_new ();
	empathy_presence_set_state (*presence, state);

	message = g_hash_table_lookup (presences_table, "message");
	if (message != NULL) {
		empathy_presence_set_status (*presence,
					     g_value_get_string (message));
	}
}

static void
contact_factory_parse_presence_foreach (guint                      handle,
					GValueArray               *presence_struct,
					ContactFactoryAccountData *account_data)
{
	GHashTable      *presences_table;
	EmpathyContact  *contact;
	EmpathyPresence *presence = NULL;

	contact = contact_factory_account_data_find_by_handle (account_data,
							       handle);
	if (!contact) {
		return;
	}

	presences_table = g_value_get_boxed (g_value_array_get_nth (presence_struct, 1));

	g_hash_table_foreach (presences_table,
			      (GHFunc) contact_factory_presences_table_foreach,
			      &presence);

	empathy_debug (DEBUG_DOMAIN, "Changing presence for contact %s (%d) to %s (%d)",
		      empathy_contact_get_id (contact),
		      handle,
		      presence ? empathy_presence_get_status (presence) : "unset",
		      presence ? empathy_presence_get_state (presence) : MC_PRESENCE_UNSET);

	empathy_contact_set_presence (contact, presence);
}

static void
contact_factory_get_presence_cb (DBusGProxy *proxy,
				 GHashTable *handle_table,
				 GError     *error,
				 gpointer    user_data)
{
	ContactFactoryAccountData *account_data = user_data;

	if (error) {
		empathy_debug (DEBUG_DOMAIN, "Error requesting aliases: %s",
			      error->message);
		goto OUT;
	}

	g_hash_table_foreach (handle_table,
			      (GHFunc) contact_factory_parse_presence_foreach,
			      account_data);
OUT:
	contact_factory_account_data_return_call (account_data);
}

static void
contact_factory_presence_update_cb (DBusGProxy                *proxy,
				    GHashTable                *handle_table,
				    ContactFactoryAccountData *account_data)
{
	g_hash_table_foreach (handle_table,
			      (GHFunc) contact_factory_parse_presence_foreach,
			      account_data);
}

static void
contact_factory_set_aliases_cb (DBusGProxy *proxy,
				GError *error,
				gpointer user_data)
{
	ContactFactoryAccountData *account_data = user_data;

	if (error) {
		empathy_debug (DEBUG_DOMAIN, "Error setting alias: %s",
			       error->message);
	}

	contact_factory_account_data_return_call (account_data);
}

static void
contact_factory_request_aliases_cb (DBusGProxy  *proxy,
				    gchar      **contact_names,
				    GError      *error,
				    gpointer     user_data)
{
	RequestAliasesData  *data = user_data;
	guint                i = 0;
	gchar              **name;

	if (error) {
		empathy_debug (DEBUG_DOMAIN, "Error requesting aliases: %s",
			      error->message);
		goto OUT;
	}

	for (name = contact_names; *name; name++) {
		EmpathyContact *contact;

		contact = contact_factory_account_data_find_by_handle (data->account_data,
								       data->handles[i]);
		if (!contact) {
			continue;
		}

		empathy_debug (DEBUG_DOMAIN, "Renaming contact %s (%d) to %s (request cb)",
			       empathy_contact_get_id (contact),
			       data->handles[i], *name);

		empathy_contact_set_name  (contact, *name);

		i++;
	}

OUT:
	contact_factory_account_data_return_call (data->account_data);
	g_free (data->handles);
	g_slice_free (RequestAliasesData, data);
}

static void
contact_factory_aliases_changed_cb (DBusGProxy *proxy,
				    GPtrArray  *renamed_handlers,
				    gpointer    user_data)
{
	ContactFactoryAccountData *account_data = user_data;
	guint                     i;

	for (i = 0; renamed_handlers->len > i; i++) {
		guint           handle;
		const gchar    *alias;
		GValueArray    *renamed_struct;
		EmpathyContact *contact;

		renamed_struct = g_ptr_array_index (renamed_handlers, i);
		handle = g_value_get_uint(g_value_array_get_nth (renamed_struct, 0));
		alias = g_value_get_string(g_value_array_get_nth (renamed_struct, 1));
		contact = contact_factory_account_data_find_by_handle (account_data, handle);

		if (!contact) {
			/* We don't know this contact, skip */
			continue;
		}

		if (G_STR_EMPTY (alias)) {
			alias = NULL;
		}

		empathy_debug (DEBUG_DOMAIN, "Renaming contact %s (%d) to %s (changed cb)",
			       empathy_contact_get_id (contact),
			       handle, alias);

		empathy_contact_set_name (contact, alias);
	}
}

static void
contact_factory_request_avatars_cb (DBusGProxy *proxy,
				    GError     *error,
				    gpointer    user_data)
{
	ContactFactoryAccountData *account_data = user_data;

	if (error) {
		empathy_debug (DEBUG_DOMAIN, "Error requesting avatars: %s",
			       error->message);
	}

	contact_factory_account_data_return_call (account_data);
}

static void
contact_factory_request_avatar_cb (DBusGProxy *proxy,
				   GArray     *avatar_data,
				   gchar      *mime_type,
				   GError     *error,
				   gpointer    user_data)
{
	RequestAvatarData *data = user_data;
	EmpathyAvatar     *avatar;

	if (error) {
		empathy_debug (DEBUG_DOMAIN, "Error requesting avatar: %s",
			       error->message);
		goto OUT;
	}

	empathy_debug (DEBUG_DOMAIN, "Avatar received for %s (%d)",
		       empathy_contact_get_id (data->contact),
		       empathy_contact_get_handle (data->contact));

	avatar = empathy_avatar_new (avatar_data->data,
				     avatar_data->len,
				     mime_type);
	empathy_contact_set_avatar (data->contact, avatar);
	empathy_avatar_unref (avatar);

OUT:
	g_object_unref (data->contact);
	contact_factory_account_data_return_call (data->account_data);
	g_slice_free (RequestAvatarData, data);
}

static void
contact_factory_avatar_updated_cb (DBusGProxy *proxy,
				   guint       handle,
				   gchar      *new_token,
				   gpointer    user_data)
{
	ContactFactoryAccountData *account_data = user_data;
	RequestAvatarData         *data;
	EmpathyContact            *contact;

	contact = contact_factory_account_data_find_by_handle (account_data,
							       handle);
	if (!contact) {
		return;
	}

	account_data->nb_pending_calls++;
	data = g_slice_new0 (RequestAvatarData);
	data->account_data = account_data;
	data->contact = g_object_ref (contact);
	tp_conn_iface_avatars_request_avatar_async (account_data->avatars_iface,
						    handle,
						    contact_factory_request_avatar_cb,
						    data);
}

static void
contact_factory_avatar_retrieved_cb (DBusGProxy *proxy,
				     guint       handle,
				     gchar      *token,
				     GArray     *avatar_data,
				     gchar      *mime_type,
				     gpointer    user_data)
{
	ContactFactoryAccountData *account_data = user_data;
	EmpathyContact            *contact;
	EmpathyAvatar             *avatar;

	contact = contact_factory_account_data_find_by_handle (account_data,
							       handle);
	if (!contact) {
		return;
	}

	avatar = empathy_avatar_new (avatar_data->data,
				     avatar_data->len,
				     mime_type);
	empathy_contact_set_avatar (contact, avatar);
	empathy_avatar_unref (avatar);
}

static void
contact_factory_request_everything (ContactFactoryAccountData *account_data,
				    GArray                    *handles)
{
	if (account_data->presence_iface) {
		account_data->nb_pending_calls++;
		tp_conn_iface_presence_get_presence_async (account_data->presence_iface,
							   handles,
							   contact_factory_get_presence_cb,
							   account_data);
	}

	if (account_data->aliasing_iface) {
		RequestAliasesData *data;

		account_data->nb_pending_calls++;
		data = g_slice_new (RequestAliasesData);
		data->account_data = account_data;
		data->handles = g_memdup (handles->data, handles->len * sizeof (guint));

		tp_conn_iface_aliasing_request_aliases_async (account_data->aliasing_iface,
							      handles,
							      contact_factory_request_aliases_cb,
							      data);
	}

	if (account_data->avatars_iface) {
		account_data->nb_pending_calls++;
		tp_conn_iface_avatars_request_avatars_async (account_data->avatars_iface,
							     handles,
							     contact_factory_request_avatars_cb,
							     account_data);
	}
}

static void
contact_factory_request_handles_cb (DBusGProxy *proxy,
				    GArray     *handles,
				    GError     *error,
				    gpointer    user_data)
{
	RequestHandlesData *data = user_data;
	GList              *l;
	guint               i = 0;

	if (error) {
		empathy_debug (DEBUG_DOMAIN, "Failed to request handles: %s",
			       error->message);
		goto OUT;
	}

	for (l = data->contacts; l; l = l->next) {
		guint handle;

		handle = g_array_index (handles, guint, i);
		empathy_contact_set_handle (l->data, handle);
		if (handle == data->account_data->self_handle) {
			empathy_contact_set_is_user (l->data, TRUE);
		}

		i++;
	}

	contact_factory_request_everything (data->account_data, handles);

OUT:
	g_list_foreach (data->contacts, (GFunc) g_object_unref, NULL);
	g_list_free (data->contacts);
	contact_factory_account_data_return_call (data->account_data);
	g_slice_free (RequestHandlesData, data);
}

static void
contact_factory_disconnect_contact_foreach (gpointer data,
					    gpointer user_data)
{
	EmpathyContact *contact = data;
	
	empathy_contact_set_presence (contact, NULL);
	empathy_contact_set_handle (contact, 0);
}

static void
contact_factory_destroy_cb (TpConn                    *tp_conn,
			    ContactFactoryAccountData *account_data)
{
	empathy_debug (DEBUG_DOMAIN, "Account disconnected or CM crashed");

	g_object_unref (account_data->tp_conn);
	account_data->tp_conn = NULL;
	account_data->aliasing_iface = NULL;
	account_data->avatars_iface = NULL;
	account_data->presence_iface = NULL;

	g_list_foreach (account_data->contacts,
			contact_factory_disconnect_contact_foreach,
			account_data);
}

static void
contact_factory_account_data_disconnect (ContactFactoryAccountData *account_data)
{
	if (account_data->aliasing_iface) {
		dbus_g_proxy_disconnect_signal (account_data->aliasing_iface,
						"AliasesChanged",
						G_CALLBACK (contact_factory_aliases_changed_cb),
						account_data);
	}
	if (account_data->avatars_iface) {
		dbus_g_proxy_disconnect_signal (account_data->avatars_iface,
						"AvatarUpdated",
						G_CALLBACK (contact_factory_avatar_updated_cb),
						account_data);
		dbus_g_proxy_disconnect_signal (account_data->avatars_iface,
						"AvatarRetrieved",
						G_CALLBACK (contact_factory_avatar_retrieved_cb),
						account_data);
	}
	if (account_data->presence_iface) {
		dbus_g_proxy_disconnect_signal (account_data->presence_iface,
						"PresenceUpdate",
						G_CALLBACK (contact_factory_presence_update_cb),
						account_data);
	}
	if (account_data->tp_conn) {
		g_signal_handlers_disconnect_by_func (account_data->tp_conn,
						      contact_factory_destroy_cb,
						      account_data);
	}
}

static void
contact_factory_account_data_update (ContactFactoryAccountData *account_data)
{
	EmpathyContactFactory     *factory = account_data->factory;
	EmpathyContactFactoryPriv *priv = GET_PRIV (factory);
	McAccount                 *account = account_data->account;
	TpConn                    *tp_conn = NULL;
	RequestHandlesData        *data;
	const gchar              **contact_ids;
	guint                      i;
	GList                     *l;
	GError                    *error;

	if (account_data->account) {
		guint status;

		/* status == 0 means the status is CONNECTED */
		status = mission_control_get_connection_status (priv->mc,
								account, NULL);
		if (status == 0) {
			tp_conn = mission_control_get_connection (priv->mc,
								  account, NULL);
		}
	}

	if (!tp_conn) {
		/* We are not connected anymore, remove the old connection */
		contact_factory_account_data_disconnect (account_data);
		if (account_data->tp_conn) {
			contact_factory_destroy_cb (account_data->tp_conn,
						    account_data);
		}
		return;
	}
	else if (account_data->tp_conn) {
		/* We were connected and we still are connected, nothing
		 * changed so nothing to do. */
		g_object_unref (tp_conn);
		return;
	}

	/* We got a new connection */
	account_data->tp_conn = tp_conn;
	account_data->aliasing_iface = tp_conn_get_interface (tp_conn,
							      TELEPATHY_CONN_IFACE_ALIASING_QUARK);
	account_data->avatars_iface = tp_conn_get_interface (tp_conn,
							     TELEPATHY_CONN_IFACE_AVATARS_QUARK);
	account_data->presence_iface = tp_conn_get_interface (tp_conn,
							      TELEPATHY_CONN_IFACE_PRESENCE_QUARK);

	/* Connect signals */
	if (account_data->aliasing_iface) {
		dbus_g_proxy_connect_signal (account_data->aliasing_iface,
					     "AliasesChanged",
					     G_CALLBACK (contact_factory_aliases_changed_cb),
					     account_data, NULL);
	}
	if (account_data->avatars_iface) {
		dbus_g_proxy_connect_signal (account_data->avatars_iface,
					     "AvatarUpdated",
					     G_CALLBACK (contact_factory_avatar_updated_cb),
					     account_data, NULL);
		dbus_g_proxy_connect_signal (account_data->avatars_iface,
					     "AvatarRetrieved",
					     G_CALLBACK (contact_factory_avatar_retrieved_cb),
					     account_data, NULL);
	}
	if (account_data->presence_iface) {
		dbus_g_proxy_connect_signal (account_data->presence_iface,
					     "PresenceUpdate",
					     G_CALLBACK (contact_factory_presence_update_cb),
					     account_data, NULL);
	}
	g_signal_connect (tp_conn, "destroy",
			  G_CALLBACK (contact_factory_destroy_cb),
			  account_data);

	/* Get our own handle */
	if (!tp_conn_get_self_handle (DBUS_G_PROXY (account_data->tp_conn),
				      &account_data->self_handle,
				      &error)) {
		empathy_debug (DEBUG_DOMAIN, "GetSelfHandle Error: %s",
			      error ? error->message : "No error given");
		g_clear_error (&error);
	}

	/* Request new handles for all contacts */
	if (account_data->contacts) {
		data = g_slice_new (RequestHandlesData);
		data->account_data = account_data;
		data->contacts = g_list_copy (account_data->contacts);
		g_list_foreach (data->contacts, (GFunc) g_object_ref, NULL);

		i = g_list_length (data->contacts);
		contact_ids = g_new0 (const gchar*, i + 1);
		i = 0;
		for (l = data->contacts; l; l = l->next) {
			contact_ids[i] = empathy_contact_get_id (l->data);
			i++;
		}

		account_data->nb_pending_calls++;
		tp_conn_request_handles_async (DBUS_G_PROXY (account_data->tp_conn),
					       TP_HANDLE_TYPE_CONTACT,
					       contact_ids,
					       contact_factory_request_handles_cb,
					       data);
		g_free (contact_ids);
	}
}

static void
contact_factory_weak_notify (gpointer data,
			     GObject *where_the_object_was)
{
	ContactFactoryAccountData *account_data = data;

	empathy_debug (DEBUG_DOMAIN, "Remove finalized contact %p",
		       where_the_object_was);

	account_data->contacts = g_list_remove (account_data->contacts,
						where_the_object_was);
	if (!account_data->contacts) {
		EmpathyContactFactoryPriv *priv;

		priv = GET_PRIV (account_data->factory);

		g_hash_table_remove (priv->accounts, account_data->account);
	}
}

static void
contact_factory_remove_foreach (gpointer data,
				gpointer user_data)
{
	ContactFactoryAccountData *account_data = user_data;
	EmpathyContact            *contact = data;

	g_object_weak_unref (G_OBJECT (contact),
			     contact_factory_weak_notify,
			     account_data);
}

static ContactFactoryAccountData *
contact_factory_account_data_new (EmpathyContactFactory *factory,
				  McAccount             *account)
{
	ContactFactoryAccountData *account_data;

	account_data = g_slice_new0 (ContactFactoryAccountData);
	account_data->factory = factory;
	account_data->account = g_object_ref (account);

	contact_factory_account_data_update (account_data);

	return account_data;
}

static void
contact_factory_account_data_free (gpointer data)
{
	ContactFactoryAccountData *account_data = data;

	contact_factory_account_data_disconnect (account_data);

	if (account_data->contacts) {
		g_list_foreach (account_data->contacts,
				contact_factory_remove_foreach,
				account_data);
		g_list_free (account_data->contacts);
		account_data->contacts = NULL;
	}

	if (account_data->account) {
		g_object_unref (account_data->account);
		account_data->account = NULL;
	}

	if (account_data->tp_conn) {
		g_object_unref (account_data->tp_conn);
		account_data->tp_conn = NULL;
		account_data->aliasing_iface = NULL;
		account_data->avatars_iface = NULL;
		account_data->presence_iface = NULL;
	}

	/* Keep the struct alive if we have calls in flight, it will be
	 * destroyed once all calls returned. */
	if (account_data->nb_pending_calls == 0) {
		g_slice_free (ContactFactoryAccountData, account_data);
	}
}

static void
contact_factory_status_changed_cb (MissionControl                  *mc,
				   TelepathyConnectionStatus        status,
				   McPresence                       presence,
				   TelepathyConnectionStatusReason  reason,
				   const gchar                     *unique_name,
				   EmpathyContactFactory           *factory)
{
	EmpathyContactFactoryPriv *priv = GET_PRIV (factory);
	ContactFactoryAccountData *account_data;
	McAccount                 *account;

	account = mc_account_lookup (unique_name);
	account_data = g_hash_table_lookup (priv->accounts, account);
	if (account_data) {
		contact_factory_account_data_update (account_data);
	}
	g_object_unref (account);
}

static ContactFactoryAccountData *
contact_factory_account_data_get (EmpathyContactFactory *factory,
				  McAccount             *account)
{
	EmpathyContactFactoryPriv *priv = GET_PRIV (factory);
	ContactFactoryAccountData *account_data;

	account_data = g_hash_table_lookup (priv->accounts, account);
	if (!account_data) {
		account_data = contact_factory_account_data_new (factory, account);
		g_hash_table_insert (priv->accounts,
				     g_object_ref (account),
				     account_data);
	}

	return account_data;
}

static void
contact_factory_account_data_add_contact (ContactFactoryAccountData *account_data,
					  EmpathyContact            *contact)
{
	g_object_weak_ref (G_OBJECT (contact),
			   contact_factory_weak_notify,
			   account_data);
	account_data->contacts = g_list_prepend (account_data->contacts, contact);

	if (!account_data->presence_iface) {
		EmpathyPresence *presence;

		/* We have no presence iface, set default presence
		 * to available */
		presence = empathy_presence_new_full (MC_PRESENCE_AVAILABLE,
						     NULL);

		empathy_contact_set_presence (contact, presence);
		g_object_unref (presence);
	}

	empathy_debug (DEBUG_DOMAIN, "Contact added: %s (%d)",
		       empathy_contact_get_id (contact),
		       empathy_contact_get_handle (contact));
}

static void
contact_factory_hold_handles_cb (DBusGProxy *proxy,
				 GError     *error,
				 gpointer    userdata)
{
	if (error) {
		empathy_debug (DEBUG_DOMAIN, "Failed to hold handles: %s",
			       error->message);
	}
}

EmpathyContact *
empathy_contact_factory_get_user (EmpathyContactFactory *factory,
				  McAccount             *account)
{
	ContactFactoryAccountData *account_data;

	g_return_val_if_fail (EMPATHY_IS_CONTACT_FACTORY (factory), NULL);
	g_return_val_if_fail (MC_IS_ACCOUNT (account), NULL);

	account_data = contact_factory_account_data_get (factory, account);

	return empathy_contact_factory_get_from_handle (factory, account,
							account_data->self_handle);
}

EmpathyContact *
empathy_contact_factory_get_from_id (EmpathyContactFactory *factory,
				     McAccount             *account,
				     const gchar           *id)
{
	ContactFactoryAccountData *account_data;
	EmpathyContact            *contact;

	g_return_val_if_fail (EMPATHY_IS_CONTACT_FACTORY (factory), NULL);
	g_return_val_if_fail (MC_IS_ACCOUNT (account), NULL);
	g_return_val_if_fail (id != NULL, NULL);

	/* Check if the contact already exists */
	account_data = contact_factory_account_data_get (factory, account);
	contact = contact_factory_account_data_find_by_id (account_data, id);
	if (contact) {
		return g_object_ref (contact);
	}

	/* Create new contact */
	contact = g_object_new (EMPATHY_TYPE_CONTACT,
				"account", account,
				"id", id,
				NULL);
	contact_factory_account_data_add_contact (account_data, contact);

	/* If the account is connected, request contact's handle */
	if (account_data->tp_conn) {
		RequestHandlesData *data;
		const gchar        *contact_ids[] = {id, NULL};
		
		account_data->nb_pending_calls++;
		data = g_slice_new (RequestHandlesData);
		data->account_data = account_data;
		data->contacts = g_list_prepend (NULL, g_object_ref (contact));
		tp_conn_request_handles_async (DBUS_G_PROXY (account_data->tp_conn),
					       TP_HANDLE_TYPE_CONTACT,
					       contact_ids,
					       contact_factory_request_handles_cb,
					       data);
	}

	return contact;
}

EmpathyContact *
empathy_contact_factory_get_from_handle (EmpathyContactFactory *factory,
					 McAccount             *account,
					 guint                  handle)
{
	EmpathyContact *contact;
	GArray         *handles;
	GList          *contacts;

	g_return_val_if_fail (EMPATHY_IS_CONTACT_FACTORY (factory), NULL);
	g_return_val_if_fail (MC_IS_ACCOUNT (account), NULL);

	handles = g_array_new (FALSE, FALSE, sizeof (guint));
	g_array_append_val (handles, handle);

	contacts = empathy_contact_factory_get_from_handles (factory, account, handles);
	g_array_free (handles, TRUE);

	contact = contacts ? contacts->data : NULL;
	g_list_free (contacts);

	return contact;
}

GList *
empathy_contact_factory_get_from_handles (EmpathyContactFactory *factory,
					  McAccount             *account,
					  GArray                *handles)
{
	ContactFactoryAccountData *account_data;
	GList                     *contacts = NULL;
	GArray                    *new_handles;
	gchar                    **handles_names;
	guint                      i;
	GError                    *error = NULL;

	g_return_val_if_fail (EMPATHY_IS_CONTACT_FACTORY (factory), NULL);
	g_return_val_if_fail (MC_IS_ACCOUNT (account), NULL);
	g_return_val_if_fail (handles != NULL, NULL);

	/* Search all contacts we already have */
	account_data = contact_factory_account_data_get (factory, account);
	new_handles = g_array_new (FALSE, FALSE, sizeof (guint));
	for (i = 0; i < handles->len; i++) {
		EmpathyContact *contact;
		guint           handle;

		handle = g_array_index (handles, guint, i);
		if (handle == 0) {
			continue;
		}

		contact = contact_factory_account_data_find_by_handle (account_data, handle);
		if (contact) {
			contacts = g_list_prepend (contacts, g_object_ref (contact));
		} else {
			g_array_append_val (new_handles, handle);
		}
	}

	if (new_handles->len == 0) {
		g_array_free (new_handles, TRUE);
		return contacts;
	}

	/* Get the IDs of all new handles */
	if (!tp_conn_inspect_handles (DBUS_G_PROXY (account_data->tp_conn),
				      TP_HANDLE_TYPE_CONTACT,
				      new_handles,
				      &handles_names,
				      &error)) {
		empathy_debug (DEBUG_DOMAIN, 
			      "Couldn't inspect contact: %s",
			      error ? error->message : "No error given");
		g_clear_error (&error);
		g_array_free (new_handles, TRUE);
		return contacts;
	}

	/* Create new contacts */
	for (i = 0; i < new_handles->len; i++) {
		EmpathyContact *contact;
		gchar          *id;
		guint           handle;
		gboolean        is_user;

		id = handles_names[i];
		handle = g_array_index (new_handles, guint, i);

		is_user = (handle == account_data->self_handle);
		contact = g_object_new (EMPATHY_TYPE_CONTACT,
					"account", account,
					"handle", handle,
					"id", id,
					"is-user", is_user,
					NULL);
		contact_factory_account_data_add_contact (account_data,
							  contact);
		contacts = g_list_prepend (contacts, contact);
		g_free (id);
	}
	g_free (handles_names);

	/* Hold all new handles. */
	tp_conn_hold_handles_async (DBUS_G_PROXY (account_data->tp_conn),
				    TP_HANDLE_TYPE_CONTACT,
				    new_handles,
				    contact_factory_hold_handles_cb,
				    NULL);

	contact_factory_request_everything (account_data, new_handles);

	g_array_free (new_handles, TRUE);

	return contacts;
}

void
empathy_contact_factory_set_name (EmpathyContactFactory *factory,
				  EmpathyContact        *contact,
				  const gchar           *name)
{
	ContactFactoryAccountData *account_data;
	McAccount                 *account;
	GHashTable                *new_alias;
	guint                      handle;

	g_return_if_fail (EMPATHY_IS_CONTACT_FACTORY (factory));
	g_return_if_fail (EMPATHY_IS_CONTACT (contact));

	account = empathy_contact_get_account (contact);
	account_data = contact_factory_account_data_get (factory, account);

	if (!account_data->aliasing_iface) {
		return;
	}

	handle = empathy_contact_get_handle (contact);

	empathy_debug (DEBUG_DOMAIN, "Setting alias for contact %s (%d) to %s",
		       empathy_contact_get_id (contact),
		       handle, name);

	new_alias = g_hash_table_new_full (g_direct_hash,
					   g_direct_equal,
					   NULL,
					   g_free);

	g_hash_table_insert (new_alias,
			     GUINT_TO_POINTER (handle),
			     g_strdup (name));

	account_data->nb_pending_calls++;
	tp_conn_iface_aliasing_set_aliases_async (account_data->aliasing_iface,
						  new_alias,
						  contact_factory_set_aliases_cb,
						  account_data);

	g_hash_table_destroy (new_alias);
}

static void
contact_factory_finalize (GObject *object)
{
	EmpathyContactFactoryPriv *priv;

	priv = GET_PRIV (object);

	dbus_g_proxy_disconnect_signal (DBUS_G_PROXY (priv->mc),
					"AccountStatusChanged",
					G_CALLBACK (contact_factory_status_changed_cb),
					object);

	g_hash_table_destroy (priv->accounts);
	g_object_unref (priv->mc);

	G_OBJECT_CLASS (empathy_contact_factory_parent_class)->finalize (object);
}

static void
empathy_contact_factory_class_init (EmpathyContactFactoryClass *klass)
{
	GObjectClass *object_class = G_OBJECT_CLASS (klass);

	object_class->finalize = contact_factory_finalize;

	g_type_class_add_private (object_class, sizeof (EmpathyContactFactoryPriv));
}

static void
empathy_contact_factory_init (EmpathyContactFactory *factory)
{
	EmpathyContactFactoryPriv *priv;

	priv = GET_PRIV (factory);

	priv->mc = empathy_mission_control_new ();
	priv->accounts = g_hash_table_new_full (empathy_account_hash,
						empathy_account_equal,
						g_object_unref,
						contact_factory_account_data_free);

	dbus_g_proxy_connect_signal (DBUS_G_PROXY (priv->mc),
				     "AccountStatusChanged",
				     G_CALLBACK (contact_factory_status_changed_cb),
				     factory, NULL);
}

EmpathyContactFactory *
empathy_contact_factory_new (void)
{
	static EmpathyContactFactory *factory = NULL;

	if (!factory) {
		factory = g_object_new (EMPATHY_TYPE_CONTACT_FACTORY, NULL);
		g_object_add_weak_pointer (G_OBJECT (factory), (gpointer) &factory);
	} else {
		g_object_ref (factory);
	}

	return factory;
}