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

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
 * Copyright (C) 2007-2009 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/util.h>
#include <telepathy-glib/gtypes.h>
#include <telepathy-glib/dbus.h>
#if HAVE_GEOCLUE
#include <geoclue/geoclue-geocode.h>
#endif

#include <extensions/extensions.h>

#include "empathy-tp-contact-factory.h"
#include "empathy-utils.h"
#include "empathy-location.h"

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

#define GET_PRIV(obj) EMPATHY_GET_PRIV (obj, EmpathyTpContactFactory)
typedef struct {
    TpConnection   *connection;
    GList          *contacts;

    gchar         **avatar_mime_types;
    guint           avatar_min_width;
    guint           avatar_min_height;
    guint           avatar_max_width;
    guint           avatar_max_height;
    guint           avatar_max_size;
    gboolean        can_request_ft;
    gboolean        can_request_st;
} EmpathyTpContactFactoryPriv;

G_DEFINE_TYPE (EmpathyTpContactFactory, empathy_tp_contact_factory, G_TYPE_OBJECT);

enum {
    PROP_0,
    PROP_CONNECTION,

    PROP_MIME_TYPES,
    PROP_MIN_WIDTH,
    PROP_MIN_HEIGHT,
    PROP_MAX_WIDTH,
    PROP_MAX_HEIGHT,
    PROP_MAX_SIZE
};

static TpContactFeature contact_features[] = {
    TP_CONTACT_FEATURE_ALIAS,
    TP_CONTACT_FEATURE_PRESENCE,
};

static EmpathyContact *
tp_contact_factory_find_by_handle (EmpathyTpContactFactory *tp_factory,
                   guint                    handle)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    GList                       *l;

    for (l = priv->contacts; l; l = l->next) {
        if (empathy_contact_get_handle (l->data) == handle) {
            return l->data;
        }
    }

    return NULL;
}

static EmpathyContact *
tp_contact_factory_find_by_tp_contact (EmpathyTpContactFactory *tp_factory,
                       TpContact               *tp_contact)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    GList                       *l;

    for (l = priv->contacts; l; l = l->next) {
        if (empathy_contact_get_tp_contact (l->data) == tp_contact) {
            return l->data;
        }
    }

    return NULL;
}

static void
tp_contact_factory_weak_notify (gpointer data,
                GObject *where_the_object_was)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (data);

    DEBUG ("Remove finalized contact %p", where_the_object_was);

    priv->contacts = g_list_remove (priv->contacts, where_the_object_was);
}

static void
tp_contact_factory_set_aliases_cb (TpConnection *connection,
                   const GError *error,
                   gpointer      user_data,
                   GObject      *tp_factory)
{
    if (error) {
        DEBUG ("Error: %s", error->message);
    }
}

static void
tp_contact_factory_set_location_cb (TpProxy *proxy,
                    const GError *error,
                    gpointer user_data,
                    GObject *weak_object)
{
    if (error != NULL) {
        DEBUG ("Error setting location: %s", error->message);
    }
}

static void
tp_contact_factory_set_avatar_cb (TpConnection *connection,
                  const gchar  *token,
                  const GError *error,
                  gpointer      user_data,
                  GObject      *tp_factory)
{
    if (error) {
        DEBUG ("Error: %s", error->message);
    }
}

static void
tp_contact_factory_clear_avatar_cb (TpConnection *connection,
                    const GError *error,
                    gpointer      user_data,
                    GObject      *tp_factory)
{
    if (error) {
        DEBUG ("Error: %s", error->message);
    }
}

static void
tp_contact_factory_avatar_retrieved_cb (TpConnection *connection,
                    guint         handle,
                    const gchar  *token,
                    const GArray *avatar_data,
                    const gchar  *mime_type,
                    gpointer      user_data,
                    GObject      *tp_factory)
{
    EmpathyContact *contact;

    contact = tp_contact_factory_find_by_handle (EMPATHY_TP_CONTACT_FACTORY (tp_factory),
                             handle);
    if (!contact) {
        return;
    }

    DEBUG ("Avatar retrieved for contact %s (%d)",
        empathy_contact_get_id (contact),
        handle);

    empathy_contact_load_avatar_data (contact,
                      avatar_data->data,
                      avatar_data->len,
                      mime_type,
                      token);
}

static void
tp_contact_factory_request_avatars_cb (TpConnection *connection,
                       const GError *error,
                       gpointer      user_data,
                       GObject      *tp_factory)
{
    if (error) {
        DEBUG ("Error: %s", error->message);
    }
}

static gboolean
tp_contact_factory_avatar_maybe_update (EmpathyTpContactFactory *tp_factory,
                    guint                    handle,
                    const gchar             *token)
{
    EmpathyContact *contact;
    EmpathyAvatar  *avatar;

    contact = tp_contact_factory_find_by_handle (tp_factory, handle);
    if (!contact) {
        return TRUE;
    }

    /* Check if we have an avatar */
    if (EMP_STR_EMPTY (token)) {
        empathy_contact_set_avatar (contact, NULL);
        return TRUE;
    }

    /* Check if the avatar changed */
    avatar = empathy_contact_get_avatar (contact);
    if (avatar && !tp_strdiff (avatar->token, token)) {
        return TRUE;
    }

    /* The avatar changed, search the new one in the cache */
    if (empathy_contact_load_avatar_cache (contact, token)) {
        /* Got from cache, use it */
        return TRUE;
    }

    /* Avatar is not up-to-date, we have to request it. */
    return FALSE;
}

