/*

 * tpaw-account-settings.c - Source for TpawAccountSettings

 * Copyright (C) 2009 Collabora Ltd.

 * @author Sjoerd Simons <sjoerd.simons@collabora.co.uk>

 *

 * 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

 */

#include "config.h"

#include "tpaw-account-settings.h"

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

#include "tpaw-connection-managers.h"

#include "tpaw-keyring.h"

#include "tpaw-utils.h"

#define DEBUG_FLAG TPAW_DEBUG_ACCOUNT

#include "tpaw-debug.h"

G_DEFINE_TYPE(TpawAccountSettings, tpaw_account_settings, G_TYPE_OBJECT)

enum {

  PROP_ACCOUNT = 1,

  PROP_CM_NAME,

  PROP_PROTOCOL,

  PROP_SERVICE,

  PROP_DISPLAY_NAME,

  PROP_DISPLAY_NAME_OVERRIDDEN,

  PROP_READY

};

enum {

  PASSWORD_RETRIEVED = 1,

  LAST_SIGNAL

};

static gulong signals[LAST_SIGNAL] = { 0, };

struct _TpawAccountSettingsPriv

{

  gboolean dispose_has_run;

  TpawConnectionManagers *managers;

  TpAccountManager *account_manager;

  TpConnectionManager *manager;

  TpProtocol *protocol_obj;

  TpAccount *account;

  gchar *cm_name;

  gchar *protocol;

  gchar *service;

  gchar *display_name;

  gchar *icon_name;

  gchar *storage_provider;

  gboolean display_name_overridden;

  gboolean ready;

  gboolean supports_sasl;

  gboolean remember_password;

  gchar *password;

  gchar *password_original;

  gboolean password_retrieved;

  gboolean password_requested;

  /* Parameter name (gchar *) -> parameter value (GVariant) */

  GHashTable *parameters;

  /* Keys are parameter names from the hash above (gchar *).

   * Values are regular expresions that should match corresponding parameter

   * values (GRegex *). Possible regexp patterns are defined in

   * tpaw-account-widget.c */

  GHashTable *param_regexps;

  GArray *unset_parameters;

  GList *required_params;

  gulong managers_ready_id;

  gboolean preparing_protocol;

  /* If TRUE, the account should have 'tel' in its

   * Account.Interface.Addressing.URISchemes property. */

  gboolean uri_scheme_tel;

  /* If TRUE, Service property needs to be updated when applying changes */

  gboolean update_service;

  GSimpleAsyncResult *apply_result;

};

static void

tpaw_account_settings_init (TpawAccountSettings *obj)

{

  obj->priv = G_TYPE_INSTANCE_GET_PRIVATE ((obj),

    TPAW_TYPE_ACCOUNT_SETTINGS, TpawAccountSettingsPriv);

  /* allocate any data required by the object here */

  obj->priv->managers = tpaw_connection_managers_dup_singleton ();

  obj->priv->account_manager = tp_account_manager_dup ();

  obj->priv->parameters = g_hash_table_new_full (g_str_hash, g_str_equal,

    g_free, (GDestroyNotify) g_variant_unref);

  obj->priv->param_regexps = g_hash_table_new_full (g_str_hash, g_str_equal,

    g_free, (GDestroyNotify) g_regex_unref);

  obj->priv->unset_parameters = g_array_new (TRUE, FALSE, sizeof (gchar *));

  obj->priv->required_params = NULL;

}

static void tpaw_account_settings_dispose (GObject *object);

static void tpaw_account_settings_finalize (GObject *object);

static void tpaw_account_settings_account_ready_cb (GObject *source_object,

    GAsyncResult *result, gpointer user_data);

static void tpaw_account_settings_managers_ready_cb (GObject *obj,

    GParamSpec *pspec, gpointer user_data);

static void tpaw_account_settings_check_readyness (

    TpawAccountSettings *self);

static void

tpaw_account_settings_set_property (GObject *object,

    guint prop_id,

    const GValue *value,

    GParamSpec *pspec)

