/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/* Evolution addressbook - Address Conduit
*
* Copyright (C) 1998 Free Software Foundation
* Copyright (C) 2000 Ximian, Inc.
*
* 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 the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
*/
#include <config.h>
#include <liboaf/liboaf.h>
#include <bonobo.h>
#include <gnome-xml/parser.h>
#include <pi-source.h>
#include <pi-socket.h>
#include <pi-file.h>
#include <pi-dlp.h>
#include <ebook/e-book.h>
#include <ebook/e-card-types.h>
#include <ebook/e-card-cursor.h>
#include <ebook/e-card.h>
#include <ebook/e-card-simple.h>
#include <e-pilot-util.h>
#define ADDR_CONFIG_LOAD 1
#define ADDR_CONFIG_DESTROY 1
#include "address-conduit-config.h"
#undef ADDR_CONFIG_LOAD
#undef ADDR_CONFIG_DESTROY
#include "address-conduit.h"
static void free_local (EAddrLocalRecord *local);
GnomePilotConduit * conduit_get_gpilot_conduit (guint32);
void conduit_destroy_gpilot_conduit (GnomePilotConduit*);
#define CONDUIT_VERSION "0.1.2"
#ifdef G_LOG_DOMAIN
#undef G_LOG_DOMAIN
#endif
#define G_LOG_DOMAIN "eaddrconduit"
#define DEBUG_CONDUIT 1
/* #undef DEBUG_CONDUIT */
#ifdef DEBUG_CONDUIT
#define LOG(e...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_MESSAGE, e)
#else
#define LOG(e...)
#endif
#define WARN(e...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_WARNING, e)
#define INFO(e...) g_log (G_LOG_DOMAIN, G_LOG_LEVEL_MESSAGE, e)
typedef struct {
EBookStatus status;
char *id;
} CardObjectChangeStatus;
typedef enum {
CARD_ADDED,
CARD_MODIFIED,
CARD_DELETED
} CardObjectChangeType;
typedef struct
{
ECard *card;
CardObjectChangeType type;
} CardObjectChange;
static ECardSimpleField priority [] = {
E_CARD_SIMPLE_FIELD_PHONE_BUSINESS,
E_CARD_SIMPLE_FIELD_PHONE_HOME,
E_CARD_SIMPLE_FIELD_PHONE_BUSINESS_FAX,
E_CARD_SIMPLE_FIELD_EMAIL,
E_CARD_SIMPLE_FIELD_PHONE_PAGER,
E_CARD_SIMPLE_FIELD_PHONE_MOBILE,
E_CARD_SIMPLE_FIELD_PHONE_BUSINESS_2,
E_CARD_SIMPLE_FIELD_PHONE_HOME_2,
E_CARD_SIMPLE_FIELD_PHONE_HOME_FAX,
E_CARD_SIMPLE_FIELD_EMAIL_2,
E_CARD_SIMPLE_FIELD_PHONE_OTHER,
E_CARD_SIMPLE_FIELD_PHONE_PRIMARY,
E_CARD_SIMPLE_FIELD_PHONE_OTHER_FAX,
E_CARD_SIMPLE_FIELD_EMAIL_3,
E_CARD_SIMPLE_FIELD_LAST
};
static char *priority_label [] = {
"Work",
"Home",
"Fax",
"E-mail",
"Pager",
"Mobile",
"Work",
"Home",
"Fax",
"E-mail",
"Other",
"Main",
"Fax",
"E-Mail",
NULL
};
/* Debug routines */
static char *
print_local (EAddrLocalRecord *local)
{
static char 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 char *print_remote (GnomePilotRecord *remote)
{
static char buff[ 4096 ];
struct Address addr;
if (remote == NULL) {
sprintf (buff, "[NULL]");
return buff;
}
memset (&addr, 0, sizeof (struct Address));
unpack_Address (&addr, remote->record, remote->length);
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;
}
/* Context Routines */
static EAddrConduitContext *
e_addr_context_new (guint32 pilot_id)
{
EAddrConduitContext *ctxt = g_new0 (EAddrConduitContext, 1);
addrconduit_load_configuration (&ctxt->cfg, pilot_id);
ctxt->ebook = NULL;
ctxt->cards = NULL;
ctxt->changed_hash = NULL;
ctxt->changed = NULL;
ctxt->locals = NULL;
ctxt->map = NULL;
return ctxt;
}
static gboolean
e_addr_context_foreach_change (gpointer key, gpointer value, gpointer data)
{
g_free (key);
return TRUE;
}
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->ebook != NULL)
gtk_object_unref (GTK_OBJECT (ctxt->ebook));
if (ctxt->cards != NULL) {
for (l = ctxt->cards; l != NULL; l = l->next)
gtk_object_unref (GTK_OBJECT (l->data));
g_list_free (ctxt->cards);
}
if (ctxt->changed_hash != NULL) {
g_hash_table_foreach_remove (ctxt->changed_hash, e_addr_context_foreach_change, NULL);
g_hash_table_destroy (ctxt->changed_hash);
}
if (ctxt->changed != NULL)
g_list_free (ctxt->changed);
if (ctxt->locals != NULL) {
for (l = ctxt->locals; l != NULL; l = l->next)
free_local (l->data);
g_list_free (ctxt->locals);
}
if (ctxt->map != NULL)
e_pilot_map_destroy (ctxt->map);
g_free (ctxt);
}
/* Addressbok Server routines */
static void
add_card_cb (EBook *ebook, EBookStatus status, const char *id, gpointer closure)
{
CardObjectChangeStatus *cons = closure;
cons->status = status;
cons->id = g_strdup (id);
gtk_main_quit();
}
static void
status_cb (EBook *ebook, EBookStatus status, gpointer closure)
{
(*(EBookStatus*)closure) = status;
gtk_main_quit();
}
static void
cursor_cb (EBook *book, EBookStatus status, ECardCursor *cursor, gpointer closure)
{
EAddrConduitContext *ctxt = (EAddrConduitContext*)closure;
if (status == E_BOOK_STATUS_SUCCESS) {
long length;
int i;
ctxt->address_load_success = TRUE;
length = e_card_cursor_get_length (cursor);
ctxt->cards = NULL;
for (i = 0; i < length; i ++) {
ECard *card = e_card_cursor_get_nth (cursor, i);
if (e_card_evolution_list (card))
continue;
ctxt->cards = g_list_append (ctxt->cards, card);
}
gtk_main_quit(); /* end the sub event loop */
}
else {
WARN (_("Cursor could not be loaded\n"));
gtk_main_quit(); /* end the sub event loop */
}
}
static void
book_open_cb (EBook *book, EBookStatus status, gpointer closure)
{
EAddrConduitContext *ctxt = (EAddrConduitContext*)closure;
if (status == E_BOOK_STATUS_SUCCESS) {
e_book_get_cursor (book, "(contains \"full_name\" \"\")", cursor_cb, ctxt);
} else {
WARN (_("EBook not loaded\n"));
gtk_main_quit(); /* end the sub event loop */
}
}
static int
start_addressbook_server (EAddrConduitContext *ctxt)
{
gchar *uri, *path;
g_return_val_if_fail(ctxt!=NULL,-2);
ctxt->ebook = e_book_new ();
path = g_concat_dir_and_file (g_get_home_dir (),
"evolution/local/Contacts/addressbook.db");
uri = g_strdup_printf ("file://%s", path);
g_free (path);
e_book_load_uri (ctxt->ebook, uri, book_open_cb, ctxt);
/* run a sub event loop to turn ebook's async loading into a
synchronous call */
gtk_main ();
g_free (uri);
if (ctxt->address_load_success)
return 0;
return -1;
}
/* Utility routines */
static char *
map_name (EAddrConduitContext *ctxt)
{
char *filename = NULL;
filename = g_strdup_printf ("%s/evolution/local/Contacts/pilot-map-%d.xml", g_get_home_dir (), ctxt->cfg->pilot_id);
return filename;
}
static GList *
next_changed_item (EAddrConduitContext *ctxt, GList *changes)
{
CardObjectChange *coc;
GList *l;
for (l = changes; l != NULL; l = l->next) {
coc = l->data;
if (g_hash_table_lookup (ctxt->changed_hash, e_card_get_id (coc->card)))
return l;
}
return NULL;
}
static int
get_label (EAddrConduitContext *ctxt, const char *label)
{
int i;
for (i = 0; i < 8; i++) {
if (!strcmp (ctxt->ai.phoneLabels[i], label))
return i;
}
return 0;
}
static ECardSimpleField
get_next_mail (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_EMAIL;
switch (*field) {
case E_CARD_SIMPLE_FIELD_EMAIL:
return E_CARD_SIMPLE_FIELD_EMAIL_2;
case E_CARD_SIMPLE_FIELD_EMAIL_2:
return E_CARD_SIMPLE_FIELD_EMAIL_3;
default:
}
return E_CARD_SIMPLE_FIELD_LAST;
}
static ECardSimpleField
get_next_home (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_PHONE_HOME;
switch (*field) {
case E_CARD_SIMPLE_FIELD_PHONE_HOME:
return E_CARD_SIMPLE_FIELD_PHONE_HOME_2;
default:
}
return E_CARD_SIMPLE_FIELD_LAST;
}
static ECardSimpleField
get_next_work (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_PHONE_BUSINESS;
switch (*field) {
case E_CARD_SIMPLE_FIELD_PHONE_BUSINESS:
return E_CARD_SIMPLE_FIELD_PHONE_BUSINESS_2;
default:
}
return E_CARD_SIMPLE_FIELD_LAST;
}
static ECardSimpleField
get_next_fax (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_PHONE_BUSINESS_FAX;
switch (*field) {
case E_CARD_SIMPLE_FIELD_PHONE_BUSINESS_FAX:
return E_CARD_SIMPLE_FIELD_PHONE_HOME_FAX;
case E_CARD_SIMPLE_FIELD_PHONE_HOME_FAX:
return E_CARD_SIMPLE_FIELD_PHONE_OTHER_FAX;
default:
}
return E_CARD_SIMPLE_FIELD_LAST;
}
static ECardSimpleField
get_next_other (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_PHONE_OTHER;
return E_CARD_SIMPLE_FIELD_LAST;
}
static ECardSimpleField
get_next_main (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_PHONE_PRIMARY;
return E_CARD_SIMPLE_FIELD_LAST;
}
static ECardSimpleField
get_next_pager (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_PHONE_PAGER;
return E_CARD_SIMPLE_FIELD_LAST;
}
static ECardSimpleField
get_next_mobile (ECardSimpleField *field)
{
if (field == NULL)
return E_CARD_SIMPLE_FIELD_PHONE_MOBILE;
return E_CARD_SIMPLE_FIELD_LAST;
}
static void
get_next_init (ECardSimpleField *next_mail,
ECardSimpleField *next_home,
ECardSimpleField *next_work,
ECardSimpleField *next_fax,
ECardSimpleField *next_other,
ECardSimpleField *next_main,
ECardSimpleField *next_pager,
ECardSimpleField *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 (ECardSimpleField field)
{
if (field == E_CARD_SIMPLE_FIELD_LAST)
return TRUE;
return FALSE;
}
static char *
get_entry_text (struct Address address, int field)
{
if (address.entry[field])
return e_pilot_utf8_from_pchar (address.entry[field]);
return g_strdup ("");
}
static void
clear_entry_text (struct Address address, int field)
{
if (address.entry[field]) {
free (address.entry[field]);
address.entry[field] = NULL;
}
}
static void
compute_status (EAddrConduitContext *ctxt, EAddrLocalRecord *local, const char *uid)
{
CardObjectChange *coc;
local->local.archived = FALSE;
local->local.secret = FALSE;
coc = g_hash_table_lookup (ctxt->changed_hash, uid);
if (coc == NULL) {
local->local.attr = GnomePilotRecordNothing;
return;
}
switch (coc->type) {
case CARD_ADDED:
local->local.attr = GnomePilotRecordNew;
break;
case CARD_MODIFIED:
local->local.attr = GnomePilotRecordModified;
break;
case CARD_DELETED:
local->local.attr = GnomePilotRecordDeleted;
break;
}
}
static void
free_local (EAddrLocalRecord *local)
{
gtk_object_unref (GTK_OBJECT (local->ecard));
free_Address (local->addr);
g_free (local->addr);
g_free (local);
}
static GnomePilotRecord
local_record_to_pilot_record (EAddrLocalRecord *local,
EAddrConduitContext *ctxt)
{
GnomePilotRecord p;
static char record[0xffff];
g_assert (local->addr != NULL );
LOG ("local_record_to_pilot_record\n");
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 */
p.record = record;
p.length = pack_Address (local->addr, p.record, 0xffff);
return p;
}
static void
local_record_from_ecard (EAddrLocalRecord *local, ECard *ecard, EAddrConduitContext *ctxt)
{
ECardSimple *simple;
const ECardDeliveryAddress *delivery;
int phone = entryPhone1;
ECardSimpleField next_mail, next_home, next_work, next_fax;
ECardSimpleField next_other, next_main, next_pager, next_mobile;
gboolean syncable;
int i;
g_return_if_fail (local != NULL);
g_return_if_fail (ecard != NULL);
local->ecard = ecard;
gtk_object_ref (GTK_OBJECT (ecard));
simple = e_card_simple_new (ecard);
local->local.ID = e_pilot_map_lookup_pid (ctxt->map, ecard->id);
compute_status (ctxt, local, ecard->id);
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;
char record[0xffff];
int cat = 0;
if (dlp_ReadRecordById (ctxt->dbi->pilot_socket,
ctxt->dbi->db_handle,
local->local.ID, &record,
NULL, NULL, NULL, &cat) > 0) {
local->local.category = cat;
memset (&addr, 0, sizeof (struct Address));
unpack_Address (&addr, record, 0xffff);
if (addr.entry[entryPhone1])
local->addr->entry[entryPhone1] = strdup (addr.entry[entryPhone1]);
if (addr.entry[entryPhone2])
local->addr->entry[entryPhone2] = strdup (addr.entry[entryPhone2]);
if (addr.entry[entryPhone3])
local->addr->entry[entryPhone3] = strdup (addr.entry[entryPhone3]);
if (addr.entry[entryPhone4])
local->addr->entry[entryPhone4] = strdup (addr.entry[entryPhone4]);
if (addr.entry[entryPhone5])
local->addr->entry[entryPhone5] = strdup (addr.entry[entryPhone5]);
free_Address (&addr);
}
}
if (ecard->name) {
local->addr->entry[entryFirstname] = e_pilot_utf8_to_pchar (ecard->name->given);
local->addr->entry[entryLastname] = e_pilot_utf8_to_pchar (ecard->name->family);
local->addr->entry[entryCompany] = e_pilot_utf8_to_pchar (ecard->org);
local->addr->entry[entryTitle] = e_pilot_utf8_to_pchar (ecard->title);
}
delivery = e_card_simple_get_delivery_address (simple, E_CARD_SIMPLE_ADDRESS_ID_BUSINESS);
if (delivery) {
local->addr->entry[entryAddress] = e_pilot_utf8_to_pchar (delivery->street);
local->addr->entry[entryCity] = e_pilot_utf8_to_pchar (delivery->city);
local->addr->entry[entryState] = e_pilot_utf8_to_pchar (delivery->region);
local->addr->entry[entryZip] = e_pilot_utf8_to_pchar (delivery->code);
local->addr->entry[entryCountry] = e_pilot_utf8_to_pchar (delivery->country);
}
/* Phone numbers */
get_next_init (&next_mail, &next_home, &next_work, &next_fax,
&next_other, &next_main, &next_pager, &next_mobile);
/* See if everything is syncable */
syncable = TRUE;
for (i = entryPhone1; i <= entryPhone5; i++) {
char *phonelabel = ctxt->ai.phoneLabels[local->addr->phoneLabel[i - entryPhone1]];
const char *phone_str = NULL;
if (!strcmp (phonelabel, "E-mail")) {
if (is_next_done (next_mail)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_home);
if (phone_str && *phone_str)
next_mail = get_next_mail (&next_mail);
} else if (!strcmp (phonelabel, "Home")) {
if (is_next_done (next_home)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_home);
if (phone_str && *phone_str)
next_home = get_next_home (&next_home);
} else if (!strcmp (phonelabel, "Work")) {
if (is_next_done (next_work)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_work);
if (phone_str && *phone_str)
next_work = get_next_work (&next_work);
} else if (!strcmp (phonelabel, "Fax")) {
if (is_next_done (next_fax)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_fax);
if (phone_str && *phone_str)
next_fax = get_next_fax (&next_fax);
} else if (!strcmp (phonelabel, "Other")) {
if (is_next_done (next_other)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_other);
if (phone_str && *phone_str)
next_other = get_next_other (&next_other);
} else if (!strcmp (phonelabel, "Main")) {
if (is_next_done (next_main)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_main);
if (phone_str && *phone_str)
next_main = get_next_main (&next_main);
} else if (!strcmp (phonelabel, "Pager")) {
if (is_next_done (next_pager)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_pager);
if (phone_str && *phone_str)
next_pager = get_next_pager (&next_pager);
} else if (!strcmp (phonelabel, "Mobile")) {
if (is_next_done (next_mobile)) {
syncable = FALSE;
break;
}
phone_str = e_card_simple_get_const (simple, next_mobile);
if (phone_str && *phone_str)
next_mobile = get_next_mobile (&next_mobile);
}
}
if (syncable) {
INFO ("Syncable");
/* Sync by priority */
for (i = 0, phone = entryPhone1;
priority[i] != E_CARD_SIMPLE_FIELD_LAST && phone <= entryPhone5; i++) {
const char *phone_str;
phone_str = e_card_simple_get_const (simple, 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] =
get_label (ctxt, priority_label[i]);
phone++;
}
}
for ( ; phone <= entryPhone5; phone++)
local->addr->phoneLabel[phone - entryPhone1] = phone - entryPhone1;
} else {
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++) {
char *phonelabel = ctxt->ai.phoneLabels[local->addr->phoneLabel[i - entryPhone1]];
const char *phone_str = NULL;
if (!strcmp (phonelabel, "E-mail") && !is_next_done (next_mail)) {
phone_str = e_card_simple_get_const (simple, next_mail);
next_mail = get_next_mail (&next_mail);
} else if (!strcmp (phonelabel, "Home") && !is_next_done (next_home)) {
phone_str = e_card_simple_get_const (simple, next_home);
next_home = get_next_home (&next_home);
} else if (!strcmp (phonelabel, "Work") && !is_next_done (next_work)) {
phone_str = e_card_simple_get_const (simple, next_work);
next_work = get_next_work (&next_work);
} else if (!strcmp (phonelabel, "Fax") && !is_next_done (next_fax)) {
phone_str = e_card_simple_get_const (simple, next_fax);
next_fax = get_next_fax (&next_fax);
} else if (!strcmp (phonelabel, "Other") && !is_next_done (next_other)) {
phone_str = e_card_simple_get_const (simple, next_other);
next_other = get_next_other (&next_other);
} else if (!strcmp (phonelabel, "Main") && !is_next_done (next_main)) {
phone_str = e_card_simple_get_const (simple, next_main);
next_main = get_next_main (&next_main);
} else if (!strcmp (phonelabel, "Pager") && !is_next_done (next_pager)) {
phone_str = e_card_simple_get_const (simple, next_pager);
next_pager = get_next_pager (&next_pager);
} else if (!strcmp (phonelabel, "Mobile") && !is_next_done (next_mobile)) {
phone_str = e_card_simple_get_const (simple, next_mobile);
next_mobile = get_next_mobile (&next_mobile);
}
if (phone_str && *phone_str) {
clear_entry_text (*local->addr, phone);
local->addr->entry[i] = e_pilot_utf8_to_pchar (phone_str);
}
}
}
/* Note */
local->addr->entry[entryNote] = e_pilot_utf8_to_pchar (ecard->note);
gtk_object_unref (GTK_OBJECT (simple));
}
static void
local_record_from_uid (EAddrLocalRecord *local,
const char *uid,
EAddrConduitContext *ctxt)
{
ECard *ecard = NULL;
GList *l;
g_assert (local != NULL);
for (l = ctxt->cards; l != NULL; l = l->next) {
ecard = l->data;
if (ecard->id && !strcmp (ecard->id, uid))
break;
ecard = NULL;
}
if (ecard != NULL) {
local_record_from_ecard (local, ecard, ctxt);
} else {
ecard = e_card_new ("");
e_card_set_id (ecard, uid);
local_record_from_ecard (local, ecard, ctxt);
}
}
static ECard *
ecard_from_remote_record(EAddrConduitContext *ctxt,
GnomePilotRecord *remote,
ECard *in_card)
{
struct Address address;
ECard *ecard;
ECardSimple *simple;
ECardDeliveryAddress *delivery;
ECardAddrLabel *label;
char *txt;
char *stringparts[3];
ECardSimpleField next_mail, next_home, next_work, next_fax;
ECardSimpleField next_other, next_main, next_pager, next_mobile;
int i;
g_return_val_if_fail(remote!=NULL,NULL);
memset (&address, 0, sizeof (struct Address));
unpack_Address (&address, remote->record, remote->length);
if (in_card == NULL)
ecard = e_card_new("");
else
ecard = e_card_duplicate (in_card);
simple = e_card_simple_new (ecard);
/* Name and company */
i = 0;
if (address.entry[entryFirstname] && *address.entry[entryFirstname])
stringparts[i++] = address.entry[entryFirstname];
if (address.entry[entryLastname] && *address.entry[entryLastname])
stringparts[i++] = address.entry[entryLastname];
stringparts[i] = NULL;
txt = g_strjoinv (" ", stringparts);
e_card_simple_set (simple, E_CARD_SIMPLE_FIELD_FULL_NAME, e_pilot_utf8_from_pchar (txt));
g_free (txt);
txt = get_entry_text (address, entryTitle);
e_card_simple_set(simple, E_CARD_SIMPLE_FIELD_TITLE, txt);
g_free (txt);
txt = get_entry_text (address, entryCompany);
e_card_simple_set(simple, E_CARD_SIMPLE_FIELD_ORG, txt);
if (i == 0)
e_card_simple_set(simple, E_CARD_SIMPLE_FIELD_FILE_AS, txt);
g_free (txt);
/* Address */
delivery = e_card_delivery_address_new ();
delivery->flags = E_CARD_ADDR_WORK;
delivery->street = get_entry_text (address, entryAddress);
delivery->city = get_entry_text (address, entryCity);
delivery->region = get_entry_text (address, entryState);
delivery->country = get_entry_text (address, entryCountry);
delivery->code = get_entry_text (address, entryZip);
label = e_card_address_label_new ();
label->flags = E_CARD_ADDR_WORK;
label->data = e_card_delivery_address_to_string (delivery);
e_card_simple_set_address (simple, E_CARD_SIMPLE_ADDRESS_ID_BUSINESS, label);
e_card_simple_set_delivery_address (simple, E_CARD_SIMPLE_ADDRESS_ID_BUSINESS, delivery);
e_card_delivery_address_unref (delivery);
e_card_address_label_unref (label);
/* 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++) {
char *phonelabel = ctxt->ai.phoneLabels[address.phoneLabel[i - entryPhone1]];
char *phonenum = get_entry_text (address, i);
if (!strcmp (phonelabel, "E-mail") && !is_next_done (next_mail)) {
e_card_simple_set (simple, next_mail, phonenum);
next_mail = get_next_mail (&next_mail);
} else if (!strcmp (phonelabel, "Home") && !is_next_done (next_home)) {
e_card_simple_set (simple, next_home, phonenum);
next_home = get_next_home (&next_home);
} else if (!strcmp (phonelabel, "Work") && !is_next_done (next_work)) {
e_card_simple_set (simple, next_work, phonenum);
next_work = get_next_work (&next_work);
} else if (!strcmp (phonelabel, "Fax") && !is_next_done (next_fax)) {
e_card_simple_set (simple, next_fax, phonenum);
next_fax = get_next_fax (&next_fax);
} else if (!strcmp (phonelabel, "Other") && !is_next_done (next_other)) {
e_card_simple_set (simple, next_other, phonenum);
next_other = get_next_other (&next_other);
} else if (!strcmp (phonelabel, "Main") && !is_next_done (next_main)) {
e_card_simple_set (simple, next_main, phonenum);
next_main = get_next_main (&next_main);
} else if (!strcmp (phonelabel, "Pager") && !is_next_done (next_pager)) {
e_card_simple_set (simple, next_pager, phonenum);
next_pager = get_next_pager (&next_pager);
} else if (!strcmp (phonelabel, "Mobile") && !is_next_done (next_mobile)) {
e_card_simple_set (simple, next_mobile, phonenum);
next_mobile = get_next_mobile (&next_mobile);
}
g_free (phonenum);
}
/* Note */
txt = get_entry_text (address, entryNote);
e_card_simple_set(simple, E_CARD_SIMPLE_FIELD_NOTE, txt);
g_free (txt);
e_card_simple_sync_card (simple);
gtk_object_unref(GTK_OBJECT(simple));
free_Address(&address);
return ecard;
}
static void
check_for_slow_setting (GnomePilotConduit *c, EAddrConduitContext *ctxt)
{
GnomePilotConduitStandard *conduit = GNOME_PILOT_CONDUIT_STANDARD (c);
int map_count;
map_count = g_hash_table_size (ctxt->map->pid_map);
if (map_count == 0)
gnome_pilot_conduit_standard_set_slow (conduit, TRUE);
if (gnome_pilot_conduit_standard_get_slow (conduit))
LOG (" doing slow sync\n");
else
LOG (" doing fast sync\n");
}
static void
card_added (EBookView *book_view, const GList *cards, EAddrConduitContext *ctxt)
{
const GList *l;
for (l = cards; l != NULL; l = l->next) {
ECard *card = E_CARD (l->data);
CardObjectChange *coc;
if (e_card_evolution_list (card))
continue;
coc = g_new0 (CardObjectChange, 1);
coc->card = card;
coc->type = CARD_ADDED;
gtk_object_ref (GTK_OBJECT (coc->card));
ctxt->changed = g_list_prepend (ctxt->changed, coc);
if (!e_pilot_map_uid_is_archived (ctxt->map, e_card_get_id (coc->card)))
g_hash_table_insert (ctxt->changed_hash, (gpointer)e_card_get_id (coc->card), coc);
}
}
static void
card_changed (EBookView *book_view, const GList *cards, EAddrConduitContext *ctxt)
{
const GList *l;
for (l = cards; l != NULL; l = l->next) {
ECard *card = E_CARD (l->data);
CardObjectChange *coc;
if (e_card_evolution_list (card))
continue;
coc = g_new0 (CardObjectChange, 1);
coc->card = E_CARD (l->data);
coc->type = CARD_MODIFIED;
gtk_object_ref (GTK_OBJECT (coc->card));
ctxt->changed = g_list_prepend (ctxt->changed, coc);
if (!e_pilot_map_uid_is_archived (ctxt->map, e_card_get_id (coc->card)))
g_hash_table_insert (ctxt->changed_hash, (gpointer)e_card_get_id (coc->card), coc);
}
}
static void
card_removed (EBookView *book_view, const char *id, EAddrConduitContext *ctxt)
{
CardObjectChange *coc;
gboolean archived;
archived = e_pilot_map_uid_is_archived (ctxt->map, id);
/* If its deleted, not in the archive and not in the map its a list */
if (!archived && e_pilot_map_lookup_pid (ctxt->map, id) == 0)
return;
coc = g_new0 (CardObjectChange, 1);
coc->card = e_card_new ("");
e_card_set_id (coc->card, id);
coc->type = CARD_DELETED;
ctxt->changed = g_list_prepend (ctxt->changed, coc);
if (!archived)
g_hash_table_insert (ctxt->changed_hash, (gpointer)e_card_get_id (coc->card), coc);
else
e_pilot_map_remove_by_uid (ctxt->map, id);
}
static void
sequence_complete (EBookView *book_view, EAddrConduitContext *ctxt)
{
gtk_signal_disconnect_by_data (GTK_OBJECT (book_view), ctxt);
gtk_object_unref (GTK_OBJECT (book_view));
gtk_main_quit ();
}
static void
view_cb (EBook *book, EBookStatus status, EBookView *book_view, gpointer data)
{
EAddrConduitContext *ctxt = data;
gtk_object_ref (GTK_OBJECT (book_view));
gtk_signal_connect (GTK_OBJECT (book_view), "card_added",
(GtkSignalFunc) card_added, ctxt);
gtk_signal_connect (GTK_OBJECT (book_view), "card_changed",
(GtkSignalFunc) card_changed, ctxt);
gtk_signal_connect (GTK_OBJECT (book_view), "card_removed",
(GtkSignalFunc) card_removed, ctxt);
gtk_signal_connect (GTK_OBJECT (book_view), "sequence_complete",
(GtkSignalFunc) sequence_complete, ctxt);
}
/* Pilot syncing callbacks */
static gint
pre_sync (GnomePilotConduit *conduit,
GnomePilotDBInfo *dbi,
EAddrConduitContext *ctxt)
{
GnomePilotConduitSyncAbs *abs_conduit;
/* GList *l; */
int len;
unsigned char *buf;
char *filename;
char *change_id;
/* gint num_records; */
abs_conduit = GNOME_PILOT_CONDUIT_SYNC_ABS (conduit);
LOG ("---------------------------------------------------------\n");
LOG ("pre_sync: Addressbook Conduit v.%s", CONDUIT_VERSION);
g_message ("Addressbook Conduit v.%s", CONDUIT_VERSION);
ctxt->dbi = dbi;
ctxt->ebook = NULL;
if (start_addressbook_server (ctxt) != 0) {
WARN(_("Could not start wombat server"));
gnome_pilot_conduit_error (conduit, _("Could not start wombat"));
return -1;
}
/* Load the uid <--> pilot id mappings */
filename = map_name (ctxt);
e_pilot_map_read (filename, &ctxt->map);
g_free (filename);
/* Count and hash the changes */
change_id = g_strdup_printf ("pilot-sync-evolution-addressbook-%d", ctxt->cfg->pilot_id);
ctxt->changed_hash = g_hash_table_new (g_str_hash, g_str_equal);
e_book_get_changes (ctxt->ebook, change_id, view_cb, ctxt);
/* Force the view loading to be synchronous */
gtk_main ();
g_free (change_id);
/* Set the count information */
/* num_records = cal_client_get_n_objects (ctxt->client, CALOBJ_TYPE_TODO); */
/* 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); */
buf = (unsigned char*)g_malloc (0xffff);
len = dlp_ReadAppBlock (dbi->pilot_socket, dbi->db_handle, 0,
(unsigned char *)buf, 0xffff);
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;
}
unpack_AddressAppInfo (&(ctxt->ai), buf, len);
g_free (buf);
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)
{
gchar *filename, *change_id;
LOG ("post_sync: Address Conduit v.%s", CONDUIT_VERSION);
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);
e_book_get_changes (ctxt->ebook, change_id, view_cb, ctxt);
g_free (change_id);
gtk_main ();
LOG ("---------------------------------------------------------\n");
return 0;
}
static gint
set_pilot_id (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
guint32 ID,
EAddrConduitContext *ctxt)
{
LOG ("set_pilot_id: setting to %d\n", ID);
e_pilot_map_insert (ctxt->map, ID, local->ecard->id, FALSE);
return 0;
}
static gint
set_status_cleared (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
EAddrConduitContext *ctxt)
{
LOG ("set_status_cleared: clearing status\n");
g_hash_table_remove (ctxt->changed_hash, e_card_get_id (local->ecard));
return 0;
}
static gint
for_each (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord **local,
EAddrConduitContext *ctxt)
{
static GList *cards, *iterator;
static int count;
g_return_val_if_fail (local != NULL, -1);
if (*local == NULL) {
LOG ("beginning for_each");
cards = ctxt->cards;
count = 0;
if (cards != NULL) {
LOG ("iterating over %d records", g_list_length (cards));
*local = g_new0 (EAddrLocalRecord, 1);
local_record_from_ecard (*local, cards->data, ctxt);
g_list_prepend (ctxt->locals, *local);
iterator = cards;
} else {
LOG ("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);
g_list_prepend (ctxt->locals, *local);
} else {
LOG ("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 int count;
g_return_val_if_fail (local != NULL, 0);
if (*local == NULL) {
LOG ("for_each_modified beginning\n");
iterator = ctxt->changed;
count = 0;
iterator = next_changed_item (ctxt, iterator);
if (iterator != NULL) {
CardObjectChange *coc = iterator->data;
LOG ("iterating over %d records", g_hash_table_size (ctxt->changed_hash));
*local = g_new0 (EAddrLocalRecord, 1);
local_record_from_ecard (*local, coc->card, ctxt);
g_list_prepend (ctxt->locals, *local);
} else {
LOG ("no events");
*local = NULL;
}
} else {
count++;
iterator = g_list_next (iterator);
if (iterator && (iterator = next_changed_item (ctxt, iterator))) {
CardObjectChange *coc = iterator->data;
*local = g_new0 (EAddrLocalRecord, 1);
local_record_from_ecard (*local, coc->card, ctxt);
g_list_prepend (ctxt->locals, *local);
} else {
LOG ("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)
{
/* used by the quick compare */
GnomePilotRecord local_pilot;
int retval = 0;
LOG ("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 (" equal");
else
LOG (" not equal");
return retval;
}
static gint
add_record (GnomePilotConduitSyncAbs *conduit,
GnomePilotRecord *remote,
EAddrConduitContext *ctxt)
{
ECard *ecard;
CardObjectChangeStatus cons;
int retval = 0;
g_return_val_if_fail (remote != NULL, -1);
LOG ("add_record: adding %s to desktop\n", print_remote (remote));
ecard = ecard_from_remote_record (ctxt, remote, NULL);
/* add the ecard to the server */
e_book_add_card (ctxt->ebook, ecard, add_card_cb, &cons);
gtk_main(); /* enter sub mainloop */
if (cons.status != E_BOOK_STATUS_SUCCESS) {
WARN ("add_record: failed to add card to ebook\n");
return -1;
}
e_card_set_id (ecard, cons.id);
e_pilot_map_insert (ctxt->map, remote->ID, ecard->id, FALSE);
return retval;
}
static gint
replace_record (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
GnomePilotRecord *remote,
EAddrConduitContext *ctxt)
{
ECard *new_ecard;
EBookStatus commit_status;
CardObjectChange *coc;
CardObjectChangeStatus cons;
char *old_id;
int retval = 0;
g_return_val_if_fail (remote != NULL, -1);
LOG ("replace_record: replace %s with %s\n",
print_local (local), print_remote (remote));
old_id = g_strdup (e_card_get_id (local->ecard));
coc = g_hash_table_lookup (ctxt->changed_hash, old_id);
new_ecard = ecard_from_remote_record (ctxt, remote, local->ecard);
gtk_object_unref (GTK_OBJECT (local->ecard));
local->ecard = new_ecard;
if (coc && coc->type == CARD_DELETED)
e_book_add_card (ctxt->ebook, local->ecard, add_card_cb, &cons);
else
e_book_commit_card (ctxt->ebook, local->ecard, status_cb, &commit_status);
gtk_main (); /* enter sub mainloop */
/* Adding a record causes wombat to assign a new uid so we must tidy */
if (coc && coc->type == CARD_DELETED) {
gboolean arch = e_pilot_map_uid_is_archived (ctxt->map, e_card_get_id (local->ecard));
e_card_set_id (local->ecard, cons.id);
e_pilot_map_insert (ctxt->map, remote->ID, cons.id, arch);
coc = g_hash_table_lookup (ctxt->changed_hash, old_id);
if (coc) {
g_hash_table_remove (ctxt->changed_hash, e_card_get_id (coc->card));
coc->card = local->ecard;
g_hash_table_insert (ctxt->changed_hash, (gpointer)e_card_get_id (coc->card), coc);
}
commit_status = cons.status;
}
if (commit_status != E_BOOK_STATUS_SUCCESS)
WARN ("replace_record: failed to update card in ebook\n");
return retval;
}
static gint
delete_record (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
EAddrConduitContext *ctxt)
{
EBookStatus commit_status;
int retval = 0;
g_return_val_if_fail (local != NULL, -1);
g_return_val_if_fail (local->ecard != NULL, -1);
LOG ("delete_record: delete %s\n", print_local (local));
e_pilot_map_remove_by_uid (ctxt->map, local->ecard->id);
e_book_remove_card_by_id (ctxt->ebook, local->ecard->id, status_cb, &commit_status);
gtk_main (); /* enter sub mainloop */
if (commit_status != E_BOOK_STATUS_SUCCESS && commit_status != E_BOOK_STATUS_CARD_NOT_FOUND)
WARN ("delete_record: failed to delete card in ebook\n");
return retval;
}
static gint
archive_record (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
gboolean archive,
EAddrConduitContext *ctxt)
{
int retval = 0;
g_return_val_if_fail (local != NULL, -1);
LOG ("archive_record: %s\n", archive ? "yes" : "no");
e_pilot_map_insert (ctxt->map, local->local.ID, local->ecard->id, archive);
return retval;
}
static gint
match (GnomePilotConduitSyncAbs *conduit,
GnomePilotRecord *remote,
EAddrLocalRecord **local,
EAddrConduitContext *ctxt)
{
const char *uid;
LOG ("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);
if (!uid)
return 0;
LOG (" 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 ("free_match: freeing\n");
g_return_val_if_fail (local != NULL, -1);
free_local (local);
return 0;
}
static gint
prepare (GnomePilotConduitSyncAbs *conduit,
EAddrLocalRecord *local,
GnomePilotRecord *remote,
EAddrConduitContext *ctxt)
{
LOG ("prepare: encoding local %s\n", print_local (local));
*remote = local_record_to_pilot_record (local, ctxt);
return 0;
}
static ORBit_MessageValidationResult
accept_all_cookies (CORBA_unsigned_long request_id,
CORBA_Principal *principal,
CORBA_char *operation)
{
/* allow ALL cookies */
return ORBIT_MESSAGE_ALLOW_ALL;
}
GnomePilotConduit *
conduit_get_gpilot_conduit (guint32 pilot_id)
{
GtkObject *retval;
EAddrConduitContext *ctxt;
LOG ("in address's conduit_get_gpilot_conduit\n");
/* we need to find wombat with oaf, so make sure oaf
is initialized here. once the desktop is converted
to oaf and gpilotd is built with oaf, this can go away */
if (!oaf_is_initialized ()) {
char *argv[ 1 ] = {"hi"};
oaf_init (1, argv);
if (bonobo_init (CORBA_OBJECT_NIL,
CORBA_OBJECT_NIL,
CORBA_OBJECT_NIL) == FALSE)
g_error (_("Could not initialize Bonobo"));
ORBit_set_request_validation_handler (accept_all_cookies);
}
retval = gnome_pilot_conduit_sync_abs_new ("AddressDB", 0x61646472);
g_assert (retval != NULL);
ctxt = e_addr_context_new (pilot_id);
gtk_object_set_data (GTK_OBJECT (retval), "addrconduit_context", ctxt);
gtk_signal_connect (retval, "pre_sync", (GtkSignalFunc) pre_sync, ctxt);
gtk_signal_connect (retval, "post_sync", (GtkSignalFunc) post_sync, ctxt);
gtk_signal_connect (retval, "set_pilot_id", (GtkSignalFunc) set_pilot_id, ctxt);
gtk_signal_connect (retval, "set_status_cleared", (GtkSignalFunc) set_status_cleared, ctxt);
gtk_signal_connect (retval, "for_each", (GtkSignalFunc) for_each, ctxt);
gtk_signal_connect (retval, "for_each_modified", (GtkSignalFunc) for_each_modified, ctxt);
gtk_signal_connect (retval, "compare", (GtkSignalFunc) compare, ctxt);
gtk_signal_connect (retval, "add_record", (GtkSignalFunc) add_record, ctxt);
gtk_signal_connect (retval, "replace_record", (GtkSignalFunc) replace_record, ctxt);
gtk_signal_connect (retval, "delete_record", (GtkSignalFunc) delete_record, ctxt);
gtk_signal_connect (retval, "archive_record", (GtkSignalFunc) archive_record, ctxt);
gtk_signal_connect (retval, "match", (GtkSignalFunc) match, ctxt);
gtk_signal_connect (retval, "free_match", (GtkSignalFunc) free_match, ctxt);
gtk_signal_connect (retval, "prepare", (GtkSignalFunc) prepare, ctxt);
return GNOME_PILOT_CONDUIT (retval);
}
void
conduit_destroy_gpilot_conduit (GnomePilotConduit *conduit)
{
EAddrConduitContext *ctxt;
ctxt = gtk_object_get_data (GTK_OBJECT (conduit),
"addrconduit_context");
e_addr_context_destroy (ctxt);
gtk_object_destroy (GTK_OBJECT (conduit));
}