typedef struct {
    EmpathyTpContactFactory *tp_factory;
    GArray                  *handles;
} TokensData;

static void
tp_contact_factory_avatar_tokens_foreach (gpointer key,
                      gpointer value,
                      gpointer user_data)
{
    TokensData  *data = user_data;
    const gchar *token = value;
    guint        handle = GPOINTER_TO_UINT (key);

    if (!tp_contact_factory_avatar_maybe_update (data->tp_factory,
                             handle, token)) {
        g_array_append_val (data->handles, handle);
    }
}

static void
tp_contact_factory_got_known_avatar_tokens (EmpathyTpContactFactory *tp_factory,
                        GHashTable              *tokens,
                        const GError            *error)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    TokensData data;

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

    data.tp_factory = tp_factory;
    data.handles = g_array_new (FALSE, FALSE, sizeof (guint));
    g_hash_table_foreach (tokens,
                  tp_contact_factory_avatar_tokens_foreach,
                  &data);

    DEBUG ("Got %d tokens, need to request %d avatars",
        g_hash_table_size (tokens), data.handles->len);

    /* Request needed avatars */
    if (data.handles->len > 0) {
        tp_cli_connection_interface_avatars_call_request_avatars (priv->connection,
                                      -1,
                                      data.handles,
                                      tp_contact_factory_request_avatars_cb,
                                      NULL, NULL,
                                      G_OBJECT (tp_factory));
    }

    g_array_free (data.handles, TRUE);
    g_hash_table_destroy (tokens);
}

static void
tp_contact_factory_avatar_updated_cb (TpConnection *connection,
                      guint         handle,
                      const gchar  *new_token,
                      gpointer      user_data,
                      GObject      *tp_factory)
{
    GArray *handles;

    if (tp_contact_factory_avatar_maybe_update (EMPATHY_TP_CONTACT_FACTORY (tp_factory),
                            handle, new_token)) {
        /* Avatar was cached, nothing to do */
        return;
    }

    DEBUG ("Need to request avatar for token %s", new_token);

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

    tp_cli_connection_interface_avatars_call_request_avatars (connection,
                                  -1,
                                  handles,
                                  tp_contact_factory_request_avatars_cb,
                                  NULL, NULL,
                                  tp_factory);
    g_array_free (handles, TRUE);
}

static void
tp_contact_factory_update_capabilities (EmpathyTpContactFactory *tp_factory,
                    guint                    handle,
                    const gchar             *channel_type,
                    guint                    generic,
                    guint                    specific)
{
    EmpathyContact      *contact;
    EmpathyCapabilities  capabilities;

    contact = tp_contact_factory_find_by_handle (tp_factory, handle);
    if (!contact) {
        return;
    }

    capabilities = empathy_contact_get_capabilities (contact);
    capabilities &= ~EMPATHY_CAPABILITIES_UNKNOWN;

    if (strcmp (channel_type, TP_IFACE_CHANNEL_TYPE_STREAMED_MEDIA) == 0) {
        capabilities &= ~EMPATHY_CAPABILITIES_AUDIO;
        capabilities &= ~EMPATHY_CAPABILITIES_VIDEO;
        if (specific & TP_CHANNEL_MEDIA_CAPABILITY_AUDIO) {
            capabilities |= EMPATHY_CAPABILITIES_AUDIO;
        }
        if (specific & TP_CHANNEL_MEDIA_CAPABILITY_VIDEO) {
            capabilities |= EMPATHY_CAPABILITIES_VIDEO;
        }
    }

    DEBUG ("Changing capabilities for contact %s (%d) to %d",
        empathy_contact_get_id (contact),
        empathy_contact_get_handle (contact),
        capabilities);

    empathy_contact_set_capabilities (contact, capabilities);
}

static void
tp_contact_factory_got_capabilities (EmpathyTpContactFactory *tp_factory,
                     GPtrArray *capabilities,
                     const GError    *error)
{
    guint i;

    if (error) {
        DEBUG ("Error: %s", error->message);
        /* FIXME Should set the capabilities of the contacts for which this request
         * originated to NONE */
        return;
    }

    for (i = 0; i < capabilities->len; i++) {
        GValueArray *values;
        guint        handle;
        const gchar *channel_type;
        guint        generic;
        guint        specific;

        values = g_ptr_array_index (capabilities, i);
        handle = g_value_get_uint (g_value_array_get_nth (values, 0));
        channel_type = g_value_get_string (g_value_array_get_nth (values, 1));
        generic = g_value_get_uint (g_value_array_get_nth (values, 2));
        specific = g_value_get_uint (g_value_array_get_nth (values, 3));

        tp_contact_factory_update_capabilities (tp_factory,
                            handle,
                            channel_type,
                            generic,
                            specific);

        g_value_array_free (values);
    }

    g_ptr_array_free (capabilities, TRUE);
}

#if HAVE_GEOCLUE
#define GEOCODE_SERVICE "org.freedesktop.Geoclue.Providers.Yahoo"
#define GEOCODE_PATH "/org/freedesktop/Geoclue/Providers/Yahoo"

/* This callback is called by geoclue when it found a position
 * for the given address.  A position is necessary for a contact
 * to show up on the map
 */
