path: root/calendar/conduits/todo/todo-conduit.c

/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* Evolution calendar - ToDo Conduit
 *
 * Copyright (C) 1998 Free Software Foundation
 * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
 *
 * Authors: Eskil Heyn Olsen <deity@eskil.dk>
 *          JP Rosevear <jpr@ximian.com>
 *
 * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 */


#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#define G_LOG_DOMAIN "etodoconduit"

#include <glib/gi18n.h>
#include <libgnome/gnome-config.h>
#include <libecal/e-cal-types.h>
#include <libecal/e-cal.h>
#include <libecal/e-cal-time-util.h>
#include <libedataserver/e-url.h>
#include <libedataserverui/e-passwords.h>
#include <libedataserver/e-categories.h>
#include <pi-source.h>
#include <pi-socket.h>
#include <pi-dlp.h>
#include <pi-todo.h>
#include <libical/icaltypes.h>
#include <gpilotd/gnome-pilot-conduit.h>
#include <gpilotd/gnome-pilot-conduit-sync-abs.h>
#include <libgpilotdCM/gnome-pilot-conduit-management.h>
#include <libgpilotdCM/gnome-pilot-conduit-config.h>
#include <e-pilot-map.h>
#include <e-pilot-settings.h>
#include <e-pilot-util.h>
#include <e-config-listener.h>
#include <libecalendar-common-conduit.h>

GnomePilotConduit * conduit_get_gpilot_conduit (guint32);
void conduit_destroy_gpilot_conduit (GnomePilotConduit*);

#define CONDUIT_VERSION "0.1.6"

#define DEBUG_TODOCONDUIT 1
/* #undef DEBUG_TODOCONDUIT */

#ifdef DEBUG_TODOCONDUIT
#define LOG(x) x
#else
#define LOG(x)
#endif

#define WARN g_warning
#define INFO g_message

typedef struct _EToDoLocalRecord EToDoLocalRecord;
typedef struct _EToDoConduitCfg EToDoConduitCfg;
typedef struct _EToDoConduitGui EToDoConduitGui;
typedef struct _EToDoConduitContext EToDoConduitContext;

/* Local Record */
struct _EToDoLocalRecord {
    /* The stuff from gnome-pilot-conduit-standard-abs.h
       Must be first in the structure, or instances of this
       structure cannot be used by gnome-pilot-conduit-standard-abs.
    */
    GnomePilotDesktopRecord local;

    /* The corresponding Comp object */
    ECalComponent *comp;

        /* pilot-link todo structure */
    struct ToDo *todo;
};

int lastDesktopUniqueID;

static void
todoconduit_destroy_record (EToDoLocalRecord *local)
{
    g_object_unref (local->comp);
    free_ToDo (local->todo);
    g_free (local->todo);
    g_free (local);
}

/* Configuration */
struct _EToDoConduitCfg {
    guint32 pilot_id;
    GnomePilotConduitSyncType  sync_type;

    ESourceList *source_list;
    ESource *source;
    gboolean secret;
    gint priority;

    gchar *last_uri;
};

static EToDoConduitCfg *
todoconduit_load_configuration (guint32 pilot_id)
{
    EToDoConduitCfg *c;
    GnomePilotConduitManagement *management;
    GnomePilotConduitConfig *config;
    gchar prefix[256];


    g_snprintf (prefix, 255, "/gnome-pilot.d/e-todo-conduit/Pilot_%u/",
            pilot_id);

    c = g_new0 (EToDoConduitCfg,1);
    g_assert (c != NULL);

    c->pilot_id = pilot_id;

    management = gnome_pilot_conduit_management_new ("e_todo_conduit", GNOME_PILOT_CONDUIT_MGMT_ID);
    g_object_ref_sink (management);
    config = gnome_pilot_conduit_config_new (management, pilot_id);
    g_object_ref_sink (config);
    if (!gnome_pilot_conduit_config_is_enabled (config, &c->sync_type))
        c->sync_type = GnomePilotConduitSyncTypeNotSet;
    g_object_unref (config);
    g_object_unref (management);

    /* Custom settings */
    gnome_config_push_prefix (prefix);

    if (!e_cal_get_sources (&c->source_list, E_CAL_SOURCE_TYPE_TODO, NULL))
        c->source_list = NULL;
    if (c->source_list) {
        c->source = e_pilot_get_sync_source (c->source_list);
        if (!c->source)
            c->source = e_source_list_peek_source_any (c->source_list);
        if (c->source) {
            g_object_ref (c->source);
        } else {
            g_object_unref (c->source_list);
            c->source_list = NULL;
        }
    }

    c->secret = gnome_config_get_bool ("secret=FALSE");
    c->priority = gnome_config_get_int ("priority=3");
    c->last_uri = gnome_config_get_string ("last_uri");

    gnome_config_pop_prefix ();

    return c;
}

static void
todoconduit_save_configuration (EToDoConduitCfg *c)
{
    gchar prefix[256];

    g_snprintf (prefix, 255, "/gnome-pilot.d/e-todo-conduit/Pilot_%u/",
            c->pilot_id);

    gnome_config_push_prefix (prefix);
    e_pilot_set_sync_source (c->source_list, c->source);
    gnome_config_set_bool ("secret", c->secret);
    gnome_config_set_int ("priority", c->priority);
    gnome_config_set_string ("last_uri", c->last_uri);
    gnome_config_pop_prefix ();

    gnome_config_sync ();
    gnome_config_drop_all ();
}

static EToDoConduitCfg*
todoconduit_dupe_configuration (EToDoConduitCfg *c)
{
    EToDoConduitCfg *retval;

    g_return_val_if_fail (c != NULL, NULL);

    retval = g_new0 (EToDoConduitCfg, 1);
    retval->sync_type = c->sync_type;
    retval->pilot_id = c->pilot_id;

    if (c->source_list)
        retval->source_list = g_object_ref (c->source_list);
    if (c->source)
        retval->source = g_object_ref (c->source);
    retval->secret = c->secret;
    retval->priority = c->priority;
    retval->last_uri = g_strdup (c->last_uri);

    return retval;
}

static void
todoconduit_destroy_configuration (EToDoConduitCfg *c)
{
    g_return_if_fail (c != NULL);

    g_object_unref (c->source_list);
    g_object_unref (c->source);
    g_free (c->last_uri);
    g_free (c);
}

/* Gui */
struct _EToDoConduitGui {
    GtkWidget *priority;
};

