/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * Copyright (C) 2007-2008 Collabora Ltd.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *
 * Authors: Xavier Claessens <xclaesse@gmail.com>
 */

#include <config.h>

#include <string.h>

#include <telepathy-glib/telepathy-glib.h>

#include <extensions/extensions.h>

#include "empathy-tp-chat.h"
#include "empathy-tp-contact-factory.h"
#include "empathy-contact-list.h"
#include "empathy-marshal.h"
#include "empathy-request-util.h"
#include "empathy-time.h"
#include "empathy-utils.h"

#define DEBUG_FLAG EMPATHY_DEBUG_TP | EMPATHY_DEBUG_CHAT
#include "empathy-debug.h"

struct _EmpathyTpChatPrivate {
	TpAccount             *account;
	EmpathyContact        *user;
	EmpathyContact        *remote_contact;
	GList                 *members;
	/* Queue of messages not signalled yet */
	GQueue                *messages_queue;
	/* Queue of messages signalled but not acked yet */
	GQueue                *pending_messages_queue;
	gboolean               had_properties_list;
	GPtrArray             *properties;
	gboolean               can_upgrade_to_muc;

	GHashTable            *messages_being_sent;

	/* GSimpleAsyncResult used when preparing EMPATHY_TP_CHAT_FEATURE_CORE */
	GSimpleAsyncResult    *ready_result;
};

static void tp_chat_iface_init         (EmpathyContactListIface *iface);

enum {
	PROP_0,
	PROP_ACCOUNT,
	PROP_REMOTE_CONTACT,
	PROP_N_MESSAGES_SENDING,
};

enum {
	MESSAGE_RECEIVED,
	SEND_ERROR,
	CHAT_STATE_CHANGED,
	PROPERTY_CHANGED,
	MESSAGE_ACKNOWLEDGED,
	LAST_SIGNAL
};

static guint signals[LAST_SIGNAL];

G_DEFINE_TYPE_WITH_CODE (EmpathyTpChat, empathy_tp_chat, TP_TYPE_TEXT_CHANNEL,
			 G_IMPLEMENT_INTERFACE (EMPATHY_TYPE_CONTACT_LIST,
						tp_chat_iface_init));

static void
tp_chat_set_delivery_status (EmpathyTpChat         *self,
		             const gchar           *token,
			     EmpathyDeliveryStatus  delivery_status)
{
	TpDeliveryReportingSupportFlags flags =
		tp_text_channel_get_delivery_reporting_support (
			TP_TEXT_CHANNEL (self));

	/* channel must support receiving failures and successes */
	if (!tp_str_empty (token) &&
	    flags & TP_DELIVERY_REPORTING_SUPPORT_FLAG_RECEIVE_FAILURES &&
	    flags & TP_DELIVERY_REPORTING_SUPPORT_FLAG_RECEIVE_SUCCESSES) {

		DEBUG ("Delivery status (%s) = %u", token, delivery_status);

		switch (delivery_status) {
			case EMPATHY_DELIVERY_STATUS_NONE:
				g_hash_table_remove (self->priv->messages_being_sent,
					token);
				break;

			default:
				g_hash_table_insert (self->priv->messages_being_sent,
					g_strdup (token),
					GUINT_TO_POINTER (delivery_status));
				break;
		}

		g_object_notify (G_OBJECT (self), "n-messages-sending");
	}
}

static void tp_chat_prepare_ready_async (TpProxy *proxy,
	const TpProxyFeature *feature,
	GAsyncReadyCallback callback,
	gpointer user_data);

static void
tp_chat_async_cb (TpChannel *proxy,
		  const GError *error,
		  gpointer user_data,
		  GObject *weak_object)
{
	if (error) {
		DEBUG ("Error %s: %s", (gchar *) user_data, error->message);
	}
}

static void
create_conference_cb (GObject *source,
		      GAsyncResult *result,
		      gpointer user_data)
{
	GError *error = NULL;

	if (!tp_account_channel_request_create_channel_finish (
			TP_ACCOUNT_CHANNEL_REQUEST (source), result, &error)) {
		DEBUG ("Failed to create conference channel: %s", error->message);
		g_error_free (error);
	}
}

static void
tp_chat_add (EmpathyContactList *list,
	     EmpathyContact     *contact,
	     const gchar        *message)
{
	EmpathyTpChat *self = (EmpathyTpChat *) list;
	TpChannel *channel = (TpChannel *) self;

	if (tp_proxy_has_interface_by_id (self,
		TP_IFACE_QUARK_CHANNEL_INTERFACE_GROUP)) {
		TpHandle           handle;
		GArray             handles = {(gchar *) &handle, 1};

		g_return_if_fail (EMPATHY_IS_TP_CHAT (list));
		g_return_if_fail (EMPATHY_IS_CONTACT (contact));

		handle = empathy_contact_get_handle (contact);
		tp_cli_channel_interface_group_call_add_members (channel,
			-1, &handles, NULL, NULL, NULL, NULL, NULL);
	} else if (self->priv->can_upgrade_to_muc) {
		TpAccountChannelRequest *req;
		GHashTable        *props;
		const char        *object_path;
		GPtrArray          channels = { (gpointer *) &object_path, 1 };
		const char        *invitees[2] = { NULL, };

		invitees[0] = empathy_contact_get_id (contact);
		object_path = tp_proxy_get_object_path (self);

		props = tp_asv_new (
		    TP_PROP_CHANNEL_CHANNEL_TYPE, G_TYPE_STRING,
		        TP_IFACE_CHANNEL_TYPE_TEXT,
		    TP_PROP_CHANNEL_TARGET_HANDLE_TYPE, G_TYPE_UINT,
		        TP_HANDLE_TYPE_NONE,
		    TP_PROP_CHANNEL_INTERFACE_CONFERENCE_INITIAL_CHANNELS,
		        TP_ARRAY_TYPE_OBJECT_PATH_LIST, &channels,
		    TP_PROP_CHANNEL_INTERFACE_CONFERENCE_INITIAL_INVITEE_IDS,
		        G_TYPE_STRV, invitees,
		    /* FIXME: InvitationMessage ? */
		    NULL);

		req = tp_account_channel_request_new (self->priv->account, props,
			TP_USER_ACTION_TIME_NOT_USER_ACTION);

		/* Although this is a MUC, it's anonymous, so CreateChannel is
		 * valid. */
		tp_account_channel_request_create_channel_async (req, EMPATHY_CHAT_BUS_NAME,
			NULL, create_conference_cb, NULL);

		g_object_unref (req);
		g_hash_table_unref (props);
	} else {
		g_warning ("Cannot add to this channel");
	}
}