static void
geocode_cb (GeoclueGeocode *geocode,
        GeocluePositionFields fields,
        double latitude,
        double longitude,
        double altitude,
        GeoclueAccuracy *accuracy,
        GError *error,
        gpointer contact)
{
    GValue *new_value;
    GHashTable *location;

    location = empathy_contact_get_location (EMPATHY_CONTACT (contact));

    if (error != NULL) {
        DEBUG ("Error geocoding location : %s", error->message);
        g_object_unref (geocode);
        g_object_unref (contact);
        return;
    }

    if (fields & GEOCLUE_POSITION_FIELDS_LATITUDE) {
        new_value = tp_g_value_slice_new_double (latitude);
        g_hash_table_replace (location, g_strdup (EMPATHY_LOCATION_LAT),
            new_value);
        DEBUG ("\t - Latitude: %f", latitude);
    }
    if (fields & GEOCLUE_POSITION_FIELDS_LONGITUDE) {
        new_value = tp_g_value_slice_new_double (longitude);
        g_hash_table_replace (location, g_strdup (EMPATHY_LOCATION_LON),
            new_value);
        DEBUG ("\t - Longitude: %f", longitude);
    }
    if (fields & GEOCLUE_POSITION_FIELDS_ALTITUDE) {
        new_value = tp_g_value_slice_new_double (altitude);
        g_hash_table_replace (location, g_strdup (EMPATHY_LOCATION_ALT),
            new_value);
        DEBUG ("\t - Altitude: %f", altitude);
    }

    /* Don't change the accuracy as we used an address to get this position */
    g_object_notify (contact, "location");
    g_object_unref (geocode);
    g_object_unref (contact);
}
#endif

#if HAVE_GEOCLUE
static gchar *
get_dup_string (GHashTable *location,
    gchar *key)
{
  GValue *value;

  value = g_hash_table_lookup (location, key);
  if (value != NULL)
    return g_value_dup_string (value);

  return NULL;
}
#endif

static void
tp_contact_factory_geocode (EmpathyContact *contact)
{
#if HAVE_GEOCLUE
    static GeoclueGeocode *geocode;
    gchar *str;
    GHashTable *address;
    GValue* value;
    GHashTable *location;

    location = empathy_contact_get_location (contact);
    if (location == NULL)
        return;

    value = g_hash_table_lookup (location, EMPATHY_LOCATION_LAT);
    if (value != NULL)
        return;

    if (geocode == NULL) {
        geocode = geoclue_geocode_new (GEOCODE_SERVICE, GEOCODE_PATH);
        g_object_add_weak_pointer (G_OBJECT (geocode), (gpointer *) &geocode);
    }
    else
        g_object_ref (geocode);

    address = geoclue_address_details_new ();

    str = get_dup_string (location, EMPATHY_LOCATION_COUNTRY);
    if (str != NULL)
        g_hash_table_insert (address, g_strdup ("country"), str);

    str = get_dup_string (location, EMPATHY_LOCATION_POSTAL_CODE);
    if (str != NULL)
        g_hash_table_insert (address, g_strdup ("postalcode"), str);

    str = get_dup_string (location, EMPATHY_LOCATION_LOCALITY);
    if (str != NULL)
        g_hash_table_insert (address, g_strdup ("locality"), str);

    str = get_dup_string (location, EMPATHY_LOCATION_STREET);
    if (str != NULL)
        g_hash_table_insert (address, g_strdup ("street"), str);

    g_object_ref (contact);
    geoclue_geocode_address_to_position_async (geocode, address,
        geocode_cb, contact);

    g_hash_table_unref (address);
#endif
}

static void
tp_contact_factory_update_location (EmpathyTpContactFactory *tp_factory,
                    guint handle,
                    GHashTable *location)
{
    EmpathyContact *contact;
    GHashTable     *new_location;

    contact = tp_contact_factory_find_by_handle (tp_factory, handle);

    if (contact == NULL)
        return;

    new_location = g_hash_table_new_full (g_str_hash, g_str_equal,
        (GDestroyNotify) g_free, (GDestroyNotify) tp_g_value_slice_free);
    tp_g_hash_table_update (new_location, location, (GBoxedCopyFunc) g_strdup,
        (GBoxedCopyFunc) tp_g_value_slice_dup);
    empathy_contact_set_location (contact, new_location);
    g_hash_table_unref (new_location);

    tp_contact_factory_geocode (contact);
}

static void
tp_contact_factory_got_locations (TpProxy                 *tp_proxy,
                  GHashTable              *locations,
                  const GError            *error,
                  gpointer                 user_data,
                  GObject                 *weak_object)
{
    GHashTableIter iter;
    gpointer key, value;
    EmpathyTpContactFactory *tp_factory;

    tp_factory = EMPATHY_TP_CONTACT_FACTORY (user_data);
    if (error != NULL) {
        DEBUG ("Error: %s", error->message);
        return;
    }

    g_hash_table_iter_init (&iter, locations);
    while (g_hash_table_iter_next (&iter, &key, &value)) {
        guint           handle = GPOINTER_TO_INT (key);
        GHashTable     *location = value;

        tp_contact_factory_update_location (tp_factory, handle, location);
    }
}