{

  TpawAccountSettings *self = TPAW_ACCOUNT_SETTINGS (object);

  switch (prop_id)

    {

      case PROP_ACCOUNT:

        self->priv->account = g_value_dup_object (value);

        break;

      case PROP_CM_NAME:

        self->priv->cm_name = g_value_dup_string (value);

        break;

      case PROP_PROTOCOL:

        self->priv->protocol = g_value_dup_string (value);

        break;

      case PROP_SERVICE:

        self->priv->service = g_value_dup_string (value);

        break;

      case PROP_DISPLAY_NAME:

        self->priv->display_name = g_value_dup_string (value);

        break;

      case PROP_DISPLAY_NAME_OVERRIDDEN:

        self->priv->display_name_overridden = g_value_get_boolean (value);

        break;

      default:

        G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

        break;

    }

}

static void

tpaw_account_settings_get_property (GObject *object,

    guint prop_id,

    GValue *value,

    GParamSpec *pspec)

{

  TpawAccountSettings *self = TPAW_ACCOUNT_SETTINGS (object);

  switch (prop_id)

    {

      case PROP_ACCOUNT:

        g_value_set_object (value, self->priv->account);

        break;

      case PROP_CM_NAME:

        g_value_set_string (value, self->priv->cm_name);

        break;

      case PROP_PROTOCOL:

        g_value_set_string (value, self->priv->protocol);

        break;

      case PROP_SERVICE:

        g_value_set_string (value, self->priv->service);

        break;

      case PROP_DISPLAY_NAME:

        g_value_set_string (value, self->priv->display_name);

        break;

      case PROP_DISPLAY_NAME_OVERRIDDEN:

        g_value_set_boolean (value, self->priv->display_name_overridden);

        break;

      case PROP_READY:

        g_value_set_boolean (value, self->priv->ready);

        break;

      default:

        G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

        break;

    }

}

static void

tpaw_account_settings_constructed (GObject *object)

{

  TpawAccountSettings *self = TPAW_ACCOUNT_SETTINGS (object);

  if (self->priv->account != NULL)

    {

      g_free (self->priv->cm_name);

      g_free (self->priv->protocol);

      g_free (self->priv->service);

      self->priv->cm_name =

        g_strdup (tp_account_get_cm_name (self->priv->account));

      self->priv->protocol =

        g_strdup (tp_account_get_protocol_name (self->priv->account));

      self->priv->service =

        g_strdup (tp_account_get_service (self->priv->account));

      self->priv->icon_name = g_strdup

        (tp_account_get_icon_name (self->priv->account));

    }

  else

    {

      self->priv->icon_name = tpaw_protocol_icon_name (self->priv->protocol);

    }

  g_assert (self->priv->cm_name != NULL && self->priv->protocol != NULL);

  tpaw_account_settings_check_readyness (self);

  if (!self->priv->ready)

    {

      GQuark features[] = {

          TP_ACCOUNT_FEATURE_CORE,

          TP_ACCOUNT_FEATURE_STORAGE,

          TP_ACCOUNT_FEATURE_ADDRESSING,

          0 };

      if (self->priv->account != NULL)

        {

          tp_proxy_prepare_async (self->priv->account, features,

              tpaw_account_settings_account_ready_cb, self);

        }

      tp_g_signal_connect_object (self->priv->managers, "notify::ready",

        G_CALLBACK (tpaw_account_settings_managers_ready_cb), object, 0);

    }

  if (G_OBJECT_CLASS (

        tpaw_account_settings_parent_class)->constructed != NULL)

    G_OBJECT_CLASS (

        tpaw_account_settings_parent_class)->constructed (object);

}

static void

tpaw_account_settings_class_init (

    TpawAccountSettingsClass *tpaw_account_settings_class)

