/*
* Evolution addressbook - Address Conduit
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) version 3.
*
* 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with the program; if not, see <http://www.gnu.org/licenses/>
*
*
* Authors:
* Eskil Heyn Olsen <deity@eskil.dk>
* JP Rosevear <jpr@ximian.com>
*
* Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
*
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#define G_LOG_DOMAIN "eaddrconduit"
#include <libxml/parser.h>
#include <pi-source.h>
#include <pi-socket.h>
#include <pi-dlp.h>
#include <pi-address.h>
#include <pi-appinfo.h>
#include <libedataserver/e-categories.h>
#include <libedataserver/e-url.h>
#include <libedataserverui/e-passwords.h>
#include <libebook/e-book.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-dialog-widgets.h>
#include <e-pilot-map.h>
#include <e-pilot-settings.h>
#include <e-pilot-util.h>
GnomePilotConduit * conduit_get_gpilot_conduit (guint32);
void conduit_destroy_gpilot_conduit (GnomePilotConduit*);
#define CONDUIT_VERSION "0.1.2"
#define DEBUG_CONDUIT 1
/* #undef DEBUG_CONDUIT */
#ifdef DEBUG_CONDUIT
#define LOG(x) x
#else
#define LOG(x)
#endif
#define WARN g_warning
#define INFO g_message
#define PILOT_MAX_CATEGORIES 16
enum {
LABEL_WORK,
LABEL_HOME,
LABEL_FAX,
LABEL_OTHER,
LABEL_EMAIL,
LABEL_MAIN,
LABEL_PAGER,
LABEL_MOBILE
};
static EContactField priority [] = {
E_CONTACT_PHONE_BUSINESS,
E_CONTACT_PHONE_HOME,
E_CONTACT_PHONE_BUSINESS_FAX,
E_CONTACT_EMAIL_1,
E_CONTACT_PHONE_PAGER,
E_CONTACT_PHONE_MOBILE,
E_CONTACT_PHONE_BUSINESS_2,
E_CONTACT_PHONE_HOME_2,
E_CONTACT_PHONE_HOME_FAX,
E_CONTACT_EMAIL_2,
E_CONTACT_PHONE_OTHER,
E_CONTACT_PHONE_PRIMARY,
E_CONTACT_PHONE_OTHER_FAX,
E_CONTACT_EMAIL_3,
E_CONTACT_FIELD_LAST
};
static gint priority_label [] = {
LABEL_WORK,
LABEL_HOME,
LABEL_FAX,
LABEL_EMAIL,
LABEL_PAGER,
LABEL_MOBILE,
LABEL_WORK,
LABEL_HOME,
LABEL_FAX,
LABEL_EMAIL,
LABEL_OTHER,
LABEL_MAIN,
LABEL_FAX,
LABEL_EMAIL,
-1
};
typedef struct _EAddrLocalRecord EAddrLocalRecord;
typedef struct _EAddrConduitCfg EAddrConduitCfg;
typedef struct _EAddrConduitGui EAddrConduitGui;
typedef struct _EAddrConduitContext EAddrConduitContext;
/* Local Record */
struct _EAddrLocalRecord {
/* 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 ECard object */
EContact *contact;
/* pilot-link address structure, used for implementing Transmit. */
struct Address *addr;
};
static void
addrconduit_destroy_record (EAddrLocalRecord *local)
{
g_object_unref (local->contact);
free_Address (local->addr);
g_free (local->addr);
g_free (local);
}
/* Configuration */
struct _EAddrConduitCfg {
guint32 pilot_id;
GnomePilotConduitSyncType sync_type;
ESourceList *source_list;
ESource *source;
gboolean secret;
EContactField default_address;
gchar *last_uri;
};
/* NOTE: copied from calendar/conduit/common/libecalendar-common-conduit.c
* Adds a category to the category app info structure (name and ID),
* sets category->renamed[i] to true if possible to rename.
*
* This will be packed and written to the app info block during post_sync.
*
* NOTE: cat_to_add MUST be in PCHAR format. Evolution stores categories
* in UTF-8 format. A conversion must take place before calling
* this function (see e_pilot_utf8_to_pchar() in e-pilot-util.c)
*/
static gint
e_pilot_add_category_if_possible(gchar *cat_to_add, struct CategoryAppInfo *category)
{
gint i, j;
gint retval = 0; /* 0 is the Unfiled category */
LOG(g_message("e_pilot_add_category_if_possible\n"));
for(i=0; i<PILOT_MAX_CATEGORIES; i++){
/* if strlen is 0, then the category is empty
the PalmOS doesn't let 0-length strings for
categories */
if(strlen(category->name[i]) == 0){
gint cat_to_add_len;
gint desktopUniqueID;
cat_to_add_len = strlen(cat_to_add);
retval = i;
if(cat_to_add_len > 15){
gchar tmpstr[16];
strncpy(tmpstr, cat_to_add,16);
tmpstr[16] = '\0';
/* Have to truncate the category name */
LOG (g_warning ("*** Desktop category '%s' too long for PDA."
"Truncating to '%s' ***",cat_to_add, tmpstr));
cat_to_add_len = 15;
}
/* only 15 characters for category, 16th is
* '\0' can't do direct mem transfer due to
* declaration type
*/
for(j=0; j<cat_to_add_len; j++){
category->name[i][j] = cat_to_add[j];
}
for(j=cat_to_add_len; j<16; j++) {
category->name[i][j] = '\0';
}
/* find a desktop id that is not in use between 128 and 255 */
/* XXX desktopUniqueID should really be used for tracking
* categories across renaming operations, but as Evo
* doesn't have a concept of category UIDs or renaming,
* we don't have much use for it at present.
*/
for (desktopUniqueID = 128; desktopUniqueID <= 255; desktopUniqueID++) {
gint found = 0;
for(j=0; j<PILOT_MAX_CATEGORIES; j++){
if (category->ID[j] == desktopUniqueID) {
found = 1;
}
}
if (found == 0) {
break;
}
if (desktopUniqueID == 255) {
LOG (g_warning ("*** no more categories available on PC ***"));
}
}
category->ID[i] = desktopUniqueID;
category->renamed[i] = TRUE;
break;
}
}
if(retval == 0){
LOG (g_warning ("*** not adding category - category list already full ***"));
}
return retval;
}
/*
* conversion from an evolution category to a palm category.
* we iterate over the list of desktop categories to see if
* there is matching palm category. If not, we create
* a new palm category from the first evo category.
* If a category was not found and could not be created,
* or if there are no desktop categories, then *pilotCategory
* is set to zero ("Unfiled").
*/
static
void e_pilot_local_category_to_remote(gint * pilotCategory,
EContact *contact, struct CategoryAppInfo *category)
{
GList *c_list = NULL, *l;
gchar * category_string, *first_category = NULL;
gint i;
*pilotCategory = 0; /* default to "Unfiled" */
c_list = e_contact_get (contact, E_CONTACT_CATEGORY_LIST);
if (c_list) {
/* remember the first category */
first_category = e_pilot_utf8_to_pchar((const gchar *)c_list->data);
}
l = c_list;
while(l && *pilotCategory == 0) {
/* list != 0, so at least 1 category is assigned */
category_string = e_pilot_utf8_to_pchar((const gchar *)l->data);
for (i=0; i < PILOT_MAX_CATEGORIES; i++) {
/* only 15 chars + nul in palm category name */
if (strncmp(category_string,category->name[i], 15) == 0) {
*pilotCategory = i;
break;
}
}
g_free(category_string);
l = l->next;
}
if (*pilotCategory == 0 && first_category && *first_category) {
/* category not available on palm, try to create it */
/* XXX e_pilot_add_category_if_possible can be called
* when we're doing a 'copy from pilot'. This should
* really be avoided.
*/
*pilotCategory = e_pilot_add_category_if_possible(
first_category,category);
g_free(first_category);
}
g_list_foreach (c_list, (GFunc)g_free, NULL);
g_list_free(c_list);
/*end category*/
}
/*
* conversion from a palm category to an evolution category
*/
static
void e_pilot_remote_category_to_local(gint pilotCategory,
EContact *contact, struct CategoryAppInfo *category)
{
gchar *category_string = NULL;
if (pilotCategory != 0) {
/* pda has category assigned */
category_string = e_pilot_utf8_from_pchar(
category->name[pilotCategory]);
LOG(g_message("PDA Category: %s\n", category_string));
if(e_categories_exist(category_string) == FALSE){
/* add if it doesn't exist */
LOG(g_message("Category created on pc\n"));
e_categories_add(category_string, NULL, NULL, TRUE);
}
}
/* store the data in EContact */
if (category_string == NULL) {
/* remove categories from desktop. */
e_contact_set (contact, E_CONTACT_CATEGORY_LIST, NULL);
}
else {
/* Since the first first category is synced with the PDA, add the PDA's
* category to the beginning of the category list */
GList *c_list = NULL;
GList *newcat_in_list;
c_list = e_contact_get (contact, E_CONTACT_CATEGORY_LIST);
/* remove old item from list so we don't have duplicate entries */
newcat_in_list = g_list_find_custom(c_list, category_string, (GCompareFunc)strcmp);
if(newcat_in_list != NULL)
{
g_free(newcat_in_list->data);
c_list = g_list_remove(c_list, newcat_in_list->data);
}
c_list = g_list_prepend(c_list, category_string);
e_contact_set (contact, E_CONTACT_CATEGORY_LIST, c_list);
g_list_foreach (c_list, (GFunc)g_free, NULL);
g_list_free(c_list);
}
}
static gchar *
build_setup_path (const gchar *path, const gchar *key)
{
return g_strconcat ("/apps/evolution/conduit", "/", path, "/", key, NULL);
}
static gboolean
e_pilot_setup_get_bool (const gchar *path, const gchar *key, gboolean def)
{
gboolean res = def;
gchar *full_path;
GConfValue *value;
GConfClient *gconf;
g_return_val_if_fail (path != NULL, res);
g_return_val_if_fail (key != NULL, res);
gconf = gconf_client_get_default ();
full_path = build_setup_path (path, key);
value = gconf_client_get (gconf, full_path, NULL);
if (value) {
if (value->type == GCONF_VALUE_BOOL)
res = gconf_value_get_bool (value);
gconf_value_free (value);
}
g_free (full_path);
g_object_unref (gconf);
return res;
}
static void
e_pilot_setup_set_bool (const gchar *path, const gchar *key, gboolean value)
{
GError *error = NULL;
gchar *full_path;
GConfClient *gconf;
g_return_if_fail (path != NULL);
g_return_if_fail (key != NULL);
gconf = gconf_client_get_default ();
full_path = build_setup_path (path, key);
gconf_client_set_bool (gconf, full_path, value, &error);
g_free (full_path);
g_object_unref (gconf);
if (error) {
g_message ("%s: Failed to write: %s", G_STRFUNC, error->message);
g_error_free (error);
}
}
static gchar *
e_pilot_setup_get_string (const gchar *path, const gchar *key, const gchar *def)
{
gchar *res = g_strdup (def);
gchar *full_path;
GConfValue *value;
GConfClient *gconf;
g_return_val_if_fail (path != NULL, res);
g_return_val_if_fail (key != NULL, res);
gconf = gconf_client_get_default ();
full_path = build_setup_path (path, key);
value = gconf_client_get (gconf, full_path, NULL);
if (value) {
if (value->type == GCONF_VALUE_STRING) {
g_free (res);
res = g_strdup (gconf_value_get_string (value));
}
gconf_value_free (value);
}
g_free (full_path);
g_object_unref (gconf);
return res;
}
static void
e_pilot_setup_set_string (const gchar *path, const gchar *key, const gchar *value)
{
GError *error = NULL;
gchar *full_path;
GConfClient *gconf;
g_return_if_fail (path != NULL);
g_return_if_fail (key != NULL);
g_return_if_fail (value != NULL);
gconf = gconf_client_get_default ();
full_path = build_setup_path (path, key);
gconf_client_set_string (gconf, full_path, value, &error);
g_free (full_path);
g_object_unref (gconf);
if (error) {
g_message ("%s: Failed to write: %s", G_STRFUNC, error->message);
g_error_free (error);
}
}
static EAddrConduitCfg *
addrconduit_load_configuration (guint32 pilot_id)
{
EAddrConduitCfg *c;
GnomePilotConduitManagement *management;
GnomePilotConduitConfig *config;
gchar *address, prefix[256];
g_snprintf (prefix, 255, "e-address-conduit/Pilot_%u", pilot_id);
c = g_new0 (EAddrConduitCfg,1);
g_assert (c != NULL);
c->pilot_id = pilot_id;
management = gnome_pilot_conduit_management_new ((gchar*)"e_address_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 */
if (!e_book_get_addressbooks (&c->source_list, 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 = e_pilot_setup_get_bool (prefix, "secret", FALSE);
address = e_pilot_setup_get_string (prefix, "default_address", "business");
if (!address || !strcmp (address, "business"))
c->default_address = E_CONTACT_ADDRESS_WORK;
else if (!strcmp (address, "home"))
c->default_address = E_CONTACT_ADDRESS_HOME;
else if (!strcmp (address, "other"))
c->default_address = E_CONTACT_ADDRESS_OTHER;
g_free (address);
c->last_uri = e_pilot_setup_get_string (prefix, "last_uri", NULL);
return c;
}
static void
addrconduit_save_configuration (EAddrConduitCfg *c)
{
gchar prefix[256];
g_snprintf (prefix, 255, "e-address-conduit/Pilot_%u", c->pilot_id);
e_pilot_set_sync_source (c->source_list, c->source);
e_pilot_setup_set_bool (prefix, "secret", c->secret);
switch (c->default_address) {
case E_CONTACT_ADDRESS_WORK:
e_pilot_setup_set_string (prefix, "default_address", "business");
break;
case E_CONTACT_ADDRESS_HOME:
e_pilot_setup_set_string (prefix, "default_address", "home");
break;
case E_CONTACT_ADDRESS_OTHER:
e_pilot_setup_set_string (prefix, "default_address", "other");
break;
default:
g_warning ("Unknown default_address value");
}
e_pilot_setup_set_string (prefix, "last_uri", c->last_uri ? c->last_uri : "");
}
static EAddrConduitCfg*
addrconduit_dupe_configuration (EAddrConduitCfg *c)
{
EAddrConduitCfg *retval;
g_return_val_if_fail (c != NULL, NULL);
retval = g_new0 (EAddrConduitCfg, 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->default_address = c->default_address;
retval->last_uri = g_strdup (c->last_uri);
return retval;
}
static void
addrconduit_destroy_configuration (EAddrConduitCfg *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 _EAddrConduitGui {
GtkWidget *default_address;
};
static EAddrConduitGui *
e_addr_gui_new (EPilotSettings *ps)
{
EAddrConduitGui *gui;
GtkWidget *lbl;
gint rows, i;
static const gchar *items[] = {"Business", "Home", "Other", NULL};
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 (EAddrConduitGui, 1);
rows = E_PILOT_SETTINGS_TABLE_ROWS;
lbl = gtk_label_new (_("Default Sync Address:"));
gtk_misc_set_alignment (GTK_MISC (lbl), 0.0, 0.5);
gui->default_address = gtk_combo_box_new_text ();
for (i = 0; items[i] != NULL; i++) {
gtk_combo_box_append_text (GTK_COMBO_BOX (gui->default_address), items[i]);
}
gtk_table_attach_defaults (GTK_TABLE (ps), lbl, 0, 1, rows, rows + 1);
gtk_table_attach_defaults (GTK_TABLE (ps), gui->default_address, 1, 2, rows, rows + 1);
gtk_widget_show (lbl);
gtk_widget_show (gui->default_address);
return gui;
}
static const gint default_address_map[] = {
E_CONTACT_ADDRESS_WORK,
E_CONTACT_ADDRESS_HOME,
E_CONTACT_ADDRESS_OTHER,
-1
};
static void
e_addr_gui_fill_widgets (EAddrConduitGui *gui, EAddrConduitCfg *cfg)
{
g_return_if_fail (gui != NULL);
g_return_if_fail (cfg != NULL);
e_dialog_combo_box_set (gui->default_address,
cfg->default_address,
default_address_map);
}
static void
e_addr_gui_fill_config (EAddrConduitGui *gui, EAddrConduitCfg *cfg)
{
g_return_if_fail (gui != NULL);
g_return_if_fail (cfg != NULL);
cfg->default_address = e_dialog_combo_box_get (gui->default_address,
default_address_map);
}
static void
e_addr_gui_destroy (EAddrConduitGui *gui)
{
g_free (gui);
}
/* Context */
struct _EAddrConduitContext {
GnomePilotDBInfo *dbi;
EAddrConduitCfg *cfg;
EAddrConduitCfg *new_cfg;
EAddrConduitGui *gui;
GtkWidget *ps;
struct AddressAppInfo ai;
EBook *ebook;
GList *cards;
GList *changed;
GHashTable *changed_hash;
GList *locals;
EPilotMap *map;
};
static EAddrConduitContext *
e_addr_context_new (guint32 pilot_id)
{
EAddrConduitContext *ctxt = g_new0 (EAddrConduitContext, 1);
ctxt->cfg = addrconduit_load_configuration (pilot_id);
ctxt->new_cfg = addrconduit_dupe_configuration (ctxt->cfg);
ctxt->gui = NULL;
ctxt->ps = NULL;
ctxt->ebook = NULL;
ctxt->cards = NULL;
ctxt->changed_hash = NULL;
ctxt->changed = NULL;
ctxt->locals = NULL;
ctxt->map = NULL;
return ctxt;
}
static void
e_addr_context_destroy (EAddrConduitContext *ctxt)
{
GList *l;
g_return_if_fail (ctxt != NULL);
if (ctxt->cfg != NULL)
addrconduit_destroy_configuration (ctxt->cfg);
if (ctxt->new_cfg != NULL)
addrconduit_destroy_configuration (ctxt->new_cfg);
if (ctxt->gui != NULL)
e_addr_gui_destroy (ctxt->gui);
if (ctxt->ebook != NULL)
g_object_unref (ctxt->ebook);
if (ctxt->cards != NULL) {
for (l = ctxt->cards; l != NULL; l = l->next)
g_object_unref (l->data);
g_list_free (ctxt->cards);
}
if (ctxt->changed_hash != NULL)
g_hash_table_destroy (ctxt->changed_hash);
if (ctxt->changed != NULL)
e_book_free_change_list (ctxt->changed);
if (ctxt->locals != NULL) {
for (l = ctxt->locals; l != NULL; l = l->next)
addrconduit_destroy_record (l->data);
g_list_free (ctxt->locals);
}
if (ctxt->map != NULL)
e_pilot_map_destroy (ctxt->map);
g_free (ctxt);
}
/* Debug routines */
static const gchar *
print_local (EAddrLocalRecord *local)
{
static gchar buff[ 4096 ];
if (local == NULL) {
sprintf (buff, "[NULL]");
return buff;
}
if (local->addr) {
g_snprintf (buff, 4096, "['%s' '%s' '%s']",
local->addr->entry[entryLastname] ?
local->addr->entry[entryLastname] : "",
local->addr->entry[entryFirstname] ?
local->addr->entry[entryFirstname] : "",
local->addr->entry[entryCompany] ?
local->addr->entry[entryCompany] : "");
return buff;
}
return "";
}
static gchar *print_remote (GnomePilotRecord *remote)
{
static gchar buff[ 4096 ];
struct Address addr;
#ifdef PILOT_LINK_0_12
pi_buffer_t * buffer;
#endif
if (remote == NULL) {
sprintf (buff, "[NULL]");
return buff;
}
memset (&addr, 0, sizeof (struct Address));
#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_Address (&addr, buffer, address_v1);
pi_buffer_free(buffer);
#else
unpack_Address (&addr, remote->record, remote->length);
#endif
g_snprintf (buff, 4096, "['%s' '%s' '%s']",
addr.entry[entryLastname] ?
addr.entry[entryLastname] : "",
addr.entry[entryFirstname] ?
addr.entry[entryFirstname] : "",
addr.entry[entryCompany] ?
addr.entry[entryCompany] : "");
free_Address (&addr);
return buff;
}
/* Utility routines */
static gchar *
map_name (EAddrConduitContext *ctxt)
{
gchar *filename = NULL;
filename = g_strdup_printf ("%s/.evolution/addressbook/local/system/pilot-map-%d.xml", g_get_home_dir (), ctxt->cfg->pilot_id);
return filename;
}
static GList *
next_changed_item (EAddrConduitContext *ctxt, GList *changes)
{
EBookChange *ebc;
GList *l;
for (l = changes; l != NULL; l = l->next) {
ebc = l->data;
if (g_hash_table_lookup (ctxt->changed_hash, e_contact_get_const (ebc->contact, E_CONTACT_UID)))
return l;
}
return NULL;
}
static EContactField
get_next_mail (EContactField *field)
{
if (field == NULL)
return E_CONTACT_EMAIL_1;
switch (*field) {
case E_CONTACT_EMAIL_1:
return E_CONTACT_EMAIL_2;
case E_CONTACT_EMAIL_2:
return E_CONTACT_EMAIL_3;
default:
break;
}
return E_CONTACT_FIELD_LAST;
}
static EContactField
get_next_home (EContactField *field)
{
if (field == NULL)
return E_CONTACT_PHONE_HOME;
switch (*field) {
case E_CONTACT_PHONE_HOME:
return E_CONTACT_PHONE_HOME_2;
default:
break;
}
return E_CONTACT_FIELD_LAST;
}
static EContactField
get_next_work (EContactField *field)
{
if (field == NULL)
return E_CONTACT_PHONE_BUSINESS;
switch (*field) {
case E_CONTACT_PHONE_BUSINESS:
return E_CONTACT_PHONE_BUSINESS_2;
default:
break;
}
return E_CONTACT_FIELD_LAST;
}
static EContactField
get_next_fax (EContactField *field)
{
if (field == NULL)
return E_CONTACT_PHONE_BUSINESS_FAX;
switch (*field) {
case E_CONTACT_PHONE_BUSINESS_FAX:
return E_CONTACT_PHONE_HOME_FAX;
case E_CONTACT_PHONE_HOME_FAX:
return E_CONTACT_PHONE_OTHER_FAX;
default:
break;
}
return E_CONTACT_FIELD_LAST;
}
static EContactField
get_next_other (EContactField *field)
{
if (field == NULL)
return E_CONTACT_PHONE_OTHER;
return E_CONTACT_FIELD_LAST;
}
static EContactField
get_next_main (EContactField *field)
{
if (field == NULL)
return E_CONTACT_PHONE_PRIMARY;
return E_CONTACT_FIELD_LAST;
}
static EContactField
get_next_pager (EContactField *field)
{
if (field == NULL)
return E_CONTACT_PHONE_PAGER;
return E_CONTACT_FIELD_LAST;
}
static EContactField
get_next_mobile (EContactField *field)
{
if (field == NULL)
return E_CONTACT_PHONE_MOBILE;
return E_CONTACT_FIELD_LAST;
}
static void
get_next_init (EContactField *next_mail,
EContactField *next_home,
EContactField *next_work,
EContactField *next_fax,
EContactField *next_other,
EContactField *next_main,
EContactField *next_pager,
EContactField *next_mobile)
{
*next_mail = get_next_mail (NULL);
*next_home = get_next_home (NULL);
*next_work = get_next_work (NULL);
*next_fax = get_next_fax (NULL);
*next_other = get_next_other (NULL);
*next_main = get_next_main (NULL);
*next_pager = get_next_pager (NULL);
*next_mobile = get_next_mobile (NULL);
}
static gboolean
is_next_done (EContactField field)
{
if (field == E_CONTACT_FIELD_LAST)
return TRUE;
return FALSE;
}
static gboolean
is_syncable (EAddrConduitContext *ctxt, EAddrLocalRecord *local)
{
EContactField next_mail, next_home, next_work, next_fax;
EContactField next_other, next_main, next_pager, next_mobile;
gboolean syncable = TRUE;
gint i, l = 0;
/* See if there are fields we can't sync or not in priority order */
get_next_init (&next_mail, &next_home, &next_work, &next_fax,
&next_other, &next_main, &next_pager, &next_mobile);
for (i = entryPhone1; i <= entryPhone5 && syncable; i++) {
gint phonelabel = local->addr->phoneLabel[i - entryPhone1];
const gchar *phone_str = local->addr->entry[i];
gboolean empty = !(phone_str && *phone_str);
if (empty)
continue;
for (; priority_label[l] != -1; l++)
if (phonelabel == priority_label[l])
break;
if (priority_label[l] == -1) {
syncable = FALSE;
continue;
}
if (phonelabel == LABEL_EMAIL) {
if (is_next_done (next_mail) || next_mail != priority[l]) {
syncable = FALSE;
break;
}
next_mail = get_next_mail (&next_mail);
} else if (phonelabel == LABEL_HOME) {
if (is_next_done (next_home) || next_home != priority[l]) {
syncable = FALSE;
break;
}
next_home = get_next_home (&next_home);
} else if (phonelabel == LABEL_WORK) {
if (is_next_done (next_work) || next_work != priority[l]) {
syncable = FALSE;
break;
}
next_work = get_next_work (&next_work);
} else if (phonelabel == LABEL_FAX) {
if (is_next_done (next_fax) || next_fax != priority[l]) {
syncable = FALSE;
break;
}
next_fax = get_next_fax (&next_fax);
} else if (phonelabel == LABEL_OTHER) {
if (is_next_done (next_other) || next_other != priority[l]) {
syncable = FALSE;
break;
}
next_other = get_next_other (&next_other);
} else if (phonelabel == LABEL_MAIN) {
if (is_next_done (next_main) || next_main != priority[l]) {
syncable = FALSE;
break;
}
next_main = get_next_main (&next_main);
} else if (phonelabel == LABEL_PAGER) {
if (is_next_done (next_pager) || next_pager != priority[l]) {
syncable = FALSE;
break;
}
next_pager = get_next_pager (&next_pager);
} else if (phonelabel == LABEL_MOBILE) {
if (is_next_done (next_mobile) || next_mobile != priority[l]) {
syncable = FALSE;
break;
}
next_mobile = get_next_mobile (&next_mobile);
}
}
return syncable;
}
static void
set_contact_text (EContact *contact, EContactField field, struct Address address, gint entry)
{
gchar *text = NULL;
if (address.entry[entry])
text = e_pilot_utf8_from_pchar (address.entry[entry]);
e_contact_set (contact, field, text);
g_free (text);
}
static gchar *
get_entry_text (struct Address address, gint entry)
{
if (address.entry[entry])
return e_pilot_utf8_from_pchar (address.entry[entry]);
return NULL;
}
static void
clear_entry_text (struct Address address, gint field)
{
if (address.entry[field]) {
free (address.entry[field]);
address.entry[field] = NULL;
}
}
static void
compute_status (EAddrConduitContext *ctxt, EAddrLocalRecord *local, const gchar *uid)
{
EBookChange *ebc;
local->local.archived = FALSE;
local->local.secret = FALSE;
ebc = g_hash_table_lookup (ctxt->changed_hash, uid);
if (ebc == NULL) {
local->local.attr = GnomePilotRecordNothing;
return;
}
switch (ebc->change_type) {
case E_BOOK_CHANGE_CARD_ADDED:
local->local.attr = GnomePilotRecordNew;
break;
case E_BOOK_CHANGE_CARD_MODIFIED:
local->local.attr = GnomePilotRecordModified;
break;
case E_BOOK_CHANGE_CARD_DELETED:
local->local.attr = GnomePilotRecordDeleted;
break;
}
}
static GnomePilotRecord
local_record_to_pilot_record (EAddrLocalRecord *local,
EAddrConduitContext *ctxt)
{
GnomePilotRecord p;
#ifdef PILOT_LINK_0_12
pi_buffer_t * buffer;
#else
static gchar record[0xffff];
#endif
g_assert (local->addr != NULL );
LOG (g_message ( "local_record_to_pilot_record\n" ));
memset (&p, 0, sizeof (GnomePilotRecord));
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_Address (local->addr, buffer, address_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 = (guchar *)record;
p.length = pack_Address (local->addr, p.record, 0xffff);
#endif
return p;
}
static void
local_record_from_ecard (EAddrLocalRecord *local, EContact *contact, EAddrConduitContext *ctxt)
{
EContactAddress *address = NULL;
gint phone = entryPhone1;
EContactField field;
gboolean syncable;
gint i;
g_return_if_fail (local != NULL);
g_return_if_fail (contact != NULL);
local->contact = g_object_ref (contact);
local->local.ID = e_pilot_map_lookup_pid (ctxt->map, e_contact_get_const (contact, E_CONTACT_UID), TRUE);
compute_status (ctxt, local, e_contact_get_const (contact, E_CONTACT_UID));
local->addr = g_new0 (struct Address, 1);
/* Handle the fields and category we don't sync by making sure
* we don't overwrite them
*/
if (local->local.ID != 0) {
struct Address addr;
gint 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
gchar 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;
memset (&addr, 0, sizeof (struct Address));
#ifdef PILOT_LINK_0_12
unpack_Address (&addr, record, address_v1);
#else
unpack_Address (&addr, (guchar *)record, 0xffff);
#endif
for (i = 0; i < 5; i++) {
if (addr.entry[entryPhone1 + i])
local->addr->entry[entryPhone1 + i] =
strdup (addr.entry[entryPhone1 + i]);
local->addr->phoneLabel[i] = addr.phoneLabel[i];
}
local->addr->showPhone = addr.showPhone;
for (i = 0; i < 4; i++) {
if (addr.entry[entryCustom1 + i])
local->addr->entry[entryCustom1 + i] =
strdup (addr.entry[entryCustom1 + i]);
}
free_Address (&addr);
}
#ifdef PILOT_LINK_0_12
pi_buffer_free (record);
#endif
}
/*Category support*/
e_pilot_local_category_to_remote(&(local->local.category), contact, &(ctxt->ai.category));
local->addr->entry[entryFirstname] = e_pilot_utf8_to_pchar (e_contact_get_const (contact, E_CONTACT_GIVEN_NAME));
local->addr->entry[entryLastname] = e_pilot_utf8_to_pchar (e_contact_get_const (contact, E_CONTACT_FAMILY_NAME));
local->addr->entry[entryCompany] = e_pilot_utf8_to_pchar (e_contact_get_const (contact, E_CONTACT_ORG));
local->addr->entry[entryTitle] = e_pilot_utf8_to_pchar (e_contact_get_const (contact, E_CONTACT_TITLE));
/* See if the default has something in it */
if ((address = e_contact_get (contact, ctxt->cfg->default_address))) {
field = ctxt->cfg->default_address;
} else {
/* Try to find a non-empty address field */
for (field = E_CONTACT_FIRST_ADDRESS_ID; field <= E_CONTACT_LAST_ADDRESS_ID; field++) {
if ((address = e_contact_get (contact, field)))
break;
}
}
if (address) {
gchar *add;
/* If the address has 2 lines, make sure both get added */
if (address->ext != NULL &&
strlen (address->ext) > 0) {
add = g_strconcat (address->street, "\n", address->ext, NULL);
LOG (g_warning ("Address has two lines: [%s]\n", add));
}
else {
add = g_strdup (address->street);
LOG (g_warning ("Address has only one line: [%s]\n", add));
}
local->addr->entry[entryAddress] = e_pilot_utf8_to_pchar (add);
g_free (add);
local->addr->entry[entryCity] = e_pilot_utf8_to_pchar (address->locality);
local->addr->entry[entryState] = e_pilot_utf8_to_pchar (address->region);
local->addr->entry[entryZip] = e_pilot_utf8_to_pchar (address->code);
local->addr->entry[entryCountry] = e_pilot_utf8_to_pchar (address->country);
e_contact_address_free (address);
}
/* Phone numbers */
/* See if everything is syncable */
syncable = is_syncable (ctxt, local);
if (syncable) {
INFO ("Syncable");
/* Sync by priority */
for (i = 0, phone = entryPhone1;
priority[i] != E_CONTACT_FIELD_LAST && phone <= entryPhone5; i++) {
const gchar *phone_str;
phone_str = e_contact_get_const (contact, priority[i]);
if (phone_str && *phone_str) {
clear_entry_text (*local->addr, phone);
local->addr->entry[phone] = e_pilot_utf8_to_pchar (phone_str);
local->addr->phoneLabel[phone - entryPhone1] = priority_label[i];
phone++;
}
}
for (; phone <= entryPhone5; phone++)
local->addr->phoneLabel[phone - entryPhone1] = phone - entryPhone1;
local->addr->showPhone = 0;
} else {
EContactField next_mail, next_home, next_work, next_fax;
EContactField next_other, next_main, next_pager, next_mobile;
INFO ("Not Syncable");
get_next_init (&next_mail, &next_home, &next_work, &next_fax,
&next_other, &next_main, &next_pager, &next_mobile);
/* Not completely syncable, so do the best we can */
for (i = entryPhone1; i <= entryPhone5; i++) {
gint phonelabel = local->addr->phoneLabel[i - entryPhone1];
const gchar *phone_str = NULL;
if (phonelabel == LABEL_EMAIL && !is_next_done (next_mail)) {
phone_str = e_contact_get_const (contact, next_mail);
next_mail = get_next_mail (&next_mail);
} else if (phonelabel == LABEL_HOME && !is_next_done (next_home)) {
phone_str = e_contact_get_const (contact, next_home);
next_home = get_next_home (&next_home);
} else if (phonelabel == LABEL_WORK && !is_next_done (next_work)) {
phone_str = e_contact_get_const (contact, next_work);
next_work = get_next_work (&next_work);
} else if (phonelabel == LABEL_FAX && !is_next_done (next_fax)) {
phone_str = e_contact_get_const (contact, next_fax);
next_fax = get_next_fax (&next_fax);
} else if (phonelabel == LABEL_OTHER && !is_next_done (next_other)) {
phone_str = e_contact_get_const (contact, next_other);
next_other = get_next_other (&next_other);
} else if (phonelabel == LABEL_MAIN && !is_next_done (next_main)) {
phone_str = e_contact_get_const (contact, next_main);
next_main = get_next_main (&next_main);
} else if (phonelabel == LABEL_PAGER && !is_next_done (next_pager)) {
phone_str = e_contact_get_const (contact, next_pager);
next_pager = get_next_pager (&next_pager);
} else if (phonelabel == LABEL_MOBILE && !is_next_done (next_mobile)) {
phone_str = e_contact_get_const (contact, next_mobile);
next_mobile = get_next_mobile (&next_mobile);
}
if (phone_str && *phone_str) {
clear_entry_text (*local->addr, i);
local->addr->entry[i] = e_pilot_utf8_to_pchar (phone_str);
}
}
}
/* Note */
local->addr->entry[entryNote] = e_pilot_utf8_to_pchar (e_contact_get_const (contact, E_CONTACT_NOTE));
}
static void
local_record_from_uid (EAddrLocalRecord *local,
const gchar *uid,
EAddrConduitContext *ctxt)
{
EContact *contact = NULL;
const gchar *cuid;
GList *l;
g_assert (local != NULL);
for (l = ctxt->cards; l != NULL; l = l->next) {
contact = l->data;
/* FIXME Do we need to check for the empty string? */
if ((cuid = e_contact_get_const (contact, E_CONTACT_UID)) && !strcmp (cuid, uid))
break;
contact = NULL;
}
if (contact != NULL) {
local_record_from_ecard (local, contact, ctxt);
} else {
contact = e_contact_new ();
e_contact_set (contact, E_CONTACT_UID, (gpointer) uid);
local_record_from_ecard (local, contact, ctxt);
g_object_unref (contact);
}
}
static EContact *
ecard_from_remote_record(EAddrConduitContext *ctxt,
GnomePilotRecord *remote,
EContact *in_contact)
{
struct Address address;
EContact *contact;
EContactName *name;
EContactAddress *eaddress;
EContactField mailing_address;
gchar *txt, *find, *full_name;
EContactField next_mail, next_home, next_work, next_fax;
EContactField next_other, next_main, next_pager, next_mobile;
gint i;
#ifdef PILOT_LINK_0_12
pi_buffer_t * buffer;
#endif
g_return_val_if_fail(remote!=NULL,NULL);
memset (&address, 0, sizeof (struct Address));
#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 NULL;
}
if(pi_buffer_append(buffer, remote->record, remote->length)==NULL){
pi_set_error(ctxt->dbi->pilot_socket, PI_ERR_GENERIC_MEMORY);
return NULL;
}
unpack_Address (&address, buffer, address_v1);
pi_buffer_free(buffer);
#else
unpack_Address (&address, remote->record, remote->length);
#endif
if (in_contact == NULL)
contact = e_contact_new ();
else
contact = e_contact_duplicate (in_contact);
/*Category support*/
e_pilot_remote_category_to_local(remote->category, contact, &(ctxt->ai.category));
/* Name */
name = e_contact_name_new ();
name->given = get_entry_text (address, entryFirstname);
name->family = get_entry_text (address, entryLastname);
/* set the name, respecting the pilot's given/family names */
e_contact_set (contact, E_CONTACT_NAME, name);
/* now set the full_name */
full_name = e_contact_name_to_string (name);
e_contact_set (contact, E_CONTACT_FULL_NAME, full_name);
e_contact_name_free (name);
/* File As */
if (!full_name || !*full_name)
set_contact_text (contact, E_CONTACT_FILE_AS, address, entryCompany);
g_free (full_name);
/* Title and Company */
set_contact_text (contact, E_CONTACT_TITLE, address, entryTitle);
set_contact_text (contact, E_CONTACT_ORG, address, entryCompany);
/* Address */
mailing_address = -1;
if ((eaddress = e_contact_get (contact, ctxt->cfg->default_address))) {
mailing_address = ctxt->cfg->default_address;
e_contact_address_free (eaddress);
} else {
for (i = E_CONTACT_FIRST_ADDRESS_ID; i <= E_CONTACT_LAST_ADDRESS_ID; i++) {
if ((eaddress = e_contact_get (contact, i))) {
e_contact_address_free (eaddress);
mailing_address = i;
break;
}
}
}
if (mailing_address == -1)
mailing_address = ctxt->cfg->default_address;
eaddress = g_new0 (EContactAddress, 1);
txt = get_entry_text (address, entryAddress);
if (txt && (find = strchr (txt, '\n')) != NULL) {
*find = '\0';
find++;
} else {
find = NULL;
}
eaddress->street = txt;
eaddress->ext = find != NULL ? g_strdup (find) : g_strdup ("");
eaddress->locality = get_entry_text (address, entryCity);
eaddress->region = get_entry_text (address, entryState);
eaddress->country = get_entry_text (address, entryCountry);
eaddress->code = get_entry_text (address, entryZip);
e_contact_set (contact, mailing_address, eaddress);
e_contact_address_free (eaddress);
/* Phone numbers */
get_next_init (&next_mail, &next_home, &next_work, &next_fax,
&next_other, &next_main, &next_pager, &next_mobile);
for (i = entryPhone1; i <= entryPhone5; i++) {
gint phonelabel = address.phoneLabel[i - entryPhone1];
gchar *phonenum = get_entry_text (address, i);
if (phonelabel == LABEL_EMAIL && !is_next_done (next_mail)) {
e_contact_set (contact, next_mail, phonenum);
next_mail = get_next_mail (&next_mail);
} else if (phonelabel == LABEL_HOME && !is_next_done (next_home)) {
e_contact_set (contact, next_home, phonenum);
next_home = get_next_home (&next_home);
} else if (phonelabel == LABEL_WORK && !is_next_done (next_work)) {
e_contact_set (contact, next_work, phonenum);
next_work = get_next_work (&next_work);
} else if (phonelabel == LABEL_FAX && !is_next_done (next_fax)) {
e_contact_set (contact, next_fax, phonenum);
next_fax = get_next_fax (&next_fax);
} else if (phonelabel == LABEL_OTHER && !is_next_done (next_other)) {
e_contact_set (contact, next_other, phonenum);
next_other = get_next_other (&next_other);
} else if (phonelabel == LABEL_MAIN && !is_next_done (next_main)) {
e_contact_set (contact, next_main, phonenum);
next_main = get_next_main (&next_main);
} else if (phonelabel == LABEL_PAGER && !is_next_done (next_pager)) {
e_contact_set (contact, next_pager, phonenum);
next_pager = get_next_pager (&next_pager);
} else if (phonelabel == LABEL_MOBILE && !is_next_done (next_mobile)) {
e_contact_set (contact, next_mobile, phonenum);
next_mobile = get_next_mobile (&next_mobile);
}
g_free (phonenum);
}
/* Note */
set_contact_text (contact, E_CONTACT_NOTE, address, entryNote);
free_Address(&address);
return contact;
}
static void
check_for_slow_setting (GnomePilotConduit *c, EAddrConduitContext *ctxt)
{
GnomePilotConduitStandard *conduit = GNOME_PILOT_CONDUIT_STANDARD (c);
gint map_count;
const gchar *uri;
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_book_get_uri (ctxt->ebook);
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" ));
}
}
static void
addressbook_authenticate (EBook *book,
gpointer data)
{
gchar *auth;
const gchar *user;
gchar *passwd;
gchar *str_uri;
gchar *pass_key;
gchar *auth_domain;
const gchar *component_name;
EUri *e_uri;
ESource *source = (ESource *)data;
auth = (gchar *)e_source_get_property (source, "auth");
auth_domain = (gchar *)e_source_get_property (source, "auth-domain");
component_name = auth_domain ? auth_domain : "Addressbook";
if (auth && !strcmp ("plain/password", auth))
user = e_source_get_property (source, "user");
else
user = e_source_get_property (source, "email_addr");
if (!user)
user = "";
str_uri = e_source_get_uri (source);
e_uri = e_uri_new (str_uri);
pass_key = e_uri_to_string (e_uri, FALSE);
e_uri_free (e_uri);
passwd = e_passwords_get_password (component_name, pass_key);
if (!passwd)
passwd = g_strdup ("");
if (book)
if (!e_book_authenticate_user (book, user, passwd, auth, NULL))
LOG (g_warning ("Authentication failed"));
g_free (pass_key);
g_free (str_uri);
g_free (passwd);
return;
}
/* Pilot syncing callbacks */
static gint
pre_sync (GnomePilotConduit *conduit,
GnomePilotDBInfo *dbi,
EAddrConduitContext *ctxt)
{
GnomePilotConduitSyncAbs *abs_conduit;
EBookQuery *query;
GList *l;
gint len;
gchar *filename;
gchar *change_id;
gchar *auth;
gint num_records, add_records = 0, mod_records = 0, del_records = 0;
#ifdef PILOT_LINK_0_12
pi_buffer_t *buffer;
#else
guchar *buf;
#endif
abs_conduit = GNOME_PILOT_CONDUIT_SYNC_ABS (conduit);
LOG (g_message ( "---------------------------------------------------------\n" ));
LOG (g_message ( "pre_sync: Addressbook Conduit v.%s", CONDUIT_VERSION ));
/* g_message ("Addressbook Conduit v.%s", CONDUIT_VERSION); */
ctxt->dbi = dbi;
if (ctxt->cfg->source) {
ctxt->ebook = e_book_new (ctxt->cfg->source, NULL);
} else {
ctxt->ebook = e_book_new_default_addressbook (NULL);
}
auth = (gchar *)e_source_get_property (ctxt->cfg->source, "auth");
if (auth) {
LOG (g_message ("contacts needs authentication\n"));
g_signal_connect (ctxt->ebook, "auth_required",
G_CALLBACK (addressbook_authenticate), ctxt->cfg->source);
}
if (!ctxt->ebook || !e_book_open (ctxt->ebook, TRUE, NULL)) {
WARN(_("Could not load address book"));
gnome_pilot_conduit_error (conduit, _("Could not load address book"));
return -1;
}
/* Load the uid <--> pilot id mappings */
filename = map_name (ctxt);
e_pilot_map_read (filename, &ctxt->map);
g_free (filename);
/* Get a list of all contacts */
if (!(query = e_book_query_any_field_contains (""))) {
LOG (g_warning ("Failed to get EBookQuery"));
return -1;
}
if (!e_book_get_contacts (ctxt->ebook, query, &ctxt->cards, NULL)) {
LOG (g_warning ("Failed to get Contacts"));
e_book_query_unref (query);
return -1;
}
e_book_query_unref (query);
/* Count and hash the changes */
change_id = g_strdup_printf ("pilot-sync-evolution-addressbook-%d", ctxt->cfg->pilot_id);
if (!e_book_get_changes (ctxt->ebook, 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) {
EBookChange *ebc = l->data;
const gchar *uid;
uid = e_contact_get_const (ebc->contact, E_CONTACT_UID);
if (!e_pilot_map_uid_is_archived (ctxt->map, uid)) {
g_hash_table_insert (ctxt->changed_hash, g_strdup (uid), ebc);
switch (ebc->change_type) {
case E_BOOK_CHANGE_CARD_ADDED:
add_records++;
break;
case E_BOOK_CHANGE_CARD_MODIFIED:
mod_records++;
break;
case E_BOOK_CHANGE_CARD_DELETED:
del_records++;
break;
}
} else if (ebc->change_type == E_BOOK_CHANGE_CARD_DELETED) {
e_pilot_map_remove_by_uid (ctxt->map, uid);
}
}
/* Set the count information */
num_records = g_list_length (ctxt->cards);
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);
#ifdef PILOT_LINK_0_12
buffer = pi_buffer_new(DLP_BUF_SIZE);
if(buffer == NULL){
return pi_set_error(dbi->pilot_socket, PI_ERR_GENERIC_MEMORY);
}
len = dlp_ReadAppBlock (dbi->pilot_socket, dbi->db_handle, 0,
DLP_BUF_SIZE, buffer);
#else
buf = (guchar *)g_malloc (0xffff);
len = dlp_ReadAppBlock (dbi->pilot_socket, dbi->db_handle, 0,
(guchar *)buf, 0xffff);
#endif
if (len < 0) {
WARN (_("Could not read pilot's Address application block"));
WARN ("dlp_ReadAppBlock(...) = %d", len);
gnome_pilot_conduit_error (conduit,
_("Could not read pilot's Address application block"));
return -1;
}
#ifdef PILOT_LINK_0_12
unpack_AddressAppInfo (&(ctxt->ai), buffer->data, len);
pi_buffer_free (buffer);
#else
unpack_AddressAppInfo (&(ctxt->ai), buf, len);
g_free (buf);
#endif
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,
EAddrConduitContext *ctxt)
{
GList *changed;
gchar *filename, *change_id;
guchar *buf;
gint dlpRetVal, len;
LOG (g_message ( "post_sync: Address Conduit v.%s", CONDUIT_VERSION ));
/* Write AppBlock to PDA - updates categories */
buf = (guchar *)g_malloc (0xffff);
len = pack_AddressAppInfo (&(ctxt->ai), buf, 0xffff);
dlpRetVal = dlp_WriteAppBlock (dbi->pilot_socket, dbi->db_handle,
(guchar *)buf, len);
g_free (buf);
if (dlpRetVal < 0) {
WARN ( ("Could not write pilot's Address application block"));
WARN ("dlp_WriteAppBlock(...) = %d", dlpRetVal);
/*gnome_pilot_conduit_error (conduit,
_("Could not write pilot's Address application block"));*/
return -1;
}
g_free (ctxt->cfg->last_uri);
ctxt->cfg->last_uri = g_strdup (e_book_get_uri (ctxt->ebook));
addrconduit_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-addressbook-%d", ctxt->cfg->pilot_id);
if (e_book_get_changes (ctxt->ebook, change_id, &changed, NULL))
e_book_free_change_list (changed);
g_free (change_id);
LOG (g_message ( "---------------------------------------------------------\n" ));
return 0;
}
static gint
set_pilot_id (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
guint32 ID,
EAddrConduitContext *ctxt)
{
LOG (g_message ( "set_pilot_id: setting to %d\n", ID ));
e_pilot_map_insert (ctxt->map, ID, e_contact_get_const (local->contact, E_CONTACT_UID), FALSE);
return 0;
}
static gint
set_status_cleared (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
EAddrConduitContext *ctxt)
{
const gchar *uid;
LOG (g_message ( "set_status_cleared: clearing status\n" ));
if ((uid = e_contact_get_const (local->contact, E_CONTACT_UID)))
g_hash_table_remove (ctxt->changed_hash, uid);
return 0;
}
static gint
for_each (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord **local,
EAddrConduitContext *ctxt)
{
static GList *cards, *iterator;
static gint count;
g_return_val_if_fail (local != NULL, -1);
if (*local == NULL) {
LOG (g_message ( "beginning for_each" ));
cards = ctxt->cards;
count = 0;
if (cards != NULL) {
LOG (g_message ( "iterating over %d records", g_list_length (cards) ));
*local = g_new0 (EAddrLocalRecord, 1);
local_record_from_ecard (*local, cards->data, ctxt);
ctxt->locals = g_list_prepend (ctxt->locals, *local);
iterator = cards;
} 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 (EAddrLocalRecord, 1);
local_record_from_ecard (*local, iterator->data, ctxt);
ctxt->locals = 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,
EAddrLocalRecord **local,
EAddrConduitContext *ctxt)
{
static GList *iterator;
static gint count;
g_return_val_if_fail (local != NULL, 0);
if (*local == NULL) {
LOG (g_message ( "for_each_modified beginning\n" ));
iterator = ctxt->changed;
count = 0;
iterator = next_changed_item (ctxt, iterator);
if (iterator != NULL) {
EBookChange *ebc = iterator->data;
LOG (g_message ( "iterating over %d records", g_hash_table_size (ctxt->changed_hash)));
*local = g_new0 (EAddrLocalRecord, 1);
local_record_from_ecard (*local, ebc->contact, ctxt);
ctxt->locals = 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))) {
EBookChange *ebc = iterator->data;
*local = g_new0 (EAddrLocalRecord, 1);
local_record_from_ecard (*local, ebc->contact, ctxt);
ctxt->locals = g_list_prepend (ctxt->locals, *local);
} else {
LOG (g_message ( "for_each_modified ending" ));
/* Signal the iteration is over */
*local = NULL;
return 0;
}
}
return 0;
}
static gint
compare (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
GnomePilotRecord *remote,
EAddrConduitContext *ctxt)
{
GnomePilotRecord local_pilot;
gint 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,
EAddrConduitContext *ctxt)
{
EContact *contact;
gint retval = 0;
g_return_val_if_fail (remote != NULL, -1);
LOG (g_message ( "add_record: adding %s to desktop\n", print_remote (remote) ));
contact = ecard_from_remote_record (ctxt, remote, NULL);
/* add the ecard to the server */
if (!e_book_add_contact (ctxt->ebook, contact, NULL)) {
WARN ("add_record: failed to add card to ebook\n");
g_object_unref (contact);
return -1;
}
e_pilot_map_insert (ctxt->map, remote->ID, e_contact_get (contact, E_CONTACT_UID), FALSE);
g_object_unref (contact);
return retval;
}
static gint
replace_record (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
GnomePilotRecord *remote,
EAddrConduitContext *ctxt)
{
EContact *new_contact;
EBookChange *ebc;
gchar *old_id;
gint 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)));
old_id = e_contact_get (local->contact, E_CONTACT_UID);
ebc = g_hash_table_lookup (ctxt->changed_hash, old_id);
new_contact = ecard_from_remote_record (ctxt, remote, local->contact);
g_object_unref (local->contact);
local->contact = new_contact;
if (ebc && ebc->change_type == E_BOOK_CHANGE_CARD_DELETED) {
if (!e_book_add_contact (ctxt->ebook, local->contact, NULL)) {
WARN (G_STRLOC ": failed to add card\n");
return -1;
}
} else {
if (!e_book_commit_contact (ctxt->ebook, local->contact, NULL)) {
WARN (G_STRLOC ": failed to commit card\n");
return -1;
}
}
/* Adding a record causes wombat to assign a new uid so we must tidy */
if (ebc && ebc->change_type == E_BOOK_CHANGE_CARD_DELETED) {
const gchar *uid = e_contact_get_const (local->contact, E_CONTACT_UID);
gboolean arch;
arch = e_pilot_map_uid_is_archived (ctxt->map, uid);
e_pilot_map_insert (ctxt->map, remote->ID, uid, arch);
ebc = g_hash_table_lookup (ctxt->changed_hash, old_id);
if (ebc) {
g_hash_table_remove (ctxt->changed_hash, old_id);
g_object_unref (ebc->contact);
g_object_ref (local->contact);
ebc->contact = local->contact;
/* FIXME We should possibly be duplicating the uid */
g_hash_table_insert (ctxt->changed_hash, (gpointer) uid, ebc);
}
}
return retval;
}
static gint
delete_record (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
EAddrConduitContext *ctxt)
{
GError *error = NULL;
gint retval = 0;
g_return_val_if_fail (local != NULL, -1);
g_return_val_if_fail (local->contact != NULL, -1);
LOG (g_message ( "delete_record: delete %s\n", print_local (local) ));
e_pilot_map_remove_by_uid (ctxt->map, e_contact_get_const (local->contact, E_CONTACT_UID));
if (!e_book_remove_contact (ctxt->ebook, e_contact_get_const (local->contact, E_CONTACT_UID), &error) && error->code != E_BOOK_ERROR_CONTACT_NOT_FOUND) {
WARN ("delete_record: failed to delete card in ebook\n");
g_error_free (error);
retval = -1;
}
return retval;
}
static gint
archive_record (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
gboolean archive,
EAddrConduitContext *ctxt)
{
gint retval = 0;
g_return_val_if_fail (local != NULL, -1);
LOG (g_message ( "archive_record: %s\n", archive ? "yes" : "no" ));
e_pilot_map_insert (ctxt->map, local->local.ID, e_contact_get_const (local->contact, E_CONTACT_UID), archive);
return retval;
}
static gint
match (GnomePilotConduitSyncAbs *conduit,
GnomePilotRecord *remote,
EAddrLocalRecord **local,
EAddrConduitContext *ctxt)
{
const gchar *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 (EAddrLocalRecord, 1);
local_record_from_uid (*local, uid, ctxt);
return 0;
}
static gint
free_match (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
EAddrConduitContext *ctxt)
{
LOG (g_message ( "free_match: freeing\n" ));
g_return_val_if_fail (local != NULL, -1);
ctxt->locals = g_list_remove (ctxt->locals, local);
addrconduit_destroy_record (local);
return 0;
}
static gint
prepare (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
GnomePilotRecord *remote,
EAddrConduitContext *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 (EAddrConduitContext *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_addr_gui_fill_widgets (ctxt->gui, ctxt->cfg);
}
static gint
create_settings_window (GnomePilotConduit *conduit,
GtkWidget *parent,
EAddrConduitContext *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_addr_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, EAddrConduitContext *ctxt)
{
LOG (g_message ( "display_settings" ));
fill_widgets (ctxt);
}
static void
save_settings (GnomePilotConduit *conduit, EAddrConduitContext *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_addr_gui_fill_config (ctxt->gui, ctxt->new_cfg);
addrconduit_save_configuration (ctxt->new_cfg);
}
static void
revert_settings (GnomePilotConduit *conduit, EAddrConduitContext *ctxt)
{
LOG (g_message ( "revert_settings" ));
addrconduit_save_configuration (ctxt->cfg);
addrconduit_destroy_configuration (ctxt->new_cfg);
ctxt->new_cfg = addrconduit_dupe_configuration (ctxt->cfg);
}
GnomePilotConduit *
conduit_get_gpilot_conduit (guint32 pilot_id)
{
GtkObject *retval;
EAddrConduitContext *ctxt;
LOG (g_message ( "in address's conduit_get_gpilot_conduit\n" ));
retval = gnome_pilot_conduit_sync_abs_new ((gchar*)"AddressDB", 0x61646472);
g_assert (retval != NULL);
ctxt = e_addr_context_new (pilot_id);
g_object_set_data (G_OBJECT (retval), "addrconduit_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)
{
EAddrConduitContext *ctxt;
ctxt = g_object_get_data (G_OBJECT (conduit),
"addrconduit_context");
e_addr_context_destroy (ctxt);
gtk_object_destroy (GTK_OBJECT (conduit));
}