path: root/addressbook/gui/component/addressbook.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* addressbook.c
 *
 * Copyright (C) 2000, 2001, 2002 Ximian, Inc.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2 of the GNU General Public
 * License as published by the Free Software Foundation.
 *
 * 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.
 *
 * Author: Chris Lahey (clahey@ximian.com)
 */

#include <config.h>

#include <string.h>
#include <glib.h>
#include <gtk/gtkframe.h>
#include <gtk/gtkvbox.h>
#include <gtk/gtkwidget.h>
#include <gtk/gtkmessagedialog.h>
#include <libgnome/gnome-i18n.h>
#include <libgnomeui/gnome-app.h>
#include <libgnomeui/gnome-href.h>
#include <libgnomeui/gnome-uidefs.h>
#include <bonobo/bonobo-generic-factory.h>
#include <bonobo/bonobo-ui-util.h>
#include <bonobo/bonobo-exception.h>
#include <bonobo/bonobo-property-bag.h>
#include <gal/util/e-util.h>

#include "e-util/e-categories-master-list-wombat.h"
#include "e-util/e-sexp.h"
#include "e-util/e-passwords.h"
#include "select-names/e-select-names.h"
#include "select-names/e-select-names-manager.h"

#include "evolution-shell-component-utils.h"
#include "evolution-activity-client.h"
#include "e-contact-editor.h"
#include "e-contact-save-as.h"
#include "addressbook-config.h"
#include "addressbook.h"
#include "addressbook-component.h"
#include "addressbook/gui/search/e-addressbook-search-dialog.h"
#include "addressbook/gui/widgets/e-addressbook-view.h"
#include "addressbook/gui/widgets/e-addressbook-util.h"
#include "addressbook/printing/e-contact-print.h"

#include <ebook/e-book.h>
#include <ebook/e-book-util.h>
#include <widgets/misc/e-search-bar.h>
#include <widgets/misc/e-filter-bar.h>

/* This is used for the addressbook status bar */
#define EVOLUTION_CONTACTS_PROGRESS_IMAGE "evolution-contacts-mini.png"
static GdkPixbuf *progress_icon[2] = { NULL, NULL };

#define d(x)

#define PROPERTY_FOLDER_URI          "folder_uri"

#define PROPERTY_FOLDER_URI_IDX      1

typedef struct {
    gint refs;
    EAddressbookView *view;
    ESearchBar *search;
    gint        ecml_changed_id;
    GtkWidget *vbox;
    EBook *book;
    EvolutionActivityClient *activity;
    BonoboControl *control;
    BonoboPropertyBag *properties;
    char *uri;
    char *passwd;
    gboolean ignore_search_changes;
    gboolean failed_to_load;
} AddressbookView;

static void addressbook_view_ref (AddressbookView *);
static void addressbook_view_unref (AddressbookView *);

static void addressbook_authenticate (EBook *book, gboolean previous_failure,
                      AddressbookSource *source, EBookCallback cb, gpointer closure);

static void book_open_cb (EBook *book, EBookStatus status, gpointer closure);

static void
save_contact_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_save_as(view->view);
}

static void
view_contact_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_view(view->view);
}

static void
search_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;

    if (view->view)
        gtk_widget_show(e_addressbook_search_dialog_new(view->view));
}

static void
delete_contact_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view) {
        e_addressbook_view_delete_selection(view->view);
    }
}

static void
print_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_print(view->view);
}

static void
print_preview_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_print_preview(view->view);
}

static void
stop_loading_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_stop(view->view);
}

static void
cut_contacts_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_cut(view->view);
}

static void
copy_contacts_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_copy(view->view);
}

static void
paste_contacts_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_paste(view->view);
}

static void
select_all_contacts_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_select_all (view->view);
}

static void
send_contact_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_send (view->view);
}

static void
send_contact_to_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_send_to (view->view);
}

static void
copy_contact_to_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_copy_to_folder (view->view);
}

static void
move_contact_to_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    AddressbookView *view = (AddressbookView *) user_data;
    if (view->view)
        e_addressbook_view_move_to_folder (view->view);
}

static void
forget_passwords_cb (BonoboUIComponent *uih, void *user_data, const char *path)
{
    e_passwords_forget_passwords();
}