static void
tp_contact_factory_capabilities_changed_cb (TpConnection    *connection,
                        const GPtrArray *capabilities,
                        gpointer         user_data,
                        GObject         *weak_object)
{
    EmpathyTpContactFactory *tp_factory = EMPATHY_TP_CONTACT_FACTORY (weak_object);
    guint                    i;

    for (i = 0; i < capabilities->len; i++) {
        GValueArray *values;
        guint        handle;
        const gchar *channel_type;
        guint        generic;
        guint        specific;

        values = g_ptr_array_index (capabilities, i);
        handle = g_value_get_uint (g_value_array_get_nth (values, 0));
        channel_type = g_value_get_string (g_value_array_get_nth (values, 1));
        generic = g_value_get_uint (g_value_array_get_nth (values, 3));
        specific = g_value_get_uint (g_value_array_get_nth (values, 5));

        tp_contact_factory_update_capabilities (tp_factory,
                            handle,
                            channel_type,
                            generic,
                            specific);
    }
}

static void
tp_contact_factory_location_updated_cb (TpProxy      *proxy,
                    guint         handle,
                    GHashTable   *location,
                    gpointer      user_data,
                    GObject      *weak_object)
{
    EmpathyTpContactFactory *tp_factory = EMPATHY_TP_CONTACT_FACTORY (weak_object);
    tp_contact_factory_update_location (tp_factory, handle, location);
}

static void
get_requestable_channel_classes_cb (TpProxy *connection,
                    const GValue *value,
                    const GError *error,
                    gpointer user_data,
                    GObject *weak_object)
{
    EmpathyTpContactFactory     *self = EMPATHY_TP_CONTACT_FACTORY (weak_object);
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (self);
    GPtrArray                   *classes;
    guint                        i;
    GList                       *l;

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

    classes = g_value_get_boxed (value);
    for (i = 0; i < classes->len; i++) {
        GValueArray *class_struct;
        GHashTable *fixed_prop;
        GValue *chan_type, *handle_type;

        class_struct = g_ptr_array_index (classes, i);
        fixed_prop = g_value_get_boxed (g_value_array_get_nth (class_struct, 0));

        handle_type = g_hash_table_lookup (fixed_prop,
            TP_IFACE_CHANNEL ".TargetHandleType");
        if (handle_type == NULL ||
            g_value_get_uint (handle_type) != TP_HANDLE_TYPE_CONTACT)
            continue;

        chan_type = g_hash_table_lookup (fixed_prop,
            TP_IFACE_CHANNEL ".ChannelType");
        if (chan_type == NULL)
            continue;

        if (!tp_strdiff (g_value_get_string (chan_type),
            TP_IFACE_CHANNEL_TYPE_FILE_TRANSFER))
            priv->can_request_ft = TRUE;
        else if (!tp_strdiff (g_value_get_string (chan_type),
                 TP_IFACE_CHANNEL_TYPE_STREAM_TUBE))
            priv->can_request_st = TRUE;
    }

    if (!priv->can_request_ft && !priv->can_request_st)
        return ;

    /* Update the capabilities of all contacts */
    for (l = priv->contacts; l != NULL; l = g_list_next (l)) {
        EmpathyContact *contact = l->data;
        EmpathyCapabilities caps;

        caps = empathy_contact_get_capabilities (contact);

        if (priv->can_request_ft)
            caps |= EMPATHY_CAPABILITIES_FT;

        if (priv->can_request_st)
            caps |= EMPATHY_CAPABILITIES_STREAM_TUBE;

        empathy_contact_set_capabilities (contact, caps);
    }
}

static void
tp_contact_factory_got_avatar_requirements_cb (TpConnection *proxy,
                           const gchar **mime_types,
                           guint         min_width,
                           guint         min_height,
                           guint         max_width,
                           guint         max_height,
                           guint         max_size,
                           const GError *error,
                           gpointer      user_data,
                           GObject      *tp_factory)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);

    if (error) {
        DEBUG ("Failed to get avatar requirements: %s", error->message);
        /* We'll just leave avatar_mime_types as NULL; the
         * avatar-setting code can use this as a signal that you can't
         * set avatars.
         */
    } else {
        priv->avatar_mime_types = g_strdupv ((gchar **) mime_types);
        priv->avatar_min_width = min_width;
        priv->avatar_min_height = min_height;
        priv->avatar_max_width = max_width;
        priv->avatar_max_height = max_height;
        priv->avatar_max_size = max_size;
    }
}

static void
tp_contact_factory_add_contact (EmpathyTpContactFactory *tp_factory,
                EmpathyContact          *contact)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    TpHandle self_handle;
    TpHandle handle;
    GArray handles = {(gchar *) &handle, 1};
    GHashTable *tokens;
    GPtrArray *capabilities;
    GError *error = NULL;
    EmpathyCapabilities caps;

    /* Keep a weak ref to that contact */
    g_object_weak_ref (G_OBJECT (contact),
               tp_contact_factory_weak_notify,
               tp_factory);
    priv->contacts = g_list_prepend (priv->contacts, contact);

    /* The contact keeps a ref to its factory */
    g_object_set_data_full (G_OBJECT (contact), "empathy-factory",
                g_object_ref (tp_factory),
                g_object_unref);

    caps = empathy_contact_get_capabilities (contact);

    /* Set the FT capability */
    if (priv->can_request_ft) {
        caps |= EMPATHY_CAPABILITIES_FT;
    }

    /* Set the Stream Tube capability */
    if (priv->can_request_st) {
        caps |= EMPATHY_CAPABILITIES_STREAM_TUBE;
    }

    empathy_contact_set_capabilities (contact, caps);

    /* Set is-user property. Note that it could still be the handle is
     * different from the connection's self handle, in the case the handle
     * comes from a group interface. */
    self_handle = tp_connection_get_self_handle (priv->connection);
    handle = empathy_contact_get_handle (contact);
    empathy_contact_set_is_user (contact, self_handle == handle);

    /* FIXME: This should be done by TpContact */
    tp_cli_connection_interface_avatars_run_get_known_avatar_tokens (priv->connection,
                                     -1,
                                     &handles,
                                     &tokens,
                                     &error,
                                     NULL);
    tp_contact_factory_got_known_avatar_tokens (tp_factory, tokens, error);
    g_clear_error (&error);

    tp_cli_connection_interface_capabilities_run_get_capabilities (priv->connection,
                                    -1,
                                    &handles,
                                    &capabilities,
                                    &error,
                                    NULL);
    tp_contact_factory_got_capabilities (tp_factory, capabilities, error);
    g_clear_error (&error);

    if (tp_proxy_has_interface_by_id (TP_PROXY (priv->connection),
        EMP_IFACE_QUARK_CONNECTION_INTERFACE_LOCATION)) {
        emp_cli_connection_interface_location_call_get_locations (TP_PROXY (priv->connection),
                                     -1,
                                     &handles,
                                     tp_contact_factory_got_locations,
                                     tp_factory,
                                     NULL,
                                     NULL);
    }

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

