commit the importer originally from Michael M. Morrison, with fixups by

2001-10-12  Chris Toshok  <toshok@ximian.com>

	* backend/ebook/evolution-ldif-importer.c: commit the importer
	originally from Michael M. Morrison, with fixups by toshok.

	* backend/ebook/Makefile.am (bin_PROGRAMS): add
	evolution-ldif-importer.
	(oaf_in_files): add
	GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in.

	* backend/ebook/e-card-simple.h: add WANTS_HTML and IS_LIST.

	* backend/ebook/e-card-simple.c (field_data): add WANTS_HTML and
	IS_LIST.
	(e_card_simple_set): fix typo.

	* backend/ebook/.cvsignore: ignore
	GNOME_Evolution_Addressbook_LDIF_Importer.oaf and
	evolution-ldif-importer.

	* backend/ebook/GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in:
	ldif importer oafinfo.

svn path=/trunk/; revision=13627

7 files changed, 699 insertions, 4 deletions

diff --git a/addressbook/ChangeLog b/addressbook/ChangeLog
index 2c1e7acd39..a6672fae49 100644
--- a/addressbook/ChangeLog
+++ b/addressbook/ChangeLog
@@ -1,3 +1,26 @@
+2001-10-12  Chris Toshok  <toshok@ximian.com>
+
+	* backend/ebook/evolution-ldif-importer.c: commit the importer
+	originally from Michael M. Morrison, with fixups by toshok.
+
+	* backend/ebook/Makefile.am (bin_PROGRAMS): add
+	evolution-ldif-importer.
+	(oaf_in_files): add
+	GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in.
+
+	* backend/ebook/e-card-simple.h: add WANTS_HTML and IS_LIST.
+
+	* backend/ebook/e-card-simple.c (field_data): add WANTS_HTML and
+	IS_LIST.
+	(e_card_simple_set): fix typo.
+
+	* backend/ebook/.cvsignore: ignore
+	GNOME_Evolution_Addressbook_LDIF_Importer.oaf and
+	evolution-ldif-importer.
+
+	* backend/ebook/GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in:
+	ldif importer oafinfo.
+
 2001-10-12  Christopher James Lahey  <clahey@ximian.com>
 
 	* backend/ebook/e-card-simple.c, backend/ebook/e-card-simple.h:
diff --git a/addressbook/backend/ebook/.cvsignore b/addressbook/backend/ebook/.cvsignore
index f1eef28fc4..deec6ea2e7 100644
--- a/addressbook/backend/ebook/.cvsignore
+++ b/addressbook/backend/ebook/.cvsignore
@@ -16,8 +16,10 @@ load-pine-addressbook
 load-gnomecard-addressbook
 evolution-vcard-importer
 evolution-gnomecard-importer
+evolution-ldif-importer
 Evolution-Composer-stubs.c
 Evolution-Composer-skels.c
 Evolution-Composer-common.c
 Evolution-Composer.h
 GNOME_Evolution_Addressbook_VCard_Importer.oaf
+GNOME_Evolution_Addressbook_LDIF_Importer.oaf
diff --git a/addressbook/backend/ebook/GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in b/addressbook/backend/ebook/GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in
new file mode 100644
index 0000000000..b022dcde67
--- /dev/null
+++ b/addressbook/backend/ebook/GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in
@@ -0,0 +1,29 @@
+<oaf_info>
+
+<oaf_server iid="OAFIID:GNOME_Evolution_Addressbook_LDIF_ImporterFactory"
+	    type="exe"
+	    location="evolution-ldif-importer">
+
+	<oaf_attribute name="repo_ids" type="stringv">
+		<item value="IDL:GNOME/ObjectFactory:1.0"/>
+	</oaf_attribute>
+
+	<oaf_attribute name="description" type="string"
+		       _value="Factory to import LDIF files into Evolution."/>
+</oaf_server>
+
+<oaf_server iid="OAFIID:GNOME_Evolution_Addressbook_LDIF_Importer"
+	    type="factory"
+	    location="OAFIID:GNOME_Evolution_Addressbook_LDIF_ImporterFactory">
+
+	<oaf_attribute name="repo_ids" type="stringv">
+		<item value="IDL:GNOME/Evolution/Importer:1.0"/>
+	</oaf_attribute>
+
+	<oaf_attribute name="evolution:menu-name" type="string"
+		       value="LDAP Data Interchange Format (.ldif)"/>
+	<oaf_attribute name="description" type="string"
+		       _value="Imports LDIF files into Evolution."/>
+</oaf_server>
+
+</oaf_info>
diff --git a/addressbook/backend/ebook/Makefile.am b/addressbook/backend/ebook/Makefile.am
index c2bcbe7c75..ea49ad47f3 100644
--- a/addressbook/backend/ebook/Makefile.am
+++ b/addressbook/backend/ebook/Makefile.am
@@ -1,7 +1,9 @@
 noinst_PROGRAMS = test-card test-client test-client-list
 
