path: root/libempathy/empathy-tp-contact-list.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * Copyright (C) 2007 Xavier Claessens <xclaesse@gmail.com>
 * 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 <glib/gi18n.h>

#include <libtelepathy/tp-conn.h>
#include <libtelepathy/tp-chan.h>
#include <libtelepathy/tp-chan-type-contact-list-gen.h>
#include <telepathy-glib/util.h>
#include <telepathy-glib/dbus.h>

#include "empathy-tp-contact-list.h"
#include "empathy-contact-list.h"
#include "empathy-tp-group.h"
#include "empathy-debug.h"
#include "empathy-utils.h"

#define GET_PRIV(obj) (G_TYPE_INSTANCE_GET_PRIVATE ((obj), \
               EMPATHY_TYPE_TP_CONTACT_LIST, EmpathyTpContactListPriv))

#define DEBUG_DOMAIN "TpContactList"

struct _EmpathyTpContactListPriv {
    TpConn         *tp_conn;
    McAccount      *account;
    MissionControl *mc;
    const gchar    *protocol_group;

    EmpathyTpGroup *publish;
    EmpathyTpGroup *subscribe;
    GList          *members;
    GList          *pendings;

    GList          *groups;
    GHashTable     *contacts_groups;
};

typedef enum {
    TP_CONTACT_LIST_TYPE_PUBLISH,
    TP_CONTACT_LIST_TYPE_SUBSCRIBE,
    TP_CONTACT_LIST_TYPE_UNKNOWN
} TpContactListType;

static void empathy_tp_contact_list_class_init (EmpathyTpContactListClass *klass);
static void empathy_tp_contact_list_init       (EmpathyTpContactList      *list);
static void tp_contact_list_iface_init         (EmpathyContactListIface   *iface);

enum {
    DESTROY,
    LAST_SIGNAL
};

static guint signals[LAST_SIGNAL];

G_DEFINE_TYPE_WITH_CODE (EmpathyTpContactList, empathy_tp_contact_list, G_TYPE_OBJECT,
             G_IMPLEMENT_INTERFACE (EMPATHY_TYPE_CONTACT_LIST,
                        tp_contact_list_iface_init));

static void
tp_contact_list_group_destroy_cb (EmpathyTpGroup       *group,
                  EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);

    empathy_debug (DEBUG_DOMAIN, "Group destroyed: %s",
               empathy_tp_group_get_name (group));

    priv->groups = g_list_remove (priv->groups, group);
    g_object_unref (group);
}

static void
tp_contact_list_group_member_added_cb (EmpathyTpGroup       *group,
                       EmpathyContact       *contact,
                       EmpathyContact       *actor,
                       guint                 reason,
                       const gchar          *message,
                       EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv  *priv = GET_PRIV (list);
    const gchar               *group_name;
    GList                    **groups;

    if (!g_list_find (priv->members, contact)) {
        return;
    }

    groups = g_hash_table_lookup (priv->contacts_groups, contact);
    if (!groups) {
        groups = g_slice_new0 (GList*);
        g_hash_table_insert (priv->contacts_groups,
                     g_object_ref (contact),
                     groups);
    }

    group_name = empathy_tp_group_get_name (group);
    if (!g_list_find_custom (*groups, group_name, (GCompareFunc) strcmp)) {
        empathy_debug (DEBUG_DOMAIN, "Contact %s (%d) added to group %s",
                   empathy_contact_get_id (contact),
                   empathy_contact_get_handle (contact),
                   group_name);
        *groups = g_list_prepend (*groups, g_strdup (group_name));
        g_signal_emit_by_name (list, "groups-changed", contact,
                       group_name,
                       TRUE);
    }
}