static EToDoConduitGui *
e_todo_gui_new (EPilotSettings *ps)
{
    EToDoConduitGui *gui;
    GtkWidget *lbl;
    GtkObject *adj;
    gint rows;

    g_return_val_if_fail (ps != NULL, NULL);
    g_return_val_if_fail (E_IS_PILOT_SETTINGS (ps), NULL);

    gtk_table_resize (GTK_TABLE (ps), E_PILOT_SETTINGS_TABLE_ROWS + 1, E_PILOT_SETTINGS_TABLE_COLS);

    gui = g_new0 (EToDoConduitGui, 1);

    rows = E_PILOT_SETTINGS_TABLE_ROWS;
    lbl = gtk_label_new (_("Default Priority:"));
    gtk_misc_set_alignment (GTK_MISC (lbl), 0.0, 0.5);
    adj = gtk_adjustment_new (1, 1, 5, 1, 5, 5);
    gui->priority = gtk_spin_button_new (GTK_ADJUSTMENT (adj), 1.0, 0);
    gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (gui->priority), TRUE);
    gtk_table_attach_defaults (GTK_TABLE (ps), lbl, 0, 1, rows, rows + 1);
        gtk_table_attach_defaults (GTK_TABLE (ps), gui->priority, 1, 2, rows, rows + 1);
    gtk_widget_show (lbl);
    gtk_widget_show (gui->priority);

    return gui;
}

static void
e_todo_gui_fill_widgets (EToDoConduitGui *gui, EToDoConduitCfg *cfg)
{
    g_return_if_fail (gui != NULL);
    g_return_if_fail (cfg != NULL);

    gtk_spin_button_set_value (GTK_SPIN_BUTTON (gui->priority), cfg->priority);
}

static void
e_todo_gui_fill_config (EToDoConduitGui *gui, EToDoConduitCfg *cfg)
{
    g_return_if_fail (gui != NULL);
    g_return_if_fail (cfg != NULL);

    cfg->priority = gtk_spin_button_get_value_as_int (GTK_SPIN_BUTTON (gui->priority));
}

static void
e_todo_gui_destroy (EToDoConduitGui *gui)
{
    g_free (gui);
}

/* Context */
struct _EToDoConduitContext {
    GnomePilotDBInfo *dbi;

    EToDoConduitCfg *cfg;
    EToDoConduitCfg *new_cfg;
    EToDoConduitGui *gui;
    GtkWidget *ps;

    struct ToDoAppInfo ai;

    ECal *client;

    icaltimezone *timezone;
    ECalComponent *default_comp;
    GList *comps;
    GList *changed;
    GHashTable *changed_hash;
    GList *locals;

    EPilotMap *map;
};

static EToDoConduitContext *
e_todo_context_new (guint32 pilot_id)
{
    EToDoConduitContext *ctxt = g_new0 (EToDoConduitContext, 1);

    ctxt->cfg = todoconduit_load_configuration (pilot_id);
    ctxt->new_cfg = todoconduit_dupe_configuration (ctxt->cfg);
    ctxt->gui = NULL;
    ctxt->ps = NULL;
    ctxt->client = NULL;
    ctxt->timezone = NULL;
    ctxt->default_comp = NULL;
    ctxt->comps = NULL;
    ctxt->changed_hash = NULL;
    ctxt->changed = NULL;
    ctxt->locals = NULL;
    ctxt->map = NULL;

    return ctxt;
}

static gboolean
e_todo_context_foreach_change (gpointer key, gpointer value, gpointer data)
{
    g_free (key);

    return TRUE;
}

static void
e_todo_context_destroy (EToDoConduitContext *ctxt)
{
    GList *l;

    g_return_if_fail (ctxt != NULL);

    if (ctxt->cfg != NULL)
        todoconduit_destroy_configuration (ctxt->cfg);
    if (ctxt->new_cfg != NULL)
        todoconduit_destroy_configuration (ctxt->new_cfg);
    if (ctxt->gui != NULL)
        e_todo_gui_destroy (ctxt->gui);

    if (ctxt->client != NULL)
        g_object_unref (ctxt->client);

    if (ctxt->default_comp != NULL)
        g_object_unref (ctxt->default_comp);
    if (ctxt->comps != NULL) {
        for (l = ctxt->comps; l; l = l->next)
            g_object_unref (l->data);
        g_list_free (ctxt->comps);
    }

    if (ctxt->changed_hash != NULL) {
        g_hash_table_foreach_remove (ctxt->changed_hash, e_todo_context_foreach_change, NULL);
        g_hash_table_destroy (ctxt->changed_hash);
    }

    if (ctxt->locals != NULL) {
        for (l = ctxt->locals; l != NULL; l = l->next)
            todoconduit_destroy_record (l->data);
        g_list_free (ctxt->locals);
    }

    if (ctxt->changed != NULL)
        e_cal_free_change_list (ctxt->changed);

    if (ctxt->map != NULL)
        e_pilot_map_destroy (ctxt->map);

    g_free (ctxt);
}

/* Debug routines */
static char *
print_local (EToDoLocalRecord *local)
{
    static char buff[ 4096 ];

    if (local == NULL) {
        sprintf (buff, "[NULL]");
        return buff;
    }

    if (local->todo && local->todo->description) {
        g_snprintf (buff, 4096, "[%d %ld %d %d '%s' '%s' %d]",
                local->todo->indefinite,
                mktime (& local->todo->due),
                local->todo->priority,
                local->todo->complete,
                local->todo->description ?
                local->todo->description : "",
                local->todo->note ?
                local->todo->note : "",
                local->local.category);
        return buff;
    }

    return "";
}

static char *print_remote (GnomePilotRecord *remote)
{
    static char buff[ 4096 ];
    struct ToDo todo;
#ifdef PILOT_LINK_0_12
    pi_buffer_t * buffer;
#endif
    if (remote == NULL) {
        sprintf (buff, "[NULL]");
        return buff;
    }

    memset (&todo, 0, sizeof (struct ToDo));
#ifdef PILOT_LINK_0_12
    buffer = pi_buffer_new(DLP_BUF_SIZE);
    if(buffer == NULL){
        sprintf (buff, "[NULL]");
        return buff;
    }
    if(pi_buffer_append(buffer, remote->record, remote->length)==NULL){
        sprintf (buff, "[NULL]");
        return buff;
    }
    unpack_ToDo (&todo, buffer, todo_v1);
    pi_buffer_free(buffer);
#else
    unpack_ToDo (&todo, remote->record, remote->length);
#endif
    g_snprintf (buff, 4096, "[%d %ld %d %d '%s' '%s' %d]",
            todo.indefinite,
            mktime (&todo.due),
            todo.priority,
            todo.complete,
            todo.description ?
            e_pilot_utf8_from_pchar(todo.description) : "",
            todo.note ?
            e_pilot_utf8_from_pchar(todo.note) : "",
            remote->category);

    free_ToDo (&todo);

    return buff;
}