typedef union {
    EmpathyTpContactFactoryContactsByIdCb ids_cb;
    EmpathyTpContactFactoryContactsByHandleCb handles_cb;
    EmpathyTpContactFactoryContactCb contact_cb;
} GetContactsCb;

typedef struct {
    EmpathyTpContactFactory *tp_factory;
    GetContactsCb callback;
    gpointer user_data;
    GDestroyNotify destroy;
} GetContactsData;

static void
get_contacts_data_free (gpointer user_data)
{
    GetContactsData *data = user_data;

    if (data->destroy) {
        data->destroy (data->user_data);
    }
    g_object_unref (data->tp_factory);

    g_slice_free (GetContactsData, data);
}

static EmpathyContact *
dup_contact_for_tp_contact (EmpathyTpContactFactory *tp_factory,
                TpContact               *tp_contact)
{
    EmpathyContact *contact;

    contact = tp_contact_factory_find_by_tp_contact (tp_factory,
                             tp_contact);

    if (contact != NULL) {
        g_object_ref (contact);
    } else {
        contact = empathy_contact_new (tp_contact);
        tp_contact_factory_add_contact (tp_factory, contact);
    }

    return contact;
}

static EmpathyContact **
contacts_array_new (EmpathyTpContactFactory *tp_factory,
            guint                    n_contacts,
            TpContact * const *      contacts)
{
    EmpathyContact **ret;
    guint            i;

    ret = g_new0 (EmpathyContact *, n_contacts);
    for (i = 0; i < n_contacts; i++) {
        ret[i] = dup_contact_for_tp_contact (tp_factory, contacts[i]);
    }

    return ret;
}

static void
contacts_array_free (guint            n_contacts,
             EmpathyContact **contacts)
{
    guint i;

    for (i = 0; i < n_contacts; i++) {
        g_object_unref (contacts[i]);
    }
    g_free (contacts);
}

static void
get_contacts_by_id_cb (TpConnection *connection,
               guint n_contacts,
               TpContact * const *contacts,
               const gchar * const *requested_ids,
               GHashTable *failed_id_errors,
               const GError *error,
               gpointer user_data,
               GObject *weak_object)
{
    GetContactsData *data = user_data;
    EmpathyContact **empathy_contacts;

    empathy_contacts = contacts_array_new (data->tp_factory,
                           n_contacts, contacts);
    if (data->callback.ids_cb) {
        data->callback.ids_cb (data->tp_factory,
                       n_contacts, empathy_contacts,
                       requested_ids,
                       failed_id_errors,
                       error,
                       data->user_data, weak_object);
    }

    contacts_array_free (n_contacts, empathy_contacts);
}

void
empathy_tp_contact_factory_get_from_ids (EmpathyTpContactFactory *tp_factory,
                     guint                    n_ids,
                     const gchar * const     *ids,
                     EmpathyTpContactFactoryContactsByIdCb callback,
                     gpointer                 user_data,
                     GDestroyNotify           destroy,
                     GObject                 *weak_object)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    GetContactsData *data;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_FACTORY (tp_factory));
    g_return_if_fail (ids != NULL);

    data = g_slice_new (GetContactsData);
    data->callback.ids_cb = callback;
    data->user_data = user_data;
    data->destroy = destroy;
    data->tp_factory = g_object_ref (tp_factory);
    tp_connection_get_contacts_by_id (priv->connection,
                      n_ids, ids,
                      G_N_ELEMENTS (contact_features),
                      contact_features,
                      get_contacts_by_id_cb,
                      data,
                      (GDestroyNotify) get_contacts_data_free,
                      weak_object);
}

static void
get_contact_by_id_cb (TpConnection *connection,
              guint n_contacts,
              TpContact * const *contacts,
              const gchar * const *requested_ids,
              GHashTable *failed_id_errors,
              const GError *error,
              gpointer user_data,
              GObject *weak_object)
{
    GetContactsData *data = user_data;
    EmpathyContact  *contact = NULL;

    if (n_contacts == 1) {
        contact = dup_contact_for_tp_contact (data->tp_factory,
                              contacts[0]);
    }
    else if (error == NULL) {
        GHashTableIter iter;
        gpointer       value;

        g_hash_table_iter_init (&iter, failed_id_errors);
        while (g_hash_table_iter_next (&iter, NULL, &value)) {
            if (value) {
                error = value;
                break;
            }
        }
    }

    if (data->callback.contact_cb) {
        data->callback.contact_cb (data->tp_factory,
                           contact,
                           error,
                           data->user_data, weak_object);
    }
}