static void
tp_contact_list_group_member_removed_cb (EmpathyTpGroup       *group,
                     EmpathyContact       *contact,
                     EmpathyContact       *actor,
                     guint                 reason,
                     const gchar          *message,
                     EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv  *priv = GET_PRIV (list);
    const gchar               *group_name;
    GList                    **groups, *l;

    if (!g_list_find (priv->members, contact)) {
        return;
    }

    groups = g_hash_table_lookup (priv->contacts_groups, contact);
    if (!groups) {
        return;
    }

    group_name = empathy_tp_group_get_name (group);
    if ((l = g_list_find_custom (*groups, group_name, (GCompareFunc) strcmp))) {
        empathy_debug (DEBUG_DOMAIN, "Contact %s (%d) removed from group %s",
                   empathy_contact_get_id (contact),
                   empathy_contact_get_handle (contact),
                   group_name);
        *groups = g_list_delete_link (*groups, l);
        g_signal_emit_by_name (list, "groups-changed", contact,
                       group_name,
                       FALSE);
    }
}

static EmpathyTpGroup *
tp_contact_list_find_group (EmpathyTpContactList *list,
                const gchar          *group)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    GList                    *l;

    for (l = priv->groups; l; l = l->next) {
        if (!tp_strdiff (group, empathy_tp_group_get_name (l->data))) {
            return l->data;
        }
    }
    return NULL;
}

static TpContactListType
tp_contact_list_get_type (EmpathyTpContactList *list,
              EmpathyTpGroup       *group)
{
    const gchar *name;

    name = empathy_tp_group_get_name (group);
    if (!tp_strdiff (name, "subscribe")) {
        return TP_CONTACT_LIST_TYPE_SUBSCRIBE;
    } else if (!tp_strdiff (name, "publish")) {
        return TP_CONTACT_LIST_TYPE_PUBLISH;
    }

    return TP_CONTACT_LIST_TYPE_UNKNOWN;
}

static void
tp_contact_list_add_member (EmpathyTpContactList *list,
                EmpathyContact       *contact,
                EmpathyContact       *actor,
                guint                 reason,
                const gchar          *message)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    GList                    *l;

    /* Add to the list and emit signal */
    priv->members = g_list_prepend (priv->members, g_object_ref (contact));
    g_signal_emit_by_name (list, "members-changed",
                   contact, actor, reason, message,
                   TRUE);

    /* This contact is now member, implicitly accept pending. */
    if (g_list_find (priv->pendings, contact)) {
        empathy_tp_group_add_member (priv->publish, contact, "");
    }

    /* Update groups of the contact */
    for (l = priv->groups; l; l = l->next) {
        if (empathy_tp_group_is_member (l->data, contact)) {
            tp_contact_list_group_member_added_cb (l->data, contact,
                                   NULL, 0, NULL, 
                                   list);
        }
    }
}

static void
tp_contact_list_added_cb (EmpathyTpGroup       *group,
              EmpathyContact       *contact,
              EmpathyContact       *actor,
              guint                 reason,
              const gchar          *message,
              EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    TpContactListType         list_type;

    list_type = tp_contact_list_get_type (list, group);
    empathy_debug (DEBUG_DOMAIN, "Contact %s (%d) added to list type %d",
              empathy_contact_get_id (contact),
              empathy_contact_get_handle (contact),
              list_type);

    /* We now get the presence of that contact, add it to members */
    if (list_type == TP_CONTACT_LIST_TYPE_SUBSCRIBE &&
        !g_list_find (priv->members, contact)) {
        tp_contact_list_add_member (list, contact, actor, reason, message);
    }

    /* We now send our presence to that contact, remove it from pendings */
    if (list_type == TP_CONTACT_LIST_TYPE_PUBLISH &&
        g_list_find (priv->pendings, contact)) {
        g_signal_emit_by_name (list, "pendings-changed",
                       contact, actor, reason, message,
                       FALSE);
        priv->pendings = g_list_remove (priv->pendings, contact);
        g_object_unref (contact);
    }
}