static char *
auth_func_cb (ECal *ecal, const char* prompt, const char *key, gpointer user_data)
{
    char *password;
    ESource *source;
    const gchar *auth_domain, *component_name;

    source = e_cal_get_source (ecal);
    auth_domain = e_source_get_property (source, "auth-domain");
    component_name = auth_domain ? auth_domain : "Todo";
    password = e_passwords_get_password (component_name, key);

    LOG (g_message ("auth_domain = %s, component_name = %s\n",
            auth_domain, component_name));
    return password;
}

static int
start_calendar_server (EToDoConduitContext *ctxt)
{
    char *str_uri = NULL;
    char *pass_key = NULL;
    int retval = 0;
    g_return_val_if_fail (ctxt != NULL, -2);

    if (ctxt->cfg->source) {
        ctxt->client = e_cal_new (ctxt->cfg->source, E_CAL_SOURCE_TYPE_TODO);
        /* Set the default timezone on the backend.
           As of Evo. 2.5.x, timezone should be set before
           calling e_cal_open.
        */
        if (ctxt->timezone && !e_cal_set_default_timezone (ctxt->client, ctxt->timezone, NULL))
            return -1;

        LOG (g_message ( "  timezone set to : %s", icaltimezone_get_tzid (ctxt->timezone) ));

        if (e_source_get_property (ctxt->cfg->source, "auth")) {
            EUri *e_uri;

            LOG (g_message ("Authenticating to fetch todo data\n"));
            str_uri = e_source_get_uri (ctxt->cfg->source);
            e_uri = e_uri_new (str_uri);
            pass_key = e_uri_to_string (e_uri, FALSE);
            e_uri_free (e_uri);
            if (ctxt->client)
                e_cal_set_auth_func (ctxt->client, (ECalAuthFunc) auth_func_cb, NULL);
        }
        if (!e_cal_open (ctxt->client, TRUE, NULL))
            retval = -1;
    } else if (!e_cal_open_default (&ctxt->client, E_CAL_SOURCE_TYPE_TODO, NULL, NULL, NULL)) {
        retval = -1;
    }

    g_free (str_uri);
    g_free (pass_key);
    return retval;
}

/* Utility routines */
static icaltimezone *
get_timezone (ECal *client, const char *tzid)
{
    icaltimezone *timezone = NULL;

    timezone = icaltimezone_get_builtin_timezone_from_tzid (tzid);
    if (timezone == NULL)
         e_cal_get_timezone (client, tzid, &timezone, NULL);

    return timezone;
}

static icaltimezone *
get_default_timezone (void)
{
    EConfigListener *listener;
    icaltimezone *timezone = NULL;
    char *location;

    listener = e_config_listener_new ();

    location = e_config_listener_get_string_with_default (listener,
        "/apps/evolution/calendar/display/timezone", "UTC", NULL);
    if (!location || !location[0]) {
        g_free (location);
        location = g_strdup ("UTC");
    }

    timezone = icaltimezone_get_builtin_timezone (location);
    g_free (location);

    g_object_unref (listener);

    return timezone;
}

static char *
map_name (EToDoConduitContext *ctxt)
{
    char *filename;

    filename = g_strdup_printf ("%s/.evolution/tasks/local/system/pilot-map-todo-%d.xml", g_get_home_dir (), ctxt->cfg->pilot_id);

    return filename;
}

static gboolean
is_empty_time (struct tm time)
{
    if (time.tm_sec || time.tm_min || time.tm_hour
        || time.tm_mday || time.tm_mon || time.tm_year)
        return FALSE;

    return TRUE;
}

static GList *
next_changed_item (EToDoConduitContext *ctxt, GList *changes)
{
    ECalChange *ccc;
    GList *l;

    for (l = changes; l != NULL; l = l->next) {
        const char *uid;

        ccc = l->data;

        e_cal_component_get_uid (ccc->comp, &uid);
        if (g_hash_table_lookup (ctxt->changed_hash, uid))
            return l;
    }

    return NULL;
}

static void
compute_status (EToDoConduitContext *ctxt, EToDoLocalRecord *local, const char *uid)
{
    ECalChange *ccc;

    local->local.archived = FALSE;
    local->local.secret = FALSE;

    ccc = g_hash_table_lookup (ctxt->changed_hash, uid);

    if (ccc == NULL) {
        local->local.attr = GnomePilotRecordNothing;
        return;
    }

    switch (ccc->type) {
    case E_CAL_CHANGE_ADDED:
        local->local.attr = GnomePilotRecordNew;
        break;
    case E_CAL_CHANGE_MODIFIED:
        local->local.attr = GnomePilotRecordModified;
        break;
    case E_CAL_CHANGE_DELETED:
        local->local.attr = GnomePilotRecordDeleted;
        break;
    }
}

static GnomePilotRecord
local_record_to_pilot_record (EToDoLocalRecord *local,
                  EToDoConduitContext *ctxt)
{
    GnomePilotRecord p;
#ifdef PILOT_LINK_0_12
    pi_buffer_t * buffer;
#else
    static char record[0xffff];
#endif

    g_assert (local->comp != NULL);
    g_assert (local->todo != NULL );

    LOG (g_message ( "local_record_to_pilot_record\n" ));

    memset (&p, 0, sizeof (GnomePilotRecord));

    memset(&p, 0, sizeof (p));

    p.ID = local->local.ID;
    p.category = local->local.category;
    p.attr = local->local.attr;
    p.archived = local->local.archived;
    p.secret = local->local.secret;

    /* Generate pilot record structure */
#ifdef PILOT_LINK_0_12
    buffer = pi_buffer_new(DLP_BUF_SIZE);
    if(buffer == NULL){
        pi_set_error(ctxt->dbi->pilot_socket, PI_ERR_GENERIC_MEMORY);
        return p;
    }

    pack_ToDo (local->todo, buffer, todo_v1);
    p.record = g_new0(unsigned char, buffer->used);
    p.length = buffer->used;
    memcpy(p.record, buffer->data, buffer->used);

    pi_buffer_free(buffer);
#else
    p.record = (unsigned char *)record;
    p.length = pack_ToDo (local->todo, p.record, 0xffff);
#endif
    return p;
}