{

  GObjectClass *object_class = G_OBJECT_CLASS (tpaw_account_settings_class);

  g_type_class_add_private (tpaw_account_settings_class, sizeof

      (TpawAccountSettingsPriv));

  object_class->dispose = tpaw_account_settings_dispose;

  object_class->finalize = tpaw_account_settings_finalize;

  object_class->set_property = tpaw_account_settings_set_property;

  object_class->get_property = tpaw_account_settings_get_property;

  object_class->constructed = tpaw_account_settings_constructed;

  g_object_class_install_property (object_class, PROP_ACCOUNT,

    g_param_spec_object ("account",

      "Account",

      "The TpAccount backing these settings",

      TP_TYPE_ACCOUNT,

      G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY));

  g_object_class_install_property (object_class, PROP_CM_NAME,

    g_param_spec_string ("connection-manager",

      "connection-manager",

      "The name of the connection manager this account uses",

      NULL,

      G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY));

  g_object_class_install_property (object_class, PROP_PROTOCOL,

    g_param_spec_string ("protocol",

      "Protocol",

      "The name of the protocol this account uses",

      NULL,

      G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY));

  g_object_class_install_property (object_class, PROP_SERVICE,

    g_param_spec_string ("service",

      "Service",

      "The service of this account, or NULL",

      NULL,

      G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY));

  g_object_class_install_property (object_class, PROP_DISPLAY_NAME,

    g_param_spec_string ("display-name",

      "display-name",

      "The display name account these settings belong to",

      NULL,

      G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY));

  g_object_class_install_property (object_class, PROP_DISPLAY_NAME_OVERRIDDEN,

      g_param_spec_boolean ("display-name-overridden",

        "display-name-overridden",

        "Whether the display name for this account has been manually "

        "overridden",

        FALSE,

        G_PARAM_STATIC_STRINGS | G_PARAM_READWRITE));

  g_object_class_install_property (object_class, PROP_READY,

    g_param_spec_boolean ("ready",

      "Ready",

      "Whether this account is ready to be used",

      FALSE,

      G_PARAM_STATIC_STRINGS | G_PARAM_READABLE));

  signals[PASSWORD_RETRIEVED] =

      g_signal_new ("password-retrieved",

          G_TYPE_FROM_CLASS (tpaw_account_settings_class),

          G_SIGNAL_RUN_LAST, 0, NULL, NULL,

          g_cclosure_marshal_generic,

          G_TYPE_NONE, 0);

}

static void

tpaw_account_settings_dispose (GObject *object)

{

  TpawAccountSettings *self = TPAW_ACCOUNT_SETTINGS (object);

  if (self->priv->dispose_has_run)

    return;

  self->priv->dispose_has_run = TRUE;

  if (self->priv->managers_ready_id != 0)

    g_signal_handler_disconnect (self->priv->managers,

        self->priv->managers_ready_id);

  self->priv->managers_ready_id = 0;

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

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

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

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

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

  /* release any references held by the object here */

  if (G_OBJECT_CLASS (tpaw_account_settings_parent_class)->dispose)

    G_OBJECT_CLASS (tpaw_account_settings_parent_class)->dispose (object);

}

static void

tpaw_account_settings_free_unset_parameters (

    TpawAccountSettings *settings)

{

  guint i;

  for (i = 0 ; i < settings->priv->unset_parameters->len; i++)

    g_free (g_array_index (settings->priv->unset_parameters, gchar *, i));

  g_array_set_size (settings->priv->unset_parameters, 0);

}

static void

tpaw_account_settings_finalize (GObject *object)

{

  TpawAccountSettings *self = TPAW_ACCOUNT_SETTINGS (object);

  GList *l;

  /* free any data held directly by the object here */

  g_free (self->priv->cm_name);

  g_free (self->priv->protocol);

  g_free (self->priv->service);

  g_free (self->priv->display_name);

  g_free (self->priv->icon_name);

  g_free (self->priv->password);

  g_free (self->priv->password_original);

  g_free (self->priv->storage_provider);

  if (self->priv->required_params != NULL)

    {

      for (l = self->priv->required_params; l; l = l->next)

        g_free (l->data);

      g_list_free (self->priv->required_params);

    }

  g_hash_table_unref (self->priv->parameters);

  g_hash_table_unref (self->priv->param_regexps);

  tpaw_account_settings_free_unset_parameters (self);

  g_array_unref (self->priv->unset_parameters);

  G_OBJECT_CLASS (tpaw_account_settings_parent_class)->finalize (object);

}

static void

tpaw_account_settings_protocol_obj_prepared_cb (GObject *source,

    GAsyncResult *result,

    gpointer user_data)

{

  TpawAccountSettings *self = user_data;

  GError *error = NULL;

  if (!tp_proxy_prepare_finish (source, result, &error))

    {

      DEBUG ("Failed to prepare protocol object: %s", error->message);

      g_clear_error (&error);

      return;

    }

  tpaw_account_settings_check_readyness (self);

}