static void
tp_contact_list_removed_cb (EmpathyTpGroup       *group,
                EmpathyContact       *contact,
                EmpathyContact       *actor,
                guint                 reason,
                const gchar          *message,
                EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    TpContactListType         list_type;

    list_type = tp_contact_list_get_type (list, group);
    empathy_debug (DEBUG_DOMAIN, "Contact %s (%d) removed from list type %d",
              empathy_contact_get_id (contact),
              empathy_contact_get_handle (contact),
              list_type);

    /* This contact refuses to send us his presence, remove from members. */
    if (list_type == TP_CONTACT_LIST_TYPE_SUBSCRIBE &&
        g_list_find (priv->members, contact)) {
        g_signal_emit_by_name (list, "members-changed",
                       contact, actor, reason, message,
                       FALSE);
        priv->members = g_list_remove (priv->members, contact);
        g_object_unref (contact);
    }

    /* We refuse to send our presence to that contact, remove from pendings */
    if (list_type == TP_CONTACT_LIST_TYPE_PUBLISH &&
        g_list_find (priv->pendings, contact)) {
        g_signal_emit_by_name (list, "pendings-changed",
                       contact, actor, reason, message,
                       FALSE);
        priv->pendings = g_list_remove (priv->pendings, contact);
        g_object_unref (contact);
    }
}

static void
tp_contact_list_pending_cb (EmpathyTpGroup       *group,
                EmpathyContact       *contact,
                EmpathyContact       *actor,
                guint                 reason,
                const gchar          *message,
                EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    TpContactListType         list_type;

    list_type = tp_contact_list_get_type (list, group);
    empathy_debug (DEBUG_DOMAIN, "Contact %s (%d) pending in list type %d",
              empathy_contact_get_id (contact),
              empathy_contact_get_handle (contact),
              list_type);

    /* We want this contact in our contact list but we don't get its 
     * presence yet. Add to members anyway. */
    if (list_type == TP_CONTACT_LIST_TYPE_SUBSCRIBE &&
        !g_list_find (priv->members, contact)) {
        tp_contact_list_add_member (list, contact, actor, reason, message);
    }

    /* This contact wants our presence, auto accept if he is member,
     * otherwise he is pending. */
    if (list_type == TP_CONTACT_LIST_TYPE_PUBLISH &&
        !g_list_find (priv->pendings, contact)) {
        if (g_list_find (priv->members, contact)) {
            empathy_tp_group_add_member (priv->publish, contact, "");
        } else {
            priv->pendings = g_list_prepend (priv->pendings,
                             g_object_ref (contact));
            g_signal_emit_by_name (list, "pendings-changed",
                           contact, actor, reason, message,
                           TRUE);
        }
    }
}

