path: root/src/empathy.c

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

#include <config.h>

#include <stdlib.h>
#include <errno.h>

#include <glib.h>
#include <glib/gi18n.h>
#include <gtk/gtk.h>
#include <gdk/gdkx.h>

#include <libebook/e-book.h>

#include <telepathy-glib/util.h>
#include <libmissioncontrol/mc-account.h>
#include <libmissioncontrol/mc-account-monitor.h>
#include <libmissioncontrol/mission-control.h>

#include <libempathy/empathy-idle.h>
#include <libempathy/empathy-tp-chat.h>
#include <libempathy/empathy-tp-chatroom.h>
#include <libempathy/empathy-chandler.h>
#include <libempathy/empathy-utils.h>
#include <libempathy/empathy-debug.h>

#include <libempathy-gtk/empathy-conf.h>
#include <libempathy-gtk/empathy-preferences.h>
#include <libempathy-gtk/empathy-main-window.h>
#include <libempathy-gtk/empathy-status-icon.h>
#include <libempathy-gtk/empathy-chat.h>
#include <libempathy-gtk/empathy-private-chat.h>
#include <libempathy-gtk/empathy-group-chat.h>

#include "empathy-chat-window.h"
#include "bacon-message-connection.h"

#define DEBUG_DOMAIN "EmpathyMain"
#define BUS_NAME "org.gnome.Empathy.ChatChandler"
#define OBJECT_PATH "/org/gnome/Empathy/ChatChandler"

static BaconMessageConnection *connection = NULL;

static void
new_text_channel_cb (EmpathyChandler *chandler,
             TpConn          *tp_conn,
             TpChan          *tp_chan,
             MissionControl  *mc)
{
    EmpathyTpChat *tp_chat;
    McAccount     *account;
    EmpathyChat   *chat;
    gchar         *id;

    account = mission_control_get_account_for_connection (mc, tp_conn, NULL);
    id = empathy_inspect_channel (account, tp_chan);
    chat = empathy_chat_window_find_chat (account, id);
    g_free (id);

    if (chat) {
        /* The chat already exists */
        if (!empathy_chat_is_connected (chat)) {
            /* The chat died, give him the new text channel */
            if (empathy_chat_is_group_chat (chat)) {
                tp_chat = EMPATHY_TP_CHAT (empathy_tp_chatroom_new (account, tp_chan));
            } else {
                tp_chat = empathy_tp_chat_new (account, tp_chan);
            }
            empathy_chat_set_tp_chat (chat, tp_chat);
            g_object_unref (tp_chat);
        }
        empathy_chat_window_present_chat (chat);

        g_object_unref (account);
        return;
    }

    if (tp_chan->handle_type == TP_HANDLE_TYPE_CONTACT) {
        /* We have a new private chat channel */
        tp_chat = empathy_tp_chat_new (account, tp_chan);
        chat = EMPATHY_CHAT (empathy_private_chat_new (tp_chat));
    }
    else if (tp_chan->handle_type == TP_HANDLE_TYPE_ROOM) {
        /* We have a new group chat channel */
        tp_chat = EMPATHY_TP_CHAT (empathy_tp_chatroom_new (account, tp_chan));
        chat = EMPATHY_CHAT (empathy_group_chat_new (EMPATHY_TP_CHATROOM (tp_chat)));
    } else {
        empathy_debug (DEBUG_DOMAIN,
                   "Unknown handle type (%d) for Text channel",
                   tp_chan->handle_type);
        g_object_unref (account);
        return;
    }

    empathy_chat_window_present_chat (chat);

    g_object_unref (chat);
    g_object_unref (account);
    g_object_unref (tp_chat);
}

static void
service_ended_cb (MissionControl *mc,
          gpointer        user_data)
{
    empathy_debug (DEBUG_DOMAIN, "Mission Control stopped");
}

static void
operation_error_cb (MissionControl *mc,
            guint           operation_id,
            guint           error_code,
            gpointer        user_data)
{
    empathy_debug (DEBUG_DOMAIN, "Error code %d during operation %d",
              error_code,
              operation_id);
}

static void
start_mission_control (EmpathyIdle *idle)
{
    McPresence presence;

    presence = empathy_idle_get_state (idle);

    if (presence > MC_PRESENCE_OFFLINE) {
        /* MC is already running and online, nothing to do */
        return;
    }

    empathy_idle_set_state (idle, MC_PRESENCE_AVAILABLE);
}

static void
account_enabled_cb (McAccountMonitor *monitor,
            gchar            *unique_name,
            EmpathyIdle      *idle)
{
    empathy_debug (DEBUG_DOMAIN, "Account enabled: %s", unique_name);
    start_mission_control (idle);
}