void
empathy_tp_contact_factory_get_from_id (EmpathyTpContactFactory *tp_factory,
                    const gchar             *id,
                    EmpathyTpContactFactoryContactCb callback,
                    gpointer                 user_data,
                    GDestroyNotify           destroy,
                    GObject                 *weak_object)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    GetContactsData *data;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_FACTORY (tp_factory));
    g_return_if_fail (id != NULL);

    data = g_slice_new (GetContactsData);
    data->callback.contact_cb = callback;
    data->user_data = user_data;
    data->destroy = destroy;
    data->tp_factory = g_object_ref (tp_factory);
    tp_connection_get_contacts_by_id (priv->connection,
                      1, &id,
                      G_N_ELEMENTS (contact_features),
                      contact_features,
                      get_contact_by_id_cb,
                      data,
                      (GDestroyNotify) get_contacts_data_free,
                      weak_object);
}

static void
get_contacts_by_handle_cb (TpConnection *connection,
               guint n_contacts,
               TpContact * const *contacts,
               guint n_failed,
               const TpHandle *failed,
               const GError *error,
               gpointer user_data,
               GObject *weak_object)
{
    GetContactsData *data = user_data;
    EmpathyContact **empathy_contacts;

    empathy_contacts = contacts_array_new (data->tp_factory,
                           n_contacts, contacts);
    if (data->callback.handles_cb) {
        data->callback.handles_cb (data->tp_factory,
                       n_contacts, empathy_contacts,
                       n_failed, failed,
                       error,
                       data->user_data, weak_object);
    }

    contacts_array_free (n_contacts, empathy_contacts);
}

void
empathy_tp_contact_factory_get_from_handles (EmpathyTpContactFactory *tp_factory,
                         guint n_handles,
                         const TpHandle *handles,
                         EmpathyTpContactFactoryContactsByHandleCb callback,
                         gpointer                 user_data,
                         GDestroyNotify           destroy,
                         GObject                 *weak_object)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    GetContactsData *data;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_FACTORY (tp_factory));
    g_return_if_fail (handles != NULL);

    data = g_slice_new (GetContactsData);
    data->callback.handles_cb = callback;
    data->user_data = user_data;
    data->destroy = destroy;
    data->tp_factory = g_object_ref (tp_factory);
    tp_connection_get_contacts_by_handle (priv->connection,
                          n_handles, handles,
                          G_N_ELEMENTS (contact_features),
                          contact_features,
                          get_contacts_by_handle_cb,
                          data,
                          (GDestroyNotify) get_contacts_data_free,
                          weak_object);
}

static void
get_contact_by_handle_cb (TpConnection *connection,
              guint n_contacts,
              TpContact * const *contacts,
              guint n_failed,
              const TpHandle *failed,
              const GError *error,
              gpointer user_data,
              GObject *weak_object)
{
    GetContactsData *data = user_data;
    EmpathyContact  *contact = NULL;

    if (n_contacts == 1) {
        contact = dup_contact_for_tp_contact (data->tp_factory,
                              contacts[0]);
    }

    if (data->callback.contact_cb) {
        data->callback.contact_cb (data->tp_factory,
                           contact,
                           error,
                           data->user_data, weak_object);
    }
}

void
empathy_tp_contact_factory_get_from_handle (EmpathyTpContactFactory *tp_factory,
                        TpHandle                 handle,
                        EmpathyTpContactFactoryContactCb callback,
                        gpointer                 user_data,
                        GDestroyNotify           destroy,
                        GObject                 *weak_object)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    GetContactsData *data;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_FACTORY (tp_factory));

    data = g_slice_new (GetContactsData);
    data->callback.contact_cb = callback;
    data->user_data = user_data;
    data->destroy = destroy;
    data->tp_factory = g_object_ref (tp_factory);
    tp_connection_get_contacts_by_handle (priv->connection,
                          1, &handle,
                          G_N_ELEMENTS (contact_features),
                          contact_features,
                          get_contact_by_handle_cb,
                          data,
                          (GDestroyNotify) get_contacts_data_free,
                          weak_object);
}

void
empathy_tp_contact_factory_set_alias (EmpathyTpContactFactory *tp_factory,
                      EmpathyContact          *contact,
                      const gchar             *alias)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);
    GHashTable                  *new_alias;
    guint                        handle;

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_FACTORY (tp_factory));
    g_return_if_fail (EMPATHY_IS_CONTACT (contact));

    handle = empathy_contact_get_handle (contact);

    DEBUG ("Setting alias for contact %s (%d) to %s",
        empathy_contact_get_id (contact),
        handle, alias);

    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 (alias));

    tp_cli_connection_interface_aliasing_call_set_aliases (priv->connection,
                                   -1,
                                   new_alias,
                                   tp_contact_factory_set_aliases_cb,
                                   NULL, NULL,
                                   G_OBJECT (tp_factory));

    g_hash_table_destroy (new_alias);
}

