shlib importer info

2004-02-06  JP Rosevear <jpr@ximian.com>

	*
importers/GNOME_Evolution_Addressbook_LDIF_Importer.server.in.in:
	shlib importer info

	*
importers/GNOME_Evolution_Addressbook_VCard_Importer.server.in.in:
	ditto

	* importers/Makefile.am: build shlib addressbook importers

	* importers/evolution-ldif-importer.c: First crack at resurrecting

	* importers/evolution-vcard-importer.c: ditto

svn path=/trunk/; revision=24652

1 files changed, 610 insertions, 0 deletions

diff --git a/addressbook/importers/evolution-ldif-importer.c b/addressbook/importers/evolution-ldif-importer.c
new file mode 100644
index 0000000000..eef9f22d23
--- /dev/null
+++ b/addressbook/importers/evolution-ldif-importer.c
@@ -0,0 +1,610 @@
+/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
+
+/* 
+ * LDIF importer.  LDIF is the file format of an exported Netscape
+ * addressbook.
+ *
+ * Framework copied from evolution-gnomecard-importer.c
+ *
+ * Michael M. Morrison (mmorrison@kqcorp.com)
+ *
+ * Multi-line value support, mailing list support, base64 support, and
+ * various fixups: Chris Toshok (toshok@ximian.com)
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <ctype.h>
+#include <string.h>
+
+#include <gtk/gtkwidget.h>
+#include <gtk/gtkvbox.h>
+#include <libgnome/gnome-init.h>
+#include <bonobo/bonobo-shlib-factory.h>
+#include <bonobo/bonobo-main.h>
+#include <bonobo/bonobo-control.h>
+
+#include <libebook/e-book.h>
+
+#include <importer/evolution-importer.h>
+#include <importer/GNOME_Evolution_Importer.h>
+#include <widgets/misc/e-source-selector.h>
+#include <util/eab-destination.h>
+
+#define COMPONENT_FACTORY_IID "OAFIID:GNOME_Evolution_Addressbook_LDIF_ImporterFactory"
+#define COMPONENT_IID "OAFIID:GNOME_Evolution_Addressbook_LDIF_Importer"
+
+static GHashTable *dn_contact_hash;
+
+typedef struct {
+	ESource *primary;
+	
+	GList *contactlist;
+	GList *iterator;
+	EBook *book;
+	gboolean ready;
+} LDIFImporter;
+
+static struct {
+	char *ldif_attribute;
+	EContactField contact_field;
+#define FLAG_ADDRESS 0x01
+	int flags;
+}
+ldif_fields[] = {
+	{ "cn", E_CONTACT_FULL_NAME },
+	{ "mail", E_CONTACT_EMAIL },
+#if 0
+	{ "givenname", E_CONTACT_GIVEN_NAME },
+#endif
+	{ "sn", E_CONTACT_FAMILY_NAME },
+	{ "xmozillanickname", E_CONTACT_NICKNAME },
+	{ "o", E_CONTACT_ORG },
+	{ "locality", 0, FLAG_ADDRESS},
+	{ "st", 0, FLAG_ADDRESS },
+	{ "streetaddress", 0, FLAG_ADDRESS },
+	{ "title", E_CONTACT_TITLE },
+	{ "postalcode", 0, FLAG_ADDRESS },
+	{ "countryname", 0, FLAG_ADDRESS },
+	{ "telephonenumber", E_CONTACT_PHONE_BUSINESS},
+	{ "homephone", E_CONTACT_PHONE_HOME },
+	{ "facsimiletelephonenumber", E_CONTACT_PHONE_BUSINESS_FAX },
+	{ "ou", E_CONTACT_ORG_UNIT },
+	{ "pagerphone", E_CONTACT_PHONE_PAGER },
+	{ "cellphone", E_CONTACT_PHONE_MOBILE },
+	{ "homeurl", E_CONTACT_HOMEPAGE_URL },
+	{ "description", E_CONTACT_NOTE },
+	{ "xmozillausehtmlmail", E_CONTACT_WANTS_HTML }
+};
+static int num_ldif_fields = sizeof(ldif_fields) / sizeof (ldif_fields[0]);
+
+static unsigned char base64_rank[256] = {
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255, 62,255,255,255, 63,
+	 52, 53, 54, 55, 56, 57, 58, 59, 60, 61,255,255,255,  0,255,255,
+	255,  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14,
+	 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,255,255,255,255,255,
+	255, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
+	 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+	255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
+};
+
+/**
+ * base64_decode_step: decode a chunk of base64 encoded data
+ * @in: input stream
+ * @len: max length of data to decode
+ * @out: output stream
+ * @state: holds the number of bits that are stored in @save
+ * @save: leftover bits that have not yet been decoded
+ *
+ * Decodes a chunk of base64 encoded data
+ **/
+static int
+base64_decode_step(unsigned char *in, int len, unsigned char *out, int *state, unsigned int *save)
+{
+	register unsigned char *inptr, *outptr;
+	unsigned char *inend, c;
+	register unsigned int v;
+	int i;
+
+	inend = in+len;
+	outptr = out;
+
+	/* convert 4 base64 bytes to 3 normal bytes */
+	v=*save;
+	i=*state;
+	inptr = in;
+	while (inptr<inend) {
+		c = base64_rank[*inptr++];
+		if (c != 0xff) {
+			v = (v<<6) | c;
+			i++;
+			if (i==4) {
+				*outptr++ = v>>16;
+				*outptr++ = v>>8;
+				*outptr++ = v;
+				i=0;
+			}
+		}
+	}
+
+	*save = v;
+	*state = i;
+
+	/* quick scan back for '=' on the end somewhere */
+	/* fortunately we can drop 1 output char for each trailing = (upto 2) */
+	i=2;
+	while (inptr>in && i) {
+		inptr--;
+		if (base64_rank[*inptr] != 0xff) {
+			if (*inptr == '=')
+				outptr--;
+			i--;
+		}
+	}
+
+	/* if i!= 0 then there is a truncation error! */
+	return outptr-out;
+}
+
+static int
+base64_decode_simple (char *data, int len)
+{
+	int state = 0;
+	unsigned int save = 0;
+
+	return base64_decode_step ((unsigned char *)data, len,
+				   (unsigned char *)data, &state, &save);
+}
+
+static GString *
+getValue( char **src )
+{
+	GString *dest = g_string_new("");
+	char *s = *src;
+	gboolean need_base64 = (*s == ':');
+
+ copy_line:
+	while( *s != 0 && *s != '\n' && *s != '\r' )
+		dest = g_string_append_c (dest, *s++);
+
+	if (*s == '\r') s++;
+	if (*s == '\n')	s++;
+
+	/* check for continuation here */
+	if (*s == ' ') {
+		s++;
+		goto copy_line;
+	}
+
+	if (need_base64) {
+		int new_len;
+		/* it's base64 encoded */
+		dest = g_string_erase (dest, 0, 2);
+		new_len = base64_decode_simple (dest->str, strlen (dest->str));
+		dest = g_string_truncate (dest, new_len);
+	}
+
+	*src = s;
+
+	return dest;
+}
+
+static gboolean
+parseLine (EContact *contact, EContactAddress *address, char **buf)
+{
+	char *ptr;
+	char *colon, *value;
+	gboolean field_handled;
+	GString *ldif_value;
+
+	ptr = *buf;
+
+	/* if the string is empty, return */
+	if (*ptr == '\0') {
+		*buf = NULL;
+		return TRUE;
+	}
+
+	/* skip comment lines */
+	if (*ptr == '#') {
+		ptr = strchr (ptr, '\n');
+		if (!ptr)
+			*buf = NULL;
+		else
+			*buf = ptr + 1;
+		return TRUE;
+	}
+
+	/* first, check for a 'continuation' line */
+	if( ptr[0] == ' ' && ptr[1] != '\n' ) {
+		g_warning ("unexpected continuation line");
+		return FALSE;
+	}
+
+	colon = (char *)strchr( ptr, ':' );
+	if (colon) {
+		int i;
+
+		*colon = 0;
+		value = colon + 1;
+		while ( isspace(*value) )
+			value++;
+
+		ldif_value = getValue(&value );
+
+		field_handled = FALSE;
+		for (i = 0; i < num_ldif_fields; i ++) {
+			if (!g_ascii_strcasecmp (ptr, ldif_fields[i].ldif_attribute)) {
+				if (ldif_fields[i].flags & FLAG_ADDRESS) {
+					if (!g_ascii_strcasecmp (ptr, "locality"))
+						address->locality = g_strdup (ldif_value->str);
+					else if (!g_ascii_strcasecmp (ptr, "countryname"))
+						address->country = g_strdup (ldif_value->str);
+					else if (!g_ascii_strcasecmp (ptr, "postalcode"))
+						address->code = g_strdup (ldif_value->str);
+					else if (!g_ascii_strcasecmp (ptr, "st"))
+						address->region = g_strdup (ldif_value->str);
+					else if (!g_ascii_strcasecmp (ptr, "streetaddress"))
+						address->street = g_strdup (ldif_value->str);
+				}
+				else {
+					/* FIXME is everything a string? */
+					e_contact_set (contact, ldif_fields[i].contact_field, ldif_value->str);
+					g_message ("set %s to %s", ptr, ldif_value->str);
+				}
+				field_handled = TRUE;
+				break;
+			}
+		}
+
+		/* handle objectclass/dn/member out here */
+		if (!field_handled) {
+			if (!g_ascii_strcasecmp (ptr, "dn"))
+				g_hash_table_insert (dn_contact_hash, g_strdup(ldif_value->str), contact);
+			else if (!g_ascii_strcasecmp (ptr, "objectclass") && !g_ascii_strcasecmp (ldif_value->str, "groupofnames")) {
+				e_contact_set (contact, E_CONTACT_IS_LIST, GINT_TO_POINTER (TRUE));
+			}
+			else if (!g_ascii_strcasecmp (ptr, "member")) {
+				GList *email;
+
+				email = e_contact_get (contact, E_CONTACT_EMAIL);
+				email = g_list_append (email, g_strdup (ldif_value->str));
+				e_contact_set (contact, E_CONTACT_EMAIL, email);
+
+				g_list_foreach (email, (GFunc) g_free, NULL);
+				g_list_free (email);
+			}
+		}
+
+		/* put the colon back the way it was, just for kicks */
+		*colon = ':';
+
+		g_string_free (ldif_value, TRUE);
+	}
+	else {
+		g_warning ("unrecognized entry %s", ptr);
+		return FALSE;
+	}
+
+	*buf = value;
+
+	return TRUE;
+}
+
+static EContact *
+getNextLDIFEntry( FILE *f )
+{
+	EContact *contact;
+	EContactAddress *address;
+	GString *str;
+	char line[1024];
+	char *buf;
+
+	str = g_string_new ("");
+	/* read from the file until we get to a blank line (or eof) */
+	while (!feof (f)) {
+		if (!fgets (line, sizeof(line), f))
+			break;
+		if (line[0] == '\n' || (line[0] == '\r' && line[1] == '\n'))
+			break;
+		str = g_string_append (str, line);
+	}
+
+	if (strlen (str->str) == 0) {
+		g_string_free (str, TRUE);
+		return NULL;
+	}
+
+	/* now parse that entry */
+	contact = e_contact_new ();
+	/* FIXME Should ebook have a utility routine for this? */
+	address = g_new0 (EContactAddress, 1);
+
+	buf = str->str;
+	while (buf) {
+		if (!parseLine (contact, address, &buf)) {
+			/* parsing error */
+			g_object_unref (contact);
+			return NULL;
+		}
+	}
+
+	/* fill in the address */
+	/* FIXME Do we want to hard code the address type? */
+	e_contact_set (contact, E_CONTACT_ADDRESS_HOME, address);
+
+	g_string_free (str, TRUE);
+
+	return contact;
+}
+
+static void
+resolve_list_card (LDIFImporter *gci, EContact *contact)
+{
+	GList *email, *l;
+	char *full_name;
+
+	/* set file_as to full_name so we don't later try and figure
+           out a first/last name for the list. */
+	full_name = e_contact_get (contact, E_CONTACT_FULL_NAME);
+	if (full_name)
+		e_contact_set (contact, E_CONTACT_FILE_AS, full_name);
+	g_free (full_name);
+
+	/* FIMXE getting might not be implemented in ebook */
+	email = e_contact_get (contact, E_CONTACT_EMAIL);
+	for (l = email; l; l = l->next) {
+		/* FIXME How did the dn get into the email list? */
+		const char *dn = l->data;
+		EContact *dn_contact = g_hash_table_lookup (dn_contact_hash, dn);
+
+		/* break list chains here, since we don't support them just yet */
+		if (dn_contact && !e_contact_get (dn_contact, E_CONTACT_IS_LIST)) {
+			EABDestination *dest;
+			gchar *dest_xml;
+
+			/* Hard-wired for default e-mail, since netscape only exports 1 email address */
+			dest = eab_destination_new ();
+			eab_destination_set_contact (dest, dn_contact, 0);
+			dest_xml = eab_destination_export (dest);
+			g_object_unref (dest);
+
+			if (dest_xml) {
+				g_free (dn);
+				l->data = dest_xml;
+			}
+			else {
+				/* FIXME Delete from the list properly */
+				g_free (dn);
+				l->data = NULL;
+			}
+		}
+		else {
+			/* FIXME Delete from the list properly */
+			g_free (dn);
+			l->data = NULL;
+		}
+	}		
+	e_contact_set (contact, E_CONTACT_EMAIL, email);
+
+	g_list_foreach (email, (GFunc) g_free, NULL);
+	g_list_free (email);
+}
+
+static GList *
+create_contacts_from_ldif (const char *filename)
+{
+	GList * list = NULL;
+	GList * list_list = NULL;
+	FILE * file;
+	EContact *contact;
+
+	if(!( file = fopen( filename, "r" ) )) {
+		g_warning("Can't open .ldif file");
+		return NULL;
+	}
+
+	dn_contact_hash = g_hash_table_new (g_str_hash, g_str_equal);
+
+	while ((contact = getNextLDIFEntry (file))) {
+
+		if (e_contact_get (contact, E_CONTACT_IS_LIST))
+			list_list = g_list_append (list_list, contact);
+		else
+			list = g_list_append (list, contact);
+	}
+
+	fclose (file);
+
+	list = g_list_reverse (list);
+	list_list = g_list_reverse (list_list);
+	list = g_list_concat (list, list_list);
+
+	return list;
+}
+
+/* EvolutionImporter methods */
+static void
+process_item_fn (EvolutionImporter *importer,
+		 CORBA_Object listener,
+		 void *closure,
+		 CORBA_Environment *ev)
+{
+	LDIFImporter *gci = (LDIFImporter *) closure;
+	EContact *contact;
+
+	if (gci->iterator == NULL)
+		gci->iterator = gci->contactlist;
+
+	if (gci->ready == FALSE) {
+		GNOME_Evolution_ImporterListener_notifyResult (listener,
+							       GNOME_Evolution_ImporterListener_NOT_READY,
+							       gci->iterator ? TRUE : FALSE, 
+							       ev);
+		return;
+	}
+	
+	if (gci->iterator == NULL) {
+		GNOME_Evolution_ImporterListener_notifyResult (listener,
+							       GNOME_Evolution_ImporterListener_UNSUPPORTED_OPERATION,
+							       FALSE, ev);
+		return;
+	}
+
+	contact = gci->iterator->data;
+	/* FIXME I think this could cause 64 bit platform errors */
+	if (e_contact_get (contact, E_CONTACT_IS_LIST))
+		resolve_list_card (gci, contact);
+	/* FIXME Error checking */
+	e_book_add_contact (gci->book, contact, NULL);
+
+	gci->iterator = gci->iterator->next;
+
+	GNOME_Evolution_ImporterListener_notifyResult (listener,
+						       GNOME_Evolution_ImporterListener_OK,
+						       gci->iterator ? TRUE : FALSE, 
+						       ev);
+	if (ev->_major != CORBA_NO_EXCEPTION) {
+		g_warning ("Error notifying listeners.");
+	}
+	
+	return;
+}
+
+static void
+primary_selection_changed_cb (ESourceSelector *selector, gpointer data)
+{
+	LDIFImporter *gci = data;
+
+	if (gci->primary)
+		g_object_unref (gci->primary);
+	gci->primary = g_object_ref (e_source_selector_peek_primary_selection (selector));
+}
+
+static void
+create_control_fn (EvolutionImporter *importer, Bonobo_Control *control, void *closure)
+{
+	LDIFImporter *gci = closure;
+	GtkWidget *vbox, *selector;
+	ESource *primary;
+	ESourceList *source_list;	
+	
+	vbox = gtk_vbox_new (FALSE, FALSE);
+	
+	/* FIXME Better error handling */
+	if (!e_book_get_addressbooks (&source_list, NULL))
+		return;		
+
+	selector = e_source_selector_new (source_list);
+	e_source_selector_show_selection (E_SOURCE_SELECTOR (selector), FALSE);
+	gtk_box_pack_start (GTK_BOX (vbox), selector, FALSE, TRUE, 6);
+	
+	/* FIXME What if no sources? */
+	primary = e_source_list_peek_source_any (source_list);
+	e_source_selector_set_primary_selection (E_SOURCE_SELECTOR (selector), primary);
+	if (!gci->primary)
+		gci->primary = g_object_ref (primary);
+	g_object_unref (source_list);
+		
+	g_signal_connect (G_OBJECT (selector), "primary_selection_changed",
+			  G_CALLBACK (primary_selection_changed_cb), gci);
+
+	gtk_widget_show_all (vbox);
+	
+	*control = BONOBO_OBJREF (bonobo_control_new (vbox));
+}
+
+static char *supported_extensions[2] = {
+	".ldif", NULL
+};
+
+static gboolean
+support_format_fn (EvolutionImporter *importer,
+		   const char *filename,
+		   void *closure)
+{
+	char *ext;
+	int i;
+
+	ext = strrchr (filename, '.');
+	if (ext == NULL) {
+		return FALSE;
+	}
+
+	for (i = 0; supported_extensions[i] != NULL; i++) {
+		if (strcmp (supported_extensions[i], ext) == 0)
+			return TRUE;
+	}
+
+	return FALSE;
+}
+
+static void
+importer_destroy_cb (gpointer data,
+		     GObject *where_object_was)
+{
+	/* FIXME Implement */
+}
+
+static gboolean
+load_file_fn (EvolutionImporter *importer,
+	      const char *filename,
+	      void *closure)
+{
+	LDIFImporter *gci;
+
+	gci = (LDIFImporter *) closure;
+	gci->contactlist = NULL;
+	gci->iterator = NULL;
+	gci->ready = FALSE;
+
+	/* Load the book and the cards */
+	gci->book = e_book_new ();
+	if (!gci->book) {
+		g_message (G_STRLOC ":Couldn't create EBook.");
+		return FALSE;
+	}
+	e_book_load_source (gci->book, gci->primary, TRUE, NULL);
+	gci->contactlist = create_contacts_from_ldif (filename);
+	gci->ready = TRUE;
+
+	return TRUE;
+}
+					   
+static BonoboObject *
+factory_fn (BonoboGenericFactory *_factory,
+	    const char *component_id,
+	    void *closure)
+{
+	EvolutionImporter *importer;
+	LDIFImporter *gci;
+
+	if (!strcmp (component_id, COMPONENT_IID)) {
+		gci = g_new (LDIFImporter, 1);
+		importer = evolution_importer_new (create_control_fn, support_format_fn, 
+						   load_file_fn, process_item_fn, NULL, gci);
+	
+		g_object_weak_ref (G_OBJECT (importer),
+				   importer_destroy_cb, gci);
+	
+		return BONOBO_OBJECT (importer);
+	}
+	else {
+		g_warning (COMPONENT_FACTORY_IID ": Don't know what to do with %s", component_id);
+		return NULL;
+	}
+}
+
+BONOBO_ACTIVATION_SHLIB_FACTORY (COMPONENT_FACTORY_IID, "Evolution LDIF importer Factory", factory_fn, NULL)