static void
tp_chat_remove (EmpathyContactList *list,
		EmpathyContact     *contact,
		const gchar        *message)
{
	EmpathyTpChat *self = (EmpathyTpChat *) list;
	TpHandle           handle;
	GArray             handles = {(gchar *) &handle, 1};

	g_return_if_fail (EMPATHY_IS_TP_CHAT (list));
	g_return_if_fail (EMPATHY_IS_CONTACT (contact));

	handle = empathy_contact_get_handle (contact);
	tp_cli_channel_interface_group_call_remove_members ((TpChannel *) self, -1,
							    &handles, NULL,
							    NULL, NULL, NULL,
							    NULL);
}

static GList *
tp_chat_get_members (EmpathyContactList *list)
{
	EmpathyTpChat *self = (EmpathyTpChat *) list;
	GList             *members = NULL;

	g_return_val_if_fail (EMPATHY_IS_TP_CHAT (list), NULL);

	if (self->priv->members) {
		members = g_list_copy (self->priv->members);
		g_list_foreach (members, (GFunc) g_object_ref, NULL);
	} else {
		members = g_list_prepend (members, g_object_ref (self->priv->user));
		if (self->priv->remote_contact != NULL)
			members = g_list_prepend (members, g_object_ref (self->priv->remote_contact));
	}

	return members;
}

static void
check_ready (EmpathyTpChat *self)
{
	if (self->priv->ready_result == NULL)
		return;

	if (g_queue_get_length (self->priv->messages_queue) > 0)
		return;

	DEBUG ("Ready");

	g_simple_async_result_complete (self->priv->ready_result);
	tp_clear_object (&self->priv->ready_result);
}

static void
tp_chat_emit_queued_messages (EmpathyTpChat *self)
{
	EmpathyMessage    *message;

	/* Check if we can now emit some queued messages */
	while ((message = g_queue_peek_head (self->priv->messages_queue)) != NULL) {
		if (empathy_message_get_sender (message) == NULL) {
			break;
		}

		DEBUG ("Queued message ready");
		g_queue_pop_head (self->priv->messages_queue);
		g_queue_push_tail (self->priv->pending_messages_queue, message);
		g_signal_emit (self, signals[MESSAGE_RECEIVED], 0, message);
	}

	check_ready (self);
}

static void
tp_chat_got_sender_cb (TpConnection            *connection,
		       EmpathyContact          *contact,
		       const GError            *error,
		       gpointer                 message,
		       GObject                 *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;

	if (error) {
		DEBUG ("Error: %s", error->message);
		/* Do not block the message queue, just drop this message */
		g_queue_remove (self->priv->messages_queue, message);
	} else {
		empathy_message_set_sender (message, contact);
	}

	tp_chat_emit_queued_messages (EMPATHY_TP_CHAT (self));
}

static void
tp_chat_build_message (EmpathyTpChat *self,
		       TpMessage     *msg,
		       gboolean       incoming)
{
	EmpathyMessage    *message;
	TpContact *sender;

	message = empathy_message_new_from_tp_message (msg, incoming);
	/* FIXME: this is actually a lie for incoming messages. */
	empathy_message_set_receiver (message, self->priv->user);

	g_queue_push_tail (self->priv->messages_queue, message);

	sender = tp_signalled_message_get_sender (msg);
	g_assert (sender != NULL);

	if (tp_contact_get_handle (sender) == 0) {
		empathy_message_set_sender (message, self->priv->user);
		tp_chat_emit_queued_messages (self);
	} else {
		TpConnection *connection = tp_channel_borrow_connection (
			(TpChannel *) self);

		empathy_tp_contact_factory_get_from_handle (connection,
			tp_contact_get_handle (sender),
			tp_chat_got_sender_cb,
			message, NULL, G_OBJECT (self));
	}
}

static void
handle_delivery_report (EmpathyTpChat *self,
		TpMessage *message)
{
	TpDeliveryStatus delivery_status;
	const GHashTable *header;
	TpChannelTextSendError delivery_error;
	gboolean valid;
	GPtrArray *echo;
	const gchar *message_body = NULL;
	const gchar *delivery_dbus_error;
	const gchar *delivery_token = NULL;

	header = tp_message_peek (message, 0);
	if (header == NULL)
		goto out;

	delivery_token = tp_asv_get_string (header, "delivery-token");
	delivery_status = tp_asv_get_uint32 (header, "delivery-status", &valid);

	if (!valid) {
		goto out;
	} else if (delivery_status == TP_DELIVERY_STATUS_ACCEPTED) {
		DEBUG ("Accepted %s", delivery_token);
		tp_chat_set_delivery_status (self, delivery_token,
			EMPATHY_DELIVERY_STATUS_ACCEPTED);
		goto out;
	} else if (delivery_status == TP_DELIVERY_STATUS_DELIVERED) {
		DEBUG ("Delivered %s", delivery_token);
		tp_chat_set_delivery_status (self, delivery_token,
			EMPATHY_DELIVERY_STATUS_NONE);
		goto out;
	} else if (delivery_status != TP_DELIVERY_STATUS_PERMANENTLY_FAILED) {
		goto out;
	}

	delivery_error = tp_asv_get_uint32 (header, "delivery-error", &valid);
	if (!valid)
		delivery_error = TP_CHANNEL_TEXT_SEND_ERROR_UNKNOWN;

	delivery_dbus_error = tp_asv_get_string (header, "delivery-dbus-error");

	/* TODO: ideally we should use tp-glib API giving us the echoed message as a
	 * TpMessage. (fdo #35884) */
	echo = tp_asv_get_boxed (header, "delivery-echo",
		TP_ARRAY_TYPE_MESSAGE_PART_LIST);
	if (echo != NULL && echo->len >= 2) {
		const GHashTable *echo_body;

		echo_body = g_ptr_array_index (echo, 1);
		if (echo_body != NULL)
			message_body = tp_asv_get_string (echo_body, "content");
	}

	tp_chat_set_delivery_status (self, delivery_token,
			EMPATHY_DELIVERY_STATUS_NONE);
	g_signal_emit (self, signals[SEND_ERROR], 0, message_body,
			delivery_error, delivery_dbus_error);

out:
	tp_text_channel_ack_message_async (TP_TEXT_CHANNEL (self),
		message, NULL, NULL);
}

static void
handle_incoming_message (EmpathyTpChat *self,
			 TpMessage *message,
			 gboolean pending)
{
	gchar *message_body;

	if (tp_message_is_delivery_report (message)) {
		handle_delivery_report (self, message);
		return;
	}

	message_body = tp_message_to_text (message, NULL);

	DEBUG ("Message %s (channel %s): %s",
		pending ? "pending" : "received",
		tp_proxy_get_object_path (self), message_body);

	if (message_body == NULL) {
		DEBUG ("Empty message with NonTextContent, ignoring and acking.");

		tp_text_channel_ack_message_async (TP_TEXT_CHANNEL (self),
			message, NULL, NULL);
		return;
	}

	tp_chat_build_message (self, message, TRUE);

	g_free (message_body);
}

static void
message_received_cb (TpTextChannel   *channel,
		     TpMessage *message,
		     EmpathyTpChat *self)
{
	handle_incoming_message (self, message, FALSE);
}