/*
 * converts a ECalComponent object to a EToDoLocalRecord
 */
static void
local_record_from_comp (EToDoLocalRecord *local, ECalComponent *comp, EToDoConduitContext *ctxt)
{
    const char *uid;
    int *priority;
    icalproperty_status status;
    ECalComponentText summary;
    GSList *d_list = NULL;
    ECalComponentText *description;
    ECalComponentDateTime due;
    ECalComponentClassification classif;
    icaltimezone *default_tz = get_default_timezone ();

    LOG (g_message ( "local_record_from_comp\n" ));

    g_return_if_fail (local != NULL);
    g_return_if_fail (comp != NULL);

    local->comp = comp;
    g_object_ref (comp);

    e_cal_component_get_uid (local->comp, &uid);
    local->local.ID = e_pilot_map_lookup_pid (ctxt->map, uid, TRUE);

    compute_status (ctxt, local, uid);

    local->todo = g_new0 (struct ToDo,1);

    /* Don't overwrite the category */
    if (local->local.ID != 0) {
        int cat = 0;
#ifdef PILOT_LINK_0_12
        pi_buffer_t * record;
        record = pi_buffer_new(DLP_BUF_SIZE);
        if(record == NULL){
            pi_set_error(ctxt->dbi->pilot_socket, PI_ERR_GENERIC_MEMORY);
            return;
        }
#else
        char record[0xffff];
#endif

        if (dlp_ReadRecordById (ctxt->dbi->pilot_socket,
                    ctxt->dbi->db_handle,
#ifdef PILOT_LINK_0_12
                    local->local.ID, record,
                    NULL, NULL, &cat) > 0) {
#else
                    local->local.ID, &record,
                    NULL, NULL, NULL, &cat) > 0) {
#endif
            local->local.category = cat;
        }
#ifdef PILOT_LINK_0_12
        pi_buffer_free(record);
#endif
    }

    /*Category support*/
    e_pilot_local_category_to_remote(&(local->local.category), comp, &(ctxt->ai.category));

    /* STOP: don't replace these with g_strdup, since free_ToDo
       uses free to deallocate */
    e_cal_component_get_summary (comp, &summary);
    if (summary.value)
        local->todo->description = e_pilot_utf8_to_pchar (summary.value);

    e_cal_component_get_description_list (comp, &d_list);
    if (d_list) {
        description = (ECalComponentText *) d_list->data;
        if (description && description->value)
            local->todo->note = e_pilot_utf8_to_pchar (description->value);
        else
            local->todo->note = NULL;
    } else {
        local->todo->note = NULL;
    }

    e_cal_component_get_due (comp, &due);
    if (due.value) {
        icaltimezone_convert_time (due.value,
                       get_timezone (ctxt->client, due.tzid),
                       default_tz);
        local->todo->due = icaltimetype_to_tm (due.value);
        local->todo->indefinite = 0;
    } else {
        local->todo->indefinite = 1;
    }
    e_cal_component_free_datetime (&due);

    e_cal_component_get_status (comp, &status);
    if (status == ICAL_STATUS_COMPLETED)
        local->todo->complete = 1;
    else
        local->todo->complete = 0;

    e_cal_component_get_priority (comp, &priority);
    if (priority && *priority != 0) {
        if (*priority <= 3)
            local->todo->priority = 1;
        else if (*priority == 4)
            local->todo->priority = 2;
        else if (*priority == 5)
            local->todo->priority = 3;
        else if (*priority <= 7)
            local->todo->priority = 4;
        else
            local->todo->priority = 5;

        e_cal_component_free_priority (priority);
    } else {
        local->todo->priority = ctxt->cfg->priority;
    }

    e_cal_component_get_classification (comp, &classif);

    if (classif == E_CAL_COMPONENT_CLASS_PRIVATE)
        local->local.secret = 1;
    else
        local->local.secret = 0;

    local->local.archived = 0;
}

static void
local_record_from_uid (EToDoLocalRecord *local,
               const char *uid,
               EToDoConduitContext *ctxt)
{
    ECalComponent *comp;
    icalcomponent *icalcomp;
    GError *error = NULL;

    g_assert(local!=NULL);

    LOG(g_message("local_record_from_uid\n"));

    if (e_cal_get_object (ctxt->client, uid, NULL, &icalcomp, &error)) {
        comp = e_cal_component_new ();
        if (!e_cal_component_set_icalcomponent (comp, icalcomp)) {
            g_object_unref (comp);
            icalcomponent_free (icalcomp);
            return;
        }

        local_record_from_comp (local, comp, ctxt);
        g_object_unref (comp);
    } else if (error->code == E_CALENDAR_STATUS_OBJECT_NOT_FOUND) {
        comp = e_cal_component_new ();
        e_cal_component_set_new_vtype (comp, E_CAL_COMPONENT_TODO);
        e_cal_component_set_uid (comp, uid);
        local_record_from_comp (local, comp, ctxt);
        g_object_unref (comp);
    } else {
        INFO ("Object did not exist");
    }

    g_clear_error (&error);
}


static ECalComponent *
comp_from_remote_record (GnomePilotConduitSyncAbs *conduit,
             GnomePilotRecord *remote,
             ECalComponent *in_comp,
             icaltimezone *timezone,
             struct ToDoAppInfo *ai)
{
    ECalComponent *comp;
    struct ToDo todo;
    ECalComponentText summary = {NULL, NULL};
    ECalComponentDateTime dt = {NULL, icaltimezone_get_tzid (timezone)};
    struct icaltimetype due, now;
    icaltimezone *utc_zone;
    int priority;
    char *txt;
#ifdef PILOT_LINK_0_12
    pi_buffer_t * buffer;
#endif

    g_return_val_if_fail (remote != NULL, NULL);

#ifdef PILOT_LINK_0_12
    buffer = pi_buffer_new(DLP_BUF_SIZE);
    if(buffer == NULL){
        return NULL;
    }

    if(pi_buffer_append(buffer, remote->record, remote->length)==NULL){
        return NULL;
    }

    unpack_ToDo (&todo, buffer, todo_v1);
    pi_buffer_free(buffer);
#else
    memset (&todo, 0, sizeof (struct ToDo));
    unpack_ToDo (&todo, remote->record, remote->length);
#endif

    utc_zone = icaltimezone_get_utc_timezone ();
    now = icaltime_from_timet_with_zone (time (NULL), FALSE,
                         utc_zone);