static void
tp_contact_list_newchannel_cb (DBusGProxy           *proxy,
                   const gchar          *object_path,
                   const gchar          *channel_type,
                   TpHandleType          handle_type,
                   guint                 channel_handle,
                   gboolean              suppress_handler,
                   EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    EmpathyTpGroup           *group;
    TpChan                   *new_chan;
    const gchar              *bus_name;

    if (strcmp (channel_type, TP_IFACE_CHANNEL_TYPE_CONTACT_LIST) != 0 ||
        suppress_handler) {
        return;
    }

    bus_name = dbus_g_proxy_get_bus_name (DBUS_G_PROXY (priv->tp_conn));
    new_chan = tp_chan_new (tp_get_bus (),
                bus_name,
                object_path,
                channel_type,
                handle_type,
                channel_handle);
    g_return_if_fail (TELEPATHY_IS_CHAN (new_chan));

    group = empathy_tp_group_new (priv->account, new_chan);
    g_object_unref (new_chan);

    if (handle_type == TP_HANDLE_TYPE_LIST) {
        TpContactListType  list_type;
        GList             *contacts, *l;

        list_type = tp_contact_list_get_type (list, group);
        if (list_type == TP_CONTACT_LIST_TYPE_PUBLISH && !priv->publish) {
            priv->publish = group;

            /* Publish is the list of contacts to who we send our
             * presence. Makes no sense to be in remote-pending */
            g_signal_connect (group, "local-pending",
                      G_CALLBACK (tp_contact_list_pending_cb),
                      list);

            contacts = empathy_tp_group_get_local_pendings (group);
            for (l = contacts; l; l = l->next) {
                EmpathyPendingInfo *info = l->data;

                tp_contact_list_pending_cb (group,
                                info->member,
                                info->actor,
                                0,
                                info->message,
                                list);
                empathy_pending_info_free (info);
            }
            g_list_free (contacts);
        }
        else if (list_type == TP_CONTACT_LIST_TYPE_SUBSCRIBE && !priv->subscribe) {
            priv->subscribe = group;

            /* Subscribe is the list of contacts from who we
             * receive presence. Makes no sense to be in
             * local-pending */
            g_signal_connect (group, "remote-pending",
                      G_CALLBACK (tp_contact_list_pending_cb),
                      list);

            contacts = empathy_tp_group_get_remote_pendings (group);
            for (l = contacts; l; l = l->next) {
                tp_contact_list_pending_cb (group,
                                l->data,
                                NULL, 0,
                                NULL, list);
                g_object_unref (l->data);
            }
            g_list_free (contacts);
        } else {
            empathy_debug (DEBUG_DOMAIN,
                      "Type of contact list channel unknown "
                      "or aleady have that list: %s",
                      empathy_tp_group_get_name (group));
            g_object_unref (group);
            return;
        }
        empathy_debug (DEBUG_DOMAIN,
                   "New contact list channel of type: %d",
                   list_type);

        g_signal_connect (group, "member-added",
                  G_CALLBACK (tp_contact_list_added_cb),
                  list);
        g_signal_connect (group, "member-removed",
                  G_CALLBACK (tp_contact_list_removed_cb),
                  list);

        contacts = empathy_tp_group_get_members (group);
        for (l = contacts; l; l = l->next) {
            tp_contact_list_added_cb (group,
                          l->data,
                          NULL, 0, NULL,
                          list);
            g_object_unref (l->data);
        }
        g_list_free (contacts);
    }
    else if (handle_type == TP_HANDLE_TYPE_GROUP) {
        const gchar *group_name;
        GList       *contacts, *l;

        /* Check if already exists */
        group_name = empathy_tp_group_get_name (group);
        if (tp_contact_list_find_group (list, group_name)) {
            g_object_unref (group);
            return;
        }

        empathy_debug (DEBUG_DOMAIN, "New server-side group channel: %s",
                   group_name);

        priv->groups = g_list_prepend (priv->groups, group);

        g_signal_connect (group, "member-added",
                  G_CALLBACK (tp_contact_list_group_member_added_cb),
                  list);
        g_signal_connect (group, "member-removed",
                  G_CALLBACK (tp_contact_list_group_member_removed_cb),
                  list);
        g_signal_connect (group, "destroy",
                  G_CALLBACK (tp_contact_list_group_destroy_cb),
                  list);

        contacts = empathy_tp_group_get_members (group);
        for (l = contacts; l; l = l->next) {
            tp_contact_list_group_member_added_cb (group, l->data,
                                   NULL, 0, NULL,
                                   list);
            g_object_unref (l->data);
        }
        g_list_free (contacts);
    } else {
        empathy_debug (DEBUG_DOMAIN,
                   "Unknown handle type (%d) for contact list channel",
                   handle_type);
        g_object_unref (group);
    }
}