-bin_PROGRAMS = evolution-vcard-importer 		\
-	load-pine-addressbook load-gnomecard-addressbook
+bin_PROGRAMS =	evolution-vcard-importer 		\
+		evolution-ldif-importer			\
+		load-pine-addressbook			\
+		load-gnomecard-addressbook
 
 CORBA_SOURCE =						\
 	addressbook.h					\
@@ -133,6 +135,21 @@ evolution_vcard_importer_LDADD =				\
 	$(top_builddir)/libversit/libversit.la			\
 	$(top_builddir)/e-util/libeutil.la
 
+evolution_ldif_importer_SOURCES =			\
+	evolution-ldif-importer.c
+evolution_ldif_importer_LDADD =				\
+	libebook.la						\
+	$(BONOBO_CONF_LIBS)					\
+	$(BONOBO_GNOME_LIBS)					\
+	$(EXTRA_GNOME_LIBS)					\
+	$(top_builddir)/camel/libcamel.la			\
+	$(top_builddir)/libibex/libibex.la		\
+	$(top_builddir)/shell/importer/libevolution-importer.la \
+	$(DB3_LDADD)						\
+	$(top_builddir)/e-util/ename/libename.la		\
+	$(top_builddir)/libversit/libversit.la			\
+	$(top_builddir)/e-util/libeutil.la
+
 load_pine_addressbook_SOURCES =				\
 	load-pine-addressbook.c
 
@@ -170,7 +187,8 @@ dist-hook:
 	cd $(distdir); rm -f $(BUILT_SOURCES)
 
 oafdir = $(datadir)/oaf
-oaf_in_files = GNOME_Evolution_Addressbook_VCard_Importer.oaf.in
+oaf_in_files =	GNOME_Evolution_Addressbook_VCard_Importer.oaf.in \
+		GNOME_Evolution_Addressbook_LDIF_Importer.oaf.in
 oaf_DATA = $(oaf_in_files:.oaf.in=.oaf)
 
 @XML_I18N_MERGE_OAF_RULE@
diff --git a/addressbook/backend/ebook/e-card-simple.c b/addressbook/backend/ebook/e-card-simple.c
index 5fefbafd65..9e6100b5f3 100644
--- a/addressbook/backend/ebook/e-card-simple.c
+++ b/addressbook/backend/ebook/e-card-simple.c
@@ -105,6 +105,8 @@ static ECardSimpleFieldData field_data[] =
  	{ E_CARD_SIMPLE_FIELD_GIVEN_NAME,         "given_name",      "Given Name",    "Given Name",  0,                                E_CARD_SIMPLE_INTERNAL_TYPE_SPECIAL },
  	{ E_CARD_SIMPLE_FIELD_ADDITIONAL_NAME,    "additional_name",  "Additional Name", "Additional Name",  0,                        E_CARD_SIMPLE_INTERNAL_TYPE_SPECIAL },
  	{ E_CARD_SIMPLE_FIELD_NAME_SUFFIX,        "name_suffix",     "Name Suffix",   "Name Suffix",  0,                               E_CARD_SIMPLE_INTERNAL_TYPE_SPECIAL },