static gboolean
find_pending_message_func (gconstpointer a,
			   gconstpointer b)
{
	EmpathyMessage *msg = (EmpathyMessage *) a;
	TpMessage *message = (TpMessage *) b;

	if (empathy_message_get_tp_message (msg) == message)
		return 0;

	return -1;
}

static void
pending_message_removed_cb (TpTextChannel   *channel,
		            TpMessage *message,
		            EmpathyTpChat *self)
{
	GList *m;

	m = g_queue_find_custom (self->priv->pending_messages_queue, message,
				 find_pending_message_func);

	if (m == NULL)
		return;

	g_signal_emit (self, signals[MESSAGE_ACKNOWLEDGED], 0, m->data);

	g_object_unref (m->data);
	g_queue_delete_link (self->priv->pending_messages_queue, m);
}

static void
message_sent_cb (TpTextChannel   *channel,
		 TpMessage *message,
		 TpMessageSendingFlags flags,
		 gchar              *token,
		 EmpathyTpChat      *self)
{
	gchar *message_body;

	message_body = tp_message_to_text (message, NULL);

	DEBUG ("Message sent: %s", message_body);

	tp_chat_build_message (self, message, FALSE);

	g_free (message_body);
}

static TpChannelTextSendError
error_to_text_send_error (GError *error)
{
	if (error->domain != TP_ERRORS)
		return TP_CHANNEL_TEXT_SEND_ERROR_UNKNOWN;

	switch (error->code) {
		case TP_ERROR_OFFLINE:
			return TP_CHANNEL_TEXT_SEND_ERROR_OFFLINE;
		case TP_ERROR_INVALID_HANDLE:
			return TP_CHANNEL_TEXT_SEND_ERROR_INVALID_CONTACT;
		case TP_ERROR_PERMISSION_DENIED:
			return TP_CHANNEL_TEXT_SEND_ERROR_PERMISSION_DENIED;
		case TP_ERROR_NOT_IMPLEMENTED:
			return TP_CHANNEL_TEXT_SEND_ERROR_NOT_IMPLEMENTED;
	}

	return TP_CHANNEL_TEXT_SEND_ERROR_UNKNOWN;
}

static void
message_send_cb (GObject *source,
		 GAsyncResult *result,
		 gpointer      user_data)
{
	EmpathyTpChat *self = user_data;
	TpTextChannel *channel = (TpTextChannel *) source;
	gchar *token = NULL;
	GError *error = NULL;

	if (!tp_text_channel_send_message_finish (channel, result, &token, &error)) {
		DEBUG ("Error: %s", error->message);

		/* FIXME: we should use the body of the message as first argument of the
		 * signal but can't easily get it as we just get a user_data pointer. Once
		 * we'll have rebased EmpathyTpChat on top of TpTextChannel we'll be able
		 * to use the user_data pointer to pass the message and fix this. */
		g_signal_emit (self, signals[SEND_ERROR], 0,
			       NULL, error_to_text_send_error (error), NULL);

		g_error_free (error);
	}

	tp_chat_set_delivery_status (self, token,
		EMPATHY_DELIVERY_STATUS_SENDING);
	g_free (token);
}

typedef struct {
	EmpathyTpChat *chat;
	TpChannelChatState state;
} StateChangedData;

static void
tp_chat_state_changed_got_contact_cb (TpConnection            *connection,
				      EmpathyContact          *contact,
				      const GError            *error,
				      gpointer                 user_data,
				      GObject                 *chat)
{
	TpChannelChatState state;

	if (error) {
		DEBUG ("Error: %s", error->message);
		return;
	}

	state = GPOINTER_TO_UINT (user_data);
	DEBUG ("Chat state changed for %s (%d): %d",
		empathy_contact_get_alias (contact),
		empathy_contact_get_handle (contact), state);

	g_signal_emit (chat, signals[CHAT_STATE_CHANGED], 0, contact, state);
}

static void
tp_chat_state_changed_cb (TpChannel *channel,
			  TpHandle   handle,
			  TpChannelChatState state,
			  EmpathyTpChat *self)
{
	TpConnection *connection = tp_channel_borrow_connection (
		(TpChannel *) self);

	empathy_tp_contact_factory_get_from_handle (connection, handle,
		tp_chat_state_changed_got_contact_cb, GUINT_TO_POINTER (state),
		NULL, G_OBJECT (self));
}

static void
list_pending_messages (EmpathyTpChat *self)
{
	GList *messages, *l;

	messages = tp_text_channel_get_pending_messages (
		TP_TEXT_CHANNEL (self));

	for (l = messages; l != NULL; l = g_list_next (l)) {
		TpMessage *message = l->data;

		handle_incoming_message (self, message, FALSE);
	}

	g_list_free (messages);
}

static void
tp_chat_property_flags_changed_cb (TpProxy         *proxy,
				   const GPtrArray *properties,
				   gpointer         user_data,
				   GObject         *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;
	guint              i, j;

	if (!self->priv->had_properties_list || !properties) {
		return;
	}

	for (i = 0; i < properties->len; i++) {
		GValueArray           *prop_struct;
		EmpathyTpChatProperty *property;
		guint                  id;
		guint                  flags;

		prop_struct = g_ptr_array_index (properties, i);
		id = g_value_get_uint (g_value_array_get_nth (prop_struct, 0));
		flags = g_value_get_uint (g_value_array_get_nth (prop_struct, 1));

		for (j = 0; j < self->priv->properties->len; j++) {
			property = g_ptr_array_index (self->priv->properties, j);
			if (property->id == id) {
				property->flags = flags;
				DEBUG ("property %s flags changed: %d",
					property->name, property->flags);
				break;
			}
		}
	}
}

static void
tp_chat_properties_changed_cb (TpProxy         *proxy,
			       const GPtrArray *properties,
			       gpointer         user_data,
			       GObject         *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;
	guint              i, j;

	if (!self->priv->had_properties_list || !properties) {
		return;
	}

	for (i = 0; i < properties->len; i++) {
		GValueArray           *prop_struct;
		EmpathyTpChatProperty *property;
		guint                  id;
		GValue                *src_value;

		prop_struct = g_ptr_array_index (properties, i);
		id = g_value_get_uint (g_value_array_get_nth (prop_struct, 0));
		src_value = g_value_get_boxed (g_value_array_get_nth (prop_struct, 1));

		for (j = 0; j < self->priv->properties->len; j++) {
			property = g_ptr_array_index (self->priv->properties, j);
			if (property->id == id) {
				if (property->value) {
					g_value_copy (src_value, property->value);
				} else {
					property->value = tp_g_value_slice_dup (src_value);
				}

				DEBUG ("property %s changed", property->name);
				g_signal_emit (chat, signals[PROPERTY_CHANGED], 0,
					       property->name, property->value);
				break;
			}
		}
	}
}