static void
tp_contact_list_destroy_cb (TpConn               *tp_conn,
                EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    GList                    *l;

    empathy_debug (DEBUG_DOMAIN, "Account disconnected or CM crashed");

    /* DBus proxie should NOT be used anymore */
    g_object_unref (priv->tp_conn);
    priv->tp_conn = NULL;

    /* Remove all contacts */
    for (l = priv->members; l; l = l->next) {
        g_signal_emit_by_name (list, "members-changed", l->data,
                       NULL, 0, NULL,
                       FALSE);
        g_object_unref (l->data);
    }
    for (l = priv->pendings; l; l = l->next) {
        g_signal_emit_by_name (list, "pendings-changed", l->data,
                       NULL, 0, NULL,
                       FALSE);
        g_object_unref (l->data);
    }
    g_list_free (priv->members);
    g_list_free (priv->pendings);
    priv->members = NULL;
    priv->pendings = NULL;

    /* Tell the world to not use us anymore */
    g_signal_emit (list, signals[DESTROY], 0);
}

static void
tp_contact_list_disconnect (EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);

    if (priv->tp_conn) {
        g_signal_handlers_disconnect_by_func (priv->tp_conn,
                              tp_contact_list_destroy_cb,
                              list);
        dbus_g_proxy_disconnect_signal (DBUS_G_PROXY (priv->tp_conn), "NewChannel",
                        G_CALLBACK (tp_contact_list_newchannel_cb),
                        list);
    }
}

static void
tp_contact_list_status_changed_cb (MissionControl           *mc,
                   TpConnectionStatus        status,
                   McPresence                presence,
                   TpConnectionStatusReason  reason,
                   const gchar              *unique_name,
                   EmpathyTpContactList     *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    McAccount                *account;

    account = mc_account_lookup (unique_name);
    if (status != TP_CONNECTION_STATUS_CONNECTED &&
        empathy_account_equal (account, priv->account)) {
        /* We are disconnected */
        tp_contact_list_disconnect (list);
        tp_contact_list_destroy_cb (priv->tp_conn, list);
    }

    g_object_unref (account);
}

static void
tp_contact_list_group_list_free (GList **groups)
{
    g_list_foreach (*groups, (GFunc) g_free, NULL);
    g_list_free (*groups);
    g_slice_free (GList*, groups);
}

static void
tp_contact_list_finalize (GObject *object)
{
    EmpathyTpContactListPriv *priv;
    EmpathyTpContactList     *list;

    list = EMPATHY_TP_CONTACT_LIST (object);
    priv = GET_PRIV (list);

    empathy_debug (DEBUG_DOMAIN, "finalize: %p", object);

    tp_contact_list_disconnect (list);

    if (priv->mc) {
        dbus_g_proxy_disconnect_signal (DBUS_G_PROXY (priv->mc),
                        "AccountStatusChanged",
                        G_CALLBACK (tp_contact_list_status_changed_cb),
                        list);
        g_object_unref (priv->mc);
    }

    if (priv->subscribe) {
        g_object_unref (priv->subscribe);
    }
    if (priv->publish) {
        g_object_unref (priv->publish);
    }
    if (priv->account) {
        g_object_unref (priv->account);
    }
    if (priv->tp_conn) {
        g_object_unref (priv->tp_conn);
    }

    g_hash_table_destroy (priv->contacts_groups);
    g_list_foreach (priv->groups, (GFunc) g_object_unref, NULL);
    g_list_free (priv->groups);
    g_list_foreach (priv->members, (GFunc) g_object_unref, NULL);
    g_list_free (priv->members);
    g_list_foreach (priv->pendings, (GFunc) g_object_unref, NULL);
    g_list_free (priv->pendings);

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

static void
empathy_tp_contact_list_class_init (EmpathyTpContactListClass *klass)
{
    GObjectClass *object_class = G_OBJECT_CLASS (klass);

    object_class->finalize = tp_contact_list_finalize;

    signals[DESTROY] =
        g_signal_new ("destroy",
                  G_TYPE_FROM_CLASS (klass),
                  G_SIGNAL_RUN_LAST,
                  0,
                  NULL, NULL,
                  g_cclosure_marshal_VOID__VOID,
                  G_TYPE_NONE,
                  0);

    g_type_class_add_private (object_class, sizeof (EmpathyTpContactListPriv));
}

static void
empathy_tp_contact_list_init (EmpathyTpContactList *list)
{
}

static void
tp_contact_list_setup (EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    GPtrArray                *channels;
    guint                     i;
    GError                   *error = NULL;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list));

    /* Get existing channels */
    if (!tp_conn_list_channels (DBUS_G_PROXY (priv->tp_conn),
                    &channels,
                    &error)) {
        empathy_debug (DEBUG_DOMAIN,
                  "Failed to get list of open channels: %s",
                  error ? error->message : "No error given");
        g_clear_error (&error);
        return;
    }

    for (i = 0; i < channels->len; i++) {
        GValueArray  *chan_struct;
        const gchar  *object_path;
        const gchar  *chan_iface;
        TpHandleType  handle_type;
        guint         handle;

        chan_struct = g_ptr_array_index (channels, i);
        object_path = g_value_get_boxed (g_value_array_get_nth (chan_struct, 0));
        chan_iface = g_value_get_string (g_value_array_get_nth (chan_struct, 1));
        handle_type = g_value_get_uint (g_value_array_get_nth (chan_struct, 2));
        handle = g_value_get_uint (g_value_array_get_nth (chan_struct, 3));

        tp_contact_list_newchannel_cb (DBUS_G_PROXY (priv->tp_conn),
                           object_path, chan_iface,
                           handle_type, handle,
                           FALSE,
                           list);

        g_value_array_free (chan_struct);
    }
    g_ptr_array_free (channels, TRUE);
}