    if (in_comp == NULL) {
        comp = e_cal_component_new ();
        e_cal_component_set_new_vtype (comp, E_CAL_COMPONENT_TODO);
        e_cal_component_set_created (comp, &now);
    } else {
        comp = e_cal_component_clone (in_comp);
    }

    e_cal_component_set_last_modified (comp, &now);

    summary.value = txt = e_pilot_utf8_from_pchar (todo.description);
    e_cal_component_set_summary (comp, &summary);
    free (txt);

    /*Category support*/
    e_pilot_remote_category_to_local(remote->category, comp, &(ai->category));

    /* The iCal description field */
    if (!todo.note) {
        e_cal_component_set_comment_list (comp, NULL);
    } else {
        GSList l;
        ECalComponentText text;

        text.value = txt = e_pilot_utf8_from_pchar (todo.note);
        text.altrep = NULL;
        l.data = &text;
        l.next = NULL;

        e_cal_component_set_description_list (comp, &l);
        free (txt);
    }

    if (todo.complete) {
        int percent = 100;

        e_cal_component_set_completed (comp, &now);
        e_cal_component_set_percent (comp, &percent);
        e_cal_component_set_status (comp, ICAL_STATUS_COMPLETED);
    } else {
        int *percent = NULL;
        icalproperty_status status;

        e_cal_component_set_completed (comp, NULL);

        e_cal_component_get_percent (comp, &percent);
        if (percent == NULL || *percent == 100) {
            int p = 0;
            e_cal_component_set_percent (comp, &p);
        }
        if (percent != NULL)
            e_cal_component_free_percent (percent);

        e_cal_component_get_status (comp, &status);
        if (status == ICAL_STATUS_COMPLETED)
            e_cal_component_set_status (comp, ICAL_STATUS_NEEDSACTION);
    }

    if (!todo.indefinite && !is_empty_time (todo.due)) {
        due = tm_to_icaltimetype (&todo.due, TRUE);
        dt.value = &due;
        e_cal_component_set_due (comp, &dt);
    }

    switch (todo.priority) {
    case 1:
        priority = 3;
        break;
    case 2:
        priority = 5;
        break;
    case 3:
        priority = 5;
        break;
    case 4:
        priority = 7;
        break;
    default:
        priority = 9;
    }

    e_cal_component_set_priority (comp, &priority);
    e_cal_component_set_transparency (comp, E_CAL_COMPONENT_TRANSP_NONE);

    if (remote->secret)
        e_cal_component_set_classification (comp, E_CAL_COMPONENT_CLASS_PRIVATE);
    else
        e_cal_component_set_classification (comp, E_CAL_COMPONENT_CLASS_PUBLIC);

    e_cal_component_commit_sequence (comp);

    free_ToDo(&todo);

    return comp;
}

static void
check_for_slow_setting (GnomePilotConduit *c, EToDoConduitContext *ctxt)
{
    GnomePilotConduitStandard *conduit = GNOME_PILOT_CONDUIT_STANDARD (c);
    int map_count;
    const char *uri;

    /* If there are no objects or objects but no log */
    map_count = g_hash_table_size (ctxt->map->pid_map);
    if (map_count == 0)
        gnome_pilot_conduit_standard_set_slow (conduit, TRUE);

    /* Or if the URI's don't match */
    uri = e_cal_get_uri (ctxt->client);
    LOG (g_message ( "  Current URI %s (%s)\n", uri, ctxt->cfg->last_uri ? ctxt->cfg->last_uri : "<NONE>" ));
    if (ctxt->cfg->last_uri != NULL && strcmp (ctxt->cfg->last_uri, uri)) {
        gnome_pilot_conduit_standard_set_slow (conduit, TRUE);
        e_pilot_map_clear (ctxt->map);
    }

    if (gnome_pilot_conduit_standard_get_slow (conduit)) {
        ctxt->map->write_touched_only = TRUE;
        LOG (g_message ( "    doing slow sync\n" ));
    } else {
        LOG (g_message ( "    doing fast sync\n" ));
    }
}