void
empathy_tp_contact_factory_set_avatar (EmpathyTpContactFactory *tp_factory,
                       const gchar             *data,
                       gsize                    size,
                       const gchar             *mime_type)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_FACTORY (tp_factory));

    if (data && size > 0 && size < G_MAXUINT) {
        GArray avatar;

        avatar.data = (gchar *) data;
        avatar.len = size;

        DEBUG ("Setting avatar on connection %s",
            tp_proxy_get_object_path (TP_PROXY (priv->connection)));

        tp_cli_connection_interface_avatars_call_set_avatar (priv->connection,
                                     -1,
                                     &avatar,
                                     mime_type,
                                     tp_contact_factory_set_avatar_cb,
                                     NULL, NULL,
                                     G_OBJECT (tp_factory));
    } else {
        DEBUG ("Clearing avatar on connection %s",
            tp_proxy_get_object_path (TP_PROXY (priv->connection)));

        tp_cli_connection_interface_avatars_call_clear_avatar (priv->connection,
                                       -1,
                                       tp_contact_factory_clear_avatar_cb,
                                       NULL, NULL,
                                       G_OBJECT (tp_factory));
    }
}

void
empathy_tp_contact_factory_set_location (EmpathyTpContactFactory *tp_factory,
                     GHashTable              *location)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (tp_factory);

    g_return_if_fail (EMPATHY_IS_TP_CONTACT_FACTORY (tp_factory));

    DEBUG ("Setting location");

    emp_cli_connection_interface_location_call_set_location (TP_PROXY (priv->connection),
                                 -1,
                                 location,
                                 tp_contact_factory_set_location_cb,
                                 NULL, NULL,
                                 G_OBJECT (tp_factory));
}

static void
tp_contact_factory_get_property (GObject    *object,
                 guint       param_id,
                 GValue     *value,
                 GParamSpec *pspec)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (object);

    switch (param_id) {
    case PROP_CONNECTION:
        g_value_set_object (value, priv->connection);
        break;
    case PROP_MIME_TYPES:
        g_value_set_boxed (value, priv->avatar_mime_types);
        break;
    case PROP_MIN_WIDTH:
        g_value_set_uint (value, priv->avatar_min_width);
        break;
    case PROP_MIN_HEIGHT:
        g_value_set_uint (value, priv->avatar_min_height);
        break;
    case PROP_MAX_WIDTH:
        g_value_set_uint (value, priv->avatar_max_width);
        break;
    case PROP_MAX_HEIGHT:
        g_value_set_uint (value, priv->avatar_max_height);
        break;
    case PROP_MAX_SIZE:
        g_value_set_uint (value, priv->avatar_max_size);
        break;
    default:
        G_OBJECT_WARN_INVALID_PROPERTY_ID (object, param_id, pspec);
        break;
    };
}

static void
tp_contact_factory_set_property (GObject      *object,
                 guint         param_id,
                 const GValue *value,
                 GParamSpec   *pspec)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (object);

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