EmpathyTpContactList *
empathy_tp_contact_list_new (McAccount *account)
{
    EmpathyTpContactListPriv *priv;
    EmpathyTpContactList     *list;
    MissionControl           *mc;
    TpConn                   *tp_conn = NULL;
    McProfile                *profile;
    const gchar              *protocol_name;

    g_return_val_if_fail (MC_IS_ACCOUNT (account), NULL);

    mc = empathy_mission_control_new ();

    /* status==0 means CONNECTED */
    if (mission_control_get_connection_status (mc, account, NULL) == 0) {
        tp_conn = mission_control_get_connection (mc, account, NULL);
    }
    if (!tp_conn) {
        /* The account is not connected, nothing to do. */
        g_object_unref (mc);
        return NULL;
    }

    list = g_object_new (EMPATHY_TYPE_TP_CONTACT_LIST, NULL);
    priv = GET_PRIV (list);

    priv->tp_conn = tp_conn;
    priv->account = g_object_ref (account);
    priv->mc = mc;
    priv->contacts_groups = g_hash_table_new_full (g_direct_hash,
                               g_direct_equal,
                               (GDestroyNotify) g_object_unref,
                               (GDestroyNotify) tp_contact_list_group_list_free);

    /* Check for protocols that does not support contact groups. We can
     * put all contacts into a special group in that case.
     * FIXME: Default group should be an information in the profile */
    profile = mc_account_get_profile (account);
    protocol_name = mc_profile_get_protocol_name (profile);
    if (strcmp (protocol_name, "local-xmpp") == 0) {
        priv->protocol_group = _("People nearby");
    }
    g_object_unref (profile);

    /* Connect signals */
    dbus_g_proxy_connect_signal (DBUS_G_PROXY (priv->mc),
                     "AccountStatusChanged",
                     G_CALLBACK (tp_contact_list_status_changed_cb),
                     list, NULL);
    dbus_g_proxy_connect_signal (DBUS_G_PROXY (priv->tp_conn), "NewChannel",
                     G_CALLBACK (tp_contact_list_newchannel_cb),
                     list, NULL);
    g_signal_connect (priv->tp_conn, "destroy",
              G_CALLBACK (tp_contact_list_destroy_cb),
              list);

    tp_contact_list_setup (list);

    return list;
}