static void

tpaw_account_settings_get_password_cb (GObject *source,

    GAsyncResult *result,

    gpointer user_data)

{

  TpawAccountSettings *self = user_data;

  const gchar *password;

  GError *error = NULL;

  password = tpaw_keyring_get_account_password_finish (TP_ACCOUNT (source),

      result, &error);

  if (error != NULL)

    {

      DEBUG ("Failed to get password: %s", error->message);

      g_clear_error (&error);

    }

  /* It doesn't really matter if getting the password failed; that

   * just means that it's not there, or let's act like that at

   * least. */

  g_assert (self->priv->password == NULL);

  self->priv->password = g_strdup (password);

  self->priv->password_original = g_strdup (password);

  g_signal_emit (self, signals[PASSWORD_RETRIEVED], 0);

}

static gboolean

account_has_uri_scheme_tel (TpAccount *account)

{

  return tp_account_associated_with_uri_scheme (account, "tel");

}

static GVariant * tpaw_account_settings_dup (

    TpawAccountSettings *settings,

    const gchar *param);

static void

tpaw_account_settings_check_readyness (TpawAccountSettings *self)

{

  GQuark features[] = { TP_PROTOCOL_FEATURE_CORE, 0 };

  if (self->priv->ready)

    return;

  if (self->priv->account != NULL

      && !tp_proxy_is_prepared (self->priv->account,

        TP_ACCOUNT_FEATURE_CORE))

      return;

  if (!tpaw_connection_managers_is_ready (self->priv->managers))

    return;

  if (self->priv->manager == NULL)

    {

      self->priv->manager = tpaw_connection_managers_get_cm (

          self->priv->managers, self->priv->cm_name);

    }

  if (self->priv->manager == NULL)

    return;

  g_object_ref (self->priv->manager);

  if (self->priv->account != NULL)

    {

      g_free (self->priv->display_name);

      self->priv->display_name =

        g_strdup (tp_account_get_display_name (self->priv->account));

      g_free (self->priv->icon_name);

      self->priv->icon_name =

        g_strdup (tp_account_get_icon_name (self->priv->account));

      self->priv->uri_scheme_tel = account_has_uri_scheme_tel (

          self->priv->account);

    }

  if (self->priv->protocol_obj == NULL)

    {

      self->priv->protocol_obj = g_object_ref (

          tp_connection_manager_get_protocol_object (self->priv->manager,

            self->priv->protocol));

    }

  if (!tp_proxy_is_prepared (self->priv->protocol_obj,

        TP_PROTOCOL_FEATURE_CORE)

      && !self->priv->preparing_protocol)

    {

      self->priv->preparing_protocol = TRUE;

      tp_proxy_prepare_async (self->priv->protocol_obj, features,

          tpaw_account_settings_protocol_obj_prepared_cb, self);

      return;

    }

  else

    {

      if (tp_strv_contains (tp_protocol_get_authentication_types (

                  self->priv->protocol_obj),

              TP_IFACE_CHANNEL_INTERFACE_SASL_AUTHENTICATION))

        {

          self->priv->supports_sasl = TRUE;

        }

    }

  if (self->priv->required_params == NULL)

    {

      GList *params, *l;

      params = tp_protocol_dup_params (self->priv->protocol_obj);

      for (l = params; l != NULL; l = g_list_next (l))

        {

          TpConnectionManagerParam *cur = l->data;

          if (tp_connection_manager_param_is_required (cur))

            {

              self->priv->required_params = g_list_append (

                  self->priv->required_params,

                  g_strdup (tp_connection_manager_param_get_name (cur)));

            }

        }

       g_list_free_full (params,

           (GDestroyNotify) tp_connection_manager_param_free);

    }

  /* self->priv->account won't be a proper account if it's the account

   * assistant showing this widget. */

  if (self->priv->supports_sasl && !self->priv->password_requested

      && self->priv->account != NULL)

    {

      self->priv->password_requested = TRUE;

      /* Make this call but don't block on its readiness. We'll signal

       * if it's updated later with ::password-retrieved. */

      tpaw_keyring_get_account_password_async (self->priv->account,

          tpaw_account_settings_get_password_cb, self);

    }

  self->priv->ready = TRUE;

  g_object_notify (G_OBJECT (self), "ready");

}

