From 1a12f9371d8f66c213e187617a069509d2fa2693 Mon Sep 17 00:00:00 2001 From: nobody Date: Mon, 17 Sep 2001 04:32:38 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'BONOBO_CONF_0_12'. svn path=/tags/BONOBO_CONF_0_12/; revision=12875 --- importers/.cvsignore | 20 - importers/ChangeLog | 247 ----- ...GNOME_Evolution_Elm_Intelligent_Importer.oaf.in | 21 - ...Evolution_GnomeCard_Intelligent_Importer.oaf.in | 21 - ..._Evolution_Netscape_Intelligent_Importer.oaf.in | 21 - ...NOME_Evolution_Pine_Intelligent_Importer.oaf.in | 21 - importers/Makefile.am | 90 -- importers/elm-importer.c | 626 ------------ importers/evolution-gnomecard-importer.c | 332 ------ importers/netscape-importer.c | 1068 -------------------- importers/pine-importer.c | 771 -------------- 11 files changed, 3238 deletions(-) delete mode 100644 importers/.cvsignore delete mode 100644 importers/ChangeLog delete mode 100644 importers/GNOME_Evolution_Elm_Intelligent_Importer.oaf.in delete mode 100644 importers/GNOME_Evolution_GnomeCard_Intelligent_Importer.oaf.in delete mode 100644 importers/GNOME_Evolution_Netscape_Intelligent_Importer.oaf.in delete mode 100644 importers/GNOME_Evolution_Pine_Intelligent_Importer.oaf.in delete mode 100644 importers/Makefile.am delete mode 100644 importers/elm-importer.c delete mode 100644 importers/evolution-gnomecard-importer.c delete mode 100644 importers/netscape-importer.c delete mode 100644 importers/pine-importer.c (limited to 'importers') diff --git a/importers/.cvsignore b/importers/.cvsignore deleted file mode 100644 index 3c0c94a291..0000000000 --- a/importers/.cvsignore +++ /dev/null @@ -1,20 +0,0 @@ -.deps -.libs -.pure -Makefile -Makefile.in -*.bb -*.bbg -*.da -*.gcov -*.oaf -*.lo -*.la -Mail-stubs.c -Mail-skels.c -Mail-common.c -Mail.h -evolution-elm-importer -evolution-gnomecard-importer -evolution-pine-importer -evolution-netscape-importer diff --git a/importers/ChangeLog b/importers/ChangeLog deleted file mode 100644 index 166b2734bb..0000000000 --- a/importers/ChangeLog +++ /dev/null @@ -1,247 +0,0 @@ -2001-09-14 Iain Holmes - - * pine-importer.c (import_addressfile): Rewrite. - -2001-09-10 Iain Holmes - - * netscape-importer.c (create_checkboxes_control): Use an HBox instead - of a VBox. - -2001-09-10 Iain Holmes - - * netscape-importer.c (netscape_import_accounts): Handle Movemail case. - -2001-09-07 Iain Holmes - - * pine-importer.c: - netscape-importer.c: - elm-importer.c: - evolution-gnomecard-importer.c (create_checkboxes_control): New control - layout. - -2001-09-05 Kjartan Maraas - - * pine-importer.c: Fix a typo. - -2001-09-04 Iain Holmes - - * netscape-importer.c (netscape_import_accounts): If there is no - username defined in the netscape file, work it out from the passwd - file. - (get_user_fullname): Work out the username from the passwd file, - striping all the extra stuff and expanding the & - -2001-08-31 Iain Holmes - - * elm-importer.c (create_importer_gui): Add a messagebox. - (importer_cb): Update GUI - (elm_import_file): Update GUI. - -2001-08-30 Iain Holmes - - * pine-importer.c (create_importer_gui): Add a messagebox. - (importer_cb): Update GUI - (pine_import_file): Upidate gui. - -2001-08-29 Iain Holmes - - * netscape-importer.c (importer_cb): Handle the case if the importer - isn't ready or is busy. - (importer_timeout_fn): One shot timeout function to call the importer - again. - - * pine-importer.c (importer_cb): Same. - -2001-08-29 Iain Holmes - - * netscape-importer.c (create_importer_gui): Add a message. - (importer_cb): Make the progressbar move (ohhh pretty). - -2001-08-29 Iain Holmes - - * netscape-importer.c (create_importer_gui): Create a progress GUI. - (importer_cb): Update GUI. - (netscape_import_file): Update GUI. - -2001-08-21 Iain Holmes - - * pine-importer.c (scan_dir): Don't add a directory to the list of files - to be imported. - -2001-08-21 Iain Holmes - - * netscape-importer.c (netscape_import_accounts): Fully assign the id - structure. - -2001-08-02 Jon Trowbridge - - * Makefile.am: Added camel dependency (now needed by ebook). - -2001-07-18 Jon Trowbridge - - * netscape-importer.c (netscape_import_accounts): Remove obsolete - reference to account.default_account. - -2001-07-16 Iain Holmes - - * netscape-importer.c (is_dir_empty): Find out if a dir is either empty - or contains only 0 length files. - (netscape_can_import): Only import a file if the dir isn't empty. - -2001-07-12 Iain Holmes - - * netscape-importer.c (netscape_init_prefs): Ignore comments. - (netscape_import_accounts): Move the accounts.source assignment down a - little bit. Fixes about a zillion bugs. - -2001-07-11 Kjartan Maraas - - * Makefile.am: s/GNOMELOCALEDIR/EVOLUTION_LOCALEDIR - * elm-importer.c: Added bindtextdomain(), textdomain() calls. - * evolution-gnomecard-importer.c: Same here. - * pine-importer.c: Same here. - * netscape-importer.c: Same here. - -2001-07-10 Iain Holmes - - * elm-importer.c: Removed all the Don't ask again and alias code. - -2001-07-10 Iain Holmes - - * pine-importer.c: Removed all the Don't ask again and settings code. - Made it quit correctly after it imports addressbooks. - -2001-07-10 Iain Holmes - - * netscape-importer.c: Removed all the code for the bits that are not - supported. Also removed the Don't Ask Me Again button. - -2001-07-10 Iain Holmes - - * evolution-gnomecard-importer.c (gnomecard_store_settings): Don't - use an Ask again thing. - (gnomecard_restore_settings): Ditto. - (gnomecard_can_import): Ditto - (importer_cb): Quit correctly, releasing all our bonobo objects. - (gnomecard_destroy_cb): Release our objects. - (create_checkboxes_control): Don't create an ask again thing. - -2001-07-03 Damon Chaplin - - * Makefile.am: added $(BONOBO_CONF_LIBS) to all the LDADDs, to get - it to compile. Not entirely sure it is correct. - -2001-06-18 Dan Winship - - * Makefile.am (evolution_netscape_importer_LDADD): - (evolution_elm_importer_LDADD): - (evolution_pine_importer_LDADD): - (evolution_gnomecard_importer_LDADD): Remove DB3_LDADD - -2001-06-14 Damon Chaplin - - * .cvsignore: added evolution-gnomecard-importer. - -2001-06-04 Ettore Perazzoli - - Fix Radek's fix. $(DB3_LDADD) must always come *before* - `libeutil.la'. - - * Makefile.am (evolution_netscape_importer_LDADD): Move - `libevolution-importer.la' on top, then put `$(DB3_LDADD)', then - libeutil.la, then the Bonobo and GNOME libs. - (evolution_elm_importer_LDADD): Likewise. - -2001-06-04 Radek Doulik - - * Makefile.am: move DB3_LDADD down to fix linkage - -2001-06-03 Ettore Perazzoli - - * Makefile.am (evolution_netscape_importer_LDADD): Move - `$(DB3_LDADD)' before libeutil, and the shared libraries at the - bottom. - (evolution_elm_importer_LDADD): Likewise. - (evolution_pine_importer_LDADD): Likewise. - (evolution_gnomecard_importer_LDADD): Likewise. - -2001-06-01 Ettore Perazzoli - - * Makefile.am (evolution_netscape_importer_LDADD): Add - `$(DB3_LDADD)'. - (evolution_elm_importer_LDADD): Likewise. - (evolution_pine_importer_LDADD): Likewise. - (evolution_gnomecard_importer_LDADD): Likewise. - -2001-05-16 Iain Holmes - - * evolution-gnomecard-importer.c: Converted the old importer into an - intelligent importer that uses the VCard importer to do it's dirty work. - - * Makefile.am: Create the gnomecard importer. - - * GNOME_Evolution_GnomeCard_Intelligent_Importer.oaf.in: OAF file. - -2001-05-14 Iain Holmes - - * elm-importer.c (elm_store_settings): Store the elm settings. - (elm_restore_settings): Restore all the settings. - (elm_can_import): Check the importer settings, handle the don't ask me - again stuff. - (scan_dir): Switch the arguments to match the other importers. - (destroy_cb): Store the settings. - (elm_create_structure): Set all the settings, handle the new location - of the elm mail. - (create_checkboxes_control): Add a "Don't ask me again" box. - -2001-05-09 Iain Holmes - - * pine-importer.c (import_addressfile): Free memory leaks. - Fix spewage. - - * netscape-importer.c: Fix spewage. - -2001-05-09 Iain Holmes - - * elm-importer.c (elm_can_import): Check the elm rc file for the mail dir. - Handle if the aliases file exists too. - (parse_elm_rc): Parse the elmrc file into a hash table. - (elm_get_rc_value): Get the value out of the hash table. - -2001-05-09 Christopher James Lahey - - * .cvsignore: Added .cvsignore. - -2001-05-09 Christopher James Lahey - - * elm-importer.c, netscape-importer.c, pine-importer.c: Include - bonobo-context.h. - - * netscape-importer.c (netscape_import_accounts): Made a bunch of - const char *s here. - (importer_cb): Replaced CORBA_OBJECT_NIL with CORBA_NO_EXCEPTION - in a error check here. - (netscape_create_structure): Removed unused data variable here. - Added BONOBO_OBJECT casts. - (importer_init): Changed factory to be a BonoboGenericFactory * - instead of a BonoboObject *. - - * pine-importer.c (import_addressfile): Changed signature to match - EBookCallback signature. Added char *email variable. Removed - EList since we only need to deal with one email for now. Changed - this to not set the file as to the fullname. - (pine_can_import): Removed unused settings and addressbook - variables. - (pine_create_structure): Added BONOBO_OBJECT casts. - -2001-05-08 Iain Holmes - - * *: Added everything to CVS. - -2001-04-26 Iain Holmes - - * elm-importer.c: - pine-importer.c: - netscape-importer.c: Moved these files to their own toplevel. - Made them use the mbox importer component instead of doing it themselves. - Made them quit correctly, and store their settings. diff --git a/importers/GNOME_Evolution_Elm_Intelligent_Importer.oaf.in b/importers/GNOME_Evolution_Elm_Intelligent_Importer.oaf.in deleted file mode 100644 index 6676042bf6..0000000000 --- a/importers/GNOME_Evolution_Elm_Intelligent_Importer.oaf.in +++ /dev/null @@ -1,21 +0,0 @@ - - - - - - - - - - - - - - - - - diff --git a/importers/GNOME_Evolution_GnomeCard_Intelligent_Importer.oaf.in b/importers/GNOME_Evolution_GnomeCard_Intelligent_Importer.oaf.in deleted file mode 100644 index e80bbcacbf..0000000000 --- a/importers/GNOME_Evolution_GnomeCard_Intelligent_Importer.oaf.in +++ /dev/null @@ -1,21 +0,0 @@ - - - - - - - - - - - - - - - - - diff --git a/importers/GNOME_Evolution_Netscape_Intelligent_Importer.oaf.in b/importers/GNOME_Evolution_Netscape_Intelligent_Importer.oaf.in deleted file mode 100644 index a53d9bad6c..0000000000 --- a/importers/GNOME_Evolution_Netscape_Intelligent_Importer.oaf.in +++ /dev/null @@ -1,21 +0,0 @@ - - - - - - - - - - - - - - - - - diff --git a/importers/GNOME_Evolution_Pine_Intelligent_Importer.oaf.in b/importers/GNOME_Evolution_Pine_Intelligent_Importer.oaf.in deleted file mode 100644 index 00d15710f4..0000000000 --- a/importers/GNOME_Evolution_Pine_Intelligent_Importer.oaf.in +++ /dev/null @@ -1,21 +0,0 @@ - - - - - - - - - - - - - - - - - diff --git a/importers/Makefile.am b/importers/Makefile.am deleted file mode 100644 index 4c22c5e20b..0000000000 --- a/importers/Makefile.am +++ /dev/null @@ -1,90 +0,0 @@ -bin_PROGRAMS = evolution-netscape-importer \ - evolution-elm-importer \ - evolution-pine-importer \ - evolution-gnomecard-importer - -INCLUDES = \ - -DEVOLUTION_LOCALEDIR=\""$(localedir)"\" \ - -DG_LOG_DOMAIN=\"Evolution-Importer\" \ - -I$(top_srcdir) \ - -I$(top_builddir)/shell \ - -I$(top_srcdir)/shell \ - -I$(top_srcdir)/addressbook/backend/ebook \ - $(BONOBO_GNOME_CFLAGS) \ - $(BONOBO_CONF_CFLAGS) \ - $(EXTRA_GNOME_CFLAGS) - -IDLS = \ - $(top_srcdir)/mail/Mail.idl - -MAIL_GENERATED = \ - Mail.h \ - Mail-common.c \ - Mail-skels.c \ - Mail-stubs.c - -$(MAIL_GENERATED): $(IDLS) - $(ORBIT_IDL) -I $(srcdir) `$(GNOME_CONFIG) --cflags idl` $(top_srcdir)/mail/Mail.idl - -evolution_netscape_importer_SOURCES = \ - $(MAIL_GENERATED) \ - netscape-importer.c - -evolution_netscape_importer_LDADD = \ - $(top_builddir)/shell/importer/libevolution-importer.la \ - $(top_builddir)/e-util/libeutil.la \ - $(BONOBO_CONF_LIBS) \ - $(BONOBO_GNOME_LIBS) \ - $(EXTRA_GNOME_LIBS) - -evolution_elm_importer_SOURCES = \ - elm-importer.c - -evolution_elm_importer_LDADD = \ - $(top_builddir)/shell/importer/libevolution-importer.la \ - $(top_builddir)/e-util/libeutil.la \ - $(BONOBO_CONF_LIBS) \ - $(BONOBO_GNOME_LIBS) \ - $(EXTRA_GNOME_LIBS) - -evolution_pine_importer_SOURCES = \ - pine-importer.c - -evolution_pine_importer_LDADD = \ - $(top_builddir)/shell/importer/libevolution-importer.la \ - $(top_builddir)/addressbook/backend/ebook/libebook.la \ - $(top_builddir)/camel/libcamel.la \ - $(top_builddir)/libibex/libibex.la \ - $(top_builddir)/e-util/libeutil.la \ - $(top_builddir)/e-util/ename/libename.la \ - $(top_builddir)/libversit/libversit.la \ - $(BONOBO_CONF_LIBS) \ - $(BONOBO_GNOME_LIBS) \ - $(EXTRA_GNOME_LIBS) - -evolution_gnomecard_importer_SOURCES = \ - evolution-gnomecard-importer.c - -evolution_gnomecard_importer_LDADD = \ - $(top_builddir)/shell/importer/libevolution-importer.la \ - $(top_builddir)/addressbook/backend/ebook/libebook.la \ - $(top_builddir)/camel/libcamel.la \ - $(top_builddir)/libibex/libibex.la \ - $(top_builddir)/e-util/libeutil.la \ - $(top_builddir)/e-util/ename/libename.la \ - $(top_builddir)/libversit/libversit.la \ - $(BONOBO_CONF_LIBS) \ - $(BONOBO_GNOME_LIBS) \ - $(EXTRA_GNOME_LIBS) - -oafdir = $(datadir)/oaf -oaf_in_files = GNOME_Evolution_Netscape_Intelligent_Importer.oaf.in \ - GNOME_Evolution_Elm_Intelligent_Importer.oaf.in \ - GNOME_Evolution_Pine_Intelligent_Importer.oaf.in \ - GNOME_Evolution_GnomeCard_Intelligent_Importer.oaf.in - -oaf_DATA = $(oaf_in_files:.oaf.in=.oaf) - -EXTRA_DIST = $(oaf_in_files) $(oaf_DATA) - -@XML_I18N_MERGE_OAF_RULE@ diff --git a/importers/elm-importer.c b/importers/elm-importer.c deleted file mode 100644 index 530d5c7d80..0000000000 --- a/importers/elm-importer.c +++ /dev/null @@ -1,626 +0,0 @@ -/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */ -/* elm-importer.c - * - * Authors: - * Iain Holmes - * - * Copyright 2001 Ximian, Inc. (www.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 - */ - -#ifdef HAVE_CONFIG_H -#include -#endif - -#include -#include -#include -#include -#include -#include - -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include -#include - -#define ELM_INTELLIGENT_IMPORTER_IID "OAFIID:GNOME_Evolution_Elm_Intelligent_Importer_Factory" -#define MBOX_IMPORTER_IID "OAFIID:GNOME_Evolution_Mail_Mbox_Importer" -#define KEY "elm-mail-imported" - -/*#define SUPER_IMPORTER_DEBUG*/ -#ifdef SUPER_IMPORTER_DEBUG -#define d(x) x -#else -#define d(x) -#endif - -typedef struct { - GList *dir_list; - - int num; - - GNOME_Evolution_Importer importer; - EvolutionImporterListener *listener; - - GtkWidget *mail; - gboolean do_mail; - - Bonobo_ConfigDatabase db; - - GtkWidget *dialog; - GtkWidget *label; - GtkWidget *progressbar; -} ElmImporter; - -typedef struct { - char *parent; - char *foldername; - char *path; -} ElmFolder; - -static GHashTable *elm_prefs = NULL; - -static void import_next (ElmImporter *importer); - -static GtkWidget * -create_importer_gui (ElmImporter *importer) -{ - GtkWidget *dialog; - - dialog = gnome_message_box_new (_("Evolution is importing your old Elm mail"), GNOME_MESSAGE_BOX_INFO, NULL); - gtk_window_set_title (GTK_WINDOW (dialog), _("Importing...")); - - importer->label = gtk_label_new (_("Please wait")); - importer->progressbar = gtk_progress_bar_new (); - gtk_progress_set_activity_mode (GTK_PROGRESS (importer->progressbar), TRUE); - gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), importer->label, FALSE, FALSE, 0); - gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), importer->progressbar, FALSE, FALSE, 0); - - return dialog; -} - -static void -elm_store_settings (ElmImporter *importer) -{ - bonobo_config_set_boolean (importer->db, "/Importer/Elm/mail", - importer->do_mail, NULL); -} - -static void -elm_restore_settings (ElmImporter *importer) -{ - importer->do_mail = bonobo_config_get_boolean_with_default ( - importer->db, "/Importer/Elm/mail", TRUE, NULL); -} - -static void -importer_cb (EvolutionImporterListener *listener, - EvolutionImporterResult result, - gboolean more_items, - void *data) -{ - ElmImporter *importer = (ElmImporter *) data; - CORBA_Object objref; - CORBA_Environment ev; - - if (more_items) { - GtkAdjustment *adj; - float newval; - - adj = GTK_PROGRESS (importer->progressbar)->adjustment; - newval = adj->value + 1; - if (newval > adj->upper) { - newval = adj->lower; - } - - gtk_progress_set_value (GTK_PROGRESS (importer->progressbar), newval); - CORBA_exception_init (&ev); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - GNOME_Evolution_Importer_processItem (importer->importer, - objref, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Exception: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return; - } - CORBA_exception_free (&ev); - return; - } - - import_next (importer); -} - -static gboolean -elm_import_file (ElmImporter *importer, - const char *path, - const char *folderpath) -{ - CORBA_boolean result; - CORBA_Environment ev; - CORBA_Object objref; - char *str; - - CORBA_exception_init (&ev); - - str = g_strdup_printf (_("Importing %s as %s"), path, folderpath); - gtk_label_set_text (GTK_LABEL (importer->label), str); - g_free (str); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - result = GNOME_Evolution_Importer_loadFile (importer->importer, path, - folderpath, &ev); - if (ev._major != CORBA_NO_EXCEPTION || result == FALSE) { - g_warning ("Exception here: %s", CORBA_exception_id (&ev)); - CORBA_Object_release (importer->importer, &ev); - CORBA_exception_free (&ev); - return FALSE; - } - - importer->listener = evolution_importer_listener_new (importer_cb, - importer); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - GNOME_Evolution_Importer_processItem (importer->importer, objref, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Exception: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return FALSE; - } - CORBA_exception_free (&ev); - - return TRUE; -} - -static void -parse_elm_rc (const char *elmrc) -{ - static gboolean parsed = FALSE; - char line[4096]; - FILE *handle; - gboolean exists; - - if (parsed == TRUE) - return; - - elm_prefs = g_hash_table_new (g_str_hash, g_str_equal); - - exists = g_file_exists (elmrc); - if (exists == FALSE) { - parsed = TRUE; - return; - } - - handle = fopen (elmrc, "r"); - if (handle == NULL) { - parsed = TRUE; - return; - } - - while (fgets (line, 4096, handle) != NULL) { - char *linestart, *end; - char *key, *value; - if (*line == '#' && - (line[1] != '#' && line[2] != '#')) { - continue; - } else if (*line == '\n') { - continue; - } else if (*line == '#' && line[1] == '#' && line[2] == '#') { - linestart = line + 4; - } else { - linestart = line; - } - - end = strstr (linestart, " = "); - if (end == NULL) { - g_warning ("Broken line"); - continue; - } - - *end = 0; - key = g_strdup (linestart); - - linestart = end + 3; - end = strchr (linestart, '\n'); - if (end == NULL) { - g_warning ("Broken line"); - g_free (key); - continue; - } - - *end = 0; - value = g_strdup (linestart); - - g_hash_table_insert (elm_prefs, key, value); - } - - parsed = TRUE; - fclose (handle); -} - -static char * -elm_get_rc_value (const char *value) -{ - if (elm_prefs == NULL) - return NULL; - - return g_hash_table_lookup (elm_prefs, value); -} - -static gboolean -elm_can_import (EvolutionIntelligentImporter *ii, - void *closure) -{ - ElmImporter *importer = closure; - char *elmdir, *maildir, *aliasfile; - char *elmrc; - gboolean exists, mailexists, aliasexists; - gboolean mail, alias; - - mail = bonobo_config_get_boolean_with_default (importer->db, - "/Importer/Elm/mail-imported", FALSE, NULL); - - if (mail) - return FALSE; - - importer->do_mail = !mail; - gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (importer->mail), - importer->do_mail); - - elmdir = gnome_util_prepend_user_home (".elm"); - exists = g_file_exists (elmdir); - - g_free (elmdir); - if (exists == FALSE) - return FALSE; - - elmrc = gnome_util_prepend_user_home (".elm/elmrc"); - parse_elm_rc (elmrc); - - maildir = elm_get_rc_value ("maildir"); - if (maildir == NULL) { - maildir = g_strdup ("Mail"); - } else { - maildir = g_strdup (maildir); - } - - if (!g_path_is_absolute (maildir)) { - elmdir = gnome_util_prepend_user_home (maildir); - } else { - elmdir = g_strdup (maildir); - } - - g_free (maildir); - - mailexists = g_file_exists (elmdir); - g_free (elmdir); - - aliasfile = gnome_util_prepend_user_home (".elm/aliases"); - aliasexists = g_file_exists (aliasfile); - g_free (aliasfile); - - exists = (aliasexists || mailexists); - - return exists; -} - -static void -import_next (ElmImporter *importer) -{ - ElmFolder *data; - - if (importer->dir_list) { - char *folder; - - data = importer->dir_list->data; - - folder = g_concat_dir_and_file (data->parent, data->foldername); - elm_import_file (importer, data->path, folder); - g_free (folder); - g_free (data->parent); - g_free (data->path); - g_free (data->foldername); - g_free (data); - importer->dir_list = importer->dir_list->next; - } - - if (importer->db) { - bonobo_object_release_unref (importer->db, NULL); - } - bonobo_object_release_unref (importer->importer, NULL); - gtk_main_quit (); -} - -static void -scan_dir (ElmImporter *importer, - const char *orig_parent, - const char *dirname) -{ - DIR *maildir; - struct stat buf; - struct dirent *current; - char *str; - - maildir = opendir (dirname); - if (maildir == NULL) { - g_warning ("Could not open %s\nopendir returned: %s", - dirname, g_strerror (errno)); - return; - } - - str = g_strdup_printf (_("Scanning %s"), dirname); - gtk_label_set_text (GTK_LABEL (importer->label), str); - g_free (str); - - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - current = readdir (maildir); - while (current) { - ElmFolder *pf; - char *fullname; - - /* Ignore . and .. */ - if (current->d_name[0] == '.') { - if (current->d_name[1] == '\0' || - (current->d_name[1] == '.' && current->d_name[2] == '\0')) { - current = readdir (maildir); - continue; - } - } - - fullname = g_concat_dir_and_file (dirname, current->d_name); - if (stat (fullname, &buf) == -1) { - g_warning ("Could not stat %s\nstat returned: %s", - fullname, g_strerror (errno)); - current = readdir (maildir); - g_free (fullname); - continue; - } - - if (S_ISREG (buf.st_mode)) { - pf = g_new (ElmFolder, 1); - pf->path = g_strdup (fullname); - pf->parent = g_strdup (orig_parent); - pf->foldername = g_strdup (current->d_name); - importer->dir_list = g_list_append (importer->dir_list, pf); - } else if (S_ISDIR (buf.st_mode)) { - char *subdir; - - pf = g_new (ElmFolder, 1); - pf->path = NULL; - pf->parent = g_strdup (orig_parent); - pf->foldername = g_strdup (current->d_name); - importer->dir_list = g_list_append (importer->dir_list, pf); - - subdir = g_concat_dir_and_file (orig_parent, current->d_name); - scan_dir (importer, subdir, fullname); - g_free (subdir); - } - - g_free (fullname); - current = readdir (maildir); - } -} - -static void -elm_create_structure (EvolutionIntelligentImporter *ii, - void *closure) -{ - CORBA_Environment ev; - ElmImporter *importer = closure; - char *maildir; - - /* Reference our object so when the shell release_unrefs us - we will still exist and not go byebye */ - bonobo_object_ref (BONOBO_OBJECT (ii)); - - elm_store_settings (importer); - - /* Create a dialog */ - importer->dialog = create_importer_gui (importer); - gtk_widget_show_all (importer->dialog); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - if (importer->do_mail == TRUE) { - char *elmdir; - - bonobo_config_set_boolean (importer->db, - "/Importer/Elm/mail-imported", TRUE, NULL); - - maildir = elm_get_rc_value ("maildir"); - if (maildir == NULL) { - maildir = g_strdup ("Mail"); - } else { - maildir = g_strdup (maildir); - } - - if (!g_path_is_absolute (maildir)) { - elmdir = gnome_util_prepend_user_home (maildir); - } else { - elmdir = g_strdup (maildir); - } - - g_free (maildir); - - scan_dir (importer, "/", maildir); - g_free (maildir); - - /* Import them */ - import_next (importer); - } - - CORBA_exception_init (&ev); - Bonobo_ConfigDatabase_sync (importer->db, &ev); - CORBA_exception_free (&ev); - - if (importer->do_mail == FALSE) { - bonobo_object_unref (BONOBO_OBJECT (ii)); - } -} - -static void -elm_destroy_cb (GtkObject *object, - ElmImporter *importer) -{ - CORBA_Environment ev; - - elm_store_settings (importer); - - CORBA_exception_init (&ev); - Bonobo_ConfigDatabase_sync (importer->db, &ev); - CORBA_exception_free (&ev); - - if (importer->db != CORBA_OBJECT_NIL) - bonobo_object_release_unref (importer->db, NULL); - importer->db = CORBA_OBJECT_NIL; - bonobo_object_release_unref (importer->importer, NULL); - - gtk_main_quit (); -} - -/* Fun initialisation stuff */ -/* Fun control stuff */ -static void -checkbox_toggle_cb (GtkToggleButton *tb, - gboolean *do_item) -{ - *do_item = gtk_toggle_button_get_active (tb); -} - -static BonoboControl * -create_checkboxes_control (ElmImporter *importer) -{ - GtkWidget *hbox; - BonoboControl *control; - - hbox = gtk_vbox_new (FALSE, 2); - - importer->mail = gtk_check_button_new_with_label (_("Mail")); - gtk_signal_connect (GTK_OBJECT (importer->mail), "toggled", - GTK_SIGNAL_FUNC (checkbox_toggle_cb), - &importer->do_mail); - - gtk_box_pack_start (GTK_BOX (hbox), importer->mail, FALSE, FALSE, 0); - - gtk_widget_show_all (hbox); - control = bonobo_control_new (hbox); - return control; -} - -static BonoboObject * -factory_fn (BonoboGenericFactory *_factory, - void *closure) -{ - EvolutionIntelligentImporter *importer; - BonoboControl *control; - ElmImporter *elm; - CORBA_Environment ev; - char *message = N_("Evolution has found Elm mail files\n" - "Would you like to import them into Evolution?"); - - elm = g_new0 (ElmImporter, 1); - - CORBA_exception_init (&ev); - - elm->db = bonobo_get_object ("wombat:", "Bonobo/ConfigDatabase", &ev); - - if (BONOBO_EX (&ev) || elm->db == CORBA_OBJECT_NIL) { - g_free (elm); - CORBA_exception_free (&ev); - return NULL; - } - - elm_restore_settings (elm); - - elm->importer = oaf_activate_from_id (MBOX_IMPORTER_IID, 0, NULL, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_free (elm); - g_warning ("Could not start MBox importer\n%s", - CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return NULL; - } - CORBA_exception_free (&ev); - - importer = evolution_intelligent_importer_new (elm_can_import, - elm_create_structure, - _("Elm"), - _(message), elm); - gtk_signal_connect (GTK_OBJECT (importer), "destroy", - GTK_SIGNAL_FUNC (elm_destroy_cb), elm); - - control = create_checkboxes_control (elm); - bonobo_object_add_interface (BONOBO_OBJECT (importer), - BONOBO_OBJECT (control)); - return BONOBO_OBJECT (importer); -} - -/* Entry point */ -static void -importer_init (void) -{ - BonoboGenericFactory *factory; - - factory = bonobo_generic_factory_new (ELM_INTELLIGENT_IMPORTER_IID, - factory_fn, NULL); - if (factory == NULL) { - g_error ("Could not initialise Elm Intelligent Mail Importer."); - exit (0); - } - - bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory)); -} - -int -main (int argc, - char **argv) -{ - CORBA_ORB orb; - - bindtextdomain(PACKAGE, EVOLUTION_LOCALEDIR); - textdomain(PACKAGE); - - gnome_init_with_popt_table ("Evolution-Elm-Importer", - VERSION, 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 initialise Bonobo"); - exit (0); - } - - importer_init (); - bonobo_main (); - - return 0; -} diff --git a/importers/evolution-gnomecard-importer.c b/importers/evolution-gnomecard-importer.c deleted file mode 100644 index 9a558ad783..0000000000 --- a/importers/evolution-gnomecard-importer.c +++ /dev/null @@ -1,332 +0,0 @@ -/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */ -/* evolution-gnomecard-intelligent-importer.c - * - * Copyright (C) 2001 Ximian, Inc. - * - * 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. - * - * Author: Iain Holmes - */ - -#ifdef HAVE_CONFIG_H -#include -#endif -#include - -#include -#include -#include -#include -#include -#include -#include -#include - -#include - -#include -#include -#include - -#define COMPONENT_FACTORY_IID "OAFIID:GNOME_Evolution_GnomeCard_Intelligent_ImporterFactory" -#define VCARD_IMPORTER_IID "OAFIID:GNOME_Evolution_Addressbook_VCard_Importer" - -typedef struct { - GNOME_Evolution_Importer importer; - EvolutionImporterListener *listener; - - GtkWidget *addresses; - gboolean do_addresses; - - Bonobo_ConfigDatabase db; -} GnomeCardImporter; - -static void -gnomecard_store_settings (GnomeCardImporter *importer) -{ - bonobo_config_set_boolean (importer->db, - "/Importer/Gnomecard/address", - importer->do_addresses, NULL); -} - -static void -gnomecard_restore_settings (GnomeCardImporter *importer) -{ - importer->do_addresses = bonobo_config_get_boolean_with_default ( - importer->db, "/Importer/Gnomecard/address", TRUE, NULL); -} - -static gboolean -gnomecard_can_import (EvolutionIntelligentImporter *ii, - void *closure) -{ - GnomeCardImporter *importer = closure; - char *gnomecard; - gboolean result, address; - - address = bonobo_config_get_boolean_with_default (importer->db, - "/Importer/Gnomecard/address-imported", FALSE, NULL); - - if (address == TRUE) - return FALSE; - - gnomecard = gnome_util_home_file ("GnomeCard.gcrd"); - result = g_file_exists (gnomecard); - g_free (gnomecard); - - return result; -} - -static gboolean -importer_timeout_fn (gpointer data) -{ - GnomeCardImporter *gci = (GnomeCardImporter *) data; - CORBA_Object objref; - CORBA_Environment ev; - - CORBA_exception_init (&ev); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (gci->listener)); - GNOME_Evolution_Importer_processItem (gci->importer, objref, &ev); - CORBA_exception_free (&ev); - - return FALSE; -} - -static void -importer_cb (EvolutionImporterListener *listener, - EvolutionImporterResult result, - gboolean more_items, - void *data) -{ - GnomeCardImporter *gci = (GnomeCardImporter *) data; - CORBA_Environment ev; - - if (result == EVOLUTION_IMPORTER_NOT_READY || - result == EVOLUTION_IMPORTER_BUSY) { - gtk_timeout_add (5000, importer_timeout_fn, data); - return; - } - - if (more_items) { - g_idle_add_full (G_PRIORITY_LOW, importer_timeout_fn, data, NULL); - return; - } - - CORBA_exception_init (&ev); - bonobo_object_release_unref (gci->importer, &ev); - bonobo_object_release_unref (gci->db, &ev); - CORBA_exception_free (&ev); - - gtk_main_quit (); -} - -static void -gnomecard_import (EvolutionIntelligentImporter *ii, - void *closure) -{ - CORBA_boolean result; - GnomeCardImporter *gci = closure; - CORBA_Object objref; - CORBA_Environment ev; - char *gnomecard; - - gnomecard = gnome_util_home_file ("GnomeCard.gcrd"); - - /* Reference our object so when the shell release_unrefs us - we will still exist and not go byebye */ - bonobo_object_ref (BONOBO_OBJECT (ii)); - - gnomecard_store_settings (gci); - - if (gci->do_addresses == TRUE) { - - CORBA_exception_init (&ev); - result = GNOME_Evolution_Importer_loadFile (gci->importer, - gnomecard, - "", &ev); - if (ev._major != CORBA_NO_EXCEPTION || result == FALSE) { - g_warning ("Exception here: %s", - CORBA_exception_id (&ev)); - CORBA_Object_release (gci->importer, &ev); - CORBA_exception_free (&ev); - return; - } - - gci->listener = evolution_importer_listener_new (importer_cb, - gci); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (gci->listener)); - GNOME_Evolution_Importer_processItem (gci->importer, objref, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Exception: %s", CORBA_exception_id (&ev)); - return; - } - - CORBA_exception_free (&ev); - - return; - } else { - bonobo_object_unref (BONOBO_OBJECT (ii)); - return; - } -} - -static void -gnomecard_destroy_cb (GtkObject *object, - GnomeCardImporter *importer) -{ - CORBA_Environment ev; - - /* save the state of the checkboxes */ - g_print ("\n---------Settings-------\n"); - g_print ("Addressbook - %s\n", importer->do_addresses? "Yes" : "No"); - - gnomecard_store_settings (importer); - - CORBA_exception_init (&ev); - Bonobo_ConfigDatabase_sync (importer->db, &ev); - CORBA_exception_free (&ev); - - if (importer->importer != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->importer, NULL); - } - - if (importer->db != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->db, NULL); - } - importer->db = CORBA_OBJECT_NIL; - - gtk_main_quit (); -} - -/* Fun with aggregation */ -static void -checkbox_toggle_cb (GtkToggleButton *tb, - gboolean *do_item) -{ - *do_item = gtk_toggle_button_get_active (tb); -} - -static BonoboControl * -create_checkboxes_control (GnomeCardImporter *importer) -{ - GtkWidget *label, *hbox; - BonoboControl *control; - - hbox = gtk_hbox_new (FALSE, 2); - - label = gtk_label_new (_("GnomeCard:")); - importer->addresses = gtk_check_button_new_with_label (_("Addressbook")); - gtk_signal_connect (GTK_OBJECT (importer->addresses), "toggled", - GTK_SIGNAL_FUNC (checkbox_toggle_cb), - &importer->do_addresses); - - gtk_box_pack_start (GTK_BOX (hbox), label, FALSE, FALSE, 0); - gtk_box_pack_start (GTK_BOX (hbox), importer->addresses, FALSE, FALSE, 0); - - gtk_widget_show_all (hbox); - control = bonobo_control_new (hbox); - return control; -} - -static BonoboObject * -factory_fn (BonoboGenericFactory *_factory, - void *closure) -{ - EvolutionIntelligentImporter *importer; - GnomeCardImporter *gci; - char *message = N_("Evolution has found GnomeCard files.\n" - "Would you like them to be imported into Evolution?"); - CORBA_Environment ev; - BonoboControl *control; - - gci = g_new (GnomeCardImporter, 1); - - CORBA_exception_init (&ev); - - gci->db = bonobo_get_object ("wombat:", "Bonobo/ConfigDatabase", &ev); - - if (BONOBO_EX (&ev) || gci->db == CORBA_OBJECT_NIL) { - g_free (gci); - CORBA_exception_free (&ev); - return NULL; - } - - gnomecard_restore_settings (gci); - - gci->importer = oaf_activate_from_id (VCARD_IMPORTER_IID, 0, NULL, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Could not start VCard importer: %s", - CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return NULL; - } - CORBA_exception_free (&ev); - - importer = evolution_intelligent_importer_new (gnomecard_can_import, - gnomecard_import, - "GnomeCard", - _(message), gci); - - gtk_signal_connect (GTK_OBJECT (importer), "destroy", - GTK_SIGNAL_FUNC (gnomecard_destroy_cb), gci); - - control = create_checkboxes_control (gci); - bonobo_object_add_interface (BONOBO_OBJECT (importer), - BONOBO_OBJECT (control)); - - return BONOBO_OBJECT (importer); -} - -static void -importer_init (void) -{ - BonoboGenericFactory *factory; - - factory = bonobo_generic_factory_new (COMPONENT_FACTORY_IID, - factory_fn, NULL); - if (factory == NULL) { - g_error ("Unable to create factory"); - exit (0); - } - - bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory)); -} - -int -main (int argc, - char **argv) -{ - CORBA_ORB orb; - - bindtextdomain(PACKAGE, EVOLUTION_LOCALEDIR); - textdomain(PACKAGE); - - gnome_init_with_popt_table ("Evolution-GnomeCard-Intelligent-Importer", - VERSION, 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."); - exit (0); - } - - importer_init (); - bonobo_main (); - - return 0; -} - - diff --git a/importers/netscape-importer.c b/importers/netscape-importer.c deleted file mode 100644 index 71e5af15db..0000000000 --- a/importers/netscape-importer.c +++ /dev/null @@ -1,1068 +0,0 @@ -/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */ -/* netscape-importer.c - * - * Authors: - * Iain Holmes - * - * Copyright 2001 Ximian, Inc. (www.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 - */ - -#ifdef HAVE_CONFIG_H -#include -#endif - -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include -#include - -#include "Mail.h" - -static char *nsmail_dir = NULL; -static GHashTable *user_prefs = NULL; - -#define FACTORY_IID "OAFIID:GNOME_Evolution_Netscape_Intelligent_Importer_Factory" -#define MBOX_IMPORTER_IID "OAFIID:GNOME_Evolution_Mail_Mbox_Importer" -#define MAIL_CONFIG_IID "OAFIID:GNOME_Evolution_MailConfig" - -#define KEY "netscape-mail-imported" - -/*#define SUPER_IMPORTER_DEBUG*/ -#ifdef SUPER_IMPORTER_DEBUG -#define d(x) x -#else -#define d(x) -#endif - -typedef struct { - GList *dir_list; - - int num; - - GNOME_Evolution_Importer importer; - EvolutionImporterListener *listener; - - /* Checkboxes */ - GtkWidget *mail; - gboolean do_mail; -/* - GtkWidget *addrs; - gboolean do_addrs; - GtkWidget *filters; - gboolean do_filters; -*/ - GtkWidget *settings; - gboolean do_settings; - - Bonobo_ConfigDatabase db; - - /* GUI */ - GtkWidget *dialog; - GtkWidget *label; - GtkWidget *progressbar; -} NetscapeImporter; - -static void import_next (NetscapeImporter *importer); - -static GtkWidget * -create_importer_gui (NetscapeImporter *importer) -{ - GtkWidget *dialog; - - dialog = gnome_message_box_new (_("Evolution is importing your old Netscape data"), GNOME_MESSAGE_BOX_INFO, NULL); - gtk_window_set_title (GTK_WINDOW (dialog), _("Importing...")); - - importer->label = gtk_label_new (_("Please wait")); - importer->progressbar = gtk_progress_bar_new (); - gtk_progress_set_activity_mode (GTK_PROGRESS (importer->progressbar), TRUE); - gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), - importer->label, FALSE, FALSE, 0); - gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), - importer->progressbar, FALSE, FALSE, 0); - - return dialog; -} - -static void -netscape_store_settings (NetscapeImporter *importer) -{ - bonobo_config_set_boolean (importer->db, "/Importer/Netscape/mail", - importer->do_mail, NULL); - bonobo_config_set_boolean (importer->db, "/Importer/Netscape/settings", - importer->do_settings, NULL); -} - -static void -netscape_restore_settings (NetscapeImporter *importer) -{ - importer->do_mail = bonobo_config_get_boolean_with_default ( - importer->db, "/Importer/Netscape/mail", TRUE, NULL); - - importer->do_settings = bonobo_config_get_boolean_with_default ( - importer->db, "/Importer/Netscape/settings", TRUE, NULL); -} - -static const char * -netscape_get_string (const char *strname) -{ - return g_hash_table_lookup (user_prefs, strname); -} - -static int -netscape_get_integer (const char *strname) -{ - char *intstr; - - intstr = g_hash_table_lookup (user_prefs, strname); - if (intstr == NULL) { - return 0; - } else { - return atoi (intstr); - } -} - -static gboolean -netscape_get_boolean (const char *strname) -{ - char *boolstr; - - boolstr = g_hash_table_lookup (user_prefs, strname); - - if (boolstr == NULL) { - return FALSE; - } else { - if (strcasecmp (boolstr, "false") == 0) { - return FALSE; - } else if (strcasecmp (boolstr, "true") == 0) { - return TRUE; - } - } - - return FALSE; -} - -static char * -netscape_get_key (const char *line) -{ - char *line_dup; - char *start, *end; - char *key; - - line_dup = g_strdup (line); - start = strchr (line_dup, '\"'); - if (start == NULL) - goto die; - start++; - if (*start == '\0') - goto die; - - end = strchr (start, '\"'); - if (end == NULL) - goto die; - *end = '\0'; - - key = g_strdup (start); - g_free (line_dup); - - d(g_warning ("Found key: %s", key)); - return key; - - die: - g_free (line_dup); - g_warning ("Broken line: %s", line); - return NULL; -} - -static char * -netscape_get_value (const char *line) -{ - char *line_dup; - char *start, *end; - char *value; - - line_dup = g_strdup (line); - start = strchr (line_dup, ','); - if (start == NULL) - goto die; - start++; - if (*start == '\0') - goto die; - - if (*start == ' ') - start++; - if (*start == '\0') - goto die; - - if (*start == '\"') - start++; - if (*start == '\0') - goto die; - - /* Start should now be the start of the value */ - end = strrchr (start, ')'); - if (end == NULL) - goto die; - *end = '\0'; - if (*(end - 1) == '\"') - *(end - 1) = '\0'; - - if (start == (end - 1)) { - g_free (line_dup); - return NULL; - } - - value = g_strdup (start); - g_free (line_dup); - - d(g_warning ("Found value: %s", value)); - return value; - - die: - g_free (line_dup); - g_warning ("Broken line: %s", line); - return NULL; -} - -static void -netscape_init_prefs (void) -{ - FILE *prefs_handle; - char *nsprefs; - char line[4096]; - - user_prefs = g_hash_table_new (g_str_hash, g_str_equal); - - nsprefs = gnome_util_prepend_user_home (".netscape/preferences.js"); - prefs_handle = fopen (nsprefs, "r"); - g_free (nsprefs); - - if (prefs_handle == NULL) { - d(g_warning ("No .netscape/preferences.js")); - g_hash_table_destroy (user_prefs); - user_prefs = NULL; - return; - } - - /* Find the user mail dir */ - while (fgets (line, 4096, prefs_handle)) { - char *key, *value; - - if (*line == 0) { - continue; - } - - if (*line == '/' && line[1] == '/') { - continue; - } - - key = netscape_get_key (line); - value = netscape_get_value (line); - - if (key == NULL) - continue; - - g_hash_table_insert (user_prefs, key, value); - } - - return; -} - -static char * -get_user_fullname (void) -{ - char *uname, *gecos, *special; - struct passwd *pwd; - - uname = getenv ("USER"); - pwd = getpwnam (uname); - - if (strcmp (pwd->pw_gecos, "") == 0) { - return g_strdup (uname); - } - - special = strchr (pwd->pw_gecos, ','); - if (special == NULL) { - gecos = g_strdup (pwd->pw_gecos); - } else { - gecos = g_strndup (pwd->pw_gecos, special - pwd->pw_gecos); - } - - special = strchr (gecos, '&'); - if (special == NULL) { - return gecos; - } else { - char *capname, *expanded, *noamp; - - capname = g_strdup (uname); - capname[0] = toupper ((int) capname[0]); - noamp = g_strndup (gecos, special - gecos - 1); - expanded = g_strconcat (noamp, capname, NULL); - - g_free (noamp); - g_free (capname); - g_free (gecos); - - return expanded; - } -} - -static void -netscape_import_accounts (NetscapeImporter *importer) -{ - char *username; - const char *nstr; - const char *imap; - GNOME_Evolution_MailConfig_Account account; - GNOME_Evolution_MailConfig_Service source, transport; - GNOME_Evolution_MailConfig_Identity id; - CORBA_Object objref; - CORBA_Environment ev; - - if (user_prefs == NULL) { - netscape_init_prefs (); - if (user_prefs == NULL) - return; - } - - CORBA_exception_init (&ev); - objref = oaf_activate_from_id (MAIL_CONFIG_IID, 0, NULL, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Error starting mail config"); - CORBA_exception_free (&ev); - return; - } - - if (objref == CORBA_OBJECT_NIL) { - g_warning ("Error activating mail config"); - return; - } - - /* Create identify structure */ - nstr = netscape_get_string ("mail.identity.username"); - if (nstr != NULL) { - username = g_strdup (nstr); - } else { - username = get_user_fullname (); - } - - id.name = CORBA_string_dup (username); - nstr = netscape_get_string ("mail.identity.useremail"); - id.address = CORBA_string_dup (nstr ? nstr : ""); - nstr = netscape_get_string ("mail.identity.organization"); - id.organization = CORBA_string_dup (nstr ? nstr : ""); - nstr = netscape_get_string ("mail.signature_file"); - id.signature = CORBA_string_dup (nstr ? nstr : ""); - id.html_signature = CORBA_string_dup (""); - id.has_html_signature = FALSE; - - /* Create transport */ - nstr = netscape_get_string ("network.hosts.smtp_server"); - if (nstr != NULL) { - char *url; - const char *nstr2; - - nstr2 = netscape_get_string ("mail.smtp_name"); - if (nstr2) { - url = g_strconcat ("smtp://", nstr2, "@", nstr, NULL); - } else { - url = g_strconcat ("smtp://", nstr, NULL); - } - transport.url = CORBA_string_dup (url); - transport.keep_on_server = FALSE; - transport.auto_check = FALSE; - transport.auto_check_time = 10; - transport.save_passwd = FALSE; - transport.enabled = TRUE; - g_free (url); - } - - /* Create account */ - account.name = CORBA_string_dup (username); - account.id = id; - account.transport = transport; - - account.drafts_folder_name = CORBA_string_dup (""); - account.drafts_folder_uri = CORBA_string_dup (""); - account.sent_folder_name = CORBA_string_dup (""); - account.sent_folder_uri = CORBA_string_dup (""); - - /* Create POP3 source */ - nstr = netscape_get_string ("network.hosts.pop_server"); - if (nstr != NULL && *nstr != 0) { - char *url; - gboolean bool; - const char *nstr2; - - nstr2 = netscape_get_string ("mail.pop_name"); - if (nstr2) { - url = g_strconcat ("pop://", nstr2, "@", nstr, NULL); - } else { - url = g_strconcat ("pop://", nstr, NULL); - } - source.url = CORBA_string_dup (url); - bool = netscape_get_boolean ("mail.leave_on_server"); - g_warning ("mail.leave_on_server: %s", bool ? "true" : "false"); - source.keep_on_server = netscape_get_boolean ("mail.leave_on_server"); - source.auto_check = TRUE; - source.auto_check_time = 10; - bool = netscape_get_boolean ("mail.remember_password"); - g_warning ("mail.remember_password: %s", bool ? "true" : "false"); - source.save_passwd = netscape_get_boolean ("mail.remember_password"); - source.enabled = TRUE; - g_free (url); - } else { - /* Are there IMAP accounts? */ - imap = netscape_get_string ("network.hosts.imap_servers"); - if (imap != NULL) { - char **servers; - int i; - - servers = g_strsplit (imap, ",", 1024); - for (i = 0; servers[i] != NULL; i++) { - GNOME_Evolution_MailConfig_Service imapsource; - char *serverstr, *name, *url; - const char *username; - - /* Create a server for each of these */ - serverstr = g_strdup_printf ("mail.imap.server.%s.", servers[i]); - name = g_strconcat (serverstr, "userName", NULL); - username = netscape_get_string (name); - g_free (name); - - if (username) - url = g_strconcat ("imap://", username, - "@", servers[i], NULL); - else - url = g_strconcat ("imap://", servers[i], NULL); - - imapsource.url = CORBA_string_dup (url); - - imapsource.keep_on_server = netscape_get_boolean ("mail.leave_on_server"); - - name = g_strconcat (serverstr, "check_new_mail", NULL); - imapsource.auto_check = netscape_get_boolean (name); - g_free (name); - - name = g_strconcat (serverstr, "check_time", NULL); - imapsource.auto_check_time = netscape_get_integer (name); - g_free (name); - - name = g_strconcat (serverstr, "remember_password", NULL); - imapsource.save_passwd = netscape_get_boolean (name); - g_free (name); - imapsource.enabled = TRUE; - - account.source = imapsource; - - GNOME_Evolution_MailConfig_addAccount (objref, &account, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Error setting account: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return; - } - - g_free (url); - g_free (serverstr); - } - - CORBA_exception_free (&ev); - g_strfreev (servers); - return; - } else { - char *url, *path; - - /* Using Movemail */ - path = getenv ("MAIL"); - url = g_strconcat ("mbox://", path, NULL); - source.url = CORBA_string_dup (url); - g_free (url); - - source.keep_on_server = netscape_get_boolean ("mail.leave_on_server"); - source.auto_check = TRUE; - source.auto_check_time = 10; - source.save_passwd = netscape_get_boolean ("mail.remember_password"); - source.enabled = FALSE; - } - } - account.source = source; - - GNOME_Evolution_MailConfig_addAccount (objref, &account, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Error setting account: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return; - } - - g_free (username); - CORBA_exception_free (&ev); -} - -static gboolean -is_dir_empty (const char *path) -{ - DIR *base; - struct stat buf; - struct dirent *contents; - - base = opendir (path); - if (base == NULL) { - return TRUE; /* Can't open dir */ - } - - contents = readdir (base); - while (contents != NULL) { - char *fullpath; - - if (strcmp (contents->d_name, ".") == 0 || - strcmp (contents->d_name, "..") == 0) { - contents = readdir (base); - continue; - } - - fullpath = g_concat_dir_and_file (path, contents->d_name); - stat (fullpath, &buf); - if (S_ISDIR (buf.st_mode)) { - gboolean sub; - - sub = is_dir_empty (fullpath); - if (sub == FALSE) { - g_free (fullpath); - closedir (base); - return FALSE; - } - } else { - /* File */ - if (buf.st_size != 0) { - g_free (fullpath); - closedir (base); - return FALSE; - } - } - - g_free (fullpath); - contents = readdir (base); - } - - closedir (base); - return TRUE; -} - -static gboolean -netscape_can_import (EvolutionIntelligentImporter *ii, - void *closure) -{ - NetscapeImporter *importer = closure; - gboolean mail, settings; - - mail = bonobo_config_get_boolean_with_default (importer->db, - "/Importer/Netscape/mail-imported", FALSE, NULL); - settings = bonobo_config_get_boolean_with_default (importer->db, - "/Importer/Netscape/settings-imported", FALSE, NULL); - - if (settings && mail) - return FALSE; - - importer->do_mail = !mail; - gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (importer->mail), - importer->do_mail); - importer->do_settings = !settings; - gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (importer->settings), - importer->do_settings); - - if (user_prefs == NULL) { - netscape_init_prefs (); - } - - if (user_prefs == NULL) { - d(g_warning ("No netscape dir")); - return FALSE; - } - - nsmail_dir = g_hash_table_lookup (user_prefs, "mail.directory"); - if (nsmail_dir == NULL) { - return FALSE; - } else { - return !is_dir_empty (nsmail_dir); - } -} - -static gboolean -importer_timeout_fn (gpointer data) -{ - NetscapeImporter *importer = (NetscapeImporter *) data; - CORBA_Object objref; - CORBA_Environment ev; - - CORBA_exception_init (&ev); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - GNOME_Evolution_Importer_processItem (importer->importer, objref, &ev); - CORBA_exception_free (&ev); - - return FALSE; -} - -static void -importer_cb (EvolutionImporterListener *listener, - EvolutionImporterResult result, - gboolean more_items, - void *data) -{ - NetscapeImporter *importer = (NetscapeImporter *) data; - CORBA_Object objref; - CORBA_Environment ev; - - if (result == EVOLUTION_IMPORTER_NOT_READY || - result == EVOLUTION_IMPORTER_BUSY) { - gtk_timeout_add (5000, importer_timeout_fn, data); - return; - } - - if (more_items) { - GtkAdjustment *adj; - float newval; - - adj = GTK_PROGRESS (importer->progressbar)->adjustment; - newval = adj->value + 1; - if (newval > adj->upper) { - newval = adj->lower; - } - - gtk_progress_set_value (GTK_PROGRESS (importer->progressbar), newval); - CORBA_exception_init (&ev); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - GNOME_Evolution_Importer_processItem (importer->importer, - objref, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Exception: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return; - } - CORBA_exception_free (&ev); - return; - } - - if (importer->dir_list) { - import_next (importer); - } else { - gtk_main_quit (); - } -} - -static gboolean -netscape_import_file (NetscapeImporter *importer, - const char *path, - const char *folderpath) -{ - CORBA_boolean result; - CORBA_Environment ev; - CORBA_Object objref; - char *str; - - /* Do import */ - d(g_warning ("Importing %s as %s\n", path, folderpath)); - - CORBA_exception_init (&ev); - - str = g_strdup_printf (_("Importing %s as %s"), path, folderpath); - gtk_label_set_text (GTK_LABEL (importer->label), str); - g_free (str); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - result = GNOME_Evolution_Importer_loadFile (importer->importer, path, - folderpath, &ev); - if (ev._major != CORBA_NO_EXCEPTION || result == FALSE) { - g_warning ("Exception here: %s", CORBA_exception_id (&ev)); - CORBA_Object_release (importer->importer, &ev); - CORBA_exception_free (&ev); - return FALSE; - } - - importer->listener = evolution_importer_listener_new (importer_cb, - importer); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - d(g_print ("%s:Processing...\n", __FUNCTION__)); - CORBA_exception_init (&ev); - GNOME_Evolution_Importer_processItem (importer->importer, - objref, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Exception: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return FALSE; - } - CORBA_exception_free (&ev); - - return TRUE; -} - -typedef struct { - NetscapeImporter *importer; - char *parent; - char *path; - char *foldername; -} NetscapeCreateDirectoryData; - -static void -import_next (NetscapeImporter *importer) -{ - NetscapeCreateDirectoryData *data; - - if (importer->dir_list) { - char *folder; - - /* Do the next in the list */ - data = importer->dir_list->data; - - folder = g_concat_dir_and_file (data->parent, data->foldername); - netscape_import_file (importer, data->path, folder); - g_free (folder); - g_free (data->parent); - g_free (data->path); - g_free (data->foldername); - g_free (data); - importer->dir_list = importer->dir_list->next; - } -} - -static char * -maybe_replace_name (const char *original_name) -{ - if (strcmp (original_name, "Trash") == 0) { - return g_strdup ("Netscape-Trash"); /* Trash is an invalid name */ - } else if (strcmp (original_name, "Unsent Messages") == 0) { - return g_strdup ("Outbox"); - } - - return g_strdup (original_name); -} - -/* This function basically flattens the tree structure. - It makes a list of all the directories that are to be imported. */ -static void -scan_dir (NetscapeImporter *importer, - const char *orig_parent, - const char *dirname) -{ - DIR *nsmail; - struct stat buf; - struct dirent *current; - char *str; - - nsmail = opendir (dirname); - if (nsmail == NULL) { - d(g_warning ("Could not open %s\nopendir returned: %s", - dirname, g_strerror (errno))); - return; - } - - str = g_strdup_printf (_("Scanning %s"), dirname); - gtk_label_set_text (GTK_LABEL (importer->label), str); - g_free (str); - - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - current = readdir (nsmail); - while (current) { - char *fullname, *foldername; - - /* Ignore things which start with . - which should be ., .., and the summaries. */ - if (current->d_name[0] =='.') { - current = readdir (nsmail); - continue; - } - - if (*orig_parent == '/') { - foldername = maybe_replace_name (current->d_name); - } else { - foldername = g_strdup (current->d_name); - } - - fullname = g_concat_dir_and_file (dirname, current->d_name); - if (stat (fullname, &buf) == -1) { - d(g_warning ("Could not stat %s\nstat returned:%s", - fullname, g_strerror (errno))); - current = readdir (nsmail); - g_free (fullname); - continue; - } - - if (S_ISREG (buf.st_mode)) { - char *sbd, *parent; - NetscapeCreateDirectoryData *data; - - d(g_print ("File: %s\n", fullname)); - - data = g_new0 (NetscapeCreateDirectoryData, 1); - data->importer = importer; - data->parent = g_strdup (orig_parent); - data->path = g_strdup (fullname); - data->foldername = g_strdup (foldername); - - importer->dir_list = g_list_append (importer->dir_list, - data); - - - parent = g_concat_dir_and_file (orig_parent, - data->foldername); - - /* Check if a .sbd folder exists */ - sbd = g_strconcat (fullname, ".sbd", NULL); - if (g_file_exists (sbd)) { - scan_dir (importer, parent, sbd); - } - - g_free (parent); - g_free (sbd); - } - - g_free (fullname); - g_free (foldername); - current = readdir (nsmail); - } -} - -static void -netscape_create_structure (EvolutionIntelligentImporter *ii, - void *closure) -{ - CORBA_Environment ev; - NetscapeImporter *importer = closure; - - g_return_if_fail (nsmail_dir != NULL); - - /* Reference our object so when the shell release_unrefs us - we will still exist and not go byebye */ - bonobo_object_ref (BONOBO_OBJECT (ii)); - - netscape_store_settings (importer); - - /* Create a dialog */ - importer->dialog = create_importer_gui (importer); - gtk_widget_show_all (importer->dialog); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - if (importer->do_settings == TRUE) { - bonobo_config_set_boolean (importer->db, - "/Importer/Netscape/settings-imported", TRUE, NULL); - netscape_import_accounts (importer); - } - - if (importer->do_mail == TRUE) { - bonobo_config_set_boolean (importer->db, - "/Importer/Netscape/mail-imported", TRUE, NULL); - /* Scan the nsmail folder and find out what folders - need to be imported */ - gtk_label_set_text (GTK_LABEL (importer->label), - _("Scanning directory")); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - scan_dir (importer, "/", nsmail_dir); - - /* Import them */ - gtk_label_set_text (GTK_LABEL (importer->label), - _("Starting import")); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - import_next (importer); - } - - CORBA_exception_init (&ev); - Bonobo_ConfigDatabase_sync (importer->db, &ev); - CORBA_exception_free (&ev); - - if (importer->do_mail == FALSE) { - /* Destroy it here if we weren't importing mail - otherwise the mail importer destroys itself - once the mail in imported */ - bonobo_object_unref (BONOBO_OBJECT (ii)); - } -} - -static void -netscape_destroy_cb (GtkObject *object, - NetscapeImporter *importer) -{ - CORBA_Environment ev; - - netscape_store_settings (importer); - - CORBA_exception_init (&ev); - Bonobo_ConfigDatabase_sync (importer->db, &ev); - CORBA_exception_free (&ev); - - if (importer->db != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->db, NULL); - } - importer->db = CORBA_OBJECT_NIL; - - if (importer->importer != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->importer, NULL); - } - - gtk_main_quit (); -} - -/* Fun initialisation stuff */ - -/* Fun with aggregation */ -static void -checkbox_toggle_cb (GtkToggleButton *tb, - gboolean *do_item) -{ - *do_item = gtk_toggle_button_get_active (tb); -} - -static BonoboControl * -create_checkboxes_control (NetscapeImporter *importer) -{ - GtkWidget *hbox; - BonoboControl *control; - - hbox = gtk_hbox_new (FALSE, 2); - - importer->mail = gtk_check_button_new_with_label (_("Mail")); - gtk_signal_connect (GTK_OBJECT (importer->mail), "toggled", - GTK_SIGNAL_FUNC (checkbox_toggle_cb), - &importer->do_mail); - - importer->settings = gtk_check_button_new_with_label (_("Settings")); - gtk_signal_connect (GTK_OBJECT (importer->settings), "toggled", - GTK_SIGNAL_FUNC (checkbox_toggle_cb), - &importer->do_settings); - - gtk_box_pack_start (GTK_BOX (hbox), importer->mail, FALSE, FALSE, 0); - gtk_box_pack_start (GTK_BOX (hbox), importer->settings, FALSE, FALSE, 0); - - gtk_widget_show_all (hbox); - control = bonobo_control_new (hbox); - return control; -} - -static BonoboObject * -factory_fn (BonoboGenericFactory *_factory, - void *closure) -{ - EvolutionIntelligentImporter *importer; - BonoboControl *control; - NetscapeImporter *netscape; - CORBA_Environment ev; - char *message = N_("Evolution has found Netscape mail files.\n" - "Would you like them to be imported into Evolution?"); - - netscape = g_new0 (NetscapeImporter, 1); - - CORBA_exception_init (&ev); - - netscape->db = bonobo_get_object ("wombat:", "Bonobo/ConfigDatabase", - &ev); - - if (BONOBO_EX (&ev) || netscape->db == CORBA_OBJECT_NIL) { - g_free (netscape); - CORBA_exception_free (&ev); - return NULL; - } - - netscape_restore_settings (netscape); - - netscape->importer = oaf_activate_from_id (MBOX_IMPORTER_IID, 0, NULL, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Could not start MBox importer\n%s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return NULL; - } - CORBA_exception_free (&ev); - - importer = evolution_intelligent_importer_new (netscape_can_import, - netscape_create_structure, - "Netscape", - _(message), netscape); - gtk_signal_connect (GTK_OBJECT (importer), "destroy", - GTK_SIGNAL_FUNC (netscape_destroy_cb), netscape); - - control = create_checkboxes_control (netscape); - bonobo_object_add_interface (BONOBO_OBJECT (importer), - BONOBO_OBJECT (control)); - return BONOBO_OBJECT (importer); -} - -static void -importer_init (void) -{ - BonoboGenericFactory *factory; - - factory = bonobo_generic_factory_new (FACTORY_IID, factory_fn, NULL); - if (factory == NULL) { - g_error ("Unable to create factory"); - exit (0); - } - - bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory)); -} - -int -main (int argc, - char **argv) -{ - CORBA_ORB orb; - - bindtextdomain(PACKAGE, EVOLUTION_LOCALEDIR); - textdomain(PACKAGE); - - gnome_init_with_popt_table ("Evolution-Netscape-Importer", - VERSION, 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 initialise Bonobo"); - exit (0); - } - - importer_init (); - bonobo_main (); - - return 0; -} diff --git a/importers/pine-importer.c b/importers/pine-importer.c deleted file mode 100644 index cb422b360c..0000000000 --- a/importers/pine-importer.c +++ /dev/null @@ -1,771 +0,0 @@ -/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */ -/* pine-importer.c - * - * Authors: - * Iain Holmes - * - * Copyright 2001 Ximian, Inc. (www.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 - */ - -#ifdef HAVE_CONFIG_H -#include -#endif - -#include -#include -#include -#include -#include -#include -#include - -#include - -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include -#include - -#include -#include - -#define PINE_INTELLIGENT_IMPORTER_IID "OAFIID:GNOME_Evolution_Pine_Intelligent_Importer_Factory" -#define MBOX_IMPORTER_IID "OAFIID:GNOME_Evolution_Mail_Mbox_Importer" -#define KEY "pine-mail-imported" - -/*#define SUPER_IMPORTER_DEBUG*/ -#ifdef SUPER_IMPORTER_DEBUG -#define d(x) x -#else -#define d(x) -#endif - -typedef struct { - GList *dir_list; - - GNOME_Evolution_Importer importer; - EvolutionImporterListener *listener; - - GtkWidget *mail; - gboolean do_mail; - GtkWidget *address; - gboolean do_address; - - EBook *book; - - Bonobo_ConfigDatabase db; - - /* GUI */ - GtkWidget *dialog; - GtkWidget *label; - GtkWidget *progressbar; -} PineImporter; - -typedef struct { - char *parent; - char *foldername; - char *path; - gboolean folder; -} PineFolder; - -static void import_next (PineImporter *importer); - -static GtkWidget * -create_importer_gui (PineImporter *importer) -{ - GtkWidget *dialog; - - dialog = gnome_message_box_new (_("Evolution is importing your old Pine data"), GNOME_MESSAGE_BOX_INFO, NULL); - gtk_window_set_title (GTK_WINDOW (dialog), _("Importing...")); - - importer->label = gtk_label_new (_("Please wait")); - importer->progressbar = gtk_progress_bar_new (); - gtk_progress_set_activity_mode (GTK_PROGRESS (importer->progressbar), TRUE); - gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), - importer->label, FALSE, FALSE, 0); - gtk_box_pack_start (GTK_BOX (GNOME_DIALOG (dialog)->vbox), - importer->progressbar, FALSE, FALSE, 0); - return dialog; -} - -static void -pine_store_settings (PineImporter *importer) -{ - bonobo_config_set_boolean (importer->db, "/Importer/Pine/mail", - importer->do_mail, NULL); - bonobo_config_set_boolean (importer->db, "/Importer/Pine/address", - importer->do_address, NULL); -} - -static void -pine_restore_settings (PineImporter *importer) -{ - importer->do_mail = bonobo_config_get_boolean_with_default ( - importer->db, "/Importer/Pine/mail", TRUE, NULL); - - importer->do_address = bonobo_config_get_boolean_with_default ( - importer->db, "/Importer/Pine/address", TRUE, NULL); - -} - -/* A very basic address spliter. - Returns the first email address - denoted by
*/ -static char * -parse_address (const char *address) -{ - char *addr_dup, *result, *start, *end; - - if (address == NULL) { - return NULL; - } - - addr_dup = g_strdup (address); - start = strchr (addr_dup, '<'); - if (start == NULL) { - /* Whole line is an address */ - return addr_dup; - } - - start += 1; - end = strchr (start, '>'); - if (end == NULL) { - result = g_strdup (start); - g_free (addr_dup); - - return result; - } - - *end = 0; - result = strdup (start); - g_free (addr_dup); - - return result; -} - -static void -add_card_cb (EBook *book, - EBookStatus status, - const char *id, - gpointer closure) -{ - gtk_object_unref (GTK_OBJECT (closure)); -} - -static void -parse_line (EBook *book, - char *line) -{ - char **strings; - ECardName *name; - ECard *card; - EList *list; - - card = e_card_new (""); - strings = g_strsplit (line, "\t", 3); - if (strings[0] && strings[1] && strings[2]) { - name = e_card_name_from_string (strings[1]); - gtk_object_set (GTK_OBJECT (card), - "nickname", strings[0], - "full_name", strings[1], - "name", name, NULL); - gtk_object_get (GTK_OBJECT (card), - "email", &list, - NULL); - e_list_append (list, strings[2]); - g_strfreev (strings); - e_book_add_card (book, card, add_card_cb, card); - } -} - -static void -import_addressfile (EBook *book, - EBookStatus status, - gpointer user_data) -{ - char *addressbook; - FILE *handle; - char line[2 * 1024]; - int which = 0; - char *lastline = NULL; - PineImporter *importer = user_data; - - addressbook = gnome_util_prepend_user_home (".addressbook"); - handle = fopen (addressbook, "r"); - g_free (addressbook); - - if (handle == NULL) { - g_warning ("Cannot open .addressbook"); - return; - } - - while (fgets (line + which * 1024, 1024, handle)) { - int length; - char *thisline = line + which * 1024; - - length = strlen (thisline); - if (thisline[length - 1] == '\n') { - line[--length] = 0; - } - - if (lastline && *thisline && isspace ((int) *thisline)) { - char *temp; - - while (*thisline && isspace ((int) *thisline)) { - thisline++; - } - temp = lastline; - lastline = g_strdup_printf ("%s%s", lastline, thisline); - g_free (temp); - continue; - } - - if (lastline) { - parse_line (book, lastline); - g_free (lastline); - } - - lastline = g_strdup (thisline); - } - - if (lastline) { - parse_line (book, lastline); - g_free (lastline); - } - - fclose (handle); - if (importer->do_mail == FALSE) { - if (importer->db != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->db, NULL); - } - gtk_main_quit (); - } -} - -static void -import_addressbook (PineImporter *importer) -{ - char *path, *uri; - - importer->book = e_book_new (); - if (importer->book == NULL) { - g_warning ("Could not create EBook."); - 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 (importer->book, uri, import_addressfile, importer)) { - g_warning ("Error calling load_uri"); - } - g_free (uri); -} - -static gboolean -importer_timeout_fn (gpointer data) -{ - PineImporter *importer = (PineImporter *) data; - CORBA_Object objref; - CORBA_Environment ev; - - CORBA_exception_init (&ev); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - GNOME_Evolution_Importer_processItem (importer->importer, objref, &ev); - CORBA_exception_free (&ev); - - return FALSE; -} - -static void -importer_cb (EvolutionImporterListener *listener, - EvolutionImporterResult result, - gboolean more_items, - void *data) -{ - PineImporter *importer = (PineImporter *) data; - CORBA_Object objref; - CORBA_Environment ev; - - if (result == EVOLUTION_IMPORTER_NOT_READY || - result == EVOLUTION_IMPORTER_BUSY) { - gtk_timeout_add (5000, importer_timeout_fn, data); - return; - } - - if (more_items) { - GtkAdjustment *adj; - float newval; - - adj = GTK_PROGRESS (importer->progressbar)->adjustment; - newval = adj->value + 1; - if (newval > adj->upper) { - newval = adj->lower; - } - - gtk_progress_set_value (GTK_PROGRESS (importer->progressbar), newval); - CORBA_exception_init (&ev); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - GNOME_Evolution_Importer_processItem (importer->importer, - objref, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Exception: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return; - } - CORBA_exception_free (&ev); - return; - } - - if (importer->dir_list) { - import_next (importer); - } else { - bonobo_object_release_unref (importer->importer, NULL); - if (importer->db != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->db, NULL); - } - gtk_main_quit (); - } -} - -static gboolean -pine_import_file (PineImporter *importer, - const char *path, - const char *folderpath, - gboolean folder) -{ - CORBA_boolean result; - CORBA_Environment ev; - CORBA_Object objref; - char *str; - - CORBA_exception_init (&ev); - - str = g_strdup_printf (_("Importing %s as %s"), path, folderpath); - gtk_label_set_text (GTK_LABEL (importer->label), str); - g_free (str); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - result = GNOME_Evolution_Importer_loadFile (importer->importer, path, - folderpath, &ev); - if (ev._major != CORBA_NO_EXCEPTION || result == FALSE) { - g_warning ("Exception here: %s\n%s, %s", CORBA_exception_id (&ev), path, folderpath); - CORBA_Object_release (importer->importer, &ev); - CORBA_exception_free (&ev); - return FALSE; - } - - if (folder == TRUE) { - return FALSE; - } - - importer->listener = evolution_importer_listener_new (importer_cb, - importer); - objref = bonobo_object_corba_objref (BONOBO_OBJECT (importer->listener)); - GNOME_Evolution_Importer_processItem (importer->importer, objref, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Exception: %s", CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - } - CORBA_exception_free (&ev); - - return TRUE; -} - -static gboolean -pine_can_import (EvolutionIntelligentImporter *ii, - void *closure) -{ - PineImporter *importer = closure; - char *maildir, *addrfile; - gboolean mail; - gboolean md_exists, addr_exists; - - /* Already imported */ - - mail = bonobo_config_get_boolean_with_default (importer->db, - "/Importer/Pine/mail-imported", FALSE, NULL); - - if (mail) - return FALSE; - - importer->do_mail = !mail; - - maildir = gnome_util_prepend_user_home ("mail"); - md_exists = g_file_exists (maildir); - importer->do_mail = md_exists; - gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (importer->mail), - importer->do_mail); - - gtk_widget_set_sensitive (importer->mail, md_exists); - g_free (maildir); - - addrfile = gnome_util_prepend_user_home (".addressbook"); - addr_exists = g_file_exists (addrfile); - g_free (addrfile); - gtk_widget_set_sensitive (importer->address, addr_exists); - - return md_exists || addr_exists; -} - -static void -import_next (PineImporter *importer) -{ - PineFolder *data; - - if (importer->dir_list) { - char *folder; - - data = importer->dir_list->data; - - folder = g_concat_dir_and_file (data->parent, data->foldername); -#if 0 - while (pine_import_file (importer, data->path, folder, data->folder) == FALSE) { - g_free (folder); - g_free (data->parent); - g_free (data->path); - g_free (data->foldername); - g_free (data); - importer->dir_list = importer->dir_list->next; - - if (importer->dir_list == NULL) { - break; - } - - data = importer->dir_list->data; - folder = g_concat_dir_and_file (data->parent, data->foldername); - } -#endif - pine_import_file (importer, data->path, folder, data->folder); - g_free (folder); - g_free (data->parent); - g_free (data->path); - g_free (data->foldername); - g_free (data); - importer->dir_list = importer->dir_list->next; - } - -} - -/* Pine uses sent-mail and saved-mail whereas Evolution uses Sent and Drafts */ -static char * -maybe_replace_name (const char *original_name) -{ - if (strcmp (original_name, "sent-mail") == 0) { - return g_strdup ("Sent"); - } else if (strcmp (original_name, "saved-messages") == 0) { - return g_strdup ("Drafts"); - } - - return g_strdup (original_name); -} - -static void -scan_dir (PineImporter *importer, - const char *dirname, - const char *orig_parent) -{ - DIR *maildir; - struct stat buf; - struct dirent *current; - char *str; - - maildir = opendir (dirname); - if (maildir == NULL) { - g_warning ("Could not open %s\nopendir returned: %s", - dirname, g_strerror (errno)); - return; - } - - str = g_strdup_printf (_("Scanning %s"), dirname); - gtk_label_set_text (GTK_LABEL (importer->label), str); - g_free (str); - - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - current = readdir (maildir); - while (current) { - PineFolder *pf; - char *fullname, *foldername; - - /* Ignore . and .. */ - if (current->d_name[0] == '.') { - if (current->d_name[1] == '\0' || - (current->d_name[1] == '.' && current->d_name[2] == '\0')) { - current = readdir (maildir); - continue; - } - } - - if (*orig_parent == '/') { - foldername = maybe_replace_name (current->d_name); - } else { - foldername = g_strdup (current->d_name); - } - - fullname = g_concat_dir_and_file (dirname, current->d_name); - if (stat (fullname, &buf) == -1) { - g_warning ("Could not stat %s\nstat returned: %s", - fullname, g_strerror (errno)); - current = readdir (maildir); - g_free (fullname); - continue; - } - - if (S_ISREG (buf.st_mode)) { - pf = g_new (PineFolder, 1); - pf->path = g_strdup (fullname); - pf->parent = g_strdup (orig_parent); - pf->foldername = g_strdup (foldername); - pf->folder = FALSE; - importer->dir_list = g_list_append (importer->dir_list, pf); - } else if (S_ISDIR (buf.st_mode)) { - char *subdir; - - pf = g_new (PineFolder, 1); - pf->path = g_strdup (fullname); - pf->parent = g_strdup (orig_parent); - pf->foldername = g_strdup (foldername); - pf->folder = TRUE; - importer->dir_list = g_list_append (importer->dir_list, pf); - - subdir = g_concat_dir_and_file (orig_parent, foldername); - scan_dir (importer, fullname, subdir); - g_free (subdir); - } - - g_free (fullname); - g_free (foldername); - current = readdir (maildir); - } -} - -static void -pine_create_structure (EvolutionIntelligentImporter *ii, - void *closure) -{ - CORBA_Environment ev; - PineImporter *importer = closure; - char *maildir; - - bonobo_object_ref (BONOBO_OBJECT (ii)); - pine_store_settings (importer); - - /* Create a dialog */ - importer->dialog = create_importer_gui (importer); - gtk_widget_show_all (importer->dialog); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - if (importer->do_address == TRUE) { - bonobo_config_set_boolean (importer->db, - "/Importer/Pine/address-imported", TRUE, NULL); - - import_addressbook (importer); - } - - if (importer->do_mail == TRUE) { - bonobo_config_set_boolean (importer->db, - "/Importer/Pine/mail-imported", TRUE, NULL); - - maildir = gnome_util_prepend_user_home ("mail"); - gtk_label_set_text (GTK_LABEL (importer->label), - _("Scanning directory")); - while (gtk_events_pending ()) { - gtk_main_iteration (); - } - - scan_dir (importer, maildir, "/"); - g_free (maildir); - - /* Import them */ - import_next (importer); - } - - CORBA_exception_init (&ev); - Bonobo_ConfigDatabase_sync (importer->db, &ev); - CORBA_exception_free (&ev); - - if (importer->do_mail == FALSE && importer->do_address == FALSE) { - /* Destroy it here if we weren't importing mail - otherwise the mail importer destroys itself - once the mail is imported */ - - /* Hmmm, this needs fixed badly */ - bonobo_object_unref (BONOBO_OBJECT (ii)); - } -} - -static void -pine_destroy_cb (GtkObject *object, - PineImporter *importer) -{ - CORBA_Environment ev; - - pine_store_settings (importer); - - CORBA_exception_init (&ev); - Bonobo_ConfigDatabase_sync (importer->db, &ev); - CORBA_exception_free (&ev); - - if (importer->db != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->db, NULL); - } - importer->db = CORBA_OBJECT_NIL; - - if (importer->importer != CORBA_OBJECT_NIL) { - bonobo_object_release_unref (importer->importer, NULL); - } - gtk_main_quit (); -} - -/* Fun inity stuff */ - -/* Fun control stuff */ -static void -checkbox_toggle_cb (GtkToggleButton *tb, - gboolean *do_item) -{ - *do_item = gtk_toggle_button_get_active (tb); -} - -static BonoboControl * -create_checkboxes_control (PineImporter *importer) -{ - GtkWidget *hbox; - BonoboControl *control; - - hbox = gtk_hbox_new (FALSE, 2); - - importer->mail = gtk_check_button_new_with_label (_("Mail")); - gtk_signal_connect (GTK_OBJECT (importer->mail), "toggled", - GTK_SIGNAL_FUNC (checkbox_toggle_cb), - &importer->do_mail); - - importer->address = gtk_check_button_new_with_label (_("Addressbook")); - gtk_signal_connect (GTK_OBJECT (importer->address), "toggled", - GTK_SIGNAL_FUNC (checkbox_toggle_cb), - &importer->do_address); - - gtk_box_pack_start (GTK_BOX (hbox), importer->mail, FALSE, FALSE, 0); - gtk_box_pack_start (GTK_BOX (hbox), importer->address, FALSE, FALSE, 0); - - gtk_widget_show_all (hbox); - control = bonobo_control_new (hbox); - return control; -} - -static BonoboObject * -factory_fn (BonoboGenericFactory *_factory, - void *closure) -{ - EvolutionIntelligentImporter *importer; - BonoboControl *control; - PineImporter *pine; - CORBA_Environment ev; - char *message = N_("Evolution has found Pine mail files.\n" - "Would you like to import them into Evolution?"); - - pine = g_new0 (PineImporter, 1); - - CORBA_exception_init (&ev); - - pine->db = bonobo_get_object ("wombat:", "Bonobo/ConfigDatabase", &ev); - - if (BONOBO_EX (&ev) || pine->db == CORBA_OBJECT_NIL) { - g_free (pine); - CORBA_exception_free (&ev); - return NULL; - } - - pine_restore_settings (pine); - - pine->importer = oaf_activate_from_id (MBOX_IMPORTER_IID, 0, NULL, &ev); - if (ev._major != CORBA_NO_EXCEPTION) { - g_warning ("Could not start MBox importer\n%s", - CORBA_exception_id (&ev)); - CORBA_exception_free (&ev); - return NULL; - } - CORBA_exception_free (&ev); - - importer = evolution_intelligent_importer_new (pine_can_import, - pine_create_structure, - _("Pine"), - _(message), pine); - gtk_signal_connect (GTK_OBJECT (importer), "destroy", - GTK_SIGNAL_FUNC (pine_destroy_cb), pine); - - control = create_checkboxes_control (pine); - bonobo_object_add_interface (BONOBO_OBJECT (importer), - BONOBO_OBJECT (control)); - return BONOBO_OBJECT (importer); -} - -static void -importer_init (void) -{ - BonoboGenericFactory *factory; - - factory = bonobo_generic_factory_new (PINE_INTELLIGENT_IMPORTER_IID, - factory_fn, NULL); - if (factory == NULL) { - g_warning ("Could not initialise Pine Intelligent Mail Importer."); - exit (0); - } - - bonobo_running_context_auto_exit_unref (BONOBO_OBJECT (factory)); -} - -int -main (int argc, - char **argv) -{ - CORBA_ORB orb; - - bindtextdomain(PACKAGE, EVOLUTION_LOCALEDIR); - textdomain(PACKAGE); - - gnome_init_with_popt_table ("Evolution-Pine-Importer", - VERSION, 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 initialise Bonobo"); - exit (0); - } - - importer_init (); - bonobo_main (); - - return 0; -} -- cgit v1.2.3