McAccount *
empathy_tp_contact_list_get_account (EmpathyTpContactList *list)
{
    EmpathyTpContactListPriv *priv;

    g_return_val_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list), NULL);

    priv = GET_PRIV (list);

    return priv->account;
}

static void
tp_contact_list_add (EmpathyContactList *list,
             EmpathyContact     *contact,
             const gchar        *message)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list));

    empathy_tp_group_add_member (priv->subscribe, contact, message);
    if (g_list_find (priv->pendings, contact)) {
        empathy_tp_group_add_member (priv->publish, contact, message);      
    }
}

static void
tp_contact_list_remove (EmpathyContactList *list,
            EmpathyContact     *contact,
            const gchar        *message)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list));

    empathy_tp_group_remove_member (priv->subscribe, contact, message);
    empathy_tp_group_remove_member (priv->publish, contact, message);       
}

static GList *
tp_contact_list_get_members (EmpathyContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);

    g_return_val_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list), NULL);

    g_list_foreach (priv->members, (GFunc) g_object_ref, NULL);
    return g_list_copy (priv->members);
}

static GList *
tp_contact_list_get_pendings (EmpathyContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);

    g_return_val_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list), NULL);

    g_list_foreach (priv->pendings, (GFunc) g_object_ref, NULL);
    return g_list_copy (priv->pendings);
}

static GList *
tp_contact_list_get_all_groups (EmpathyContactList *list)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    GList                    *groups = NULL, *l;

    g_return_val_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list), NULL);

    if (priv->protocol_group) {
        groups = g_list_prepend (groups, g_strdup (priv->protocol_group));
    }

    for (l = priv->groups; l; l = l->next) {
        const gchar *name;

        name = empathy_tp_group_get_name (l->data);
        groups = g_list_prepend (groups, g_strdup (name));
    }

    return groups;
}

static GList *
tp_contact_list_get_groups (EmpathyContactList *list,
                EmpathyContact     *contact)
{
    EmpathyTpContactListPriv  *priv = GET_PRIV (list);
    GList                    **groups;
    GList                     *ret = NULL, *l;

    g_return_val_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list), NULL);

    if (priv->protocol_group) {
        ret = g_list_prepend (ret, g_strdup (priv->protocol_group));
    }

    groups = g_hash_table_lookup (priv->contacts_groups, contact);
    if (!groups) {
        return ret;
    }

    for (l = *groups; l; l = l->next) {
        ret = g_list_prepend (ret, g_strdup (l->data));
    }


    return ret;
}

static EmpathyTpGroup *
tp_contact_list_get_group (EmpathyTpContactList *list,
               const gchar          *group)
{
    EmpathyTpContactListPriv *priv = GET_PRIV (list);
    EmpathyTpGroup           *tp_group;
    gchar                    *object_path;
    guint                     handle;
    GArray                   *handles;
    const char               *names[2] = {group, NULL};
    GError                   *error = NULL;

    tp_group = tp_contact_list_find_group (list, group);
    if (tp_group) {
        return tp_group;
    }

    empathy_debug (DEBUG_DOMAIN, "creating new group: %s", group);

    if (!tp_conn_request_handles (DBUS_G_PROXY (priv->tp_conn),
                      TP_HANDLE_TYPE_GROUP,
                      names,
                      &handles,
                      &error)) {
        empathy_debug (DEBUG_DOMAIN,
                  "Failed to RequestHandles: %s",
                  error ? error->message : "No error given");
        g_clear_error (&error);
        return NULL;
    }
    handle = g_array_index (handles, guint, 0);
    g_array_free (handles, TRUE);

    if (!tp_conn_request_channel (DBUS_G_PROXY (priv->tp_conn),
                      TP_IFACE_CHANNEL_TYPE_CONTACT_LIST,
                      TP_HANDLE_TYPE_GROUP,
                      handle,
                      TRUE,
                      &object_path,
                      &error)) {
        empathy_debug (DEBUG_DOMAIN,
                  "Failed to RequestChannel: %s",
                  error ? error->message : "No error given");
        g_clear_error (&error);
        return NULL;
    }

    tp_contact_list_newchannel_cb (DBUS_G_PROXY (priv->tp_conn),
                       object_path,
                       TP_IFACE_CHANNEL_TYPE_CONTACT_LIST,
                       TP_HANDLE_TYPE_GROUP,
                       handle, FALSE,
                       list);
    g_free (object_path);

    return tp_contact_list_find_group (list, group);
}

