027aadb4951eceeaa4e1b62066f9d0d5fb0330b2
[modest] / src / hildon2 / modest-address-book.c
1 /* Copyright (c) 2007, Nokia Corporation
2  * All rights reserved.
3  *
4  * Redistribution and use in source and binary forms, with or without
5  * modification, are permitted provided that the following conditions are
6  * met:
7  *
8  * * Redistributions of source code must retain the above copyright
9  *   notice, this list of conditions and the following disclaimer.
10  * * Redistributions in binary form must reproduce the above copyright
11  *   notice, this list of conditions and the following disclaimer in the
12  *   documentation and/or other materials provided with the distribution.
13  * * Neither the name of the Nokia Corporation nor the names of its
14  *   contributors may be used to endorse or promote products derived from
15  *   this software without specific prior written permission.
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
18  * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
19  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
20  * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
21  * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
22  * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
23  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
24  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
25  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
26  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
27  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28  */
29
30 /* modest-address-book.c */
31
32 #include <config.h>
33 #include <glib/gi18n.h>
34 #include <modest-address-book.h>
35 #include <modest-text-utils.h>
36 #include <libebook/e-book.h>
37 #include <libebook/e-book-view.h>
38 #include <libebook/e-vcard.h>
39 #include "modest-hildon-includes.h"
40 #include <libosso-abook/osso-abook.h>
41 #include <libedataserver/e-data-server-util.h>
42 #include "modest-platform.h"
43 #include "modest-runtime.h"
44 #include "widgets/modest-window-mgr.h"
45 #include "widgets/modest-ui-constants.h"
46 #include <string.h>
47 #include <gtk/gtksizegroup.h>
48 #include <gtk/gtkbox.h>
49 #include <gtk/gtklabel.h>
50 #include <gtk/gtkcellrenderertext.h>
51 #include <gtk/gtktreeselection.h>
52 #include <gtk/gtkentry.h>
53 #include <modest-maemo-utils.h>
54
55 static OssoABookContactModel *contact_model =  NULL;
56 static EBook *book = NULL;
57 static EBookView * book_view = NULL;
58
59 static GSList *get_recipients_for_given_contact (EContact * contact, gboolean *canceled);
60 static gchar *get_email_addr_from_user(const gchar * given_name, gboolean *canceled);
61 static gchar *ui_get_formatted_email_id(gchar * current_given_name,
62                                         gchar * current_sur_name, gchar * current_email_id);
63 static gchar *run_add_email_addr_to_contact_dlg(const gchar * contact_name, gboolean *canceled);
64 static GSList *select_email_addrs_for_contact(GList * email_addr_list);
65 static gboolean resolve_address (const gchar *address, GSList **resolved_addresses, GSList **contact_id, gboolean *canceled);
66 static gchar *unquote_string (const gchar *str);
67
68 static gboolean
69 open_addressbook ()
70 {
71         OssoABookRoster *roster;
72         GError *error = NULL;
73         time_t init,end;
74
75         if (book && book_view)
76                 return TRUE;
77
78         roster = osso_abook_aggregator_get_default (&error);
79         if (error)
80                 goto error;
81
82         /* Wait until it's ready */
83         init = time (NULL);
84         osso_abook_waitable_run ((OssoABookWaitable *) roster,
85                                  g_main_context_default (),
86                                  &error);
87         end = time (NULL);
88         g_debug ("Opening addressbook lasted %ld seconds", (gint) end-init);
89
90         if (error)
91                 goto error;
92
93         if (!osso_abook_waitable_is_ready ((OssoABookWaitable *) roster,
94                                            &error))
95                 goto error;
96
97         book = osso_abook_roster_get_book (roster);
98         book_view = osso_abook_roster_get_book_view (roster);
99
100         return TRUE;
101  error:
102         g_warning ("error opening addressbook %s", error->message);
103         g_error_free (error);
104         return FALSE;
105 }
106
107 void
108 modest_address_book_add_address (const gchar *address,
109                                  GtkWindow *parent)
110 {
111         GtkWidget *dialog = NULL;
112         gchar *email_address;
113         EVCardAttribute *attribute;
114
115         if (!open_addressbook ()) {
116                 return;
117         }
118
119         email_address = modest_text_utils_get_email_address (address);
120
121         attribute = e_vcard_attribute_new (NULL, EVC_EMAIL);
122         e_vcard_attribute_add_value (attribute, email_address);
123         dialog = osso_abook_temporary_contact_dialog_new (parent, book, attribute, NULL);
124
125         gtk_dialog_run (GTK_DIALOG (dialog));
126
127         gtk_widget_destroy (dialog);
128
129         e_vcard_attribute_free (attribute);
130         g_free (email_address);
131
132 }
133
134 void
135 modest_address_book_select_addresses (ModestRecptEditor *recpt_editor,
136                                       GtkWindow *parent_window)
137 {
138         GtkWidget *contact_chooser = NULL;
139         GList *contacts_list = NULL;
140         GSList *email_addrs_per_contact = NULL;
141         gchar *econtact_id;
142         gboolean focus_recpt_editor = FALSE;
143
144         g_return_if_fail (MODEST_IS_RECPT_EDITOR (recpt_editor));
145
146         /* TODO: figure out how to make the contact chooser modal */
147         contact_chooser = osso_abook_contact_chooser_new_with_capabilities (parent_window,
148                                                                             _AB("addr_ti_dia_select_contacts"),
149                                                                             OSSO_ABOOK_CAPS_EMAIL, 
150                                                                             OSSO_ABOOK_CONTACT_ORDER_NAME);
151         /* Enable multiselection */
152         osso_abook_contact_chooser_set_maximum_selection (OSSO_ABOOK_CONTACT_CHOOSER (contact_chooser),
153                                                           G_MAXUINT);
154
155         if (gtk_dialog_run (GTK_DIALOG (contact_chooser)) == GTK_RESPONSE_OK)
156                 contacts_list = osso_abook_contact_chooser_get_selection (OSSO_ABOOK_CONTACT_CHOOSER (contact_chooser));
157         gtk_widget_destroy (contact_chooser);
158
159         if (contacts_list) {
160                 GList *node;
161
162                 for (node = contacts_list; node != NULL; node = g_list_next (node)) {
163                         EContact *contact = (EContact *) node->data;
164                         gboolean canceled;
165
166                         email_addrs_per_contact = get_recipients_for_given_contact (contact, &canceled);
167                         if (email_addrs_per_contact) {
168                                 econtact_id = (gchar *) e_contact_get_const (contact, E_CONTACT_UID);
169                                 modest_recpt_editor_add_resolved_recipient (MODEST_RECPT_EDITOR (recpt_editor), 
170                                                                             email_addrs_per_contact, econtact_id);
171                                 g_slist_foreach (email_addrs_per_contact, (GFunc) g_free, NULL);
172                                 g_slist_free (email_addrs_per_contact);
173                                 email_addrs_per_contact = NULL;
174                                 focus_recpt_editor = TRUE;
175                         }
176                 }
177                 g_list_free (contacts_list);
178         }
179
180         if (focus_recpt_editor)
181                 modest_recpt_editor_grab_focus (MODEST_RECPT_EDITOR (recpt_editor));
182
183 }
184
185 /**
186  * This function returns the resolved recipients for a given EContact.
187  * If no e-mail address is defined, it launches 'Add e-mail address to contact'
188  * dialog to obtain one. If multiple e-mail addresses are found, it launches
189  * 'Select e-mail address' dialog to allow user to select one or more e-mail
190  * addresses for that contact.
191  *
192  * @param  Contact of type #EContact
193  * @return List of resolved recipient strings, to be freed by calling function.
194  */
195 static GSList *
196 get_recipients_for_given_contact (EContact * contact,
197                                   gboolean *canceled)
198 {
199         gchar *givenname = NULL;
200         gchar *familyname = NULL;
201         gchar *nickname = NULL;
202         gchar *emailid = NULL;
203         const gchar *display_name = NULL;
204         GList *list = NULL;
205         gchar *formatted_string = NULL;
206         gboolean email_not_present = FALSE;
207         GSList *formattedlist = NULL, *selected_email_addr_list = NULL, *node = NULL;
208
209         if (!contact) {
210                 return NULL;
211         }
212
213         givenname = (gchar *) e_contact_get_const(contact, E_CONTACT_GIVEN_NAME);
214         familyname = (gchar *) e_contact_get_const(contact, E_CONTACT_FAMILY_NAME);
215         nickname = (gchar *) e_contact_get_const(contact, E_CONTACT_NICKNAME);
216         if (!nickname)
217                 nickname = "";
218         list = (GList *) e_contact_get(contact, E_CONTACT_EMAIL);
219
220         if (!list) {
221                 email_not_present = TRUE;
222         }
223
224         if (list && g_list_length(list) == 1) {
225                 if (list->data == NULL || g_utf8_strlen(list->data, -1) == 0) {
226                         email_not_present = TRUE;
227                 } else {
228                         emailid = g_strstrip(g_strdup(list->data));
229                         if (g_utf8_strlen(emailid, -1) == 0) {
230                                 g_free(emailid);
231                                 email_not_present = TRUE;
232                         }
233                 }
234         }
235
236         /*Launch the 'Add e-mail addr to contact' dialog if required */
237         if (email_not_present) {
238                 OssoABookContact *abook_contact;
239
240                 abook_contact = osso_abook_contact_new_from_template (contact);
241                 display_name = osso_abook_contact_get_display_name(abook_contact);
242
243                 emailid = get_email_addr_from_user(display_name, canceled);
244                 if (emailid) {
245                         list = g_list_append (list, g_strdup (emailid));
246                         e_contact_set(E_CONTACT (abook_contact), E_CONTACT_EMAIL, list);
247                         osso_abook_contact_commit (abook_contact, FALSE, NULL, NULL);
248                 }
249                 g_object_unref (abook_contact);
250         }
251
252         if (emailid) {
253                 if (givenname || familyname)
254                         formatted_string =
255                             ui_get_formatted_email_id(givenname, familyname, emailid);
256                 else
257                         formatted_string = g_strdup(emailid);
258                 formattedlist = g_slist_append(formattedlist, formatted_string);
259                 g_free(emailid);
260         }
261
262         /*Launch the 'Select e-mail address' dialog if required */
263         if (g_list_length(list) > 1) {
264                 selected_email_addr_list = select_email_addrs_for_contact(list);
265                 for (node = selected_email_addr_list; node != NULL; node = node->next) {
266                         if (givenname || familyname)
267                                 formatted_string =
268                                     ui_get_formatted_email_id(givenname, familyname, node->data);
269                         else
270                                 formatted_string = g_strdup(node->data);
271                         formattedlist = g_slist_append(formattedlist, formatted_string);
272                 }
273                 if (selected_email_addr_list) {
274                         g_slist_foreach(selected_email_addr_list, (GFunc) g_free, NULL);
275                         g_slist_free(selected_email_addr_list);
276                 }
277         }
278
279         if (list) {
280                 g_list_foreach(list, (GFunc) g_free, NULL);
281                 g_list_free(list);
282         }
283
284         return formattedlist;
285 }
286
287 /**
288  * This is a helper function used to launch 'Add e-mail address to contact' dialog
289  * after showing appropriate notification, when there is no e-mail address defined
290  * for a selected contact.
291  *
292  * @param  given_name  Given name of the contact
293  * @param  family_name  Family name of the contact
294  * @return E-mail address string entered by user, to be freed by calling function.
295  */
296 static gchar *
297 get_email_addr_from_user(const gchar * given_name, gboolean *canceled)
298 {
299         gchar *notification = NULL;
300         gchar *email_addr = NULL;
301         GtkWidget *note;
302         gboolean note_response;
303
304
305         notification = g_strdup_printf(_("mcen_nc_email_address_not_defined"), given_name);
306
307         note = hildon_note_new_confirmation (NULL, notification);
308         note_response = gtk_dialog_run (GTK_DIALOG(note));
309         gtk_widget_destroy (note);
310         g_free(notification);
311
312         if (note_response == GTK_RESPONSE_OK) {
313                 email_addr = run_add_email_addr_to_contact_dlg (given_name, canceled);
314         }
315
316         return email_addr;
317 }
318
319 /**
320 This function is used to get the formated email id with given name and sur name
321 in the format "GIVENNAME SURNAME <EMAIL ADDRESS>".
322 @param current_given_name    to hold the given name
323 @param current_sur_name      to hold the sur name
324 @param current_email_id      to hold the email id. 
325 @return gchar* string to be freed by calling function
326 */
327 static gchar *
328 ui_get_formatted_email_id(gchar * current_given_name,
329                           gchar * current_sur_name, gchar * current_email_id)
330 {
331         GString *email_id_str = NULL;
332
333         email_id_str = g_string_new(NULL);
334
335         if ((current_given_name != NULL) && ((strlen(current_given_name) != 0))
336             && (current_sur_name != NULL) && ((strlen(current_sur_name) != 0))) {
337                 g_string_append_printf(email_id_str, "%s %s", current_given_name, current_sur_name);
338         } else if ((current_given_name != NULL) && (strlen(current_given_name) != 0)) {
339                 g_string_append_printf(email_id_str, "%s", current_given_name);
340         } else if ((current_sur_name != NULL) && (strlen(current_sur_name) != 0)) {
341                 g_string_append_printf(email_id_str, "%s", current_sur_name);
342         }
343         if (g_utf8_strchr (email_id_str->str, -1, ' ')) {
344                 g_string_prepend_c (email_id_str, '\"');
345                 g_string_append_c (email_id_str, '\"');
346         }
347         g_string_append_printf (email_id_str, " %c%s%c", '<', current_email_id, '>');
348         return g_string_free (email_id_str, FALSE);
349 }
350
351 /**
352  * This is a helper function used to create & run 'Add e-mail address to contact' dialog.
353  * It allows user to enter an e-mail address, and shows appropriate infonote if the
354  * entered string is not a valid e-mail address.
355  *
356  * It must return TRUE in canceled if the dialog was canceled by the user
357  *
358  * @param  contact_name  Full name of the contact
359  * @return E-mail address string entered by user, to be freed by calling function.
360  */
361 static gchar *
362 run_add_email_addr_to_contact_dlg(const gchar * contact_name,
363                                   gboolean *canceled)
364 {
365         GtkWidget *add_email_addr_to_contact_dlg = NULL;
366         GtkSizeGroup *size_group = NULL;
367         GtkWidget *cptn_cntrl = NULL;
368         GtkWidget *name_label = NULL;
369         GtkWidget *email_entry = NULL;
370         gint result = -1;
371         gchar *new_email_addr = NULL;
372         gboolean run_dialog = TRUE;
373
374         g_return_val_if_fail (canceled, NULL);
375
376         *canceled = FALSE;
377
378         add_email_addr_to_contact_dlg =
379             gtk_dialog_new_with_buttons(_("mcen_ti_add_email_title"), NULL,
380                                         GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT,
381                                         _HL("wdgt_bd_save"), GTK_RESPONSE_ACCEPT, NULL);
382         gtk_dialog_set_has_separator(GTK_DIALOG(add_email_addr_to_contact_dlg), FALSE);
383 #ifdef MODEST_TOOLKIT_HILDON2
384         gtk_container_set_border_width (GTK_CONTAINER (GTK_DIALOG (add_email_addr_to_contact_dlg)->vbox), 
385                                         HILDON_MARGIN_DOUBLE);
386 #endif
387         /*Set app_name & state_save related tags to the window */
388
389         size_group = gtk_size_group_new(GTK_SIZE_GROUP_HORIZONTAL);
390         name_label = gtk_label_new(contact_name);
391         gtk_misc_set_alignment(GTK_MISC(name_label), 0.0, 0.5);
392         cptn_cntrl =
393                 modest_maemo_utils_create_captioned (size_group, NULL,
394                                                      _("mcen_ia_add_email_name"), FALSE,
395                                                      name_label);
396         gtk_box_pack_start(GTK_BOX(GTK_DIALOG(add_email_addr_to_contact_dlg)->vbox), cptn_cntrl,
397                            FALSE, FALSE, 0);
398
399         email_entry = hildon_entry_new (HILDON_SIZE_FINGER_HEIGHT | HILDON_SIZE_AUTO_WIDTH);
400         cptn_cntrl = modest_maemo_utils_create_captioned (size_group, NULL, 
401                                                           _("mcen_fi_add_email_name"), FALSE,
402                                                           email_entry);
403         hildon_gtk_entry_set_input_mode(GTK_ENTRY(email_entry), HILDON_GTK_INPUT_MODE_FULL);
404         gtk_box_pack_start(GTK_BOX(GTK_DIALOG(add_email_addr_to_contact_dlg)->vbox), cptn_cntrl,
405                            TRUE, TRUE, 0);
406
407         gtk_widget_show_all(add_email_addr_to_contact_dlg);
408
409         while (run_dialog) {
410                 run_dialog = FALSE;
411                 gtk_widget_grab_focus(email_entry);
412                 result = gtk_dialog_run(GTK_DIALOG(add_email_addr_to_contact_dlg));
413
414                 if (result == GTK_RESPONSE_ACCEPT) {
415                         const gchar *invalid_char_offset = NULL;
416                         new_email_addr = g_strdup(hildon_entry_get_text(HILDON_ENTRY(email_entry)));
417                         new_email_addr = g_strstrip(new_email_addr);
418                         if (!modest_text_utils_validate_email_address (new_email_addr, &invalid_char_offset)) {
419                                 gtk_widget_grab_focus(email_entry);
420                                 if ((invalid_char_offset != NULL)&&(*invalid_char_offset != '\0')) {
421                                         gchar *char_in_string = g_strdup_printf ("%c", *invalid_char_offset);
422                                         gchar *message = g_strdup_printf(
423                                                 _CS("ckdg_ib_illegal_characters_entered"), 
424                                                 char_in_string);
425                                         g_free (char_in_string);
426                                         hildon_banner_show_information (
427                                                 add_email_addr_to_contact_dlg, NULL, message );
428                                         g_free (message);
429                                 } else {
430                                         hildon_banner_show_information (add_email_addr_to_contact_dlg, NULL, _("mcen_ib_invalid_email"));
431                                         run_dialog = TRUE;
432                                 }
433                                 gtk_editable_select_region((GtkEditable *) email_entry, 0, -1);
434                                 g_free(new_email_addr);
435                                 new_email_addr = NULL;
436                         }
437                 } else {
438                         *canceled = TRUE;
439                 }
440         }
441
442         gtk_widget_destroy(add_email_addr_to_contact_dlg);
443
444         return new_email_addr;
445 }
446
447 /**
448  * This is helper function to create & run 'Select e-mail address' dialog, used when
449  * multiple e-mail addresses are found for a selected contact. It allows user to select
450  * one or more e-mail addresses for that contact.
451  *
452  * @param  email_addr_list  List of e-mail addresses for that contact
453  * @return List of user selected e-mail addresses, to be freed by calling function.
454  */
455 static GSList *
456 select_email_addrs_for_contact(GList * email_addr_list)
457 {
458         GtkWidget *select_email_addr_dlg = NULL;
459         GSList *selected_email_addr_list = NULL;
460         GList *node;
461         GtkWidget *selector;
462         gint result = -1;
463
464         if (!email_addr_list)
465                 return NULL;
466
467         select_email_addr_dlg = hildon_picker_dialog_new (NULL);
468         gtk_window_set_title (GTK_WINDOW (select_email_addr_dlg), _("mcen_ti_select_email_title"));
469
470         selector = hildon_touch_selector_new_text ();
471         for (node = email_addr_list; node != NULL && node->data != NULL; node = node->next) {
472                 gchar *email_addr;
473                 email_addr = g_strstrip(g_strdup(node->data));
474                 hildon_touch_selector_append_text (HILDON_TOUCH_SELECTOR (selector), email_addr);
475                 g_free(email_addr);
476         }
477
478         hildon_picker_dialog_set_selector (HILDON_PICKER_DIALOG (select_email_addr_dlg),
479                                            HILDON_TOUCH_SELECTOR (selector));
480         gtk_window_set_default_size (GTK_WINDOW (select_email_addr_dlg), MODEST_DIALOG_WINDOW_MAX_HEIGHT, -1);
481
482         gtk_widget_show_all(select_email_addr_dlg);
483         result = gtk_dialog_run(GTK_DIALOG(select_email_addr_dlg));
484
485         if (result == GTK_RESPONSE_OK) {
486                 gchar *current_text;
487
488                 current_text = hildon_touch_selector_get_current_text (HILDON_TOUCH_SELECTOR (selector));
489                 selected_email_addr_list = g_slist_append (selected_email_addr_list, current_text);
490         }
491
492         gtk_widget_destroy(select_email_addr_dlg);
493         return selected_email_addr_list;
494 }
495
496 /* Assumes that the second argument (the user provided one) is a pure
497    email address without name */
498 static gint
499 compare_addresses (const gchar *address1,
500                    const gchar *mail2)
501 {
502         gint retval;
503         gchar *mail1;
504
505         mail1 = modest_text_utils_get_email_address (address1);
506         retval = g_strcmp0 (mail1, mail2);
507         g_free (mail1);
508
509         return retval;
510 }
511
512 static EContact *
513 get_contact_for_address (GList *contacts,
514                          const gchar *address)
515 {
516         EContact *retval = NULL, *contact;
517         GList *iter;
518         gchar *email;
519
520         email = modest_text_utils_get_email_address (address);
521         iter = contacts;
522         while (iter && !retval) {
523                 GList *emails = NULL;
524
525                 contact = E_CONTACT (iter->data);
526                 emails = e_contact_get (contact, E_CONTACT_EMAIL);
527                 if (emails) {
528                         /* Look for the email address */
529                         if (g_list_find_custom (emails, email, (GCompareFunc) compare_addresses))
530                                 retval = contact;
531
532                         /* Free the list */
533                         g_list_foreach (emails, (GFunc) g_free, NULL);
534                         g_list_free (emails);
535                 }
536                 iter = g_list_next (iter);
537         }
538         g_free (email);
539
540         return retval;
541 }
542
543 static void
544 async_get_contacts_cb (EBook *book,
545                        EBookStatus status,
546                        GList *contacts,
547                        gpointer closure)
548 {
549         GSList *addresses, *iter;
550         GList *to_commit_contacts, *to_add_contacts;
551         EContact *self_contact;
552
553         addresses = (GSList *) closure;
554
555         /* Check errors */
556         if (status != E_BOOK_ERROR_OK)
557                 goto frees;
558
559         self_contact = (EContact *) osso_abook_self_contact_get_default ();
560         if (self_contact) {
561                 contacts = g_list_prepend (contacts, self_contact);
562         }
563
564         iter = addresses;
565         to_commit_contacts = NULL;
566         to_add_contacts = NULL;
567         while (iter) {
568                 EContact *contact;
569                 const gchar *address;
570
571                 /* Look for a contact with such address. We perform
572                    this kind of search because we assume that users
573                    don't usually send emails to tons of addresses */
574                 address = (const gchar *) iter->data;
575                 contact = get_contact_for_address (contacts, address);
576
577                 /* Add new or commit existing contact */
578                 if (contact) {
579                         to_commit_contacts = g_list_prepend (to_commit_contacts, contact);
580                         g_debug ("----Preparing to commit contact %s", address);
581                 } else {
582                         gchar *email_address, *display_address;
583                         GList *email_list = NULL;
584
585                         /* Create new contact and add it to the list */
586                         contact = e_contact_new ();
587                         email_address = modest_text_utils_get_email_address (address);
588                         email_list = g_list_append (email_list, email_address);
589                         e_contact_set (contact, E_CONTACT_EMAIL, email_list);
590                         g_free (email_address);
591                         g_list_free (email_list);
592
593                         display_address = g_strdup (address);
594                         if (display_address) {
595                                 modest_text_utils_get_display_address (display_address);
596                                 if ((display_address[0] != '\0') && (strlen (display_address) != strlen (address)))
597                                         e_contact_set (contact, E_CONTACT_FULL_NAME, (const gpointer)display_address);
598                                 g_free (display_address);
599                         }
600
601                         to_add_contacts = g_list_prepend (to_add_contacts, contact);
602                         g_debug ("----Preparing to add contact %s", address);
603                 }
604
605                 iter = g_slist_next (iter);
606         }
607
608         /* Asynchronously add contacts */
609         if (to_add_contacts)
610                 e_book_async_add_contacts (book, to_add_contacts, NULL, NULL);
611
612         /* Asynchronously commit contacts */
613         if (to_commit_contacts)
614                 e_book_async_commit_contacts (book, to_commit_contacts, NULL, NULL);
615
616         /* Free lists */
617         g_list_free (to_add_contacts);
618         g_list_free (to_commit_contacts);
619
620  frees:
621         if (addresses) {
622                 g_slist_foreach (addresses, (GFunc) g_free, NULL);
623                 g_slist_free (addresses);
624         }
625         if (contacts)
626                 g_list_free (contacts);
627 }
628
629 typedef struct _CheckNamesInfo {
630         GtkWidget *banner;
631         guint show_banner_timeout;
632         guint hide_banner_timeout;
633         gboolean hide;
634         gboolean free_info;
635 } CheckNamesInfo;
636
637 static void
638 hide_check_names_banner (CheckNamesInfo *info)
639 {
640         if (info->show_banner_timeout > 0) {
641                 g_source_remove (info->show_banner_timeout);
642                 info->show_banner_timeout = 0;
643         }
644         if (info->hide_banner_timeout > 0) {
645                 info->hide = TRUE;
646                 return;
647         }
648
649         if (info->banner) {
650                 gtk_widget_destroy (info->banner);
651                 info->banner = NULL;
652                 info->hide = FALSE;
653         }
654
655         if (info->free_info) {
656                 g_slice_free (CheckNamesInfo, info);
657         }
658 }
659
660 static gboolean hide_banner_timeout_handler (CheckNamesInfo *info)
661 {
662         info->hide_banner_timeout = 0;
663         if (info->hide) {
664                 gtk_widget_destroy (info->banner);
665                 info->banner = NULL;
666         }
667         if (info->free_info) {
668                 g_slice_free (CheckNamesInfo, info);
669         }
670         return FALSE;
671 }
672
673 static gboolean show_banner_timeout_handler (CheckNamesInfo *info)
674 {
675         info->show_banner_timeout = 0;
676         info->banner = hildon_banner_show_animation (NULL, NULL, _("mail_ib_checking_names"));
677         info->hide_banner_timeout = g_timeout_add (1000, (GSourceFunc) hide_banner_timeout_handler, (gpointer) info);
678         return FALSE;
679 }
680
681 static void show_check_names_banner (CheckNamesInfo *info)
682 {
683         if (info->hide_banner_timeout > 0) {
684                 g_source_remove (info->hide_banner_timeout);
685                 info->hide_banner_timeout = 0;
686         }
687
688         info->hide = FALSE;
689         if (info->show_banner_timeout > 0)
690                 return;
691
692         if (info->banner == NULL) {
693                 info->show_banner_timeout = g_timeout_add (500, (GSourceFunc) show_banner_timeout_handler, (gpointer) info);
694         }
695 }
696
697 static void clean_check_names_banner (CheckNamesInfo *info)
698 {
699         if (info->hide_banner_timeout) {
700                 info->free_info = TRUE;
701         } else {
702                 if (info->show_banner_timeout) {
703                         g_source_remove (info->show_banner_timeout);
704                 }
705                 if (info->banner)
706                         gtk_widget_destroy (info->banner);
707                 g_slice_free (CheckNamesInfo, info);
708         }
709 }
710
711 void free_resolved_addresses_list (gpointer data,
712                                    gpointer ignored)
713 {
714         GSList *list = (GSList *)data;
715         g_slist_foreach (list, (GFunc) g_free, NULL);
716         g_slist_free (list);
717 }
718
719 gboolean
720 modest_address_book_check_names (ModestRecptEditor *recpt_editor,
721                                  GSList **address_list)
722 {
723         const gchar *recipients = NULL;
724         GSList *start_indexes = NULL, *end_indexes = NULL;
725         GSList *current_start, *current_end;
726         gboolean result = TRUE;
727         GtkTextBuffer *buffer;
728         gint offset_delta = 0;
729         gint last_length;
730         GtkTextIter start_iter, end_iter;
731
732         g_return_val_if_fail (MODEST_IS_RECPT_EDITOR (recpt_editor), FALSE);
733
734         recipients = modest_recpt_editor_get_recipients (recpt_editor);
735         last_length = g_utf8_strlen (recipients, -1);
736         modest_text_utils_get_addresses_indexes (recipients, &start_indexes, &end_indexes);
737
738         if (start_indexes == NULL) {
739                 if (last_length != 0) {
740                         hildon_banner_show_information (NULL, NULL, _("mcen_nc_no_matching_contacts"));
741                         return FALSE;
742                 } else {
743                         return TRUE;
744                 }
745         }
746
747         current_start = start_indexes;
748         current_end = end_indexes;
749         buffer = modest_recpt_editor_get_buffer (recpt_editor);
750
751         while (current_start != NULL) {
752                 gchar *address;
753                 gchar *start_ptr, *end_ptr;
754                 gint start_pos, end_pos;
755                 const gchar *invalid_char_position = NULL;
756                 gboolean store_address = FALSE;
757
758                 start_pos = (*((gint*) current_start->data)) + offset_delta;
759                 end_pos = (*((gint*) current_end->data)) + offset_delta;
760
761                 start_ptr = g_utf8_offset_to_pointer (recipients, start_pos);
762                 end_ptr = g_utf8_offset_to_pointer (recipients, end_pos);
763
764                 address = g_strstrip (g_strndup (start_ptr, end_ptr - start_ptr));
765                 gtk_text_buffer_get_iter_at_offset (buffer, &start_iter, start_pos);
766                 gtk_text_buffer_get_iter_at_offset (buffer, &end_iter, end_pos);
767                 gtk_text_buffer_select_range (buffer, &start_iter, &end_iter);
768
769                 if (!modest_text_utils_validate_recipient (address, &invalid_char_position)) {
770                         if ((invalid_char_position != NULL) && (*invalid_char_position != '\0')) {
771                                 gchar *char_in_string = g_strdup_printf("%c", *invalid_char_position);
772                                 gchar *message = 
773                                         g_strdup_printf(_CS("ckdg_ib_illegal_characters_entered"), 
774                                                         char_in_string);
775                                 g_free (char_in_string);
776                                 hildon_banner_show_information (NULL, NULL, message );
777                                 g_free (message);
778                                 result = FALSE;
779                         } else if (strstr (address, "@") == NULL) {
780                                 /* here goes searching in addressbook */
781                                 gboolean canceled;
782                                 GSList *contact_ids = NULL;
783                                 GSList *resolved_addresses = NULL;
784
785                                 result = resolve_address (address, &resolved_addresses, &contact_ids, &canceled);
786
787                                 if (result) {
788                                         gint new_length;
789
790                                         modest_recpt_editor_replace_with_resolved_recipients (recpt_editor,
791                                                                                               &start_iter, &end_iter,
792                                                                                               resolved_addresses,
793                                                                                               contact_ids);
794                                         g_slist_foreach (contact_ids, (GFunc) g_free, NULL);
795                                         g_slist_foreach (resolved_addresses, free_resolved_addresses_list, NULL);
796                                         g_slist_free (contact_ids);
797                                         g_slist_free (resolved_addresses);
798
799                                         /* update offset delta */
800                                         recipients = modest_recpt_editor_get_recipients (recpt_editor);
801                                         new_length = g_utf8_strlen (recipients, -1);
802                                         offset_delta = offset_delta + new_length - last_length;
803                                         last_length = new_length;
804                                 } else {
805                                         if (canceled) {
806                                                 /* We have to remove the recipient if not resolved */
807                                                 modest_recpt_editor_replace_with_resolved_recipient (recpt_editor,
808                                                                                                      &start_iter, 
809                                                                                                      &end_iter,
810                                                                                                      NULL,
811                                                                                                      NULL);
812                                         } else {
813                                                 /* There is no contact with that name so it's not
814                                                    valid. Don't show any error because it'll be done
815                                                    later */
816                                                 result = FALSE;
817                                         }
818                                 }
819                         } else {
820                                 /* this address is not valid, select it and return control to user showing banner */
821                                 hildon_banner_show_information (NULL, NULL, _("mcen_ib_invalid_email"));
822                                 result = FALSE;
823                         }
824                 } else {
825                         GSList *tags, *node;
826                         gboolean has_recipient = FALSE;
827
828                         tags = gtk_text_iter_get_tags (&start_iter);
829                         for (node = tags; node != NULL; node = g_slist_next (node)) {
830                                 GtkTextTag *tag = GTK_TEXT_TAG (node->data);
831                                 if (g_object_get_data (G_OBJECT (tag), "recipient-tag-id") != NULL) {
832                                         has_recipient = TRUE;
833                                         break;
834                                 }
835                         }
836                         g_slist_free (tags);
837                         if (!has_recipient) {
838                                 GSList * addr_list = NULL;
839
840                                 addr_list = g_slist_prepend (addr_list, address);
841                                 modest_recpt_editor_replace_with_resolved_recipient (recpt_editor,
842                                                                                      &start_iter, &end_iter,
843                                                                                      addr_list,
844                                                                                      "");
845                                 g_slist_free (addr_list);
846                                 store_address = TRUE;
847                         }
848                 }
849
850                 /* so, it seems a valid address */
851                 /* note: adding it the to the addressbook if it did not exist yet,
852                  * and adding it to the recent_list */
853                 if (result && address_list && store_address)
854                         *address_list = g_slist_prepend (*address_list, address);
855                 else
856                         g_free (address);
857
858                 if (result == FALSE)
859                         break;
860
861                 current_start = g_slist_next (current_start);
862                 current_end = g_slist_next (current_end);
863         }
864
865         /* Remove dup's */
866         if (address_list && *address_list)
867                 *address_list = modest_text_utils_remove_duplicate_addresses_list (*address_list);
868
869         if (current_start == NULL) {
870                 gtk_text_buffer_get_end_iter (buffer, &end_iter);
871                 gtk_text_buffer_place_cursor (buffer, &end_iter);
872         }
873
874         g_slist_foreach (start_indexes, (GFunc) g_free, NULL);
875         g_slist_foreach (end_indexes, (GFunc) g_free, NULL);
876         g_slist_free (start_indexes);
877         g_slist_free (end_indexes);
878
879         return result;
880
881 }
882
883 typedef struct _GetContactsInfo {
884         GMainLoop *mainloop;
885         GList *result;
886 } GetContactsInfo;
887
888 static void 
889 get_contacts_for_name_cb (EBook *book, 
890                           EBookStatus status, 
891                           GList *list, 
892                           gpointer userdata)
893 {
894         GetContactsInfo *info = (GetContactsInfo *) userdata;
895
896         if (status == E_BOOK_ERROR_OK)
897                 info->result = list;
898
899         g_main_loop_quit (info->mainloop);
900 }
901
902 static GList *
903 get_contacts_for_name (const gchar *name)
904 {
905         EBookQuery *book_query = NULL;
906         GList *result;
907         gchar *unquoted;
908         GetContactsInfo *info;
909         EBookQuery *queries[8];
910
911         if (name == NULL)
912                 return NULL;
913
914         unquoted = unquote_string (name);
915
916         queries[0] = e_book_query_field_test (E_CONTACT_FULL_NAME, E_BOOK_QUERY_BEGINS_WITH, unquoted);
917         queries[1] = e_book_query_field_test (E_CONTACT_GIVEN_NAME, E_BOOK_QUERY_BEGINS_WITH, unquoted);
918         queries[2] = e_book_query_field_test (E_CONTACT_FAMILY_NAME, E_BOOK_QUERY_BEGINS_WITH, unquoted);
919         queries[3] = e_book_query_field_test (E_CONTACT_NICKNAME, E_BOOK_QUERY_BEGINS_WITH, unquoted);
920         queries[4] = e_book_query_field_test (E_CONTACT_EMAIL_1, E_BOOK_QUERY_BEGINS_WITH, unquoted);
921         queries[5] = e_book_query_field_test (E_CONTACT_EMAIL_2, E_BOOK_QUERY_BEGINS_WITH, unquoted);
922         queries[6] = e_book_query_field_test (E_CONTACT_EMAIL_3, E_BOOK_QUERY_BEGINS_WITH, unquoted);
923         queries[7] = e_book_query_field_test (E_CONTACT_EMAIL_4, E_BOOK_QUERY_BEGINS_WITH, unquoted);
924         book_query = e_book_query_or (8, queries, TRUE);
925
926         g_free (unquoted);
927
928         /* TODO: Make it launch a mainloop */
929         info = g_slice_new (GetContactsInfo);
930         info->mainloop = g_main_loop_new (NULL, FALSE);
931         info->result = NULL;
932         if (e_book_async_get_contacts (book, book_query, get_contacts_for_name_cb, info) == 0) {
933                 GDK_THREADS_LEAVE ();
934                 g_main_loop_run (info->mainloop);
935                 GDK_THREADS_ENTER ();
936         } 
937         result = info->result;
938         e_book_query_unref (book_query);
939         g_main_loop_unref (info->mainloop);
940         g_slice_free (GetContactsInfo, info);
941
942         return result;
943 }
944
945 #ifdef HAVE_OSSO_ABOOK_CONTACT_CHOOSER_SET_VISIBLE_FUNC
946 static gboolean
947 filter_by_name (OssoABookContactChooser *chooser,
948                 OssoABookContact        *contact,
949                 gpointer                 user_data)
950 {
951         const gchar *contact_name;
952         const gchar *name = (const gchar *) user_data;
953
954         contact_name = osso_abook_contact_get_name (contact);
955         /* contact_name includes both name and surname */
956         if (contact_name && name && e_util_utf8_strstrcase (contact_name, name))
957                 return TRUE;
958         else
959                 return FALSE;
960 }
961 #endif
962
963 static GList *
964 select_contacts_for_name_dialog (const gchar *name)
965 {
966 #ifdef HAVE_OSSO_ABOOK_CONTACT_CHOOSER_SET_VISIBLE_FUNC
967         GtkWidget *contact_view;
968         OssoABookContactChooser *contact_dialog;
969 #else
970         EBookQuery *full_name_book_query = NULL;
971         EBookView *book_view = NULL;
972 #endif
973
974         GList *result = NULL;
975         gchar *unquoted;
976
977         unquoted = unquote_string (name);
978
979 #ifdef HAVE_OSSO_ABOOK_CONTACT_CHOOSER_SET_VISIBLE_FUNC
980         contact_dialog = (OssoABookContactChooser *)
981                 osso_abook_contact_chooser_new_with_capabilities (NULL,
982                                                                   _AB("addr_ti_dia_select_contacts"),
983                                                                   OSSO_ABOOK_CAPS_EMAIL,
984                                                                   OSSO_ABOOK_CONTACT_ORDER_NAME);
985
986         /* Enable multiselection */
987         osso_abook_contact_chooser_set_maximum_selection (contact_dialog, G_MAXUINT);
988
989         /* Set up the filtering */
990         contact_view = osso_abook_contact_chooser_get_contact_view (contact_dialog);
991         osso_abook_contact_chooser_set_model (contact_dialog, contact_model);
992         osso_abook_contact_chooser_set_visible_func (contact_dialog, filter_by_name, unquoted, NULL);
993
994         if (gtk_dialog_run (GTK_DIALOG (contact_dialog)) == GTK_RESPONSE_OK)
995                 result = osso_abook_contact_chooser_get_selection (contact_dialog);
996
997         gtk_widget_destroy ((GtkWidget *) contact_dialog);
998 #else
999         full_name_book_query = e_book_query_field_test (E_CONTACT_FULL_NAME, E_BOOK_QUERY_CONTAINS, unquoted);
1000         e_book_get_book_view (book, full_name_book_query, NULL, -1, &book_view, NULL);
1001         e_book_query_unref (full_name_book_query);
1002
1003         if (book_view) {
1004                 GtkWidget *contact_dialog = NULL;
1005                 osso_abook_list_store_set_book_view (OSSO_ABOOK_LIST_STORE (contact_model), book_view);
1006                 e_book_view_start (book_view);
1007
1008                 /* TODO: figure out how to make the contact chooser modal */
1009                 contact_dialog = osso_abook_contact_chooser_new_with_capabilities (NULL,
1010                                                                                    _AB("addr_ti_dia_select_contacts"),
1011                                                                                    OSSO_ABOOK_CAPS_EMAIL,
1012                                                                                    OSSO_ABOOK_CONTACT_ORDER_NAME);
1013                 /* Enable multiselection */
1014                 osso_abook_contact_chooser_set_maximum_selection (OSSO_ABOOK_CONTACT_CHOOSER (contact_dialog),
1015                                                                   G_MAXUINT);
1016                 osso_abook_contact_chooser_set_model (OSSO_ABOOK_CONTACT_CHOOSER (contact_dialog),
1017                                                       contact_model);
1018
1019                 if (gtk_dialog_run (GTK_DIALOG (contact_dialog)) == GTK_RESPONSE_OK)
1020                         result = osso_abook_contact_chooser_get_selection (OSSO_ABOOK_CONTACT_CHOOSER (contact_dialog));
1021                 e_book_view_stop (book_view);
1022                 g_object_unref (book_view);
1023                 gtk_widget_destroy (contact_dialog);
1024         }
1025 #endif
1026
1027         g_free (unquoted);
1028
1029         return result;
1030 }
1031
1032 static gboolean
1033 resolve_address (const gchar *address, 
1034                  GSList **resolved_addresses, 
1035                  GSList **contact_ids,
1036                  gboolean *canceled)
1037 {
1038         GList *resolved_contacts;
1039         CheckNamesInfo *info;;
1040
1041         g_return_val_if_fail (canceled, FALSE);
1042
1043         *resolved_addresses = NULL;
1044         *contact_ids = NULL;
1045         *canceled = FALSE;
1046         info = g_slice_new0 (CheckNamesInfo);
1047         show_check_names_banner (info);
1048
1049         contact_model = osso_abook_contact_model_get_default ();
1050         if (!open_addressbook ()) {
1051                 hide_check_names_banner (info);
1052                 if (contact_model) {
1053                         g_object_unref (contact_model);
1054                         contact_model = NULL;
1055                 }
1056                 clean_check_names_banner (info);
1057                 return FALSE;
1058         }
1059
1060         resolved_contacts = get_contacts_for_name (address);
1061         hide_check_names_banner (info);
1062
1063         if (resolved_contacts == NULL) {
1064                 /* no matching contacts for the search string */
1065                 modest_platform_run_information_dialog (NULL, _("mcen_nc_no_matching_contacts"), FALSE);
1066                 clean_check_names_banner (info);
1067                 return FALSE;
1068         }
1069
1070         if (g_list_length (resolved_contacts) > 1) {
1071                 /* show a dialog to select the contact from the resolved ones */
1072                 g_list_free (resolved_contacts);
1073
1074                 resolved_contacts = select_contacts_for_name_dialog (address);
1075         }
1076
1077         /* get the resolved contacts (can be no contact) */
1078         if (resolved_contacts) {
1079                 GList *node;
1080                 gboolean found = FALSE;
1081
1082                 for (node = resolved_contacts; node != NULL; node = g_list_next (node)) {
1083                         EContact *contact = (EContact *) node->data;
1084                         GSList *resolved;
1085                         gchar *contact_id;
1086
1087                         resolved = get_recipients_for_given_contact (contact, canceled);
1088                         if (resolved) {
1089                                 contact_id = g_strdup (e_contact_get_const (contact, E_CONTACT_UID));
1090                                 *contact_ids = g_slist_append (*contact_ids, contact_id);
1091                                 found = TRUE;
1092                                 *resolved_addresses = g_slist_append (*resolved_addresses, resolved);
1093                         }
1094                 }
1095
1096                 g_list_free (resolved_contacts);
1097                 clean_check_names_banner (info);
1098
1099                 return found;
1100         } else {
1101                 /* cancelled dialog to select more than one contact or
1102                  * selected no contact */
1103                 clean_check_names_banner (info);
1104                 return FALSE;
1105         }
1106
1107 }
1108
1109 static gchar *
1110 unquote_string (const gchar *str)
1111 {
1112         GString *buffer;
1113         gchar *p;
1114
1115         if (str == NULL)
1116                 return NULL;
1117
1118         buffer = g_string_new_len (NULL, strlen (str));
1119         for (p = (gchar *) str; *p != '\0'; p = g_utf8_next_char (p)) {
1120                 if (*p == '"') {
1121                         p = g_utf8_next_char (p);
1122                         while ((*p != '\0')&&(*p != '"')) {
1123                                 if (*p == '\\') {
1124                                         g_string_append_unichar (buffer, g_utf8_get_char (p));
1125                                         p = g_utf8_next_char (p);
1126
1127                                 }
1128                                 g_string_append_unichar (buffer, g_utf8_get_char (p));
1129                                 p = g_utf8_next_char (p);
1130                         }
1131                 } else {
1132                         g_string_append_unichar (buffer, g_utf8_get_char (p));
1133                 }
1134         }
1135
1136         return g_string_free (buffer, FALSE);
1137
1138 }
1139
1140 gboolean
1141 modest_address_book_has_address (const gchar *address)
1142 {
1143         GList *contacts = NULL;
1144         GError *err = NULL;
1145         gchar *email;
1146         gboolean result;
1147         OssoABookAggregator *roster;
1148
1149         g_return_val_if_fail (address, FALSE);
1150
1151         if (!book) {
1152                 if (!open_addressbook ()) {
1153                         g_return_val_if_reached (FALSE);
1154                 }
1155         }
1156         g_return_val_if_fail (book, FALSE);
1157
1158         email = modest_text_utils_get_email_address (address);
1159
1160         roster = (OssoABookAggregator *) osso_abook_aggregator_get_default (NULL);
1161         contacts = osso_abook_aggregator_find_contacts_for_email_address (roster, email);
1162         if (!contacts) {
1163                 if (err)
1164                         g_error_free (err);
1165                 g_free (email);
1166                 return FALSE;
1167         }
1168
1169         if (contacts) {
1170                 g_list_free (contacts);
1171                 result = TRUE;
1172         }
1173
1174         g_free (email);
1175
1176         return result;
1177 }
1178
1179 const gchar *
1180 modest_address_book_get_my_name ()
1181 {
1182         OssoABookSelfContact *self_contact = osso_abook_self_contact_get_default ();
1183
1184         /* We are not using osso_abook_contact_get_display_name
1185            because that method fallbacks to another fields if the name
1186            is not defined */
1187         if (self_contact)
1188                 return e_contact_get ((EContact *) self_contact, E_CONTACT_FULL_NAME);
1189         else
1190                 return NULL;
1191 }
1192
1193 void
1194 modest_address_book_init (void)
1195 {
1196         open_addressbook ();
1197 }
1198
1199 void
1200 modest_address_book_add_address_list (GSList *address_list)
1201 {
1202         EBookQuery **queries, *composite_query;
1203         gint num_add, i;
1204
1205         g_return_if_fail (address_list);
1206
1207         if (!book)
1208                 if (!open_addressbook ())
1209                         g_return_if_reached ();
1210
1211         /* Create the list of queries */
1212         num_add = g_slist_length (address_list);
1213         queries = g_malloc0 (sizeof (EBookQuery *) * num_add);
1214         for (i = 0; i < num_add; i++) {
1215                 gchar *email;
1216
1217                 email = modest_text_utils_get_email_address (g_slist_nth_data (address_list, i));
1218                 queries[i] = e_book_query_field_test (E_CONTACT_EMAIL, E_BOOK_QUERY_IS, email);
1219                 g_free (email);
1220         }
1221
1222         /* Create the query */
1223         composite_query = e_book_query_or (num_add, queries, TRUE);
1224
1225         /* Asynchronously retrieve contacts */
1226         e_book_async_get_contacts (book, composite_query, async_get_contacts_cb, address_list);
1227
1228         /* Frees. This will unref the subqueries as well */
1229         e_book_query_unref (composite_query);
1230 }