static void
tp_chat_get_properties_cb (TpProxy         *proxy,
			   const GPtrArray *properties,
			   const GError    *error,
			   gpointer         user_data,
			   GObject         *chat)
{
	if (error) {
		DEBUG ("Error getting properties: %s", error->message);
		return;
	}

	tp_chat_properties_changed_cb (proxy, properties, user_data, chat);
}

static void
tp_chat_list_properties_cb (TpProxy         *proxy,
			    const GPtrArray *properties,
			    const GError    *error,
			    gpointer         user_data,
			    GObject         *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;
	GArray            *ids;
	guint              i;

	self->priv->had_properties_list = TRUE;

	if (error) {
		DEBUG ("Error listing properties: %s", error->message);
		return;
	}

	ids = g_array_sized_new (FALSE, FALSE, sizeof (guint), properties->len);
	self->priv->properties = g_ptr_array_sized_new (properties->len);
	for (i = 0; i < properties->len; i++) {
		GValueArray           *prop_struct;
		EmpathyTpChatProperty *property;

		prop_struct = g_ptr_array_index (properties, i);
		property = g_slice_new0 (EmpathyTpChatProperty);
		property->id = g_value_get_uint (g_value_array_get_nth (prop_struct, 0));
		property->name = g_value_dup_string (g_value_array_get_nth (prop_struct, 1));
		property->flags = g_value_get_uint (g_value_array_get_nth (prop_struct, 3));

		DEBUG ("Adding property name=%s id=%d flags=%d",
			property->name, property->id, property->flags);
		g_ptr_array_add (self->priv->properties, property);
		if (property->flags & TP_PROPERTY_FLAG_READ) {
			g_array_append_val (ids, property->id);
		}
	}

	tp_cli_properties_interface_call_get_properties (proxy, -1,
							 ids,
							 tp_chat_get_properties_cb,
							 NULL, NULL,
							 chat);

	g_array_free (ids, TRUE);
}

void
empathy_tp_chat_set_property (EmpathyTpChat *self,
			      const gchar   *name,
			      const GValue  *value)
{
	EmpathyTpChatProperty *property;
	guint                  i;

	if (!self->priv->had_properties_list) {
		return;
	}

	for (i = 0; i < self->priv->properties->len; i++) {
		property = g_ptr_array_index (self->priv->properties, i);
		if (!tp_strdiff (property->name, name)) {
			GPtrArray   *properties;
			GValueArray *prop;
			GValue       id = {0, };
			GValue       dest_value = {0, };

			if (!(property->flags & TP_PROPERTY_FLAG_WRITE)) {
				break;
			}

			g_value_init (&id, G_TYPE_UINT);
			g_value_init (&dest_value, G_TYPE_VALUE);
			g_value_set_uint (&id, property->id);
			g_value_set_boxed (&dest_value, value);

			prop = g_value_array_new (2);
			g_value_array_append (prop, &id);
			g_value_array_append (prop, &dest_value);

			properties = g_ptr_array_sized_new (1);
			g_ptr_array_add (properties, prop);

			DEBUG ("Set property %s", name);
			tp_cli_properties_interface_call_set_properties (self, -1,
									 properties,
									 (tp_cli_properties_interface_callback_for_set_properties)
									 tp_chat_async_cb,
									 "Seting property", NULL,
									 G_OBJECT (self));

			g_ptr_array_free (properties, TRUE);
			g_value_array_free (prop);

			break;
		}
	}
}

EmpathyTpChatProperty *
empathy_tp_chat_get_property (EmpathyTpChat *self,
			      const gchar   *name)
{
	EmpathyTpChatProperty *property;
	guint                  i;

	if (!self->priv->had_properties_list) {
		return NULL;
	}

	for (i = 0; i < self->priv->properties->len; i++) {
		property = g_ptr_array_index (self->priv->properties, i);
		if (!tp_strdiff (property->name, name)) {
			return property;
		}
	}

	return NULL;
}

GPtrArray *
empathy_tp_chat_get_properties (EmpathyTpChat *self)
{
	return self->priv->properties;
}

static void
tp_chat_dispose (GObject *object)
{
	EmpathyTpChat *self = EMPATHY_TP_CHAT (object);

	tp_clear_object (&self->priv->account);
	tp_clear_object (&self->priv->remote_contact);
	tp_clear_object (&self->priv->user);

	g_queue_foreach (self->priv->messages_queue, (GFunc) g_object_unref, NULL);
	g_queue_clear (self->priv->messages_queue);

	g_queue_foreach (self->priv->pending_messages_queue,
		(GFunc) g_object_unref, NULL);
	g_queue_clear (self->priv->pending_messages_queue);

	tp_clear_object (&self->priv->ready_result);

	if (G_OBJECT_CLASS (empathy_tp_chat_parent_class)->dispose)
		G_OBJECT_CLASS (empathy_tp_chat_parent_class)->dispose (object);
}