/* Pilot syncing callbacks */
static gint
pre_sync (GnomePilotConduit *conduit,
      GnomePilotDBInfo *dbi,
      EToDoConduitContext *ctxt)
{
    GnomePilotConduitSyncAbs *abs_conduit;
    GList *l;
    int len;
    unsigned char *buf;
    char *filename, *change_id;
    icalcomponent *icalcomp;
    gint num_records, add_records = 0, mod_records = 0, del_records = 0;
#ifdef PILOT_LINK_0_12
    pi_buffer_t * buffer;
#endif

    abs_conduit = GNOME_PILOT_CONDUIT_SYNC_ABS (conduit);

    LOG (g_message ( "---------------------------------------------------------\n" ));
    LOG (g_message ( "pre_sync: ToDo Conduit v.%s", CONDUIT_VERSION ));
    g_message ("ToDo Conduit v.%s", CONDUIT_VERSION);

    ctxt->dbi = dbi;
    ctxt->client = NULL;

    /* Get the timezone */
    ctxt->timezone = get_default_timezone ();
    if (ctxt->timezone == NULL)
        return -1;
    LOG (g_message ( "  Using timezone: %s", icaltimezone_get_tzid (ctxt->timezone) ));

    if (start_calendar_server (ctxt) != 0) {
        WARN(_("Could not start evolution-data-server"));
        gnome_pilot_conduit_error (conduit, _("Could not start evolution-data-server"));
        return -1;
    }

    /* Get the default component */
    if (!e_cal_get_default_object (ctxt->client, &icalcomp, NULL))
        return -1;
    LOG (g_message ( "  Got default component: %p", icalcomp));

    ctxt->default_comp = e_cal_component_new ();
    if (!e_cal_component_set_icalcomponent (ctxt->default_comp, icalcomp)) {
        g_object_unref (ctxt->default_comp);
        icalcomponent_free (icalcomp);
        return -1;
    }

    /* Load the uid <--> pilot id map */
    filename = map_name (ctxt);
    e_pilot_map_read (filename, &ctxt->map);
    g_free (filename);

    /* Get the local database */
    if (!e_cal_get_object_list_as_comp (ctxt->client, "#t", &ctxt->comps, NULL))
        return -1;

    /* Count and hash the changes */
    change_id = g_strdup_printf ("pilot-sync-evolution-todo-%d", ctxt->cfg->pilot_id);
    if (!e_cal_get_changes (ctxt->client, change_id, &ctxt->changed, NULL))
        return -1;

    ctxt->changed_hash = g_hash_table_new (g_str_hash, g_str_equal);
    g_free (change_id);

    for (l = ctxt->changed; l != NULL; l = l->next) {
        ECalChange *ccc = l->data;
        const char *uid;

        e_cal_component_get_uid (ccc->comp, &uid);
        if (!e_pilot_map_uid_is_archived (ctxt->map, uid)) {

            g_hash_table_insert (ctxt->changed_hash, g_strdup (uid), ccc);

            switch (ccc->type) {
            case E_CAL_CHANGE_ADDED:
                add_records++;
                break;
            case E_CAL_CHANGE_MODIFIED:
                mod_records++;
                break;
            case E_CAL_CHANGE_DELETED:
                del_records++;
                break;
            }
        } else if (ccc->type == E_CAL_CHANGE_DELETED) {
            e_pilot_map_remove_by_uid (ctxt->map, uid);
        }
    }

    /* Set the count information */
    num_records = g_list_length (ctxt->comps);
    gnome_pilot_conduit_sync_abs_set_num_local_records(abs_conduit, num_records);
    gnome_pilot_conduit_sync_abs_set_num_new_local_records (abs_conduit, add_records);
    gnome_pilot_conduit_sync_abs_set_num_updated_local_records (abs_conduit, mod_records);
    gnome_pilot_conduit_sync_abs_set_num_deleted_local_records(abs_conduit, del_records);

    g_message("num_records: %d\nadd_records: %d\nmod_records: %d\ndel_records: %d\n",
            num_records, add_records, mod_records, del_records);

#ifdef PILOT_LINK_0_12
    buffer = pi_buffer_new(DLP_BUF_SIZE);
    if(buffer == NULL){
        pi_set_error(dbi->pilot_socket, PI_ERR_GENERIC_MEMORY);
        return -1;
    }
    len = dlp_ReadAppBlock (dbi->pilot_socket, dbi->db_handle, 0,
                DLP_BUF_SIZE,
                buffer);
#else
    buf = (unsigned char*)g_malloc (0xffff);
    len = dlp_ReadAppBlock (dbi->pilot_socket, dbi->db_handle, 0,
                  (unsigned char *)buf, 0xffff);
#endif
    if (len < 0) {
        WARN (_("Could not read pilot's ToDo application block"));
        WARN ("dlp_ReadAppBlock(...) = %d", len);
        gnome_pilot_conduit_error (conduit,
                       _("Could not read pilot's ToDo application block"));
        return -1;
    }

#ifdef PILOT_LINK_0_12
    buf = g_new0 (unsigned char,buffer->used);
    memcpy(buf, buffer->data,buffer->used);
    pi_buffer_free(buffer);
#endif
    unpack_ToDoAppInfo (&(ctxt->ai), buf, len);
    g_free (buf);

    lastDesktopUniqueID = 128;

    check_for_slow_setting (conduit, ctxt);
    if (ctxt->cfg->sync_type == GnomePilotConduitSyncTypeCopyToPilot
        || ctxt->cfg->sync_type == GnomePilotConduitSyncTypeCopyFromPilot)
        ctxt->map->write_touched_only = TRUE;

    return 0;
}

static gint
post_sync (GnomePilotConduit *conduit,
       GnomePilotDBInfo *dbi,
       EToDoConduitContext *ctxt)
{
    GList *changed;
    gchar *filename, *change_id;
    unsigned char *buf;
    int dlpRetVal, len;

    buf = (unsigned char*)g_malloc (0xffff);

    len = pack_ToDoAppInfo (&(ctxt->ai), buf, 0xffff);

    dlpRetVal = dlp_WriteAppBlock (dbi->pilot_socket, dbi->db_handle,
                  (unsigned char *)buf, len);

    g_free (buf);

    if (dlpRetVal < 0) {
        WARN (_("Could not write pilot's ToDo application block"));
        WARN ("dlp_WriteAppBlock(...) = %d", dlpRetVal);
        gnome_pilot_conduit_error (conduit,
                       _("Could not write pilot's ToDo application block"));
        return -1;
    }


    LOG (g_message ( "post_sync: ToDo Conduit v.%s", CONDUIT_VERSION ));

    g_free (ctxt->cfg->last_uri);
    ctxt->cfg->last_uri = g_strdup (e_cal_get_uri (ctxt->client));
    todoconduit_save_configuration (ctxt->cfg);

    filename = map_name (ctxt);
    e_pilot_map_write (filename, ctxt->map);
    g_free (filename);

    /* FIX ME ugly hack - our changes musn't count, this does introduce
     * a race condition if anyone changes a record elsewhere during sycnc
         */
    change_id = g_strdup_printf ("pilot-sync-evolution-todo-%d", ctxt->cfg->pilot_id);
    if (e_cal_get_changes (ctxt->client, change_id, &changed, NULL))
        e_cal_free_change_list (changed);
    g_free (change_id);

    LOG (g_message ( "---------------------------------------------------------\n" ));

    return 0;
}

static gint
set_pilot_id (GnomePilotConduitSyncAbs *conduit,
          EToDoLocalRecord *local,
          guint32 ID,
          EToDoConduitContext *ctxt)
{
    const char *uid;

    LOG (g_message ( "set_pilot_id: setting to %d\n", ID ));

    e_cal_component_get_uid (local->comp, &uid);
    e_pilot_map_insert (ctxt->map, ID, uid, FALSE);

        return 0;
}

static gint
set_status_cleared (GnomePilotConduitSyncAbs *conduit,
            EToDoLocalRecord *local,
            EToDoConduitContext *ctxt)
{
    const char *uid;

    LOG (g_message ( "set_status_cleared: clearing status\n" ));

    e_cal_component_get_uid (local->comp, &uid);
    g_hash_table_remove (ctxt->changed_hash, uid);

        return 0;
}