+ 	{ E_CARD_SIMPLE_FIELD_WANTS_HTML,         "wants_html",      "Wants HTML",    "Wants HTML",   0,                               E_CARD_SIMPLE_INTERNAL_TYPE_BOOL },
+ 	{ E_CARD_SIMPLE_FIELD_IS_LIST,            "list",            "Is List",       "Is List",      0,                               E_CARD_SIMPLE_INTERNAL_TYPE_BOOL },
 };
 static int field_data_count = sizeof (field_data) / sizeof (field_data[0]);
 
@@ -1047,7 +1049,7 @@ void            e_card_simple_set            (ECardSimple          *simple,
 				gboolean boole = TRUE;
 				if (data == NULL)
 					boole = FALSE;
-				else if (strcasecmp (data, "false"))
+				else if (!strcasecmp (data, "false"))
 					boole = FALSE;
 				gtk_object_set (GTK_OBJECT (simple->card),
 						field_data[field].ecard_field, boole,
diff --git a/addressbook/backend/ebook/e-card-simple.h b/addressbook/backend/ebook/e-card-simple.h
index 886a859928..4acc95cab8 100644
--- a/addressbook/backend/ebook/e-card-simple.h
+++ b/addressbook/backend/ebook/e-card-simple.h
@@ -128,6 +128,8 @@ enum _ECardSimpleField {
         E_CARD_SIMPLE_FIELD_GIVEN_NAME,
         E_CARD_SIMPLE_FIELD_ADDITIONAL_NAME,
         E_CARD_SIMPLE_FIELD_NAME_SUFFIX,
+	E_CARD_SIMPLE_FIELD_WANTS_HTML,
+	E_CARD_SIMPLE_FIELD_IS_LIST,
         E_CARD_SIMPLE_FIELD_LAST
 };
 
diff --git a/addressbook/backend/ebook/evolution-ldif-importer.c b/addressbook/backend/ebook/evolution-ldif-importer.c
new file mode 100644
index 0000000000..101a37b1c9
--- /dev/null
+++ b/addressbook/backend/ebook/evolution-ldif-importer.c
@@ -0,0 +1,619 @@
+/* -*- 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)
+ */
+
+#include <config.h>
+#include <bonobo.h>
+#include <gnome.h>
+#include <liboaf/liboaf.h>
+#include <stdio.h>
+#include <ctype.h>
+
+#include <e-book.h>
+#include <e-card-simple.h>
+#include <e-destination.h>
+
+#include <importer/evolution-importer.h>
+#include <importer/GNOME_Evolution_Importer.h>
+
+#define COMPONENT_FACTORY_IID "OAFIID:GNOME_Evolution_Addressbook_LDIF_ImporterFactory"
+
+static BonoboGenericFactory *factory = NULL;
+
+static GHashTable *dn_card_hash;
+
+typedef struct {
+	char *filename;
+	GList *cardlist;
+	GList *iterator;
+	EBook *book;
+	gboolean ready;
+} LDIFImporter;
+
+#define MAX_STRING_LEN 1024
+
+static struct {
+	char *ldif_attribute;
+	ECardSimpleField simple_field;
+#define FLAG_ADDRESS 0x01
+	int flags;
+}
+ldif_fields[] = {
+	{ "cn", E_CARD_SIMPLE_FIELD_FULL_NAME },
+	{ "mail", E_CARD_SIMPLE_FIELD_EMAIL },
+#if 0
+	{ "givenname", E_CARD_SIMPLE_FIELD_GIVEN_NAME },
+#endif
+	{ "sn", E_CARD_SIMPLE_FIELD_FAMILY_NAME },
+	{ "xmozillanickname", E_CARD_SIMPLE_FIELD_NICKNAME },
+	{ "o", E_CARD_SIMPLE_FIELD_ORG },
+	{ "locality", 0, FLAG_ADDRESS},
+	{ "st", 0, FLAG_ADDRESS },
+	{ "streetaddress", 0, FLAG_ADDRESS },
+	{ "title", E_CARD_SIMPLE_FIELD_TITLE },
+	{ "postalcode", 0, FLAG_ADDRESS },
+	{ "countryname", 0, FLAG_ADDRESS },
+	{ "telephonenumber", E_CARD_SIMPLE_FIELD_PHONE_BUSINESS},
+	{ "homephone", E_CARD_SIMPLE_FIELD_PHONE_HOME },
+	{ "facsimiletelephonenumber", E_CARD_SIMPLE_FIELD_PHONE_BUSINESS_FAX },
+	{ "ou", E_CARD_SIMPLE_FIELD_ORG_UNIT },
+	{ "pagerphone", E_CARD_SIMPLE_FIELD_PHONE_PAGER },
+	{ "cellphone", E_CARD_SIMPLE_FIELD_PHONE_MOBILE },
+	{ "homeurl", E_CARD_SIMPLE_FIELD_URL },
+	{ "description", E_CARD_SIMPLE_FIELD_NOTE },
+	{ "xmozillausehtmlmail", E_CARD_SIMPLE_FIELD_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 void
+getValue( char * dest, char **src )
+{
+	char *d = dest;
+	char *s = *src;
+
+ copy_line:
+	while( *s != 0 && *s != '\n' && *s != '\r' )
+		*dest++ = *s++;
+
+	if (*s == '\r') s++;
+	if (*s == '\n')	s++;
+
+	/* check for continuation here */
+	if (*s == ' ') {
+		s++;
+		goto copy_line;
+	}
+
+	*dest = 0;
+
+	if (*d == ':') {
+		int new_len;
+		/* it's base64 encoded */
+		memmove (d, d + 2, strlen (d) - 2);
+		new_len = base64_decode_simple (d, strlen (d));
+		*(d + new_len) = 0;
+	}
+
+	*src = s;
+}
+
+static gboolean
+parseLine( ECardSimple *simple, ECardDeliveryAddress *address, char **buf )
+{
+	char *ptr;
+	char *colon, *value;
+	gboolean field_handled;
+	char ldif_value[MAX_STRING_LEN];
+
+	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++;
+
+		getValue( ldif_value, &value );
+
+		field_handled = FALSE;
+		for (i = 0; i < num_ldif_fields; i ++) {
+			if (!g_strcasecmp (ptr, ldif_fields[i].ldif_attribute)) {
+				if (ldif_fields[i].flags & FLAG_ADDRESS) {
+					if (!g_strcasecmp (ptr, "locality"))
+						address->city = g_strdup (ldif_value);
+					else if (!g_strcasecmp (ptr, "countryname"))
+						address->country = g_strdup (ldif_value);
+					else if (!g_strcasecmp (ptr, "postalcode"))
+						address->code = g_strdup (ldif_value);
+					else if (!g_strcasecmp (ptr, "st"))
+						address->region = g_strdup (ldif_value);
+					else if (!g_strcasecmp (ptr, "streetaddress"))
+						address->street = g_strdup (ldif_value);
+				}
+				else {
+					e_card_simple_set (simple, ldif_fields[i].simple_field, ldif_value);
+					printf ("set %s to %s\n", ptr, ldif_value);
+				}
+				field_handled = TRUE;
+				break;
+			}
+		}
+
+		/* handle objectclass/dn/member out here */
+		if (!field_handled) {
+			if (!g_strcasecmp (ptr, "dn"))
+				g_hash_table_insert (dn_card_hash, g_strdup(ldif_value), simple->card);
+			else if (!g_strcasecmp (ptr, "objectclass") && !g_strcasecmp (ldif_value, "groupofnames")) {
+				e_card_simple_set (simple, E_CARD_SIMPLE_FIELD_IS_LIST, "true");
+			}
+			else if (!g_strcasecmp (ptr, "member")) {
+				EList *email;
+				gtk_object_get (GTK_OBJECT (simple->card),
+						"email", &email,
+						NULL);
+				e_list_append (email, ldif_value);
+			}
+		}
+
+		/* put the colon back the way it was, just for kicks */
+		*colon = ':';
+	}
+	else {
+		g_warning ("unrecognized entry %s", ptr);
+		return FALSE;
+	}
+
+	*buf = value;
+
+	return TRUE;
+}
+
+static ECard *
+getNextLDIFEntry( FILE *f )
+{
+	ECard *card;
+	ECardAddrLabel *label;
+	ECardSimple *simple;
+	ECardDeliveryAddress *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')
+			break;
+		str = g_string_append (str, line);
+	}
+
+	if (strlen (str->str) == 0) {
+		g_string_free (str, TRUE);
+		return NULL;
+	}
+
+	/* now parse that entry */
+	card = e_card_new ("");
+	simple = e_card_simple_new (card);
+	address = e_card_delivery_address_new ();
+
+	buf = str->str;
+	while (buf) {
+		if (!parseLine (simple, address, &buf)) {
+			/* parsing error */
+			gtk_object_unref (GTK_OBJECT (simple));
+			e_card_delivery_address_unref (address);
+			return NULL;
+		}
+	}
+
+
+	/* fill in the address */
+	address->flags = E_CARD_ADDR_HOME;
+
+	label = e_card_delivery_address_to_label (address);
+	e_card_delivery_address_unref (address);
+
+	e_card_simple_set_address (simple, E_CARD_SIMPLE_ADDRESS_ID_HOME, label);
+
+	e_card_address_label_unref (label);
+
+	e_card_simple_sync_card (simple);
+
+	g_string_free (str, TRUE);
+
+	return card;
+}
+
+static void
+add_card_cb (EBook *book, EBookStatus status, const gchar *id, gpointer closure)
+{
+	ECard *card = E_CARD(closure);
+	char *vcard;
+
+	e_card_set_id (card, id);
+
+	vcard = e_card_get_vcard(card);	
+
+	g_print ("Saved card: %s\n", vcard);
+	g_free(vcard);
+}
+
+static void
+resolve_list_card (LDIFImporter *gci, ECard *card)
+{
+	EList *email;
+	EIterator *email_iter;
+	char *full_name;
+
+	if (!e_card_evolution_list (card))
+		return;
+
+	gtk_object_get (GTK_OBJECT (card),
+			"email", &email,
+			"full_name", &full_name,
+			NULL);
+
+	/* set file_as to full_name so we don't later try and figure
+           out a first/last name for the list. */
+	if (full_name)
+		gtk_object_set (GTK_OBJECT (card),
+				"file_as", full_name,
+				NULL);
+
+	email_iter = e_list_get_iterator (email);
+	while (e_iterator_is_valid (email_iter)) {
+		const char *dn = e_iterator_get (email_iter);
+		ECard *dn_card = g_hash_table_lookup (dn_card_hash, dn);
+
+		/* break list chains here, since we don't support them just yet */
+		if (dn_card && !e_card_evolution_list (dn_card)) {
+			EDestination *dest = e_destination_new ();
+			gchar *dest_xml;
+			e_destination_set_card (dest, dn_card, 0);  /* Hard-wired for default e-mail, since netscape only exports 1 email address */
+			dest_xml = e_destination_export (dest);
+			gtk_object_unref (GTK_OBJECT (dest));
+			if (dest_xml) {
+				e_iterator_set (email_iter, dest_xml);
+				g_free (dest_xml);
+				e_iterator_next (email_iter);
+			}
+			else {
+				e_iterator_delete (email_iter);
+			}
+		}
+		else {
+			e_iterator_delete (email_iter);
+		}
+	}
+}
+
+static void
+book_open_cb (EBook *book, EBookStatus status, gpointer closure)
+{
+	LDIFImporter *gci = (LDIFImporter *) closure;
+	GList * list = NULL;
+	GList * list_list = NULL;
+	FILE * file;
+	ECard *card;
+
+	if(!( file = fopen( gci->filename, "r" ) )) {
+		g_warning("!!!Can't open .ldif file");
+		return;
+	}
+
+	dn_card_hash = g_hash_table_new (g_str_hash, g_str_equal);
+
+	while ((card = getNextLDIFEntry (file))) {
+
+		if (e_card_evolution_list (card))
+			list_list = g_list_append (list_list, card);
+		else
+			list = g_list_append (list, card);
+	}
+
+	fclose( file );
+
+	list = g_list_reverse( list );
+	list_list = g_list_reverse (list_list);
+	list = g_list_concat (list, list_list);
+
+	gci->cardlist = list;
+	gci->ready = TRUE;
+}
+
+static void
+ebook_create (LDIFImporter *gci)
+{
+	gchar *path, *uri;
+	
+	gci->book = e_book_new ();
+
+	if (!gci->book) {
+		printf ("%s: %s(): Couldn't create EBook, bailing.\n",
+			__FILE__,
+			__FUNCTION__);
+		return;
+	}
+
+	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);
+
+	if (! e_book_load_uri (gci->book, uri, book_open_cb, gci)) {
+		printf ("error calling load_uri!\n");
+	}
+	g_free(uri);
+}
+
+/* EvolutionImporter methods */
+static void
+process_item_fn (EvolutionImporter *importer,
+		 CORBA_Object listener,
+		 void *closure,
+		 CORBA_Environment *ev)
+{
+	LDIFImporter *gci = (LDIFImporter *) closure;
+	ECard *card;
+
+	if (gci->iterator == NULL)
+		gci->iterator = gci->cardlist;
+
+	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;
+	}
+
+	card = gci->iterator->data;
+	if (e_card_evolution_list (card))
+		resolve_list_card (gci, card);
+	e_book_add_card (gci->book, card, add_card_cb, card);
+
+	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 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, '.');
+	for (i = 0; supported_extensions[i] != NULL; i++) {
+		if (strcmp (supported_extensions[i], ext) == 0)
+			return TRUE;
+	}
+
+	return FALSE;
+}
+
+static void
+importer_destroy_cb (GtkObject *object,
+		     LDIFImporter *gci)
+{
+	gtk_main_quit ();
+}
+
+static gboolean
+load_file_fn (EvolutionImporter *importer,
+	      const char *filename,
+	      const char *folderpath,
+	      void *closure)
+{
+	LDIFImporter *gci;
+
+	gci = (LDIFImporter *) closure;
+	gci->filename = g_strdup (filename);
+	gci->cardlist = NULL;
+	gci->iterator = NULL;
+	gci->ready = FALSE;
+	ebook_create (gci);
+
+	return TRUE;
+}
+					   
+static BonoboObject *
+factory_fn (BonoboGenericFactory *_factory,
+	    void *closure)
+{
+	EvolutionImporter *importer;
+	LDIFImporter *gci;
+
+	gci = g_new (LDIFImporter, 1);
+	importer = evolution_importer_new (support_format_fn, load_file_fn, 
+					   process_item_fn, NULL, gci);
+	
+	gtk_signal_connect (GTK_OBJECT (importer), "destroy",
+			    GTK_SIGNAL_FUNC (importer_destroy_cb), gci);
+	
+	return BONOBO_OBJECT (importer);
+}
+
+static void
+importer_init (void)
+{
+	if (factory != NULL)
+		return;
+
+	factory = bonobo_generic_factory_new (COMPONENT_FACTORY_IID, 
+					      factory_fn, NULL);
+
+	if (factory == NULL) {
+		g_error ("Unable to create factory");
+	}
+
+	bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory));
+}
+
+int
+main (int argc,
+      char **argv)
+{
+	CORBA_ORB orb;
+	
+	gnome_init_with_popt_table ("Evolution-LDIF-Importer",
+				    "0.0", argc, argv, oaf_popt_options, 0,
+				    NULL);
+	orb = oaf_init (argc, argv);
+	if (bonobo_init (orb, CORBA_OBJECT_NIL, CORBA_OBJECT_NIL) == FALSE) {
+		g_error ("Could not initialize Bonobo.");
+	}
+
+	importer_init ();
+	bonobo_main ();
+
+	return 0;
+}
+
+