static void
tp_chat_finalize (GObject *object)
{
	EmpathyTpChat *self = (EmpathyTpChat *) object;
	guint              i;

	DEBUG ("Finalize: %p", object);

	if (self->priv->properties) {
		for (i = 0; i < self->priv->properties->len; i++) {
			EmpathyTpChatProperty *property;

			property = g_ptr_array_index (self->priv->properties, i);
			g_free (property->name);
			if (property->value) {
				tp_g_value_slice_free (property->value);
			}
			g_slice_free (EmpathyTpChatProperty, property);
		}
		g_ptr_array_free (self->priv->properties, TRUE);
	}

	g_queue_free (self->priv->messages_queue);
	g_queue_free (self->priv->pending_messages_queue);
	g_hash_table_destroy (self->priv->messages_being_sent);

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

static void
check_almost_ready (EmpathyTpChat *self)
{
	TpChannel *channel = (TpChannel *) self;

	if (self->priv->ready_result == NULL)
		return;

	if (self->priv->user == NULL)
		return;

	/* We need either the members (room) or the remote contact (private chat).
	 * If the chat is protected by a password we can't get these information so
	 * consider the chat as ready so it can be presented to the user. */
	if (!tp_channel_password_needed (channel) && self->priv->members == NULL &&
	    self->priv->remote_contact == NULL)
		return;

	g_assert (tp_proxy_is_prepared (self,
		TP_TEXT_CHANNEL_FEATURE_INCOMING_MESSAGES));

	tp_g_signal_connect_object (self, "message-received",
		G_CALLBACK (message_received_cb), self, 0);
	tp_g_signal_connect_object (self, "pending-message-removed",
		G_CALLBACK (pending_message_removed_cb), self, 0);

	list_pending_messages (self);

	tp_g_signal_connect_object (self, "message-sent",
		G_CALLBACK (message_sent_cb), self, 0);

	tp_g_signal_connect_object (self, "chat-state-changed",
		G_CALLBACK (tp_chat_state_changed_cb), self, 0);

	check_ready (self);
}

static void
tp_chat_update_remote_contact (EmpathyTpChat *self)
{
	TpChannel *channel = (TpChannel *) self;
	EmpathyContact *contact = NULL;
	TpHandle self_handle;
	TpHandleType handle_type;
	GList *l;

	/* If this is a named chatroom, never pretend it is a private chat */
	tp_channel_get_handle (channel, &handle_type);
	if (handle_type == TP_HANDLE_TYPE_ROOM) {
		return;
	}

	/* This is an MSN chat, but it's the new style where 1-1 chats don't
	 * have the group interface. If it has the conference interface, then
	 * it is indeed a MUC. */
	if (tp_proxy_has_interface_by_id (self,
					  TP_IFACE_QUARK_CHANNEL_INTERFACE_CONFERENCE)) {
		return;
	}

	/* This is an MSN-like chat where anyone can join the chat at anytime.
	 * If there is only one non-self contact member, we are in a private
	 * chat and we set the "remote-contact" property to that contact. If
	 * there are more, set the "remote-contact" property to NULL and the
	 * UI will display a contact list. */
	self_handle = tp_channel_group_get_self_handle (channel);
	for (l = self->priv->members; l; l = l->next) {
		/* Skip self contact if member */
		if (empathy_contact_get_handle (l->data) == self_handle) {
			continue;
		}

		/* We have more than one remote contact, break */
		if (contact != NULL) {
			contact = NULL;
			break;
		}

		/* If we didn't find yet a remote contact, keep this one */
		contact = l->data;
	}

	if (self->priv->remote_contact == contact) {
		return;
	}

	DEBUG ("Changing remote contact from %p to %p",
		self->priv->remote_contact, contact);

	if (self->priv->remote_contact) {
		g_object_unref (self->priv->remote_contact);
	}

	self->priv->remote_contact = contact ? g_object_ref (contact) : NULL;
	g_object_notify (G_OBJECT (self), "remote-contact");
}

static void
tp_chat_got_added_contacts_cb (TpConnection            *connection,
			       guint                    n_contacts,
			       EmpathyContact * const * contacts,
			       guint                    n_failed,
			       const TpHandle          *failed,
			       const GError            *error,
			       gpointer                 user_data,
			       GObject                 *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;
	guint i;
	const TpIntSet *members;
	TpHandle handle;
	EmpathyContact *contact;

	if (error) {
		DEBUG ("Error: %s", error->message);
		return;
	}

	members = tp_channel_group_get_members ((TpChannel *) self);
	for (i = 0; i < n_contacts; i++) {
		contact = contacts[i];
		handle = empathy_contact_get_handle (contact);

		/* Make sure the contact is still member */
		if (tp_intset_is_member (members, handle)) {
			self->priv->members = g_list_prepend (self->priv->members,
				g_object_ref (contact));
			g_signal_emit_by_name (chat, "members-changed",
					       contact, NULL, 0, NULL, TRUE);
		}
	}

	tp_chat_update_remote_contact (EMPATHY_TP_CHAT (chat));
	check_almost_ready (EMPATHY_TP_CHAT (chat));
}

static EmpathyContact *
chat_lookup_contact (EmpathyTpChat *self,
		     TpHandle       handle,
		     gboolean       remove_)
{
	GList *l;

	for (l = self->priv->members; l; l = l->next) {
		EmpathyContact *c = l->data;

		if (empathy_contact_get_handle (c) != handle) {
			continue;
		}

		if (remove_) {
			/* Caller takes the reference. */
			self->priv->members = g_list_delete_link (self->priv->members, l);
		} else {
			g_object_ref (c);
		}

		return c;
	}

	return NULL;
}

typedef struct
{
    TpHandle old_handle;
    guint reason;
    gchar *message;
} ContactRenameData;

static ContactRenameData *
contact_rename_data_new (TpHandle handle,
			 guint reason,
			 const gchar* message)
{
	ContactRenameData *data = g_new (ContactRenameData, 1);
	data->old_handle = handle;
	data->reason = reason;
	data->message = g_strdup (message);

	return data;
}

static void
contact_rename_data_free (ContactRenameData* data)
{
	g_free (data->message);
	g_free (data);
}

static void
tp_chat_got_renamed_contacts_cb (TpConnection            *connection,
                                 guint                    n_contacts,
                                 EmpathyContact * const * contacts,
                                 guint                    n_failed,
                                 const TpHandle          *failed,
                                 const GError            *error,
                                 gpointer                 user_data,
                                 GObject                 *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;
	const TpIntSet *members;
	TpHandle handle;
	EmpathyContact *old = NULL, *new = NULL;
	ContactRenameData *rename_data = (ContactRenameData *) user_data;

	if (error) {
		DEBUG ("Error: %s", error->message);
		return;
	}

	/* renamed members can only be delivered one at a time */
	g_warn_if_fail (n_contacts == 1);

	new = contacts[0];

	members = tp_channel_group_get_members ((TpChannel *) self);
	handle = empathy_contact_get_handle (new);

	old = chat_lookup_contact (self, rename_data->old_handle, TRUE);

	/* Make sure the contact is still member */
	if (tp_intset_is_member (members, handle)) {
		self->priv->members = g_list_prepend (self->priv->members,
			g_object_ref (new));

		if (old != NULL) {
			g_signal_emit_by_name (self, "member-renamed",
					       old, new, rename_data->reason,
					       rename_data->message);
			g_object_unref (old);
		}
	}

	if (self->priv->user == old) {
		/* We change our nick */
		tp_clear_object (&self->priv->user);
		self->priv->user = g_object_ref (new);
	}

	tp_chat_update_remote_contact (self);
	check_almost_ready (self);
}


static void
tp_chat_group_members_changed_cb (TpChannel     *channel,
				  gchar         *message,
				  GArray        *added,
				  GArray        *removed,
				  GArray        *local_pending,
				  GArray        *remote_pending,
				  guint          actor,
				  guint          reason,
				  EmpathyTpChat *self)
{
	EmpathyContact *contact;
	EmpathyContact *actor_contact = NULL;
	guint i;
	ContactRenameData *rename_data;
	TpHandle old_handle;
	TpConnection *connection = tp_channel_borrow_connection (
		(TpChannel *) self);

	/* Contact renamed */
	if (reason == TP_CHANNEL_GROUP_CHANGE_REASON_RENAMED) {
		/* there can only be a single 'added' and a single 'removed' handle */
		if (removed->len != 1 || added->len != 1) {
			g_warning ("RENAMED with %u added, %u removed (expected 1, 1)",
				added->len, removed->len);
			return;
		}

		old_handle = g_array_index (removed, guint, 0);

		rename_data = contact_rename_data_new (old_handle, reason, message);
		empathy_tp_contact_factory_get_from_handles (connection,
			added->len, (TpHandle *) added->data,
			tp_chat_got_renamed_contacts_cb,
			rename_data, (GDestroyNotify) contact_rename_data_free,
			G_OBJECT (self));
		return;
	}

	if (actor != 0) {
		actor_contact = chat_lookup_contact (self, actor, FALSE);
		if (actor_contact == NULL) {
			/* FIXME: handle this a tad more gracefully: perhaps
			 * the actor was a server op. We could use the
			 * contact-ids detail of MembersChangedDetailed.
			 */
			DEBUG ("actor %u not a channel member", actor);
		}
	}

	/* Remove contacts that are not members anymore */
	for (i = 0; i < removed->len; i++) {
		contact = chat_lookup_contact (self,
			g_array_index (removed, TpHandle, i), TRUE);

		if (contact != NULL) {
			g_signal_emit_by_name (self, "members-changed", contact,
					       actor_contact, reason, message,
					       FALSE);
			g_object_unref (contact);
		}
	}

	/* Request added contacts */
	if (added->len > 0) {
		empathy_tp_contact_factory_get_from_handles (connection,
			added->len, (TpHandle *) added->data,
			tp_chat_got_added_contacts_cb, NULL, NULL,
			G_OBJECT (self));
	}

	tp_chat_update_remote_contact (self);

	if (actor_contact != NULL) {
		g_object_unref (actor_contact);
	}
}

static void
tp_chat_got_remote_contact_cb (TpConnection            *connection,
			       EmpathyContact          *contact,
			       const GError            *error,
			       gpointer                 user_data,
			       GObject                 *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;

	if (error) {
		DEBUG ("Error: %s", error->message);
		empathy_tp_chat_leave (self, "");
		return;
	}

	self->priv->remote_contact = g_object_ref (contact);
	g_object_notify (chat, "remote-contact");

	check_almost_ready (self);
}

static void
tp_chat_got_self_contact_cb (TpConnection            *connection,
			     EmpathyContact          *contact,
			     const GError            *error,
			     gpointer                 user_data,
			     GObject                 *chat)
{
	EmpathyTpChat *self = (EmpathyTpChat *) chat;

	if (error) {
		DEBUG ("Error: %s", error->message);
		empathy_tp_chat_leave (self, "");
		return;
	}

	self->priv->user = g_object_ref (contact);
	empathy_contact_set_is_user (self->priv->user, TRUE);
	check_almost_ready (self);
}

static void
tp_chat_get_property (GObject    *object,
		      guint       param_id,
		      GValue     *value,
		      GParamSpec *pspec)
{
	EmpathyTpChat *self = EMPATHY_TP_CHAT (object);

	switch (param_id) {
	case PROP_ACCOUNT:
		g_value_set_object (value, self->priv->account);
		break;
	case PROP_REMOTE_CONTACT:
		g_value_set_object (value, self->priv->remote_contact);
		break;
	case PROP_N_MESSAGES_SENDING:
		g_value_set_uint (value,
			g_hash_table_size (self->priv->messages_being_sent));
		break;
	default:
		G_OBJECT_WARN_INVALID_PROPERTY_ID (object, param_id, pspec);
		break;
	};
}

static void
tp_chat_set_property (GObject      *object,
		      guint         param_id,
		      const GValue *value,
		      GParamSpec   *pspec)
{
	EmpathyTpChat *self = EMPATHY_TP_CHAT (object);

	switch (param_id) {
	case PROP_ACCOUNT:
		self->priv->account = g_value_dup_object (value);
		break;
	default:
		G_OBJECT_WARN_INVALID_PROPERTY_ID (object, param_id, pspec);
		break;
	};
}

enum {
	FEAT_READY,
	N_FEAT
};

static const TpProxyFeature *
tp_chat_list_features (TpProxyClass *cls G_GNUC_UNUSED)
{
	static TpProxyFeature features[N_FEAT + 1] = { { 0 } };
  static GQuark need[2] = {0, 0};

	if (G_LIKELY (features[0].name != 0))
		return features;

	features[FEAT_READY].name = EMPATHY_TP_CHAT_FEATURE_READY;
	need[0] = TP_TEXT_CHANNEL_FEATURE_INCOMING_MESSAGES;
	features[FEAT_READY].depends_on = need;
	features[FEAT_READY].prepare_async =
		tp_chat_prepare_ready_async;

	/* assert that the terminator at the end is there */
	g_assert (features[N_FEAT].name == 0);

	return features;
}

static void
empathy_tp_chat_class_init (EmpathyTpChatClass *klass)
{
	GObjectClass *object_class = G_OBJECT_CLASS (klass);
	TpProxyClass *proxy_class = TP_PROXY_CLASS (klass);

	object_class->dispose = tp_chat_dispose;
	object_class->finalize = tp_chat_finalize;
	object_class->get_property = tp_chat_get_property;
	object_class->set_property = tp_chat_set_property;

	proxy_class->list_features = tp_chat_list_features;

	g_object_class_install_property (object_class,
					 PROP_ACCOUNT,
					 g_param_spec_object ("account",
							      "TpAccount",
							      "the account associated with the chat",
							      TP_TYPE_ACCOUNT,
							      G_PARAM_READWRITE |
							      G_PARAM_CONSTRUCT_ONLY |
							      G_PARAM_STATIC_STRINGS));

	g_object_class_install_property (object_class,
					 PROP_REMOTE_CONTACT,
					 g_param_spec_object ("remote-contact",
							      "The remote contact",
							      "The remote contact if there is no group iface on the channel",
							      EMPATHY_TYPE_CONTACT,
							      G_PARAM_READABLE));

	g_object_class_install_property (object_class,
					 PROP_N_MESSAGES_SENDING,
					 g_param_spec_uint ("n-messages-sending",
						 	    "Num Messages Sending",
							    "The number of messages being sent",
							    0, G_MAXUINT, 0,
							    G_PARAM_READABLE));

	/* Signals */
	signals[MESSAGE_RECEIVED] =
		g_signal_new ("message-received-empathy",
			      G_TYPE_FROM_CLASS (klass),
			      G_SIGNAL_RUN_LAST,
			      0,
			      NULL, NULL,
			      g_cclosure_marshal_VOID__OBJECT,
			      G_TYPE_NONE,
			      1, EMPATHY_TYPE_MESSAGE);

	signals[SEND_ERROR] =
		g_signal_new ("send-error",
			      G_TYPE_FROM_CLASS (klass),
			      G_SIGNAL_RUN_LAST,
			      0,
			      NULL, NULL,
			      _empathy_marshal_VOID__STRING_UINT_STRING,
			      G_TYPE_NONE,
			      3, G_TYPE_STRING, G_TYPE_UINT, G_TYPE_STRING);

	signals[CHAT_STATE_CHANGED] =
		g_signal_new ("chat-state-changed-empathy",
			      G_TYPE_FROM_CLASS (klass),
			      G_SIGNAL_RUN_LAST,
			      0,
			      NULL, NULL,
			      _empathy_marshal_VOID__OBJECT_UINT,
			      G_TYPE_NONE,
			      2, EMPATHY_TYPE_CONTACT, G_TYPE_UINT);

	signals[PROPERTY_CHANGED] =
		g_signal_new ("property-changed",
			      G_TYPE_FROM_CLASS (klass),
			      G_SIGNAL_RUN_LAST,
			      0,
			      NULL, NULL,
			      _empathy_marshal_VOID__STRING_BOXED,
			      G_TYPE_NONE,
			      2, G_TYPE_STRING, G_TYPE_VALUE);

	signals[MESSAGE_ACKNOWLEDGED] =
		g_signal_new ("message-acknowledged",
			      G_TYPE_FROM_CLASS (klass),
			      G_SIGNAL_RUN_LAST,
			      0,
			      NULL, NULL,
			      g_cclosure_marshal_VOID__OBJECT,
			      G_TYPE_NONE,
			      1, EMPATHY_TYPE_MESSAGE);

	g_type_class_add_private (object_class, sizeof (EmpathyTpChatPrivate));
}

static void
empathy_tp_chat_init (EmpathyTpChat *self)
{
	self->priv = G_TYPE_INSTANCE_GET_PRIVATE (self,
		EMPATHY_TYPE_TP_CHAT, EmpathyTpChatPrivate);

	self->priv->messages_queue = g_queue_new ();
	self->priv->pending_messages_queue = g_queue_new ();
	self->priv->messages_being_sent = g_hash_table_new_full (
		g_str_hash, g_str_equal, g_free, NULL);
}

static void
tp_chat_iface_init (EmpathyContactListIface *iface)
{
	iface->add         = tp_chat_add;
	iface->remove      = tp_chat_remove;
	iface->get_members = tp_chat_get_members;
}

EmpathyTpChat *
empathy_tp_chat_new (TpAccount *account,
		     TpConnection *conn,
		     const gchar *object_path,
		     const GHashTable *immutable_properties)
{
	TpProxy *conn_proxy = (TpProxy *) conn;

	g_return_val_if_fail (TP_IS_ACCOUNT (account), NULL);
	g_return_val_if_fail (TP_IS_CONNECTION (conn), NULL);
	g_return_val_if_fail (immutable_properties != NULL, NULL);

	return g_object_new (EMPATHY_TYPE_TP_CHAT,
			     "account", account,
			     "connection", conn,
			     "dbus-daemon", conn_proxy->dbus_daemon,
			     "bus-name", conn_proxy->bus_name,
			     "object-path", object_path,
			     "channel-properties", immutable_properties,
			     NULL);
}

const gchar *
empathy_tp_chat_get_id (EmpathyTpChat *self)
{
	const gchar *id;

	g_return_val_if_fail (EMPATHY_IS_TP_CHAT (self), NULL);

	id = tp_channel_get_identifier ((TpChannel *) self);
	if (!EMP_STR_EMPTY (id))
		return id;
	else if (self->priv->remote_contact)
		return empathy_contact_get_id (self->priv->remote_contact);
	else
		return NULL;

}

EmpathyContact *
empathy_tp_chat_get_remote_contact (EmpathyTpChat *self)
{
	g_return_val_if_fail (EMPATHY_IS_TP_CHAT (self), NULL);

	return self->priv->remote_contact;
}

TpAccount *
empathy_tp_chat_get_account (EmpathyTpChat *self)
{
	g_return_val_if_fail (EMPATHY_IS_TP_CHAT (self), NULL);

	return self->priv->account;
}

void
empathy_tp_chat_send (EmpathyTpChat *self,
		      TpMessage *message)
{
	gchar *message_body;

	g_return_if_fail (EMPATHY_IS_TP_CHAT (self));
	g_return_if_fail (TP_IS_CLIENT_MESSAGE (message));

	message_body = tp_message_to_text (message, NULL);

	DEBUG ("Sending message: %s", message_body);

	tp_text_channel_send_message_async (TP_TEXT_CHANNEL (self),
		message, TP_MESSAGE_SENDING_FLAG_REPORT_DELIVERY,
		message_send_cb, self);

	g_free (message_body);
}

const GList *
empathy_tp_chat_get_pending_messages (EmpathyTpChat *self)
{
	g_return_val_if_fail (EMPATHY_IS_TP_CHAT (self), NULL);

	return self->priv->pending_messages_queue->head;
}

void
empathy_tp_chat_acknowledge_message (EmpathyTpChat *self,
				     EmpathyMessage *message) {
	TpMessage *tp_msg;

	g_return_if_fail (EMPATHY_IS_TP_CHAT (self));

	if (!empathy_message_is_incoming (message))
		return;

	tp_msg = empathy_message_get_tp_message (message);
	tp_text_channel_ack_message_async (TP_TEXT_CHANNEL (self),
					   tp_msg, NULL, NULL);
}

void
empathy_tp_chat_acknowledge_messages (EmpathyTpChat *self,
				      const GSList *messages) {
	const GSList *l;
	GList *messages_to_ack = NULL;

	g_return_if_fail (EMPATHY_IS_TP_CHAT (self));

	if (messages == NULL)
		return;

	for (l = messages; l != NULL; l = g_slist_next (l)) {
		EmpathyMessage *message = EMPATHY_MESSAGE (l->data);

		if (empathy_message_is_incoming (message)) {
			TpMessage *tp_msg = empathy_message_get_tp_message (message);
			messages_to_ack = g_list_append (messages_to_ack, tp_msg);
		}
	}

	if (messages_to_ack != NULL) {
		tp_text_channel_ack_messages_async (TP_TEXT_CHANNEL (self),
						    messages_to_ack, NULL, NULL);
	}

	g_list_free (messages_to_ack);
}

void
empathy_tp_chat_acknowledge_all_messages (EmpathyTpChat *self)
{
  empathy_tp_chat_acknowledge_messages (self,
    (GSList *) empathy_tp_chat_get_pending_messages (self));
}

/**
 * empathy_tp_chat_can_add_contact:
 *
 * Returns: %TRUE if empathy_contact_list_add() will work for this channel.
 * That is if this chat is a 1-to-1 channel that can be upgraded to
 * a MUC using the Conference interface or if the channel is a MUC.
 */
gboolean
empathy_tp_chat_can_add_contact (EmpathyTpChat *self)
{
	g_return_val_if_fail (EMPATHY_IS_TP_CHAT (self), FALSE);

	return self->priv->can_upgrade_to_muc ||
		tp_proxy_has_interface_by_id (self,
			TP_IFACE_QUARK_CHANNEL_INTERFACE_GROUP);;
}

static void
tp_channel_leave_async_cb (GObject *source_object,
        GAsyncResult *res,
        gpointer user_data)
{
	GError *error = NULL;

	if (!tp_channel_leave_finish (TP_CHANNEL (source_object), res, &error)) {
		DEBUG ("Could not leave channel properly: (%s); closing the channel",
			error->message);
		g_error_free (error);
	}
}

void
empathy_tp_chat_leave (EmpathyTpChat *self,
		const gchar *message)
{
	TpChannel *channel = (TpChannel *) self;

	DEBUG ("Leaving channel %s with message \"%s\"",
		tp_channel_get_identifier (channel), message);

	tp_channel_leave_async (channel, TP_CHANNEL_GROUP_CHANGE_REASON_NONE,
		message, tp_channel_leave_async_cb, self);
}

static void
add_members_cb (TpChannel *proxy,
		const GError *error,
		gpointer user_data,
		GObject *weak_object)
{
	EmpathyTpChat *self = (EmpathyTpChat *) weak_object;

	if (error != NULL) {
		DEBUG ("Failed to join chat (%s): %s",
			tp_channel_get_identifier ((TpChannel *) self), error->message);
	}
}

void
empathy_tp_chat_join (EmpathyTpChat *self)
{
	TpHandle self_handle;
	GArray *members;

	self_handle = tp_channel_group_get_self_handle ((TpChannel *) self);

	members = g_array_sized_new (FALSE, FALSE, sizeof (TpHandle), 1);
	g_array_append_val (members, self_handle);

	tp_cli_channel_interface_group_call_add_members ((TpChannel *) self, -1, members,
		"", add_members_cb, NULL, NULL, G_OBJECT (self));

	g_array_free (members, TRUE);
}

gboolean
empathy_tp_chat_is_invited (EmpathyTpChat *self,
			    TpHandle *inviter)
{
	TpHandle self_handle;

	if (!tp_proxy_has_interface (self, TP_IFACE_CHANNEL_INTERFACE_GROUP))
		return FALSE;

	self_handle = tp_channel_group_get_self_handle ((TpChannel *) self);
	if (self_handle == 0)
		return FALSE;

	return tp_channel_group_get_local_pending_info ((TpChannel *) self, self_handle,
		inviter, NULL, NULL);
}

TpChannelChatState
empathy_tp_chat_get_chat_state (EmpathyTpChat *self,
			    EmpathyContact *contact)
{
	return tp_channel_get_chat_state ((TpChannel *) self,
		empathy_contact_get_handle (contact));
}

EmpathyContact *
empathy_tp_chat_get_self_contact (EmpathyTpChat *self)
{
	g_return_val_if_fail (EMPATHY_IS_TP_CHAT (self), NULL);

	return self->priv->user;
}

GQuark
empathy_tp_chat_get_feature_ready (void)
{
	return g_quark_from_static_string ("empathy-tp-chat-feature-ready");
}

static void
conn_prepared_cb (GObject *source,
	GAsyncResult *result,
	gpointer user_data)
{
	EmpathyTpChat *self = user_data;
	TpChannel *channel = (TpChannel *) self;
	GError *error = NULL;
	TpHandle handle;
	TpConnection *connection = (TpConnection *) source;

	if (!tp_proxy_prepare_finish (source, result, &error)) {
		g_simple_async_result_set_from_error (self->priv->ready_result, error);
		g_error_free (error);
		g_simple_async_result_complete (self->priv->ready_result);
		tp_clear_object (&self->priv->ready_result);
		return;
	}

	if (tp_proxy_has_interface_by_id (self,
					  TP_IFACE_QUARK_CHANNEL_INTERFACE_GROUP)) {
		const TpIntSet *members;
		GArray *handles;

		/* Get self contact from the group's self handle */
		handle = tp_channel_group_get_self_handle (channel);
		empathy_tp_contact_factory_get_from_handle (connection,
			handle, tp_chat_got_self_contact_cb,
			NULL, NULL, G_OBJECT (self));

		/* Get initial member contacts */
		members = tp_channel_group_get_members (channel);
		handles = tp_intset_to_array (members);
		empathy_tp_contact_factory_get_from_handles (connection,
			handles->len, (TpHandle *) handles->data,
			tp_chat_got_added_contacts_cb, NULL, NULL, G_OBJECT (self));

		self->priv->can_upgrade_to_muc = FALSE;

		tp_g_signal_connect_object (self, "group-members-changed",
			G_CALLBACK (tp_chat_group_members_changed_cb), self, 0);
	} else {
		TpCapabilities *caps;
		GPtrArray *classes;
		guint i;

		/* Get the self contact from the connection's self handle */
		handle = tp_connection_get_self_handle (connection);
		empathy_tp_contact_factory_get_from_handle (connection,
			handle, tp_chat_got_self_contact_cb,
			NULL, NULL, G_OBJECT (self));

		/* Get the remote contact */
		handle = tp_channel_get_handle (channel, NULL);
		empathy_tp_contact_factory_get_from_handle (connection,
			handle, tp_chat_got_remote_contact_cb,
			NULL, NULL, G_OBJECT (self));

		caps = tp_connection_get_capabilities (connection);
		g_assert (caps != NULL);

		classes = tp_capabilities_get_channel_classes (caps);

		for (i = 0; i < classes->len; i++) {
			GValueArray *array = g_ptr_array_index (classes, i);
			const char **oprops = g_value_get_boxed (
				g_value_array_get_nth (array, 1));

			if (tp_strv_contains (oprops, TP_PROP_CHANNEL_INTERFACE_CONFERENCE_INITIAL_CHANNELS)) {
				self->priv->can_upgrade_to_muc = TRUE;
				break;
			}
		}
	}

	if (tp_proxy_has_interface_by_id (self,
					  TP_IFACE_QUARK_PROPERTIES_INTERFACE)) {
		tp_cli_properties_interface_call_list_properties (channel, -1,
								  tp_chat_list_properties_cb,
								  NULL, NULL,
								  G_OBJECT (self));
		tp_cli_properties_interface_connect_to_properties_changed (channel,
									   tp_chat_properties_changed_cb,
									   NULL, NULL,
									   G_OBJECT (self), NULL);
		tp_cli_properties_interface_connect_to_property_flags_changed (channel,
									       tp_chat_property_flags_changed_cb,
									       NULL, NULL,
									       G_OBJECT (self), NULL);
	}
}

static void
tp_chat_prepare_ready_async (TpProxy *proxy,
	const TpProxyFeature *feature,
	GAsyncReadyCallback callback,
	gpointer user_data)
{
	EmpathyTpChat *self = (EmpathyTpChat *) proxy;
	TpChannel *channel = (TpChannel *) proxy;
	TpConnection *connection;
	GQuark conn_features[] = { TP_CONNECTION_FEATURE_CAPABILITIES, 0 };

	g_assert (self->priv->ready_result == NULL);
	self->priv->ready_result = g_simple_async_result_new (G_OBJECT (self),
		callback, user_data, tp_chat_prepare_ready_async);

	connection = tp_channel_borrow_connection (channel);

	tp_proxy_prepare_async (connection, conn_features,
		conn_prepared_cb, self);
}