static gint
for_each (GnomePilotConduitSyncAbs *conduit,
      EToDoLocalRecord **local,
      EToDoConduitContext *ctxt)
{
    static GList *comps, *iterator;
    static int count;
        GList *unused;

    g_return_val_if_fail (local != NULL, -1);

    if (*local == NULL) {
        LOG (g_message ( "beginning for_each" ));

        comps = ctxt->comps;
        count = 0;

        if (comps != NULL) {
            LOG (g_message ( "iterating over %d records", g_list_length (comps)));

            *local = g_new0 (EToDoLocalRecord, 1);
            local_record_from_comp (*local, comps->data, ctxt);

            /* NOTE: ignore the return value, otherwise ctxt->locals
             * gets messed up. The calling function keeps track of
             * the *local variable */
            unused = g_list_prepend (ctxt->locals, *local);

            iterator = comps;
        } else {
            LOG (g_message ( "no events" ));
            (*local) = NULL;
            return 0;
        }
    } else {
        count++;
        if (g_list_next (iterator)) {
            iterator = g_list_next (iterator);

            *local = g_new0 (EToDoLocalRecord, 1);
            local_record_from_comp (*local, iterator->data, ctxt);

            /* NOTE: ignore the return value, otherwise ctxt->locals
             * gets messed up. The calling function keeps track of
             * the *local variable */
            unused = g_list_prepend (ctxt->locals, *local);
        } else {
            LOG (g_message ( "for_each ending" ));

            /* Tell the pilot the iteration is over */
            *local = NULL;

            return 0;
        }
    }

    return 0;
}

static gint
for_each_modified (GnomePilotConduitSyncAbs *conduit,
           EToDoLocalRecord **local,
           EToDoConduitContext *ctxt)
{
    static GList *iterator;
    static int count;
        GList *unused;

    g_return_val_if_fail (local != NULL, 0);

    if (*local == NULL) {
        LOG (g_message ( "for_each_modified beginning\n" ));

        iterator = ctxt->changed;

        count = 0;

        LOG (g_message ( "iterating over %d records", g_hash_table_size (ctxt->changed_hash) ));

        iterator = next_changed_item (ctxt, iterator);
        if (iterator != NULL) {
            ECalChange *ccc = iterator->data;

            *local = g_new0 (EToDoLocalRecord, 1);
            local_record_from_comp (*local, ccc->comp, ctxt);

            /* NOTE: ignore the return value, otherwise ctxt->locals
             * gets messed up. The calling function keeps track of
             * the *local variable */
            unused = g_list_prepend (ctxt->locals, *local);
        } else {
            LOG (g_message ( "no events" ));

            *local = NULL;
        }
    } else {
        count++;
        iterator = g_list_next (iterator);
        if (iterator && (iterator = next_changed_item (ctxt, iterator))) {
            ECalChange *ccc = iterator->data;

            *local = g_new0 (EToDoLocalRecord, 1);
            local_record_from_comp (*local, ccc->comp, ctxt);

            /* NOTE: ignore the return value, otherwise ctxt->locals
             * gets messed up. The calling function keeps track of
             * the *local variable */
            unused = g_list_prepend (ctxt->locals, *local);
        } else {
            LOG (g_message ( "for_each_modified ending" ));

            /* Signal the iteration is over */
            *local = NULL;
        }
    }

    return 0;
}

static gint
compare (GnomePilotConduitSyncAbs *conduit,
     EToDoLocalRecord *local,
     GnomePilotRecord *remote,
     EToDoConduitContext *ctxt)
{
    /* used by the quick compare */
    GnomePilotRecord local_pilot;
    int retval = 0;

    LOG (g_message ("compare: local=%s remote=%s...\n",
            print_local (local), print_remote (remote)));

    g_return_val_if_fail (local!=NULL,-1);
    g_return_val_if_fail (remote!=NULL,-1);

    local_pilot = local_record_to_pilot_record (local, ctxt);

    if (remote->length != local_pilot.length
        || memcmp (local_pilot.record, remote->record, remote->length))
        retval = 1;

    if (retval == 0)
        LOG (g_message ( "    equal" ));
    else
        LOG (g_message ( "    not equal" ));

    return retval;
}

static gint
add_record (GnomePilotConduitSyncAbs *conduit,
        GnomePilotRecord *remote,
        EToDoConduitContext *ctxt)
{
    ECalComponent *comp;
    char *uid;
    int retval = 0;

    g_return_val_if_fail (remote != NULL, -1);

    LOG (g_message ( "add_record: adding %s to desktop\n", print_remote (remote) ));

    comp = comp_from_remote_record (conduit, remote, ctxt->default_comp, ctxt->timezone, &(ctxt->ai));

    /* Give it a new UID otherwise it will be the uid of the default comp */
    uid = e_cal_component_gen_uid ();
    e_cal_component_set_uid (comp, uid);

    if (!e_cal_create_object (ctxt->client, e_cal_component_get_icalcomponent (comp), NULL, NULL))
        return -1;

    e_pilot_map_insert (ctxt->map, remote->ID, uid, FALSE);

    g_object_unref (comp);
    g_free (uid);

    return retval;
}

static gint
replace_record (GnomePilotConduitSyncAbs *conduit,
        EToDoLocalRecord *local,
        GnomePilotRecord *remote,
        EToDoConduitContext *ctxt)
{
    ECalComponent *new_comp;
    int retval = 0;

    g_return_val_if_fail (remote != NULL, -1);

    LOG (g_message ("replace_record: replace %s with %s\n",
            print_local (local), print_remote (remote)));

    new_comp = comp_from_remote_record (conduit, remote, local->comp, ctxt->timezone, &(ctxt->ai));
    g_object_unref (local->comp);
    local->comp = new_comp;

    if (!e_cal_modify_object (ctxt->client, e_cal_component_get_icalcomponent (new_comp),
                       CALOBJ_MOD_ALL, NULL))
        return -1;

    return retval;
}

static gint
delete_record (GnomePilotConduitSyncAbs *conduit,
           EToDoLocalRecord *local,
           EToDoConduitContext *ctxt)
{
    const char *uid;

    g_return_val_if_fail (local != NULL, -1);
    g_return_val_if_fail (local->comp != NULL, -1);

    e_cal_component_get_uid (local->comp, &uid);

    LOG (g_message ( "delete_record: deleting %s\n", uid ));

    e_pilot_map_remove_by_uid (ctxt->map, uid);
    /* FIXME Error handling */
    e_cal_remove_object (ctxt->client, uid, NULL);

        return 0;
}

static gint
archive_record (GnomePilotConduitSyncAbs *conduit,
        EToDoLocalRecord *local,
        gboolean archive,
        EToDoConduitContext *ctxt)
{
    const char *uid;
    int retval = 0;

    g_return_val_if_fail (local != NULL, -1);

    LOG (g_message ( "archive_record: %s\n", archive ? "yes" : "no" ));

    e_cal_component_get_uid (local->comp, &uid);
    e_pilot_map_insert (ctxt->map, local->local.ID, uid, archive);

        return retval;
}