static void
tp_contact_list_add_to_group (EmpathyContactList *list,
                  EmpathyContact     *contact,
                  const gchar        *group)
{
    EmpathyTpGroup *tp_group;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list));

    tp_group = tp_contact_list_get_group (EMPATHY_TP_CONTACT_LIST (list),
                          group);

    empathy_tp_group_add_member (tp_group, contact, "");
}

static void
tp_contact_list_remove_from_group (EmpathyContactList *list,
                   EmpathyContact     *contact,
                   const gchar        *group)
{
    EmpathyTpGroup *tp_group;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list));

    tp_group = tp_contact_list_find_group (EMPATHY_TP_CONTACT_LIST (list),
                           group);

    if (tp_group) {
        empathy_tp_group_remove_member (tp_group, contact, "");
    }
}

static void
tp_contact_list_rename_group (EmpathyContactList *list,
                  const gchar        *old_group,
                  const gchar        *new_group)
{
    EmpathyTpGroup *tp_group;
    GList          *members;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list));

    tp_group = tp_contact_list_find_group (EMPATHY_TP_CONTACT_LIST (list),
                           old_group);
    if (!tp_group) {
        return;
    }

    empathy_debug (DEBUG_DOMAIN, "rename group %s to %s", old_group, new_group);

    /* Remove all members from the old group */
    members = empathy_tp_group_get_members (tp_group);
    empathy_tp_group_remove_members (tp_group, members, "");
    empathy_tp_group_close (tp_group);

    /* Add all members to the new group */
    tp_group = tp_contact_list_get_group (EMPATHY_TP_CONTACT_LIST (list),
                          new_group);
    empathy_tp_group_add_members (tp_group, members, "");

    g_list_foreach (members, (GFunc) g_object_unref, NULL);
    g_list_free (members);
}

static void
tp_contact_list_remove_group (EmpathyContactList *list,
                  const gchar *group)
{
    EmpathyTpGroup *tp_group;
    GList          *members;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_LIST (list));

    tp_group = tp_contact_list_find_group (EMPATHY_TP_CONTACT_LIST (list),
                           group);
    
    if (!tp_group) {
        return;
    }

    empathy_debug (DEBUG_DOMAIN, "remove group %s", group);

    /* Remove all members of the group */
    members = empathy_tp_group_get_members (tp_group);
    empathy_tp_group_remove_members (tp_group, members, "");
    empathy_tp_group_close (tp_group);

    g_list_foreach (members, (GFunc) g_object_unref, NULL);
    g_list_free (members);
}

static void
tp_contact_list_iface_init (EmpathyContactListIface *iface)
{
    iface->add               = tp_contact_list_add;
    iface->remove            = tp_contact_list_remove;
    iface->get_members       = tp_contact_list_get_members;
    iface->get_pendings      = tp_contact_list_get_pendings;
    iface->get_all_groups    = tp_contact_list_get_all_groups;
    iface->get_groups        = tp_contact_list_get_groups;
    iface->add_to_group      = tp_contact_list_add_to_group;
    iface->remove_from_group = tp_contact_list_remove_from_group;
    iface->rename_group      = tp_contact_list_rename_group;
    iface->remove_group  = tp_contact_list_remove_group;
}