static void
update_command_state (EAddressbookView *eav, AddressbookView *view)
{
    BonoboUIComponent *uic;

    if (view->view == NULL)
        return;

    addressbook_view_ref (view);

    uic = bonobo_control_get_ui_component (view->control);

    if (bonobo_ui_component_get_container (uic) != CORBA_OBJECT_NIL) {
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsSaveAsVCard",
                          "sensitive",
                          e_addressbook_view_can_save_as (view->view) ? "1" : "0", NULL);
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsView",
                          "sensitive",
                          e_addressbook_view_can_view (view->view) ? "1" : "0", NULL);

        /* Print Contact */
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsPrint",
                          "sensitive",
                          e_addressbook_view_can_print (view->view) ? "1" : "0", NULL);

        /* Print Contact */
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsPrintPreview",
                          "sensitive",
                          e_addressbook_view_can_print (view->view) ? "1" : "0", NULL);

        /* Delete Contact */
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactDelete",
                          "sensitive",
                          e_addressbook_view_can_delete (view->view) ? "1" : "0", NULL);

        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsCut",
                          "sensitive",
                          e_addressbook_view_can_cut (view->view) ? "1" : "0", NULL);
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsCopy",
                          "sensitive",
                          e_addressbook_view_can_copy (view->view) ? "1" : "0", NULL);
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsPaste",
                          "sensitive",
                          e_addressbook_view_can_paste (view->view) ? "1" : "0", NULL);
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsSelectAll",
                          "sensitive",
                          e_addressbook_view_can_select_all (view->view) ? "1" : "0", NULL);

        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsSendContactToOther",
                          "sensitive",
                          e_addressbook_view_can_send (view->view) ? "1" : "0", NULL);

        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsSendMessageToContact",
                          "sensitive",
                          e_addressbook_view_can_send_to (view->view) ? "1" : "0", NULL);

        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsMoveToFolder",
                          "sensitive",
                          e_addressbook_view_can_move_to_folder (view->view) ? "1" : "0", NULL);
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactsCopyToFolder",
                          "sensitive",
                          e_addressbook_view_can_copy_to_folder (view->view) ? "1" : "0", NULL);

        /* Stop */
        bonobo_ui_component_set_prop (uic,
                          "/commands/ContactStop",
                          "sensitive",
                          e_addressbook_view_can_stop (view->view) ? "1" : "0", NULL);
    }

    addressbook_view_unref (view);
}

static void
change_view_type (AddressbookView *view, EAddressbookViewType view_type)
{
    g_object_set (view->view, "type", view_type, NULL);
}