static void
create_salut_account (void)
{
    McProfile  *profile;
    McProtocol *protocol;
    gboolean    salut_created = FALSE;
    McAccount  *account;
    GList      *accounts;
    EBook      *book;
    EContact   *contact;
    gchar      *nickname = NULL;
    gchar      *first_name = NULL;
    gchar      *last_name = NULL;
    gchar      *email = NULL;
    gchar      *jid = NULL;

    /* Check if we already created a salut account */
    empathy_conf_get_bool (empathy_conf_get(),
                   EMPATHY_PREFS_SALUT_ACCOUNT_CREATED,
                   &salut_created);
    if (salut_created) {
        return;
    }

    empathy_debug (DEBUG_DOMAIN, "Try to add a salut account...");

    /* Check if the salut CM is installed */
    profile = mc_profile_lookup ("salut");
    protocol = mc_profile_get_protocol (profile);
    if (!protocol) {
        empathy_debug (DEBUG_DOMAIN, "Salut not installed");
        g_object_unref (profile);
        return;
    }
    g_object_unref (protocol);

    /* Get self EContact from EDS */
    if (!e_book_get_self (&contact, &book, NULL)) {
        empathy_debug (DEBUG_DOMAIN, "Failed to get self econtact");
        g_object_unref (profile);
        return;
    }

    empathy_conf_set_bool (empathy_conf_get (),
                   EMPATHY_PREFS_SALUT_ACCOUNT_CREATED,
                   TRUE);

    /* Check if there is already a salut account */
    accounts = mc_accounts_list_by_profile (profile);
    if (accounts) {
        empathy_debug (DEBUG_DOMAIN, "There is already a salut account");
        mc_accounts_list_free (accounts);
        g_object_unref (profile);
        return;
    }

    account = mc_account_create (profile);
    mc_account_set_display_name (account, _("People nearby"));
    
    nickname = e_contact_get (contact, E_CONTACT_NICKNAME);
    first_name = e_contact_get (contact, E_CONTACT_GIVEN_NAME);
    last_name = e_contact_get (contact, E_CONTACT_FAMILY_NAME);
    email = e_contact_get (contact, E_CONTACT_EMAIL_1);
    jid = e_contact_get (contact, E_CONTACT_IM_JABBER_HOME_1);
    
    if (!tp_strdiff (nickname, "nickname")) {
        g_free (nickname);
        nickname = NULL;
    }

    empathy_debug (DEBUG_DOMAIN, "Salut account created:\n"
                     "  nickname=%s\n"
                     "  first-name=%s\n"
                     "  last-name=%s\n"
                     "  email=%s\n"
                     "  jid=%s\n",
               nickname, first_name, last_name, email, jid);

    mc_account_set_param_string (account, "nickname", nickname ? nickname : "");
    mc_account_set_param_string (account, "first-name", first_name ? first_name : "");
    mc_account_set_param_string (account, "last-name", last_name ? last_name : "");
    mc_account_set_param_string (account, "email", email ? email : "");
    mc_account_set_param_string (account, "jid", jid ? jid : "");

    g_free (nickname);
    g_free (first_name);
    g_free (last_name);
    g_free (email);
    g_free (jid);
    g_object_unref (account);
    g_object_unref (profile);
    g_object_unref (contact);
    g_object_unref (book);
}

/* The code that handles single-instance and startup notification is
 * copied from gedit.
 *
 * Copyright (C) 2005 - Paolo Maggi 
 */
static void
on_bacon_message_received (const char *message,
               gpointer    data)
{
    GtkWidget *window = data;
    guint32    startup_timestamp;

    g_return_if_fail (message != NULL);

    empathy_debug (DEBUG_DOMAIN,
               "Other instance launched, presenting the main window "
               "(message is '%s')", message);

    startup_timestamp = atoi (message);

    /* Set the proper interaction time on the window.
     * Fall back to roundtripping to the X server when we
     * don't have the timestamp, e.g. when launched from
     * terminal. We also need to make sure that the window
     * has been realized otherwise it will not work. lame. */
    if (startup_timestamp == 0) {
        /* Work if launched from the terminal */
        empathy_debug (DEBUG_DOMAIN, "Using X server timestamp as a fallback");

        if (!GTK_WIDGET_REALIZED (window)) {
            gtk_widget_realize (GTK_WIDGET (window));
        }

        startup_timestamp = gdk_x11_get_server_time (window->window);
    }

    gtk_window_present_with_time (GTK_WINDOW (window), startup_timestamp);
}