static void

tpaw_account_settings_account_ready_cb (GObject *source_object,

    GAsyncResult *result,

    gpointer user_data)

{

  TpawAccountSettings *settings = TPAW_ACCOUNT_SETTINGS (user_data);

  TpAccount *account = TP_ACCOUNT (source_object);

  GError *error = NULL;

  if (!tp_proxy_prepare_finish (account, result, &error))

    {

      DEBUG ("Failed to prepare account: %s", error->message);

      g_error_free (error);

      return;

    }

  tpaw_account_settings_check_readyness (settings);

}

static void

tpaw_account_settings_managers_ready_cb (GObject *object,

    GParamSpec *pspec,

    gpointer user_data)

{

  TpawAccountSettings *settings = TPAW_ACCOUNT_SETTINGS (user_data);

  tpaw_account_settings_check_readyness (settings);

}

TpawAccountSettings *

tpaw_account_settings_new (const gchar *connection_manager,

    const gchar *protocol,

    const gchar *service,

    const char *display_name)

{

  return g_object_new (TPAW_TYPE_ACCOUNT_SETTINGS,

      "connection-manager", connection_manager,

      "protocol", protocol,

      "service", service,

      "display-name", display_name,

      NULL);

}

TpawAccountSettings *

tpaw_account_settings_new_for_account (TpAccount *account)

{

  return g_object_new (TPAW_TYPE_ACCOUNT_SETTINGS,

      "account", account,

      NULL);

}

GList *

tpaw_account_settings_dup_tp_params (TpawAccountSettings *settings)

{

  g_return_val_if_fail (settings->priv->protocol_obj != NULL, NULL);

  return tp_protocol_dup_params (settings->priv->protocol_obj);

}

gboolean

tpaw_account_settings_is_ready (TpawAccountSettings *settings)

{

  return settings->priv->ready;

}

const gchar *

tpaw_account_settings_get_cm (TpawAccountSettings *settings)

{

  return settings->priv->cm_name;

}

const gchar *

tpaw_account_settings_get_protocol (TpawAccountSettings *settings)

{

  return settings->priv->protocol;

}

const gchar *

tpaw_account_settings_get_service (TpawAccountSettings *settings)

{

  return settings->priv->service;

}

void

tpaw_account_settings_set_service (TpawAccountSettings *settings,

    const gchar *service)

{

  if (!tp_strdiff (settings->priv->service, service))

    return;

  g_free (settings->priv->service);

  settings->priv->service = g_strdup (service);

  g_object_notify (G_OBJECT (settings), "service");

  settings->priv->update_service = TRUE;

}

gchar *

tpaw_account_settings_get_icon_name (TpawAccountSettings *settings)

{

  return settings->priv->icon_name;

}

const gchar *

tpaw_account_settings_get_display_name (TpawAccountSettings *settings)

{

  return settings->priv->display_name;

}

TpAccount *

tpaw_account_settings_get_account (TpawAccountSettings *settings)

{

  return settings->priv->account;

}

static gboolean

tpaw_account_settings_is_unset (TpawAccountSettings *settings,

    const gchar *param)

{

  GArray *a;

  guint i;

  a = settings->priv->unset_parameters;

  for (i = 0; i < a->len; i++)

    {

      if (!tp_strdiff (g_array_index (a, gchar *, i), param))

        return TRUE;

    }

  return FALSE;

}

static const TpConnectionManagerParam *

tpaw_account_settings_get_tp_param (TpawAccountSettings *settings,

    const gchar *param)

{

  return tp_protocol_get_param (settings->priv->protocol_obj, param);

}

gboolean

tpaw_account_settings_have_tp_param (TpawAccountSettings *settings,

    const gchar *param)

{

  return (tpaw_account_settings_get_tp_param (settings, param) != NULL);

}

static void

account_settings_remove_from_unset (TpawAccountSettings *settings,

    const gchar *param)

{

  guint idx;

  gchar *val;

  for (idx = 0; idx < settings->priv->unset_parameters->len; idx++)

    {

      val = g_array_index (settings->priv->unset_parameters, gchar *, idx);

      if (!tp_strdiff (val, param))

        {

          settings->priv->unset_parameters =

            g_array_remove_index (settings->priv->unset_parameters, idx);

          g_free (val);

          break;

        }

    }

}