static void
tp_contact_factory_finalize (GObject *object)
{
    EmpathyTpContactFactoryPriv *priv = GET_PRIV (object);
    GList                       *l;

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

    for (l = priv->contacts; l; l = l->next) {
        g_object_weak_unref (G_OBJECT (l->data),
                     tp_contact_factory_weak_notify,
                     object);
    }

    g_list_free (priv->contacts);

    g_object_unref (priv->connection);

    g_strfreev (priv->avatar_mime_types);

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

static GObject *
tp_contact_factory_constructor (GType                  type,
                guint                  n_props,
                GObjectConstructParam *props)
{
    GObject *tp_factory;
    EmpathyTpContactFactoryPriv *priv;

    tp_factory = G_OBJECT_CLASS (empathy_tp_contact_factory_parent_class)->constructor (type, n_props, props);
    priv = GET_PRIV (tp_factory);

    /* FIXME: This should be moved to TpContact */
    tp_cli_connection_interface_avatars_connect_to_avatar_updated (priv->connection,
                                       tp_contact_factory_avatar_updated_cb,
                                       NULL, NULL,
                                       tp_factory,
                                       NULL);
    tp_cli_connection_interface_avatars_connect_to_avatar_retrieved (priv->connection,
                                     tp_contact_factory_avatar_retrieved_cb,
                                     NULL, NULL,
                                     tp_factory,
                                     NULL);
    tp_cli_connection_interface_capabilities_connect_to_capabilities_changed (priv->connection,
                                          tp_contact_factory_capabilities_changed_cb,
                                          NULL, NULL,
                                          tp_factory,
                                          NULL);


    emp_cli_connection_interface_location_connect_to_location_updated (TP_PROXY (priv->connection),
                                       tp_contact_factory_location_updated_cb,
                                       NULL, NULL,
                                       G_OBJECT (tp_factory),
                                       NULL);

    /* FIXME: This should be moved to TpConnection */
    tp_cli_connection_interface_avatars_call_get_avatar_requirements (priv->connection,
                                      -1,
                                      tp_contact_factory_got_avatar_requirements_cb,
                                      NULL, NULL,
                                      tp_factory);
    tp_cli_dbus_properties_call_get (priv->connection, -1,
        TP_IFACE_CONNECTION_INTERFACE_REQUESTS,
        "RequestableChannelClasses",
        get_requestable_channel_classes_cb, NULL, NULL,
        G_OBJECT (tp_factory));

    return tp_factory;
}

static void
empathy_tp_contact_factory_class_init (EmpathyTpContactFactoryClass *klass)
{
    GObjectClass *object_class = G_OBJECT_CLASS (klass);

    object_class->finalize = tp_contact_factory_finalize;
    object_class->constructor = tp_contact_factory_constructor;
    object_class->get_property = tp_contact_factory_get_property;
    object_class->set_property = tp_contact_factory_set_property;

    g_object_class_install_property (object_class,
                     PROP_CONNECTION,
                     g_param_spec_object ("connection",
                                  "Factory's Connection",
                                  "The connection associated with the factory",
                                  TP_TYPE_CONNECTION,
                                  G_PARAM_READWRITE |
                                  G_PARAM_CONSTRUCT_ONLY |
                                  G_PARAM_STATIC_STRINGS));
    g_object_class_install_property (object_class,
                     PROP_MIME_TYPES,
                     g_param_spec_boxed ("avatar-mime-types",
                                 "Supported MIME types for avatars",
                                 "Types of images that may be set as "
                                 "avatars on this connection.",
                                 G_TYPE_STRV,
                                 G_PARAM_READABLE |
                                 G_PARAM_STATIC_STRINGS));
    g_object_class_install_property (object_class,
                     PROP_MIN_WIDTH,
                     g_param_spec_uint ("avatar-min-width",
                                "Minimum width for avatars",
                                "Minimum width of avatar that may be set.",
                                0,
                                G_MAXUINT,
                                0,
                                G_PARAM_READABLE |
                                G_PARAM_STATIC_STRINGS));
    g_object_class_install_property (object_class,
                     PROP_MIN_HEIGHT,
                     g_param_spec_uint ("avatar-min-height",
                                "Minimum height for avatars",
                                "Minimum height of avatar that may be set.",
                                0,
                                G_MAXUINT,
                                0,
                                G_PARAM_READABLE |
                                G_PARAM_STATIC_STRINGS));
    g_object_class_install_property (object_class,
                     PROP_MAX_WIDTH,
                     g_param_spec_uint ("avatar-max-width",
                                "Maximum width for avatars",
                                "Maximum width of avatar that may be set "
                                "or 0 if there is no maximum.",
                                0,
                                G_MAXUINT,
                                0,
                                G_PARAM_READABLE |
                                G_PARAM_STATIC_STRINGS));
    g_object_class_install_property (object_class,
                     PROP_MAX_HEIGHT,
                     g_param_spec_uint ("avatar-max-height",
                                "Maximum height for avatars",
                                "Maximum height of avatar that may be set "
                                "or 0 if there is no maximum.",
                                0,
                                G_MAXUINT,
                                0,
                                G_PARAM_READABLE |
                                G_PARAM_STATIC_STRINGS));
    g_object_class_install_property (object_class,
                     PROP_MAX_SIZE,
                     g_param_spec_uint ("avatar-max-size",
                                "Maximum size for avatars in bytes",
                                "Maximum file size of avatar that may be "
                                "set or 0 if there is no maximum.",
                                0,
                                G_MAXUINT,
                                0,
                                G_PARAM_READABLE |
                                G_PARAM_STATIC_STRINGS));


    g_type_class_add_private (object_class, sizeof (EmpathyTpContactFactoryPriv));
}

static void
empathy_tp_contact_factory_init (EmpathyTpContactFactory *tp_factory)
{
    EmpathyTpContactFactoryPriv *priv = G_TYPE_INSTANCE_GET_PRIVATE (tp_factory,
        EMPATHY_TYPE_TP_CONTACT_FACTORY, EmpathyTpContactFactoryPriv);

    tp_factory->priv = priv;
    priv->can_request_ft = FALSE;
    priv->can_request_st = FALSE;
}

static GHashTable *factories = NULL;

static void
tp_contact_factory_connection_invalidated_cb (TpProxy *connection,
                          guint    domain,
                          gint     code,
                          gchar   *message,
                          gpointer user_data)
{
    DEBUG ("Message: %s", message);
    g_hash_table_remove (factories, connection);
}

static void
tp_contact_factory_connection_weak_notify_cb (gpointer connection,
                          GObject *where_the_object_was)
{
    g_hash_table_remove (factories, connection);
}

static void
tp_contact_factory_remove_connection (gpointer connection)
{
    g_signal_handlers_disconnect_by_func (connection,
        tp_contact_factory_connection_invalidated_cb, NULL);
    g_object_unref (connection);
}

EmpathyTpContactFactory *
empathy_tp_contact_factory_dup_singleton (TpConnection *connection)
{
    EmpathyTpContactFactory *tp_factory;

    g_return_val_if_fail (TP_IS_CONNECTION (connection), NULL);

    if (factories == NULL) {
        factories = g_hash_table_new_full (empathy_proxy_hash,
                           empathy_proxy_equal,
                           tp_contact_factory_remove_connection,
                           NULL);
    }

    tp_factory = g_hash_table_lookup (factories, connection);
    if (tp_factory == NULL) {
        tp_factory = g_object_new (EMPATHY_TYPE_TP_CONTACT_FACTORY,
                       "connection", connection,
                       NULL);
        g_hash_table_insert (factories, g_object_ref (connection),
                     tp_factory);
        g_object_weak_ref (G_OBJECT (tp_factory),
                   tp_contact_factory_connection_weak_notify_cb,
                   connection);
        g_signal_connect (connection, "invalidated",
                  G_CALLBACK (tp_contact_factory_connection_invalidated_cb),
                  NULL);
    } else {
        g_object_ref (tp_factory);
    }

    return tp_factory;
}