static BonoboUIVerb verbs [] = {
    BONOBO_UI_UNSAFE_VERB ("ContactsPrint", print_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsPrintPreview", print_preview_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsSaveAsVCard", save_contact_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsView", view_contact_cb),
    BONOBO_UI_UNSAFE_VERB ("ToolSearch", search_cb),

    BONOBO_UI_UNSAFE_VERB ("ContactDelete", delete_contact_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactStop", stop_loading_cb),

    BONOBO_UI_UNSAFE_VERB ("ContactsCut", cut_contacts_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsCopy", copy_contacts_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsPaste", paste_contacts_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsSelectAll", select_all_contacts_cb),

    BONOBO_UI_UNSAFE_VERB ("ContactsSendContactToOther", send_contact_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsSendMessageToContact", send_contact_to_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsMoveToFolder", move_contact_to_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsCopyToFolder", copy_contact_to_cb),
    BONOBO_UI_UNSAFE_VERB ("ContactsForgetPasswords", forget_passwords_cb),

    BONOBO_UI_VERB_END
};

static EPixmap pixmaps [] = {
    E_PIXMAP ("/menu/File/FileOps/ContactsSaveAsVCard", "save-as-16.png"),
    E_PIXMAP ("/menu/File/Print/ContactsPrint", "print.xpm"),
    E_PIXMAP ("/menu/File/Print/ContactsPrintPreview", "print-preview.xpm"),

    E_PIXMAP ("/menu/EditPlaceholder/Edit/ContactsCut", "16_cut.png"),
    E_PIXMAP ("/menu/EditPlaceholder/Edit/ContactsCopy", "16_copy.png"),
    E_PIXMAP ("/menu/EditPlaceholder/Edit/ContactsPaste", "16_paste.png"),
    E_PIXMAP ("/menu/EditPlaceholder/Edit/ContactDelete", "evolution-trash-mini.png"),

    E_PIXMAP ("/menu/Tools/ComponentPlaceholder/ToolSearch", "search-16.png"),

    E_PIXMAP ("/Toolbar/ContactsPrint", "buttons/print.png"),
    E_PIXMAP ("/Toolbar/ContactDelete", "buttons/delete-message.png"),

    E_PIXMAP_END
};

static void
control_activate (BonoboControl     *control,
          BonoboUIComponent *uic,
          AddressbookView   *view)
{
    Bonobo_UIContainer remote_ui_container;

    remote_ui_container = bonobo_control_get_remote_ui_container (control, NULL);
    bonobo_ui_component_set_container (uic, remote_ui_container, NULL);
    bonobo_object_release_unref (remote_ui_container, NULL);

    e_search_bar_set_ui_component (view->search, uic);

    bonobo_ui_component_add_verb_list_with_data (
        uic, verbs, view);
    
    bonobo_ui_component_freeze (uic, NULL);

    bonobo_ui_util_set_ui (uic, PREFIX,
                   EVOLUTION_UIDIR "/evolution-addressbook.xml",
                   "evolution-addressbook", NULL);

    e_addressbook_view_setup_menus (view->view, uic);

    e_pixmaps_update (uic, pixmaps);

    bonobo_ui_component_thaw (uic, NULL);

    update_command_state (view->view, view);
}

static void
control_activate_cb (BonoboControl *control, 
             gboolean activate, 
             AddressbookView *view)
{
    BonoboUIComponent *uic;

    uic = bonobo_control_get_ui_component (control);
    g_assert (uic != NULL);

    if (activate) {
        control_activate (control, uic, view);
        if (activate && view->view && view->view->model)
            e_addressbook_model_force_folder_bar_message (view->view->model);

        /* if the book failed to load, we kick off another
           load here */

        if (view->failed_to_load && view->uri) {
            EBook *book;
            char *uri_data;

            book = e_book_new ();
            uri_data = e_book_expand_uri (view->uri);

            addressbook_load_uri (book, uri_data, book_open_cb, view);

            g_free(uri_data);
        }
    } else {
        bonobo_ui_component_unset_container (uic, NULL);
        e_addressbook_view_discard_menus (view->view);
    }
}

static ECategoriesMasterList *
get_master_list (void)
{
    static ECategoriesMasterList *category_list = NULL;

    if (category_list == NULL)
        category_list = e_categories_master_list_wombat_new ();
    return category_list;
}

static void
addressbook_view_clear (AddressbookView *view)
{
    if (view->book) {
        g_object_unref (view->book);
        view->book = NULL;
    }
    
    if (view->properties) {
        bonobo_object_unref (BONOBO_OBJECT(view->properties));
        view->properties = NULL;
    }
        
    g_free(view->passwd);
    view->passwd = NULL;

    g_free(view->uri);
    view->uri = NULL;

    if (view->ecml_changed_id != 0) {
        g_signal_handler_disconnect (get_master_list(),
                         view->ecml_changed_id);
        view->ecml_changed_id = 0;
    }
}

static void
addressbook_view_ref (AddressbookView *view)
{
    g_assert (view->refs > 0);
    ++view->refs;
}

static void
addressbook_view_unref (AddressbookView *view)
{
    g_assert (view->refs > 0);
    --view->refs;
    if (view->refs == 0) {
        addressbook_view_clear (view);
        g_free (view);
    }
}

static void
book_open_cb (EBook *book, EBookStatus status, gpointer closure)
{
    AddressbookView *view = closure;

    if (status == E_BOOK_STATUS_SUCCESS) {
        view->failed_to_load = FALSE;
        g_object_set(view->view,
                 "book", book,
                 NULL);
        view->book = book;
    }
    else {
        char *label_string;
        GtkWidget *warning_dialog;
        GtkWidget *href = NULL;
        AddressbookSource *source = NULL;

        view->failed_to_load = TRUE;

        if (!strncmp (view->uri, "file:", 5)) {
            label_string = 
                _("We were unable to open this addressbook.  Please check that the\n"
                  "path exists and that you have permission to access it.");
        }
        else {
            source = addressbook_storage_get_source_by_uri (view->uri);

            if (source) {
                /* special case for ldap: contact folders so we can tell the user about openldap */
#if HAVE_LDAP
                label_string = 
                    _("We were unable to open this addressbook.  This either\n"
                      "means you have entered an incorrect URI, or the LDAP server\n"
                      "is unreachable.");
#else
                label_string =
                    _("This version of Evolution does not have LDAP support\n"
                      "compiled in to it.  If you want to use LDAP in Evolution\n"
                      "you must compile the program from the CVS sources after\n"
                      "retrieving OpenLDAP from the link below.\n");
                href = gnome_href_new ("http://www.openldap.org/", "OpenLDAP at http://www.openldap.org/");
#endif
            }
            else {
                /* other network folders */
                label_string =
                    _("We were unable to open this addressbook.  This either\n"
                      "means you have entered an incorrect URI, or the server\n"
                      "is unreachable.");
            }
        }


            warning_dialog = gtk_message_dialog_new (
             NULL /* XXX */,
             0,
             GTK_MESSAGE_WARNING,
             GTK_BUTTONS_CLOSE, 
             label_string,
             NULL);

        g_signal_connect (warning_dialog, 
                  "response", 
                  G_CALLBACK (gtk_widget_destroy),
                  warning_dialog);

        gtk_window_set_title (GTK_WINDOW (warning_dialog), _("Unable to open addressbook"));

        if (href)
            gtk_box_pack_start (GTK_BOX (GTK_DIALOG (warning_dialog)->vbox), 
                        href, FALSE, FALSE, 0);

        gtk_widget_show_all (warning_dialog);
    }
}

static void
destroy_callback(gpointer data, GObject *where_object_was)
{
    AddressbookView *view = data;
    addressbook_view_unref (view);
}

static void
get_prop (BonoboPropertyBag *bag,
      BonoboArg         *arg,
      guint              arg_id,
      CORBA_Environment *ev,
      gpointer           user_data)
{
    AddressbookView *view = user_data;

    switch (arg_id) {

    case PROPERTY_FOLDER_URI_IDX:
        if (view && view->uri)
            BONOBO_ARG_SET_STRING (arg, view->uri);
        else
            BONOBO_ARG_SET_STRING (arg, "");
        break;

    default:
        g_warning ("Unhandled arg %d\n", arg_id);
    }
}

typedef struct {
    EBookCallback cb;
    char *clean_uri;
    AddressbookSource *source;
    gpointer closure;
} LoadUriData;

static void
load_uri_auth_cb (EBook *book, EBookStatus status, gpointer closure)
{
    LoadUriData *data = closure;

    if (status != E_BOOK_STATUS_SUCCESS) {
        if (status == E_BOOK_STATUS_CANCELLED) {
            /* the user clicked cancel in the password dialog */
            GtkWidget *dialog;
            dialog = gtk_message_dialog_new (NULL,
                             0,
                             GTK_MESSAGE_WARNING,
                             GTK_BUTTONS_OK,
                             _("Accessing LDAP Server anonymously"));
            g_signal_connect (dialog, "response", G_CALLBACK(gtk_widget_destroy), NULL);
            gtk_widget_show (dialog);
            data->cb (book, E_BOOK_STATUS_SUCCESS, data->closure);
            g_free (data->clean_uri);
            g_free (data);
            return;
        }
        else {
            e_passwords_forget_password ("Addressbook", data->clean_uri);
            addressbook_authenticate (book, TRUE, data->source, load_uri_auth_cb, closure);
            return;
        }
    }

    data->cb (book, status, data->closure);

    g_free (data->clean_uri);
    g_free (data);
}

static void
addressbook_authenticate (EBook *book, gboolean previous_failure, AddressbookSource *source,
              EBookCallback cb, gpointer closure)
{
    LoadUriData *load_uri_data = closure;
    const char *password = NULL;
    char *pass_dup = NULL;
    char *semicolon;

    load_uri_data->clean_uri = g_strdup (e_book_get_uri (book));

    semicolon = strchr (load_uri_data->clean_uri, ';');

    if (semicolon)
        *semicolon = '\0';

    password = e_passwords_get_password ("Addressbook", load_uri_data->clean_uri);

    if (!password) {
        char *prompt;
        gboolean remember;
        char *failed_auth;

        if (previous_failure) {
            failed_auth = _("Failed to authenticate.\n");
        }
        else {
            failed_auth = "";
        }


        if (source->auth == ADDRESSBOOK_LDAP_AUTH_SIMPLE_BINDDN)
            prompt = g_strdup_printf (_("%sEnter password for %s (user %s)"),
                          failed_auth, source->name, source->binddn);
        else
            prompt = g_strdup_printf (_("%sEnter password for %s (user %s)"),
                          failed_auth, source->name, source->email_addr);
        remember = source->remember_passwd;
        pass_dup = e_passwords_ask_password (prompt, "Addressbook", load_uri_data->clean_uri, prompt, TRUE,
                             E_PASSWORDS_REMEMBER_FOREVER, &remember,
                             NULL);
        if (remember != source->remember_passwd) {
            source->remember_passwd = remember;
            addressbook_storage_write_sources ();
        }
        g_free (prompt);
    }

    if (password || pass_dup) {
        char *user;

        if (source->auth == ADDRESSBOOK_LDAP_AUTH_SIMPLE_BINDDN)
            user = source->binddn;
        else
            user = source->email_addr;
        if (!user)
            user = "";
        e_book_authenticate_user (book, user, password ? password : pass_dup,
                      addressbook_storage_auth_type_to_string (source->auth),
                      cb, closure);
        g_free (pass_dup);
        return;
    }
    else {
        /* they hit cancel */
        cb (book, E_BOOK_STATUS_CANCELLED, closure);
    }
}

static void
load_uri_cb (EBook *book, EBookStatus status, gpointer closure)
{
    LoadUriData *load_uri_data = closure;

    if (status == E_BOOK_STATUS_SUCCESS && book != NULL) {

        /* check if the addressbook needs authentication */

        load_uri_data->source = addressbook_storage_get_source_by_uri (e_book_get_uri (book));

        if (load_uri_data->source &&
            load_uri_data->source->auth != ADDRESSBOOK_LDAP_AUTH_NONE) {

            addressbook_authenticate (book, FALSE, load_uri_data->source,
                          load_uri_auth_cb, closure);

            return;
        }
    }
    
    load_uri_data->cb (book, status, load_uri_data->closure);
    g_free (load_uri_data);
}

void
addressbook_load_uri (EBook *book, const char *uri,
              EBookCallback cb, gpointer closure)
{
    LoadUriData *load_uri_data = g_new0 (LoadUriData, 1);

    load_uri_data->cb = cb;
    load_uri_data->closure = closure;

    e_book_load_uri (book, uri, load_uri_cb, load_uri_data);
}

void
addressbook_load_default_book (EBook *book, EBookCallback cb, gpointer closure)
{
    LoadUriData *load_uri_data = g_new (LoadUriData, 1);

    load_uri_data->cb = cb;
    load_uri_data->closure = closure;

    e_book_load_default_book (book, load_uri_cb, load_uri_data);
}

static void
set_prop (BonoboPropertyBag *bag,
      const BonoboArg   *arg,
      guint              arg_id,
      CORBA_Environment *ev,
      gpointer           user_data)
{
    AddressbookView *view = user_data;

    char *uri_data;
    
    switch (arg_id) {

    case PROPERTY_FOLDER_URI_IDX:
        if (view->uri) {
            /* we've already had a uri set on this view, so unload it */
            e_book_unload_uri (view->book); 
            g_free (view->uri);
        } else {
            view->book = e_book_new ();
        }

        view->failed_to_load = FALSE;

        view->uri = g_strdup(BONOBO_ARG_GET_STRING (arg));
        
        uri_data = e_book_expand_uri (view->uri);

        addressbook_load_uri (view->book, uri_data, book_open_cb, view);

        g_free(uri_data);

        break;
        
    default:
        g_warning ("Unhandled arg %d\n", arg_id);
        break;
    }
}

enum {
    ESB_FULL_NAME,
    ESB_EMAIL,
    ESB_CATEGORY,
    ESB_ANY,
    ESB_ADVANCED
};

static ESearchBarItem addressbook_search_option_items[] = {
    { N_("Name begins with"), ESB_FULL_NAME, NULL },
    { N_("Email begins with"), ESB_EMAIL, NULL },
    { N_("Category is"), ESB_CATEGORY, NULL }, /* We attach subitems below */
    { N_("Any field contains"), ESB_ANY, NULL },
    { N_("Advanced..."), ESB_ADVANCED, NULL },
    { NULL, -1, NULL }
};

static void
alphabet_state_changed (EAddressbookView *eav, gunichar letter, AddressbookView *view)
{
    view->ignore_search_changes = TRUE;
    if (letter == 0) {
        e_search_bar_set_item_id (view->search, ESB_FULL_NAME);
        e_search_bar_set_text (view->search, "");
    } else {
        e_search_bar_set_item_id (view->search, ESB_FULL_NAME);
    }
    view->ignore_search_changes = FALSE;
}

static void
addressbook_search_activated (ESearchBar *esb, AddressbookView *view)
{
    ECategoriesMasterList *master_list;
    char *search_word, *search_query;
    const char *category_name;
    int search_type, subid;

    if (view->ignore_search_changes) {
        return;
    }

    g_object_get(esb,
             "text", &search_word,
             "item_id", &search_type,
             NULL);

    if (search_type == ESB_ADVANCED) {
        gtk_widget_show(e_addressbook_search_dialog_new(view->view));
    }
    else {
        if ((search_word && strlen (search_word)) || search_type == ESB_CATEGORY) {
            GString *s = g_string_new ("");
            e_sexp_encode_string (s, search_word);
            switch (search_type) {
            case ESB_ANY:
                search_query = g_strdup_printf ("(contains \"x-evolution-any-field\" %s)",
                                s->str);
                break;
            case ESB_FULL_NAME:
                search_query = g_strdup_printf ("(beginswith \"full_name\" %s)",
                                s->str);
                break;
            case ESB_EMAIL:
                search_query = g_strdup_printf ("(beginswith \"email\" %s)",
                                s->str);
                break;
            case ESB_CATEGORY:
                subid = e_search_bar_get_subitem_id (esb);

                if (subid < 0 || subid == G_MAXINT) {
                    /* match everything */
                    search_query = g_strdup ("(contains \"x-evolution-any-field\" \"\")");
                } else {
                    master_list = get_master_list ();
                    category_name = e_categories_master_list_nth (master_list, subid);
                    search_query = g_strdup_printf ("(is \"category\" \"%s\")", category_name);
                }
                break;
            default:
                search_query = g_strdup ("(contains \"x-evolution-any-field\" \"\")");
                break;
            }
            g_string_free (s, TRUE);
        } else
            search_query = g_strdup ("(contains \"x-evolution-any-field\" \"\")");

        if (search_query)
            g_object_set (view->view,
                      "query", search_query,
                      NULL);

        g_free (search_query);
    }

    g_free (search_word);
}

static void
addressbook_query_changed (ESearchBar *esb, AddressbookView *view)
{
    int search_type;

    g_object_get(esb,
             "item_id", &search_type,
             NULL);

    if (search_type == ESB_ADVANCED) {
        gtk_widget_show(e_addressbook_search_dialog_new(view->view));
    }
}

static GNOME_Evolution_ShellView
retrieve_shell_view_interface_from_control (BonoboControl *control)
{
    Bonobo_ControlFrame control_frame;
    GNOME_Evolution_ShellView shell_view_interface;
    CORBA_Environment ev;

    control_frame = bonobo_control_get_control_frame (control, NULL);

    if (control_frame == NULL)
        return CORBA_OBJECT_NIL;

    CORBA_exception_init (&ev);
    shell_view_interface = Bonobo_Unknown_queryInterface (control_frame,
                                   "IDL:GNOME/Evolution/ShellView:1.0",
                                   &ev);
    CORBA_exception_free (&ev);

    return shell_view_interface;
}

static void
set_status_message (EAddressbookView *eav, const char *message, AddressbookView *view)
{

    if (!message || !*message) {
        if (view->activity) {
            g_object_unref (view->activity);
            view->activity = NULL;
        }
    }
    else if (!view->activity) {
        int display;
        char *clientid = g_strdup_printf ("%p", view);

        if (progress_icon[0] == NULL)
            progress_icon[0] = gdk_pixbuf_new_from_file (EVOLUTION_IMAGESDIR "/" EVOLUTION_CONTACTS_PROGRESS_IMAGE, NULL);

        view->activity = evolution_activity_client_new (addressbook_component_get_shell_client(), clientid,
                                progress_icon, message, TRUE, &display);

        g_free (clientid);
    }
    else {
        evolution_activity_client_update (view->activity, message, -1.0);
    }

}

static void
search_result (EAddressbookView *eav, EBookViewStatus status, AddressbookView *view)
{
    char *str = NULL;

    switch (status) {
    case E_BOOK_VIEW_STATUS_SUCCESS:
        return;
    case E_BOOK_VIEW_STATUS_SIZE_LIMIT_EXCEEDED:
        str = _("More cards matched this query than either the server is \n"
            "configured to return or Evolution is configured to display.\n"
            "Please make your search more specific or raise the result limit in\n"
            "the directory server preferences for this addressbook.");
        break;
    case E_BOOK_VIEW_STATUS_TIME_LIMIT_EXCEEDED:
        str = _("The time to execute this query exceeded the server limit or the limit\n"
            "you have configured for this addressbook.  Please make your search\n"
            "more specific or raise the time limit in the directory server\n"
            "preferences for this addressbook.");
        break;
    case E_BOOK_VIEW_STATUS_INVALID_QUERY:
        str = _("The backend for this addressbook was unable to parse this query.");
        break;
    case E_BOOK_VIEW_STATUS_QUERY_REFUSED:
        str = _("The backend for this addressbook refused to perform this query.");
        break;
    case E_BOOK_VIEW_STATUS_OTHER_ERROR:
    case E_BOOK_VIEW_STATUS_UNKNOWN:
        str = _("This query did not complete successfully.");
        break;
    }

    if (str) {
        GtkWidget *dialog;
        dialog = gtk_message_dialog_new (NULL,
                         0,
                         GTK_MESSAGE_WARNING,
                         GTK_BUTTONS_OK,
                         str);
        g_signal_connect (dialog, "response", G_CALLBACK(gtk_widget_destroy), NULL);
        gtk_widget_show (dialog);
    }
}

static void
set_folder_bar_label (EAddressbookView *eav, const char *message, AddressbookView *view)
{
    CORBA_Environment ev;
    GNOME_Evolution_ShellView shell_view_interface;

    CORBA_exception_init (&ev);

    shell_view_interface = retrieve_shell_view_interface_from_control (view->control);
    if (!shell_view_interface) {
        CORBA_exception_free (&ev);
        return;
    }

    d(g_message("Updating via ShellView"));

    if (message == NULL || message[0] == 0) {
        GNOME_Evolution_ShellView_setFolderBarLabel (shell_view_interface,
                                 "",
                                 &ev);
    }
    else {
        GNOME_Evolution_ShellView_setFolderBarLabel (shell_view_interface,
                                 message,
                                 &ev);
    }

    if (BONOBO_EX (&ev))
        g_warning ("Exception in label update: %s",
               bonobo_exception_get_text (&ev));

    CORBA_exception_free (&ev);

    bonobo_object_release_unref (shell_view_interface, NULL);
}

/* Our global singleton config database */
static Bonobo_ConfigDatabase config_db = NULL;

Bonobo_ConfigDatabase
addressbook_config_database (CORBA_Environment *ev)
{
    if (config_db == NULL)
        config_db = bonobo_get_object ("wombat:", "Bonobo/ConfigDatabase", ev);

    return config_db;
}

static int
compare_subitems (const void *a, const void *b)
{
    const ESearchBarSubitem *subitem_a = a;
    const ESearchBarSubitem *subitem_b = b;

    return strcoll (subitem_a->text, subitem_b->text);
}

static void
make_suboptions (AddressbookView *view)
{
    ESearchBarSubitem *subitems, *s;
    ECategoriesMasterList *master_list;
    gint i, N;

    master_list = get_master_list ();
    N = e_categories_master_list_count (master_list);
    subitems = g_new (ESearchBarSubitem, N+2);

    subitems[0].id = G_MAXINT;
    subitems[0].text = g_strdup (_("Any Category"));
    subitems[0].translate = FALSE;

    for (i=0; i<N; ++i) {
        const char *category = e_categories_master_list_nth (master_list, i);

        subitems[i+1].id = i;
        subitems[i+1].text = g_strdup (category);
        subitems[i+1].translate = FALSE;
    }
    subitems[N+1].id = -1;
    subitems[N+1].text = NULL;

    qsort (subitems + 1, N, sizeof (subitems[0]), compare_subitems);

    e_search_bar_set_suboption (view->search, ESB_CATEGORY, subitems);

    for (s = subitems; s->id != -1; s++) {
        if (s->text)
            g_free (s->text);
    }
    g_free (subitems);
}

static void
ecml_changed (ECategoriesMasterList *ecml, AddressbookView *view)
{
    make_suboptions (view);
}

static void
connect_master_list_changed (AddressbookView *view)
{
    view->ecml_changed_id =
        g_signal_connect (get_master_list(), "changed",
                  G_CALLBACK (ecml_changed), view);
}

BonoboControl *
addressbook_new_control (void)
{
    AddressbookView *view;
    GtkWidget *frame;

    frame = gtk_frame_new (NULL);
    gtk_frame_set_shadow_type (GTK_FRAME (frame), GTK_SHADOW_IN);

    view = g_new0 (AddressbookView, 1);
    view->refs = 1;
    view->ignore_search_changes = FALSE;

    view->vbox = gtk_vbox_new (FALSE, 0);

    g_object_weak_ref (G_OBJECT (view->vbox), destroy_callback, view);

    /* Create the control. */
    view->control = bonobo_control_new (view->vbox);

    view->search = E_SEARCH_BAR (e_search_bar_new (NULL, addressbook_search_option_items));
    make_suboptions (view);
    connect_master_list_changed (view);

    gtk_box_pack_start (GTK_BOX (view->vbox), GTK_WIDGET (view->search),
                FALSE, FALSE, 0);
    g_signal_connect (view->search, "query_changed",
              G_CALLBACK (addressbook_query_changed), view);
    g_signal_connect (view->search, "search_activated",
              G_CALLBACK (addressbook_search_activated), view);

    view->view = E_ADDRESSBOOK_VIEW(e_addressbook_view_new());
    gtk_container_add (GTK_CONTAINER (frame), GTK_WIDGET (view->view));
    gtk_box_pack_start (GTK_BOX (view->vbox), frame,
                TRUE, TRUE, 0);

    /* create the initial view */
    change_view_type (view, E_ADDRESSBOOK_VIEW_MINICARD);

    gtk_widget_show (frame);
    gtk_widget_show (view->vbox);
    gtk_widget_show (GTK_WIDGET(view->view));
    gtk_widget_show (GTK_WIDGET(view->search));

    view->properties = bonobo_property_bag_new (get_prop, set_prop, view);

    bonobo_property_bag_add (view->properties,
                 PROPERTY_FOLDER_URI, PROPERTY_FOLDER_URI_IDX,
                 BONOBO_ARG_STRING, NULL, _("The URI that the Folder Browser will display"), 0);

    bonobo_control_set_properties (view->control,
                       bonobo_object_corba_objref (BONOBO_OBJECT (view->properties)),
                       NULL);

    g_signal_connect (view->view,
              "status_message",
              G_CALLBACK(set_status_message),
              view);

    g_signal_connect (view->view,
              "search_result",
              G_CALLBACK(search_result),
              view);

    g_signal_connect (view->view,
              "folder_bar_message",
              G_CALLBACK(set_folder_bar_label),
              view);

    g_signal_connect (view->view,
              "command_state_change",
              G_CALLBACK(update_command_state),
              view);
    
    g_signal_connect (view->view,
              "alphabet_state_change",
              G_CALLBACK(alphabet_state_changed),
              view);
    
    view->uri = NULL;

    g_signal_connect (view->control, "activate",
              G_CALLBACK (control_activate_cb), view);

    return view->control;
}