GVariant *

tpaw_account_settings_dup_default (TpawAccountSettings *settings,

    const gchar *param)

{

  const TpConnectionManagerParam *p;

  p = tpaw_account_settings_get_tp_param (settings, param);

  if (p == NULL)

    return NULL;

  return tp_connection_manager_param_dup_default_variant (p);

}

const gchar *

tpaw_account_settings_get_dbus_signature (TpawAccountSettings *settings,

    const gchar *param)

{

  const TpConnectionManagerParam *p;

  p = tpaw_account_settings_get_tp_param (settings, param);

  if (p == NULL)

    return NULL;

  return tp_connection_manager_param_get_dbus_signature (p);

}

static GVariant *

tpaw_account_settings_dup (TpawAccountSettings *settings,

    const gchar *param)

{

  GVariant *result;

  /* Lookup the update parameters we set */

  result = g_hash_table_lookup (settings->priv->parameters, param);

  if (result != NULL)

    return g_variant_ref (result);

  /* If the parameters isn't unset use the accounts setting if any */

  if (settings->priv->account != NULL

      && !tpaw_account_settings_is_unset (settings, param))

    {

      GVariant *parameters;

      parameters = tp_account_dup_parameters_vardict (

          settings->priv->account);

      result = g_variant_lookup_value (parameters, param, NULL);

      g_variant_unref (parameters);

      if (result != NULL)

        /* g_variant_lookup_value() is (transfer full) */

        return result;

    }

  /* fallback to the default */

  return tpaw_account_settings_dup_default (settings, param);

}

void

tpaw_account_settings_unset (TpawAccountSettings *settings,

    const gchar *param)

{

  gchar *v;

  if (tpaw_account_settings_is_unset (settings, param))

    return;

  if (settings->priv->supports_sasl && !tp_strdiff (param, "password"))

    {

      g_free (settings->priv->password);

      settings->priv->password = NULL;

      return;

    }

  v = g_strdup (param);

  g_array_append_val (settings->priv->unset_parameters, v);

  g_hash_table_remove (settings->priv->parameters, param);

}

void

tpaw_account_settings_discard_changes (TpawAccountSettings *settings)

{

  g_hash_table_remove_all (settings->priv->parameters);

  tpaw_account_settings_free_unset_parameters (settings);

  g_free (settings->priv->password);

  settings->priv->password = g_strdup (settings->priv->password_original);

  if (settings->priv->account != NULL)

    settings->priv->uri_scheme_tel = account_has_uri_scheme_tel (

        settings->priv->account);

  else

    settings->priv->uri_scheme_tel = FALSE;

}

gchar *

tpaw_account_settings_dup_string (TpawAccountSettings *settings,

    const gchar *param)

{

  GVariant *v;

  gchar *result = NULL;

  if (!tp_strdiff (param, "password") && settings->priv->supports_sasl)

    {

      return g_strdup (settings->priv->password);

    }

  v = tpaw_account_settings_dup (settings, param);

  if (v == NULL)

    return NULL;

  if (g_variant_is_of_type (v, G_VARIANT_TYPE_STRING))

    result = g_variant_dup_string (v, NULL);

  g_variant_unref (v);

  return result;

}

GStrv

tpaw_account_settings_dup_strv (TpawAccountSettings *settings,

    const gchar *param)

{

  GVariant *v;

  GStrv result = NULL;

  v = tpaw_account_settings_dup (settings, param);

  if (v == NULL)

    return NULL;

  if (g_variant_is_of_type (v, G_VARIANT_TYPE_STRING_ARRAY))

    result = g_variant_dup_strv (v, NULL);

  g_variant_unref (v);

  return result;

}

gint32

tpaw_account_settings_get_int32 (TpawAccountSettings *settings,

    const gchar *param)

{

  GVariant *v;

  gint32 ret = 0;

  v = tpaw_account_settings_dup (settings, param);

  if (v == NULL)

    return 0;

  if (g_variant_is_of_type (v, G_VARIANT_TYPE_BYTE))

    ret = g_variant_get_byte (v);

  else if (g_variant_is_of_type (v, G_VARIANT_TYPE_INT32))