static guint32
get_startup_timestamp ()
{
    const gchar *startup_id_env;
    gchar       *startup_id = NULL;
    gchar       *time_str;
    gchar       *end;
    gulong       retval = 0;

    /* we don't unset the env, since startup-notification
     * may still need it */
    startup_id_env = g_getenv ("DESKTOP_STARTUP_ID");
    if (startup_id_env == NULL) {
        goto out;
    }

    startup_id = g_strdup (startup_id_env);

    time_str = g_strrstr (startup_id, "_TIME");
    if (time_str == NULL) {
        goto out;
    }

    errno = 0;

    /* Skip past the "_TIME" part */
    time_str += 5;

    retval = strtoul (time_str, &end, 0);
    if (end == time_str || errno != 0)
        retval = 0;

 out:
    g_free (startup_id);

    return (retval > 0) ? retval : 0;
}

int
main (int argc, char *argv[])
{
    guint32            startup_timestamp;
    EmpathyStatusIcon *icon;
    GtkWidget         *window;
    MissionControl    *mc;
    McAccountMonitor  *monitor;
    EmpathyIdle       *idle;
    EmpathyChandler   *chandler;
    gboolean           autoconnect = TRUE;
    GError            *error = NULL;

    empathy_debug_set_log_file_from_env ();

    bindtextdomain (GETTEXT_PACKAGE, LOCALEDIR);
    bind_textdomain_codeset (GETTEXT_PACKAGE, "UTF-8");
    textdomain (GETTEXT_PACKAGE);

    startup_timestamp = get_startup_timestamp ();

    if (!gtk_init_with_args (&argc, &argv,
                 _("- Empathy Instant Messenger"),
                 NULL, GETTEXT_PACKAGE, &error)) {
        empathy_debug (DEBUG_DOMAIN, error->message);
        return EXIT_FAILURE;
    }

    g_set_application_name (PACKAGE_NAME);

    gtk_window_set_default_icon_name ("empathy");
    gtk_icon_theme_append_search_path (gtk_icon_theme_get_default (),
                       PKGDATADIR G_DIR_SEPARATOR_S "icons");

        /* Setting up the bacon connection */
    connection = bacon_message_connection_new ("empathy");
    if (connection != NULL) {
        if (!bacon_message_connection_get_is_server (connection)) {
            gchar *message;

            empathy_debug (DEBUG_DOMAIN, "Activating existing instance");

            message = g_strdup_printf ("%" G_GUINT32_FORMAT,
                           startup_timestamp);
            bacon_message_connection_send (connection, message);

            /* We never popup a window, so tell startup-notification
             * that we are done. */
            gdk_notify_startup_complete ();

            g_free (message);
            bacon_message_connection_free (connection);

            return EXIT_SUCCESS;
        }
    } else {
        g_warning ("Cannot create the 'empathy' bacon connection.");
    }

    /* Setting up MC */
    monitor = mc_account_monitor_new ();
    mc = empathy_mission_control_new ();
    idle = empathy_idle_new ();
    g_signal_connect (monitor, "account-enabled",
              G_CALLBACK (account_enabled_cb),
              idle);
    g_signal_connect (mc, "ServiceEnded",
              G_CALLBACK (service_ended_cb),
              NULL);
    g_signal_connect (mc, "Error",
              G_CALLBACK (operation_error_cb),
              NULL);

    empathy_conf_get_bool (empathy_conf_get(),
                   EMPATHY_PREFS_AUTOCONNECT,
                   &autoconnect);
                   
    if (autoconnect) {
        start_mission_control (idle);
    }
    
    create_salut_account ();

    /* Setting up UI */
    window = empathy_main_window_show ();
    icon = empathy_status_icon_new (GTK_WINDOW (window));

    if (connection) {
        /* We se the callback here because we need window */
        bacon_message_connection_set_callback (connection,
                               on_bacon_message_received,
                               window);
    }

    /* Handle text channels */
    chandler = empathy_chandler_new (BUS_NAME, OBJECT_PATH);
    g_signal_connect (chandler, "new-channel",
              G_CALLBACK (new_text_channel_cb),
              mc);
    empathy_debug (DEBUG_DOMAIN, "Ready to handle new text channels");

    gtk_main ();

    empathy_idle_set_state (idle, MC_PRESENCE_OFFLINE);

    g_object_unref (chandler);
    g_object_unref (monitor);
    g_object_unref (mc);
    g_object_unref (idle);
    g_object_unref (icon);

    return EXIT_SUCCESS;
}