static gint
match (GnomePilotConduitSyncAbs *conduit,
       GnomePilotRecord *remote,
       EToDoLocalRecord **local,
       EToDoConduitContext *ctxt)
{
    const char *uid;

    LOG (g_message ("match: looking for local copy of %s\n",
            print_remote (remote)));

    g_return_val_if_fail (local != NULL, -1);
    g_return_val_if_fail (remote != NULL, -1);

    *local = NULL;
    uid = e_pilot_map_lookup_uid (ctxt->map, remote->ID, TRUE);

    if (!uid)
        return 0;

    LOG (g_message ( "  matched\n" ));

    *local = g_new0 (EToDoLocalRecord, 1);
    local_record_from_uid (*local, uid, ctxt);

    return 0;
}

static gint
free_match (GnomePilotConduitSyncAbs *conduit,
        EToDoLocalRecord *local,
        EToDoConduitContext *ctxt)
{
    LOG (g_message ( "free_match: freeing\n" ));

    g_return_val_if_fail (local != NULL, -1);

    ctxt->locals = g_list_remove (ctxt->locals, local);

    todoconduit_destroy_record (local);

    return 0;
}

static gint
prepare (GnomePilotConduitSyncAbs *conduit,
     EToDoLocalRecord *local,
     GnomePilotRecord *remote,
     EToDoConduitContext *ctxt)
{
    LOG (g_message ( "prepare: encoding local %s\n", print_local (local) ));

    *remote = local_record_to_pilot_record (local, ctxt);

    return 0;
}

/* Pilot Settings Callbacks */
static void
fill_widgets (EToDoConduitContext *ctxt)
{
    if (ctxt->cfg->source)
        e_pilot_settings_set_source (E_PILOT_SETTINGS (ctxt->ps),
                         ctxt->cfg->source);
    e_pilot_settings_set_secret (E_PILOT_SETTINGS (ctxt->ps),
                     ctxt->cfg->secret);

    e_todo_gui_fill_widgets (ctxt->gui, ctxt->cfg);
}

static gint
create_settings_window (GnomePilotConduit *conduit,
            GtkWidget *parent,
            EToDoConduitContext *ctxt)
{
    LOG (g_message ( "create_settings_window" ));

    if (!ctxt->cfg->source_list)
        return -1;

    ctxt->ps = e_pilot_settings_new (ctxt->cfg->source_list);
    ctxt->gui = e_todo_gui_new (E_PILOT_SETTINGS (ctxt->ps));

    gtk_container_add (GTK_CONTAINER (parent), ctxt->ps);
    gtk_widget_show (ctxt->ps);

    fill_widgets (ctxt);

    return 0;
}

static void
display_settings (GnomePilotConduit *conduit, EToDoConduitContext *ctxt)
{
    LOG (g_message ( "display_settings" ));

    fill_widgets (ctxt);
}

static void
save_settings    (GnomePilotConduit *conduit, EToDoConduitContext *ctxt)
{
    LOG (g_message ( "save_settings" ));

    if (ctxt->new_cfg->source)
        g_object_unref (ctxt->new_cfg->source);
    ctxt->new_cfg->source = e_pilot_settings_get_source (E_PILOT_SETTINGS (ctxt->ps));
    g_object_ref (ctxt->new_cfg->source);
    ctxt->new_cfg->secret = e_pilot_settings_get_secret (E_PILOT_SETTINGS (ctxt->ps));
    e_todo_gui_fill_config (ctxt->gui, ctxt->new_cfg);

    todoconduit_save_configuration (ctxt->new_cfg);
}

static void
revert_settings  (GnomePilotConduit *conduit, EToDoConduitContext *ctxt)
{
    LOG (g_message ( "revert_settings" ));

    todoconduit_save_configuration (ctxt->cfg);
    todoconduit_destroy_configuration (ctxt->new_cfg);
    ctxt->new_cfg = todoconduit_dupe_configuration (ctxt->cfg);
}

GnomePilotConduit *
conduit_get_gpilot_conduit (guint32 pilot_id)
{
    GtkObject *retval;
    EToDoConduitContext *ctxt;

    LOG (g_message ( "in todo's conduit_get_gpilot_conduit\n" ));

    retval = gnome_pilot_conduit_sync_abs_new ("ToDoDB", 0x746F646F);
    g_assert (retval != NULL);

    ctxt = e_todo_context_new (pilot_id);
    g_object_set_data (G_OBJECT (retval), "todoconduit_context", ctxt);

    g_signal_connect (retval, "pre_sync", G_CALLBACK (pre_sync), ctxt);
    g_signal_connect (retval, "post_sync", G_CALLBACK (post_sync), ctxt);

    g_signal_connect (retval, "set_pilot_id", G_CALLBACK (set_pilot_id), ctxt);
    g_signal_connect (retval, "set_status_cleared", G_CALLBACK (set_status_cleared), ctxt);

    g_signal_connect (retval, "for_each", G_CALLBACK (for_each), ctxt);
    g_signal_connect (retval, "for_each_modified", G_CALLBACK (for_each_modified), ctxt);
    g_signal_connect (retval, "compare", G_CALLBACK (compare), ctxt);

    g_signal_connect (retval, "add_record", G_CALLBACK (add_record), ctxt);
    g_signal_connect (retval, "replace_record", G_CALLBACK (replace_record), ctxt);
    g_signal_connect (retval, "delete_record", G_CALLBACK (delete_record), ctxt);
    g_signal_connect (retval, "archive_record", G_CALLBACK (archive_record), ctxt);

    g_signal_connect (retval, "match", G_CALLBACK (match), ctxt);
    g_signal_connect (retval, "free_match", G_CALLBACK (free_match), ctxt);

    g_signal_connect (retval, "prepare", G_CALLBACK (prepare), ctxt);

    /* Gui Settings */
    g_signal_connect (retval, "create_settings_window", G_CALLBACK (create_settings_window), ctxt);
    g_signal_connect (retval, "display_settings", G_CALLBACK (display_settings), ctxt);
    g_signal_connect (retval, "save_settings", G_CALLBACK (save_settings), ctxt);
    g_signal_connect (retval, "revert_settings", G_CALLBACK (revert_settings), ctxt);

    return GNOME_PILOT_CONDUIT (retval);
}

void
conduit_destroy_gpilot_conduit (GnomePilotConduit *conduit)
{
    GtkObject *obj = GTK_OBJECT (conduit);
    EToDoConduitContext *ctxt;

    ctxt = g_object_get_data (G_OBJECT (obj), "todoconduit_context");
    e_todo_context_destroy (ctxt);

    gtk_object_destroy (obj);
}