diff options
Diffstat (limited to 'plugins/caldav/caldav-browse-server.c')
| -rw-r--r-- | plugins/caldav/caldav-browse-server.c | 1657 |
1 files changed, 0 insertions, 1657 deletions
diff --git a/plugins/caldav/caldav-browse-server.c b/plugins/caldav/caldav-browse-server.c deleted file mode 100644 index 2597e3cc49..0000000000 --- a/plugins/caldav/caldav-browse-server.c +++ /dev/null @@ -1,1657 +0,0 @@ -/* - * caldav-browse-server.c - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) version 3. - * - * 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 - * Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with the program; if not, see <http://www.gnu.org/licenses/> - * - * - * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com) - * - */ - -#ifdef HAVE_CONFIG_H -#include <config.h> -#endif - -#include <glib/gi18n-lib.h> -#include <gtk/gtk.h> - -#include <libsoup/soup.h> -#include <libxml/parser.h> -#include <libxml/tree.h> -#include <libxml/xpath.h> -#include <libxml/xpathInternals.h> - -#include <libecal/e-cal-client.h> -#include <libedataserver/e-proxy.h> -#include <libedataserverui/e-cell-renderer-color.h> -#include <libedataserverui/e-passwords.h> - -#include <e-util/e-dialog-utils.h> - -#include <libemail-utils/e-account-utils.h> - -#include "caldav-browse-server.h" - -#define XC (xmlChar *) - -enum { - CALDAV_THREAD_SHOULD_SLEEP, - CALDAV_THREAD_SHOULD_WORK, - CALDAV_THREAD_SHOULD_DIE -}; - -enum { - COL_BOOL_IS_LOADED, - COL_STRING_HREF, - COL_BOOL_IS_CALENDAR, - COL_STRING_SUPPORTS, - COL_STRING_DISPLAYNAME, - COL_GDK_COLOR, - COL_BOOL_HAS_COLOR, - COL_BOOL_SENSITIVE -}; - -typedef void (*process_message_cb) (GObject *dialog, const gchar *msg_path, guint status_code, const gchar *reason_phrase, const gchar *msg_body, gpointer user_data); - -static void send_xml_message (xmlDocPtr doc, gboolean depth_1, const gchar *url, GObject *dialog, process_message_cb cb, gpointer cb_user_data, const gchar *info); - -static gchar * xpath_get_string (xmlXPathContextPtr xpctx, - const gchar *path_format, - ...) -{ - gchar *res = NULL, *path, *tmp; - va_list args; - xmlXPathObjectPtr obj; - - g_return_val_if_fail (xpctx != NULL, NULL); - g_return_val_if_fail (path_format != NULL, NULL); - - va_start (args, path_format); - tmp = g_strdup_vprintf (path_format, args); - va_end (args); - - if (1 || strchr (tmp, '@') == NULL) { - path = g_strconcat ("string(", tmp, ")", NULL); - g_free (tmp); - } else { - path = tmp; - } - - obj = xmlXPathEvalExpression (XC path, xpctx); - g_free (path); - - if (obj == NULL) - return NULL; - - if (obj->type == XPATH_STRING) - res = g_strdup ((gchar *) obj->stringval); - - xmlXPathFreeObject (obj); - - return res; -} - -static gboolean -xpath_exists (xmlXPathContextPtr xpctx, - xmlXPathObjectPtr *resobj, - const gchar *path_format, - ...) -{ - gchar *path; - va_list args; - xmlXPathObjectPtr obj; - - g_return_val_if_fail (xpctx != NULL, FALSE); - g_return_val_if_fail (path_format != NULL, FALSE); - - va_start (args, path_format); - path = g_strdup_vprintf (path_format, args); - va_end (args); - - obj = xmlXPathEvalExpression (XC path, xpctx); - g_free (path); - - if (obj && (obj->type != XPATH_NODESET || xmlXPathNodeSetGetLength (obj->nodesetval) == 0)) { - xmlXPathFreeObject (obj); - obj = NULL; - } - - if (resobj) - *resobj = obj; - else if (obj != NULL) - xmlXPathFreeObject (obj); - - return obj != NULL; -} - -static gchar * -change_url_path (const gchar *base_url, - const gchar *new_path) -{ - SoupURI *suri; - gchar *url; - - g_return_val_if_fail (base_url != NULL, NULL); - g_return_val_if_fail (new_path != NULL, NULL); - - suri = soup_uri_new (base_url); - if (!suri) - return NULL; - - soup_uri_set_path (suri, new_path); - - url = soup_uri_to_string (suri, FALSE); - - soup_uri_free (suri); - - return url; -} - -static void -report_error (GObject *dialog, - gboolean is_fatal, - const gchar *msg) -{ - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - g_return_if_fail (msg != NULL); - - if (is_fatal) { - GtkWidget *content_area, *w; - - content_area = gtk_dialog_get_content_area (GTK_DIALOG (dialog)); - - w = g_object_get_data (dialog, "caldav-info-label"); - gtk_widget_hide (w); - - w = g_object_get_data (dialog, "caldav-tree-sw"); - gtk_widget_hide (w); - - w = g_object_get_data (dialog, "caldav-usermail-hbox"); - gtk_widget_hide (w); - - w = g_object_get_data (dialog, "caldav-new-autoschedule-check"); - gtk_widget_hide (w); - - w = gtk_label_new (msg); - gtk_widget_show (w); - gtk_box_pack_start (GTK_BOX (content_area), w, TRUE, TRUE, 10); - - w = g_object_get_data (dialog, "caldav-new-url-entry"); - if (w) - gtk_entry_set_text (GTK_ENTRY (w), ""); - } else { - GtkLabel *label = g_object_get_data (dialog, "caldav-info-label"); - - if (label) - gtk_label_set_text (label, msg); - } -} - -static gboolean -check_soup_status (GObject *dialog, - guint status_code, - const gchar *reason_phrase, - const gchar *msg_body, - gboolean is_fatal) -{ - gchar *msg; - - if (status_code == 207) - return TRUE; - - if (status_code == 401 || status_code == 403) { - msg = g_strdup (_("Authentication failed. Server requires correct login.")); - } else if (status_code == 404) { - msg = g_strdup (_("Given URL cannot be found.")); - } else { - const gchar *phrase = soup_status_get_phrase (status_code); - - msg = g_strdup_printf (_("Server returned unexpected data.\n%d - %s"), status_code, reason_phrase ? reason_phrase : (phrase ? phrase : _("Unknown error"))); - } - - report_error (dialog, is_fatal, msg); - - g_free (msg); - - return FALSE; -} - -struct test_exists_data { - const gchar *href; - gboolean exists; -}; - -static gboolean -test_href_exists_cb (GtkTreeModel *model, - GtkTreePath *path, - GtkTreeIter *iter, - gpointer user_data) -{ - struct test_exists_data *ted = user_data; - gchar *href = NULL; - - g_return_val_if_fail (model != NULL, TRUE); - g_return_val_if_fail (iter != NULL, TRUE); - g_return_val_if_fail (ted != NULL, TRUE); - g_return_val_if_fail (ted->href != NULL, TRUE); - - gtk_tree_model_get (model, iter, COL_STRING_HREF, &href, -1); - - ted->exists = href && g_ascii_strcasecmp (href, ted->href) == 0; - - g_free (href); - - return ted->exists; -} - -static void -add_collection_node_to_tree (GtkTreeStore *store, - GtkTreeIter *parent_iter, - const gchar *href) -{ - SoupURI *suri; - const gchar *path; - GtkTreeIter iter, loading_iter; - struct test_exists_data ted; - gchar *displayname, **tmp; - - g_return_if_fail (store != NULL); - g_return_if_fail (GTK_IS_TREE_STORE (store)); - g_return_if_fail (href != NULL); - - suri = soup_uri_new (href); - if (suri && suri->path && (*suri->path != '/' || strlen (suri->path) > 1)) - href = suri->path; - - ted.href = href; - ted.exists = FALSE; - - gtk_tree_model_foreach (GTK_TREE_MODEL (store), test_href_exists_cb, &ted); - - if (ted.exists) { - if (suri) - soup_uri_free (suri); - return; - } - - path = href; - tmp = g_strsplit (path, "/", -1); - - /* parent_iter is not set for the root folder node, where whole path is shown */ - if (tmp && parent_iter) { - /* pick the last non-empty path part */ - gint idx = 0; - - while (tmp[idx]) { - idx++; - } - - idx--; - - while (idx >= 0 && !tmp[idx][0]) { - idx--; - } - - if (idx >= 0) - path = tmp[idx]; - } - - displayname = soup_uri_decode (path); - - gtk_tree_store_append (store, &iter, parent_iter); - gtk_tree_store_set (store, &iter, - COL_BOOL_IS_LOADED, FALSE, - COL_BOOL_IS_CALENDAR, FALSE, - COL_STRING_HREF, href, - COL_STRING_DISPLAYNAME, displayname ? displayname : path, - COL_BOOL_SENSITIVE, TRUE, - -1); - - g_free (displayname); - g_strfreev (tmp); - if (suri) - soup_uri_free (suri); - - /* not localized "Loading...", because will be removed on expand immediately */ - gtk_tree_store_append (store, &loading_iter, &iter); - gtk_tree_store_set (store, &loading_iter, - COL_BOOL_IS_LOADED, FALSE, - COL_BOOL_IS_CALENDAR, FALSE, - COL_STRING_DISPLAYNAME, "Loading...", - COL_BOOL_SENSITIVE, FALSE, - -1); -} - -/* called with "caldav-thread-mutex" unlocked; 'user_data' is parent tree iter, NULL for "User's calendars" */ -static void -traverse_users_calendars_cb (GObject *dialog, - const gchar *msg_path, - guint status_code, - const gchar *reason_phrase, - const gchar *msg_body, - gpointer user_data) -{ - xmlDocPtr doc; - xmlXPathContextPtr xpctx; - xmlXPathObjectPtr xpathObj; - GtkTreeIter *parent_iter = user_data, par_iter; - - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - - if (!check_soup_status (dialog, status_code, reason_phrase, msg_body, TRUE)) - return; - - g_return_if_fail (msg_body != NULL); - - doc = xmlReadMemory (msg_body, strlen (msg_body), "response.xml", NULL, 0); - if (!doc) { - report_error (dialog, TRUE, _("Failed to parse server response.")); - return; - } - - xpctx = xmlXPathNewContext (doc); - xmlXPathRegisterNs (xpctx, XC "D", XC "DAV:"); - xmlXPathRegisterNs (xpctx, XC "C", XC "urn:ietf:params:xml:ns:caldav"); - xmlXPathRegisterNs (xpctx, XC "CS", XC "http://calendarserver.org/ns/"); - xmlXPathRegisterNs (xpctx, XC "IC", XC "http://apple.com/ns/ical/"); - - xpathObj = xmlXPathEvalExpression (XC "/D:multistatus/D:response", xpctx); - if (xpathObj && xpathObj->type == XPATH_NODESET) { - GtkWidget *tree = g_object_get_data (G_OBJECT (dialog), "caldav-tree"); - GtkTreeStore *store = GTK_TREE_STORE (gtk_tree_view_get_model (GTK_TREE_VIEW (tree))); - GtkTreeIter iter; - gint i, n; - - n = xmlXPathNodeSetGetLength (xpathObj->nodesetval); - for (i = 0; i < n; i++) { - xmlXPathObjectPtr suppObj; - GString *supports; - gchar *href, *displayname, *color_str; - GdkColor color; - gchar *str; - guint status; - gboolean sensitive; - - #define response(_x) "/D:multistatus/D:response[%d]/" _x - #define prop(_x) response ("D:propstat/D:prop/" _x) - - str = xpath_get_string (xpctx, response ("D:propstat/D:status"), i + 1); - if (!str || !soup_headers_parse_status_line (str, NULL, &status, NULL) || status != 200) { - g_free (str); - continue; - } - - g_free (str); - - if (!xpath_exists (xpctx, NULL, prop ("D:resourcetype/C:calendar"), i + 1)) { - /* not a calendar node */ - - if (user_data != NULL && xpath_exists (xpctx, NULL, prop ("D:resourcetype/D:collection"), i + 1)) { - /* can be browseable, add node for loading */ - href = xpath_get_string (xpctx, response ("D:href"), i + 1); - if (href && *href) - add_collection_node_to_tree (store, parent_iter, href); - - g_free (href); - } - continue; - } - - href = xpath_get_string (xpctx, response ("D:href"), i + 1); - if (!href || !*href) { - /* href should be there always */ - g_free (href); - continue; - } - - displayname = xpath_get_string (xpctx, prop ("D:displayname"), i + 1); - color_str = xpath_get_string (xpctx, prop ("IC:calendar-color"), i + 1); - if (color_str && !gdk_color_parse (color_str, &color)) { - g_free (color_str); - color_str = NULL; - } - - sensitive = FALSE; - supports = NULL; - suppObj = NULL; - if (xpath_exists (xpctx, &suppObj, prop ("C:supported-calendar-component-set/C:comp"), i + 1)) { - if (suppObj->type == XPATH_NODESET) { - const gchar *source_type = g_object_get_data (G_OBJECT (dialog), "caldav-source-type"); - gint j, szj = xmlXPathNodeSetGetLength (suppObj->nodesetval); - - for (j = 0; j < szj; j++) { - gchar *comp = xpath_get_string (xpctx, prop ("C:supported-calendar-component-set/C:comp[%d]/@name"), i + 1, j + 1); - - if (!comp) - continue; - - if (!g_str_equal (comp, "VEVENT") && !g_str_equal (comp, "VTODO") && !g_str_equal (comp, "VJOURNAL")) { - g_free (comp); - continue; - } - - /* this calendar source supports our type, thus can be selected */ - sensitive = sensitive || (source_type && comp && g_str_equal (source_type, comp)); - - if (!supports) - supports = g_string_new (""); - else - g_string_append (supports, " "); - - if (g_str_equal (comp, "VEVENT")) - g_string_append (supports, _("Events")); - else if (g_str_equal (comp, "VTODO")) - g_string_append (supports, _("Tasks")); - else if (g_str_equal (comp, "VJOURNAL")) - g_string_append (supports, _("Memos")); - - g_free (comp); - } - } - - xmlXPathFreeObject (suppObj); - } - - if (tree) { - g_return_if_fail (store != NULL); - - if (!parent_iter) { - /* filling "User's calendars" node */ - gtk_tree_store_append (store, &par_iter, NULL); - gtk_tree_store_set (store, &par_iter, - COL_BOOL_IS_LOADED, TRUE, - COL_BOOL_IS_CALENDAR, FALSE, - COL_STRING_DISPLAYNAME, _("User's calendars"), - COL_BOOL_SENSITIVE, TRUE, - -1); - - parent_iter = &par_iter; - } - - gtk_tree_store_append (store, &iter, parent_iter); - gtk_tree_store_set (store, &iter, - COL_BOOL_IS_LOADED, TRUE, - COL_BOOL_IS_CALENDAR, TRUE, - COL_STRING_HREF, href, - COL_STRING_SUPPORTS, supports ? supports->str : "", - COL_STRING_DISPLAYNAME, displayname && *displayname ? displayname : href, - COL_GDK_COLOR, color_str ? &color : NULL, - COL_BOOL_HAS_COLOR, color_str != NULL, - COL_BOOL_SENSITIVE, sensitive, - -1); - } - - g_free (href); - g_free (displayname); - g_free (color_str); - if (supports) - g_string_free (supports, TRUE); - } - - if (parent_iter) { - /* expand loaded node */ - GtkTreePath *path; - - path = gtk_tree_model_get_path (GTK_TREE_MODEL (store), parent_iter); - gtk_tree_view_expand_to_path (GTK_TREE_VIEW (tree), path); - gtk_tree_path_free (path); - } - - if (user_data == NULL) { - /* it was checking for user's calendars, thus add node for browsing from the base url path or the msg_path*/ - if (msg_path && *msg_path) { - add_collection_node_to_tree (store, NULL, msg_path); - } else { - SoupURI *suri; - - suri = soup_uri_new (g_object_get_data (dialog, "caldav-base-url")); - - add_collection_node_to_tree (store, NULL, (suri && suri->path && *suri->path) ? suri->path : "/"); - - if (suri) - soup_uri_free (suri); - } - } - } - - if (xpathObj) - xmlXPathFreeObject (xpathObj); - xmlXPathFreeContext (xpctx); - xmlFreeDoc (doc); -} - -static void -fetch_folder_content (GObject *dialog, - const gchar *relative_path, - const GtkTreeIter *parent_iter, - const gchar *op_info) -{ - xmlDocPtr doc; - xmlNodePtr root, node; - xmlNsPtr nsdav, nsc, nscs, nsical; - gchar *url; - - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - g_return_if_fail (relative_path != NULL); - - doc = xmlNewDoc (XC "1.0"); - root = xmlNewDocNode (doc, NULL, XC "propfind", NULL); - - nsdav = xmlNewNs (root, XC "DAV:", XC "D"); - nsc = xmlNewNs (root, XC "urn:ietf:params:xml:ns:caldav", XC "C"); - nscs = xmlNewNs (root, XC "http://calendarserver.org/ns/", XC "CS"); - nsical = xmlNewNs (root, XC "http://apple.com/ns/ical/", XC "IC"); - - xmlSetNs (root, nsdav); - xmlDocSetRootElement (doc, root); - - node = xmlNewTextChild (root, nsdav, XC "prop", NULL); - xmlNewTextChild (node, nsdav, XC "displayname", NULL); - xmlNewTextChild (node, nsdav, XC "resourcetype", NULL); - xmlNewTextChild (node, nsc, XC "calendar-description", NULL); - xmlNewTextChild (node, nsc, XC "supported-calendar-component-set", NULL); - xmlNewTextChild (node, nsc, XC "calendar-user-address-set", NULL); - xmlNewTextChild (node, nscs, XC "getctag", NULL); - xmlNewTextChild (node, nsical, XC "calendar-color", NULL); - - url = change_url_path (g_object_get_data (dialog, "caldav-base-url"), relative_path); - if (url) { - GtkTreeIter *par_iter = NULL; - - if (parent_iter) { - gchar *key; - - par_iter = g_new0 (GtkTreeIter, 1); - *par_iter = *parent_iter; - - /* will be freed on dialog destroy */ - key = g_strdup_printf ("caldav-to-free-%p", par_iter); - g_object_set_data_full (dialog, key, par_iter, g_free); - g_free (key); - } - - send_xml_message (doc, TRUE, url, G_OBJECT (dialog), traverse_users_calendars_cb, par_iter, op_info); - } else { - report_error (dialog, TRUE, _("Failed to get server URL.")); - } - - xmlFreeDoc (doc); - - g_free (url); -} - -static gboolean -mail_account_configured (const gchar *email) -{ - gboolean found = FALSE; - EAccountList *accounts; - EIterator *iterator; - - g_return_val_if_fail (email != NULL, FALSE); - g_return_val_if_fail (*email, FALSE); - - accounts = e_get_account_list (); - g_return_val_if_fail (accounts != NULL, FALSE); - - for (iterator = e_list_get_iterator (E_LIST (accounts)); - !found && e_iterator_is_valid (iterator); - e_iterator_next (iterator)) { - EAccount *acc = (EAccount *) e_iterator_get (iterator); - const gchar *address; - - if (!acc) - continue; - - address = e_account_get_string (acc, E_ACCOUNT_ID_ADDRESS); - if (!address || !*address) - continue; - - found = g_strcmp0 (address, email) == 0; - } - - g_object_unref (iterator); - - return found; -} - -static void -add_usermail (GtkComboBoxText *usermail_combo, - const gchar *email, - gboolean is_first) -{ - GtkTreeModel *model; - GtkTreeIter iter; - gboolean found = FALSE; - - g_return_if_fail (usermail_combo != NULL); - g_return_if_fail (email != NULL); - - if (!*email) - return; - - model = gtk_combo_box_get_model (GTK_COMBO_BOX (usermail_combo)); - g_return_if_fail (model != NULL); - - if (gtk_tree_model_get_iter_first (model, &iter)) { - do { - gchar *value = NULL; - - gtk_tree_model_get (model, &iter, 0, &value, -1); - - found = value && g_ascii_strcasecmp (value, email) == 0; - if (found && (is_first || mail_account_configured (email))) - gtk_combo_box_set_active_iter (GTK_COMBO_BOX (usermail_combo), &iter); - - g_free (value); - } while (!found && gtk_tree_model_iter_next (model, &iter)); - } - - if (!found) { - gtk_combo_box_text_append_text (usermail_combo, email); - if (gtk_tree_model_iter_n_children (model, NULL) == 1 || is_first || mail_account_configured (email)) - gtk_combo_box_set_active (GTK_COMBO_BOX (usermail_combo), gtk_tree_model_iter_n_children (model, NULL) - 1); - } -} - -/* called with "caldav-thread-mutex" unlocked; user_data is not NULL when called second time on principal */ -static void -find_users_calendar_cb (GObject *dialog, - const gchar *msg_path, - guint status_code, - const gchar *reason_phrase, - const gchar *msg_body, - gpointer user_data) -{ - xmlDocPtr doc; - xmlXPathContextPtr xpctx; - xmlXPathObjectPtr suppObj; - gchar *calendar_home_set, *url; - gboolean base_url_is_calendar = FALSE; - - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - - if (!check_soup_status (dialog, status_code, reason_phrase, msg_body, TRUE)) - return; - - g_return_if_fail (msg_body != NULL); - - doc = xmlReadMemory (msg_body, strlen (msg_body), "response.xml", NULL, 0); - if (!doc) { - report_error (dialog, TRUE, _("Failed to parse server response.")); - return; - } - - xpctx = xmlXPathNewContext (doc); - xmlXPathRegisterNs (xpctx, XC "D", XC "DAV:"); - xmlXPathRegisterNs (xpctx, XC "C", XC "urn:ietf:params:xml:ns:caldav"); - - if (user_data == NULL) - base_url_is_calendar = xpath_exists (xpctx, NULL, "/D:multistatus/D:response/D:propstat/D:prop/D:resourcetype/C:calendar"); - - if (xpath_exists (xpctx, &suppObj, "/D:multistatus/D:response/D:propstat/D:prop/C:calendar-user-address-set")) { - if (suppObj->type == XPATH_NODESET) { - GtkComboBoxText *usermail_combo = GTK_COMBO_BOX_TEXT (g_object_get_data (dialog, "caldav-new-usermail-combo")); - gboolean is_first = TRUE; - gint jj, szjj = xmlXPathNodeSetGetLength (suppObj->nodesetval); - - for (jj = 0; jj < szjj; jj++) { - gchar *href = xpath_get_string (xpctx, "/D:multistatus/D:response/D:propstat/D:prop/C:calendar-user-address-set/D:href[%d]", jj + 1); - - if (!href || !g_str_has_prefix (href, "mailto:")) { - g_free (href); - continue; - } - - add_usermail (usermail_combo, href + 7, is_first); - is_first = FALSE; - - g_free (href); - } - } - - xmlXPathFreeObject (suppObj); - } - - calendar_home_set = xpath_get_string (xpctx, "/D:multistatus/D:response/D:propstat/D:prop/C:calendar-home-set/D:href"); - if (user_data == NULL && (!calendar_home_set || !*calendar_home_set)) { - g_free (calendar_home_set); - - calendar_home_set = xpath_get_string (xpctx, "/D:multistatus/D:response/D:propstat/D:prop/D:current-user-principal/D:href"); - if (!calendar_home_set || !*calendar_home_set) { - g_free (calendar_home_set); - calendar_home_set = xpath_get_string (xpctx, "/D:multistatus/D:response/D:propstat/D:prop/D:principal-URL/D:href"); - } - - xmlXPathFreeContext (xpctx); - xmlFreeDoc (doc); - - if (calendar_home_set && *calendar_home_set) { - xmlNodePtr root, node; - xmlNsPtr nsdav, nsc; - - /* ask on principal user's calendar home address */ - doc = xmlNewDoc (XC "1.0"); - root = xmlNewDocNode (doc, NULL, XC "propfind", NULL); - nsc = xmlNewNs (root, XC "urn:ietf:params:xml:ns:caldav", XC "C"); - nsdav = xmlNewNs (root, XC "DAV:", XC "D"); - xmlSetNs (root, nsdav); - xmlDocSetRootElement (doc, root); - - node = xmlNewTextChild (root, nsdav, XC "prop", NULL); - xmlNewTextChild (node, nsdav, XC "current-user-principal", NULL); - xmlNewTextChild (node, nsc, XC "calendar-home-set", NULL); - xmlNewTextChild (node, nsc, XC "calendar-user-address-set", NULL); - - url = change_url_path (g_object_get_data (dialog, "caldav-base-url"), calendar_home_set); - if (url) { - send_xml_message (doc, TRUE, url, dialog, find_users_calendar_cb, GINT_TO_POINTER (1), _("Searching for user's calendars...")); - } else { - report_error (dialog, TRUE, _("Failed to get server URL.")); - } - - xmlFreeDoc (doc); - - g_free (url); - g_free (calendar_home_set); - - return; - } - } else { - xmlXPathFreeContext (xpctx); - xmlFreeDoc (doc); - } - - if (base_url_is_calendar && (!calendar_home_set || !*calendar_home_set)) { - SoupURI *suri = soup_uri_new (g_object_get_data (dialog, "caldav-base-url")); - if (suri) { - if (suri->path && *suri->path) { - gchar *slash; - - while (slash = strrchr (suri->path, '/'), slash && slash != suri->path) { - if (slash[1] != 0) { - slash[1] = 0; - g_free (calendar_home_set); - calendar_home_set = g_strdup (suri->path); - break; - } - - *slash = 0; - } - } - soup_uri_free (suri); - } - } - - if (!calendar_home_set || !*calendar_home_set) { - report_error (dialog, FALSE, _("Could not find any user calendar.")); - } else { - fetch_folder_content (dialog, calendar_home_set, NULL, _("Searching for user's calendars...")); - } - - g_free (calendar_home_set); -} - -static void -redirect_handler (SoupMessage *msg, - gpointer user_data) -{ - if (SOUP_STATUS_IS_REDIRECTION (msg->status_code)) { - SoupSession *soup_session = user_data; - SoupURI *new_uri; - const gchar *new_loc; - - new_loc = soup_message_headers_get (msg->response_headers, "Location"); - if (!new_loc) - return; - - new_uri = soup_uri_new_with_base (soup_message_get_uri (msg), new_loc); - if (!new_uri) { - soup_message_set_status_full (msg, - SOUP_STATUS_MALFORMED, - "Invalid Redirect URL"); - return; - } - - soup_message_set_uri (msg, new_uri); - soup_session_requeue_message (soup_session, msg); - - soup_uri_free (new_uri); - } -} - -static void -send_and_handle_redirection (SoupSession *soup_session, - SoupMessage *msg) -{ - soup_message_set_flags (msg, SOUP_MESSAGE_NO_REDIRECT); - soup_message_add_header_handler (msg, "got_body", "Location", G_CALLBACK (redirect_handler), soup_session); - soup_session_send_message (soup_session, msg); -} - -static gpointer -caldav_browse_server_thread (gpointer data) -{ - GObject *dialog = data; - GCond *cond; - GMutex *mutex; - SoupSession *session; - gint task; - - g_return_val_if_fail (dialog != NULL, NULL); - g_return_val_if_fail (GTK_IS_DIALOG (dialog), NULL); - - cond = g_object_get_data (dialog, "caldav-thread-cond"); - mutex = g_object_get_data (dialog, "caldav-thread-mutex"); - session = g_object_get_data (dialog, "caldav-session"); - - g_return_val_if_fail (cond != NULL, NULL); - g_return_val_if_fail (mutex != NULL, NULL); - g_return_val_if_fail (session != NULL, NULL); - - g_mutex_lock (mutex); - - while (task = GPOINTER_TO_INT (g_object_get_data (dialog, "caldav-thread-task")), task != CALDAV_THREAD_SHOULD_DIE) { - if (task == CALDAV_THREAD_SHOULD_SLEEP) { - g_cond_wait (cond, mutex); - } else if (task == CALDAV_THREAD_SHOULD_WORK) { - SoupMessage *message; - - g_object_set_data (dialog, "caldav-thread-task", GINT_TO_POINTER (CALDAV_THREAD_SHOULD_SLEEP)); - - message = g_object_get_data (dialog, "caldav-thread-message"); - if (!message) { - g_warning ("%s: No message to send", G_STRFUNC); - continue; - } - - g_object_set_data (dialog, "caldav-thread-message-sent", NULL); - - g_object_ref (message); - - g_mutex_unlock (mutex); - send_and_handle_redirection (session, message); - g_mutex_lock (mutex); - - g_object_set_data (dialog, "caldav-thread-message-sent", message); - - g_object_unref (message); - } - } - - soup_session_abort (session); - g_object_set_data (dialog, "caldav-thread-poll", GINT_TO_POINTER (0)); - - g_object_set_data (dialog, "caldav-thread-cond", NULL); - g_object_set_data (dialog, "caldav-thread-mutex", NULL); - g_object_set_data (dialog, "caldav-session", NULL); - - g_mutex_unlock (mutex); - - g_cond_free (cond); - g_mutex_free (mutex); - g_object_unref (session); - - return NULL; -} - -static void -soup_authenticate (SoupSession *session, - SoupMessage *msg, - SoupAuth *auth, - gboolean retrying, - gpointer data) -{ - GObject *dialog = data; - const gchar *username, *password; - - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - - username = g_object_get_data (dialog, "caldav-username"); - password = g_object_get_data (dialog, "caldav-password"); - - if (!username || !*username || (retrying && (!password || !*password))) - return; - - if (!retrying && !password) - password = e_passwords_get_password (NULL, g_object_get_data (dialog, "caldav-auth-key")); - - if (!password || !*password || retrying) { - gchar *pass, *prompt, *add = NULL; - gchar *bold_user, *bold_host; - - if (retrying && msg && msg->reason_phrase) { - add = g_strdup_printf (_("Previous attempt failed: %s"), msg->reason_phrase); - } else if (retrying && msg && msg->status_code) { - add = g_strdup_printf (_("Previous attempt failed with code %d"), msg->status_code); - } - - bold_user = g_strconcat ("<b>", username, "</b>", NULL); - bold_host = g_strconcat ("<b>", soup_auth_get_host (auth), "</b>", NULL); - prompt = g_strdup_printf (_("Enter password for user %s on server %s"), bold_user, bold_host); - g_free (bold_user); - g_free (bold_host); - if (add) { - gchar *tmp; - - tmp = g_strconcat (prompt, "\n", add, NULL); - - g_free (prompt); - prompt = tmp; - } - - pass = e_passwords_ask_password (_("Enter password"), - NULL, g_object_get_data (dialog, "caldav-auth-key"), prompt, - E_PASSWORDS_REMEMBER_NEVER | E_PASSWORDS_DISABLE_REMEMBER | E_PASSWORDS_SECRET, - NULL, GTK_WINDOW (dialog)); - - g_object_set_data_full (G_OBJECT (dialog), "caldav-password", pass, g_free); - - password = pass; - - g_free (prompt); - g_free (add); - } - - if (!retrying || password) - soup_auth_authenticate (auth, username, password); -} - -/* the dialog is about to die, so cancel any pending operations to close the thread too */ -static void -dialog_response_cb (GObject *dialog, - gint response_id, - gpointer user_data) -{ - GCond *cond; - GMutex *mutex; - - g_return_if_fail (dialog == user_data); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - - cond = g_object_get_data (dialog, "caldav-thread-cond"); - mutex = g_object_get_data (dialog, "caldav-thread-mutex"); - - g_return_if_fail (mutex != NULL); - - g_mutex_lock (mutex); - g_object_set_data (dialog, "caldav-thread-task", GINT_TO_POINTER (CALDAV_THREAD_SHOULD_DIE)); - - if (cond) - g_cond_signal (cond); - g_mutex_unlock (mutex); -} - -static gboolean -check_message (GtkWindow *dialog, - SoupMessage *message, - const gchar *url) -{ - g_return_val_if_fail (dialog != NULL, FALSE); - g_return_val_if_fail (GTK_IS_DIALOG (dialog), FALSE); - - if (!message) - e_notice (GTK_WINDOW (dialog), GTK_MESSAGE_ERROR, _("Cannot create soup message for URL '%s'"), url ? url : "[null]"); - - return message != NULL; -} - -static void -indicate_busy (GObject *dialog, - gboolean is_busy) -{ - GtkWidget *spinner = g_object_get_data (dialog, "caldav-spinner"); - - gtk_widget_set_sensitive (g_object_get_data (dialog, "caldav-tree"), !is_busy); - - if (is_busy) { - gtk_widget_show (spinner); - } else { - gtk_widget_hide (spinner); - } -} - -struct poll_data { - GObject *dialog; - SoupMessage *message; - process_message_cb cb; - gpointer cb_user_data; -}; - -static gboolean -poll_for_message_sent_cb (gpointer data) -{ - struct poll_data *pd = data; - GMutex *mutex; - SoupMessage *sent_message; - gboolean again = TRUE; - guint status_code = -1; - gchar *msg_path = NULL; - gchar *msg_body = NULL; - gchar *reason_phrase = NULL; - - g_return_val_if_fail (data != NULL, FALSE); - - mutex = g_object_get_data (pd->dialog, "caldav-thread-mutex"); - /* thread most likely finished already */ - if (!mutex) - return FALSE; - - g_mutex_lock (mutex); - sent_message = g_object_get_data (pd->dialog, "caldav-thread-message-sent"); - again = sent_message == NULL; - - if (sent_message == pd->message) { - GtkLabel *label = g_object_get_data (pd->dialog, "caldav-info-label"); - - if (label) - gtk_label_set_text (label, ""); - - g_object_ref (pd->message); - g_object_set_data (pd->dialog, "caldav-thread-message-sent", NULL); - g_object_set_data (pd->dialog, "caldav-thread-message", NULL); - - if (pd->cb) { - const SoupURI *suri = soup_message_get_uri (pd->message); - const gchar *header; - - status_code = pd->message->status_code; - reason_phrase = g_strdup (pd->message->reason_phrase); - msg_body = g_strndup (pd->message->response_body->data, pd->message->response_body->length); - - if (suri && suri->path) - msg_path = g_strdup (suri->path); - - header = soup_message_headers_get (pd->message->response_headers, "DAV"); - if (header) { - gboolean autoschedule = soup_header_contains (header, "calendar-auto-schedule"); - - gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (g_object_get_data (pd->dialog, "caldav-new-autoschedule-check")), autoschedule); - } - } - - g_object_unref (pd->message); - } - - if (!again) { - indicate_busy (pd->dialog, FALSE); - g_object_set_data (pd->dialog, "caldav-thread-poll", GINT_TO_POINTER (0)); - } - - g_mutex_unlock (mutex); - - if (!again && pd->cb) { - (*pd->cb) (pd->dialog, msg_path, status_code, reason_phrase, msg_body, pd->cb_user_data); - } - - g_free (msg_body); - g_free (msg_path); - g_free (reason_phrase); - - return again; -} - -static void -send_xml_message (xmlDocPtr doc, - gboolean depth_1, - const gchar *url, - GObject *dialog, - process_message_cb cb, - gpointer cb_user_data, - const gchar *info) -{ - GCond *cond; - GMutex *mutex; - SoupSession *session; - SoupMessage *message; - xmlOutputBufferPtr buf; - guint poll_id; - struct poll_data *pd; - - g_return_if_fail (doc != NULL); - g_return_if_fail (url != NULL); - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - - cond = g_object_get_data (dialog, "caldav-thread-cond"); - mutex = g_object_get_data (dialog, "caldav-thread-mutex"); - session = g_object_get_data (dialog, "caldav-session"); - - g_return_if_fail (cond != NULL); - g_return_if_fail (mutex != NULL); - g_return_if_fail (session != NULL); - - message = soup_message_new ("PROPFIND", url); - if (!check_message (GTK_WINDOW (dialog), message, url)) - return; - - buf = xmlAllocOutputBuffer (NULL); - xmlNodeDumpOutput (buf, doc, xmlDocGetRootElement (doc), 0, 1, NULL); - xmlOutputBufferFlush (buf); - - soup_message_headers_append (message->request_headers, "User-Agent", "Evolution/" VERSION); - soup_message_headers_append (message->request_headers, "Depth", depth_1 ? "1" : "0"); - soup_message_set_request (message, "application/xml", SOUP_MEMORY_COPY, (const gchar *) buf->buffer->content, buf->buffer->use); - - /* Clean up the memory */ - xmlOutputBufferClose (buf); - - g_mutex_lock (mutex); - - soup_session_abort (session); - - g_object_set_data (dialog, "caldav-thread-task", GINT_TO_POINTER (CALDAV_THREAD_SHOULD_WORK)); - g_object_set_data (dialog, "caldav-thread-message-sent", NULL); - g_object_set_data_full (dialog, "caldav-thread-message", message, g_object_unref); - - g_cond_signal (cond); - - pd = g_new0 (struct poll_data, 1); - pd->dialog = dialog; - pd->message = message; - pd->cb = cb; - pd->cb_user_data = cb_user_data; - - indicate_busy (dialog, TRUE); - - if (info) { - GtkLabel *label = g_object_get_data (dialog, "caldav-info-label"); - - if (label) - gtk_label_set_text (label, info); - } - - /* polling for caldav-thread-message-sent because want to update UI, which is only possible from main thread */ - poll_id = g_timeout_add_full (G_PRIORITY_DEFAULT, 250, poll_for_message_sent_cb, pd, g_free); - - g_object_set_data_full (dialog, "caldav-thread-poll", GINT_TO_POINTER (poll_id), (GDestroyNotify) g_source_remove); - - g_mutex_unlock (mutex); -} - -static void -url_entry_changed (GtkEntry *entry, - GObject *dialog) -{ - const gchar *url; - - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - - url = gtk_entry_get_text (entry); - - gtk_dialog_set_response_sensitive (GTK_DIALOG (dialog), GTK_RESPONSE_OK, url && *url); -} - -static void -tree_selection_changed_cb (GtkTreeSelection *selection, - GtkEntry *url_entry) -{ - gboolean ok = FALSE; - GtkTreeModel *model = NULL; - GtkTreeIter iter; - - g_return_if_fail (selection != NULL); - g_return_if_fail (url_entry != NULL); - - if (gtk_tree_selection_get_selected (selection, &model, &iter)) { - gchar *href = NULL; - - gtk_tree_model_get (model, &iter, - COL_BOOL_IS_CALENDAR, &ok, - COL_STRING_HREF, &href, - -1); - - ok = ok && href && *href; - - if (ok) - gtk_entry_set_text (url_entry, href); - - g_free (href); - } - - if (!ok) - gtk_entry_set_text (url_entry, ""); -} - -static void -tree_row_expanded_cb (GtkTreeView *tree, - GtkTreeIter *iter, - GtkTreePath *path, - GObject *dialog) -{ - GtkTreeModel *model; - gboolean is_loaded = TRUE; - gchar *href = NULL; - - g_return_if_fail (tree != NULL); - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - g_return_if_fail (iter != NULL); - - model = gtk_tree_view_get_model (tree); - gtk_tree_model_get (model, iter, - COL_BOOL_IS_LOADED, &is_loaded, - COL_STRING_HREF, &href, - -1); - - if (!is_loaded) { - /* unset unloaded flag */ - gtk_tree_store_set (GTK_TREE_STORE (model), iter, COL_BOOL_IS_LOADED, TRUE, -1); - - /* remove the "Loading..." node */ - while (gtk_tree_model_iter_has_child (model, iter)) { - GtkTreeIter child; - - if (!gtk_tree_model_iter_nth_child (model, &child, iter, 0) || - !gtk_tree_store_remove (GTK_TREE_STORE (model), &child)) - break; - } - - /* fetch content */ - fetch_folder_content (dialog, href, iter, _("Searching folder content...")); - } - - g_free (href); -} - -static void -init_dialog (GtkDialog *dialog, - GtkWidget **new_url_entry, - GtkWidget **new_usermail_combo, - GtkWidget **new_autoschedule_check, - const gchar *url, - const gchar *username, - const gchar *usermail, - gboolean autoschedule, - gint source_type, - gboolean ignore_invalid_cert) -{ - GtkBox *content_area; - GtkWidget *label, *info_box, *spinner, *info_label, *hbox; - GtkWidget *tree, *scrolled_window; - GtkTreeStore *store; - GtkTreeSelection *selection; - SoupSession *session; - EProxy *proxy; - SoupURI *soup_uri = NULL; - GThread *thread; - GError *error = NULL; - GMutex *thread_mutex; - GCond *thread_cond; - const gchar *source_type_str; - GtkCellRenderer *renderer; - GtkTreeViewColumn *column; - - g_return_if_fail (dialog != NULL); - g_return_if_fail (GTK_IS_DIALOG (dialog)); - g_return_if_fail (new_url_entry != NULL); - g_return_if_fail (new_usermail_combo != NULL); - g_return_if_fail (new_autoschedule_check != NULL); - g_return_if_fail (url != NULL); - - content_area = GTK_BOX (gtk_dialog_get_content_area (dialog)); - g_return_if_fail (content_area != NULL); - - gtk_window_set_default_size (GTK_WINDOW (dialog), 300, 240); - gtk_container_set_border_width (GTK_CONTAINER (dialog), 12); - - *new_url_entry = gtk_entry_new (); - gtk_box_pack_start (content_area, *new_url_entry, FALSE, FALSE, 0); - - g_signal_connect ( - *new_url_entry, "changed", - G_CALLBACK (url_entry_changed), dialog); - - *new_usermail_combo = gtk_combo_box_text_new (); - if (usermail && *usermail) { - gtk_combo_box_text_append_text (GTK_COMBO_BOX_TEXT (*new_usermail_combo), usermail); - gtk_combo_box_set_active (GTK_COMBO_BOX (*new_usermail_combo), 0); - } - - *new_autoschedule_check = gtk_check_button_new_with_mnemonic (_("Server _handles meeting invitations")); - gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (*new_autoschedule_check), autoschedule); - - g_object_set_data (G_OBJECT (dialog), "caldav-new-url-entry", *new_url_entry); - g_object_set_data (G_OBJECT (dialog), "caldav-new-usermail-combo", *new_usermail_combo); - g_object_set_data (G_OBJECT (dialog), "caldav-new-autoschedule-check", *new_autoschedule_check); - - label = gtk_label_new (_("List of available calendars:")); - gtk_misc_set_alignment (GTK_MISC (label), 0.0, 0.5); - gtk_box_pack_start (content_area, label, FALSE, FALSE, 0); - - store = gtk_tree_store_new (8, - G_TYPE_BOOLEAN, /* COL_BOOL_IS_LOADED */ - G_TYPE_STRING, /* COL_STRING_HREF */ - G_TYPE_BOOLEAN, /* COL_BOOL_IS_CALENDAR */ - G_TYPE_STRING, /* COL_STRING_SUPPORTS */ - G_TYPE_STRING, /* COL_STRING_DISPLAYNAME */ - GDK_TYPE_COLOR, /* COL_GDK_COLOR */ - G_TYPE_BOOLEAN, /* COL_BOOL_HAS_COLOR */ - G_TYPE_BOOLEAN); /* COL_BOOL_SENSITIVE */ - - scrolled_window = gtk_scrolled_window_new (NULL, NULL); - gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scrolled_window), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC); - - tree = gtk_tree_view_new_with_model (GTK_TREE_MODEL (store)); - gtk_scrolled_window_add_with_viewport (GTK_SCROLLED_WINDOW (scrolled_window), tree); - gtk_widget_set_size_request (scrolled_window, 320, 240); - gtk_box_pack_start (content_area, scrolled_window, TRUE, TRUE, 0); - - g_object_set_data (G_OBJECT (dialog), "caldav-tree", tree); - g_object_set_data (G_OBJECT (dialog), "caldav-tree-sw", scrolled_window); - - renderer = e_cell_renderer_color_new (); - column = gtk_tree_view_get_column (GTK_TREE_VIEW (tree), gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (tree), -1, _("Name"), renderer, "color", COL_GDK_COLOR, "visible", COL_BOOL_HAS_COLOR, "sensitive", COL_BOOL_SENSITIVE, NULL) - 1); - - renderer = gtk_cell_renderer_text_new (); - gtk_cell_layout_pack_start ( - GTK_CELL_LAYOUT (column), renderer, TRUE); - gtk_cell_layout_set_attributes ( - GTK_CELL_LAYOUT (column), renderer, - "text", COL_STRING_DISPLAYNAME, - "sensitive", COL_BOOL_SENSITIVE, - NULL); - - renderer = gtk_cell_renderer_text_new (); - gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (tree), -1, _("Supports"), renderer, "text", COL_STRING_SUPPORTS, "sensitive", COL_BOOL_SENSITIVE, NULL); - - /*renderer = gtk_cell_renderer_text_new (); - gtk_tree_view_insert_column_with_attributes (GTK_TREE_VIEW (tree), -1, _("href"), renderer, "text", COL_STRING_HREF, "sensitive", COL_BOOL_SENSITIVE, NULL);*/ - - selection = gtk_tree_view_get_selection (GTK_TREE_VIEW (tree)); - g_signal_connect ( - selection, "changed", - G_CALLBACK (tree_selection_changed_cb), *new_url_entry); - - g_signal_connect ( - tree, "row-expanded", - G_CALLBACK (tree_row_expanded_cb), dialog); - - info_box = gtk_hbox_new (FALSE, 2); - - spinner = gtk_spinner_new (); - gtk_spinner_start (GTK_SPINNER (spinner)); - gtk_box_pack_start (GTK_BOX (info_box), spinner, FALSE, FALSE, 0); - g_object_set_data (G_OBJECT (dialog), "caldav-spinner", spinner); - - info_label = gtk_label_new (""); - gtk_misc_set_alignment (GTK_MISC (info_label), 0.0, 0.5); - gtk_box_pack_start (GTK_BOX (info_box), info_label, FALSE, FALSE, 0); - g_object_set_data (G_OBJECT (dialog), "caldav-info-label", info_label); - - gtk_box_pack_start (content_area, info_box, FALSE, FALSE, 0); - - hbox = gtk_hbox_new (FALSE, 2); - gtk_box_pack_start (content_area, hbox, FALSE, FALSE, 0); - - label = gtk_label_new_with_mnemonic (_("User e_mail:")); - gtk_label_set_mnemonic_widget (GTK_LABEL (label), *new_usermail_combo); - - gtk_box_pack_start (GTK_BOX (hbox), label, FALSE, FALSE, 2); - gtk_box_pack_start (GTK_BOX (hbox), *new_usermail_combo, FALSE, FALSE, 2); - - g_object_set_data (G_OBJECT (dialog), "caldav-usermail-hbox", hbox); - - gtk_box_pack_start (content_area, *new_autoschedule_check, FALSE, FALSE, 0); - - gtk_widget_show_all (GTK_WIDGET (content_area)); - gtk_widget_hide (*new_url_entry); - gtk_widget_hide (spinner); - - session = soup_session_sync_new_with_options ( - SOUP_SESSION_SSL_USE_SYSTEM_CA_FILE, !ignore_invalid_cert, - NULL); - - if (g_getenv ("CALDAV_DEBUG") != NULL) { - SoupLogger *logger; - - logger = soup_logger_new (SOUP_LOGGER_LOG_BODY, 100 * 1024 * 1024); - soup_session_add_feature (session, SOUP_SESSION_FEATURE (logger)); - g_object_unref (logger); - } - - proxy = e_proxy_new (); - e_proxy_setup_proxy (proxy); - - /* use proxy if necessary */ - if (e_proxy_require_proxy_for_uri (proxy, url)) { - soup_uri = e_proxy_peek_uri_for (proxy, url); - } - - g_object_set (session, SOUP_SESSION_PROXY_URI, soup_uri, NULL); - g_object_unref (proxy); - - g_signal_connect ( - session, "authenticate", - G_CALLBACK (soup_authenticate), dialog); - - switch (source_type) { - default: - case E_CAL_CLIENT_SOURCE_TYPE_EVENTS: - source_type_str = "VEVENT"; - break; - case E_CAL_CLIENT_SOURCE_TYPE_TASKS: - source_type_str = "VTODO"; - break; - case E_CAL_CLIENT_SOURCE_TYPE_MEMOS: - source_type_str = "VJOURNAL"; - break; - } - - soup_uri = soup_uri_new (url); - g_return_if_fail (soup_uri != NULL); - - soup_uri_set_scheme (soup_uri, "caldav"); - soup_uri_set_user (soup_uri, username); - - g_object_set_data_full (G_OBJECT (dialog), "caldav-auth-key", soup_uri_to_string (soup_uri, FALSE), g_free); - g_object_set_data_full (G_OBJECT (dialog), "caldav-source-type", g_strdup (source_type_str), g_free); - g_object_set_data_full (G_OBJECT (dialog), "caldav-base-url", g_strdup (url), g_free); - g_object_set_data_full (G_OBJECT (dialog), "caldav-username", g_strdup (username), g_free); - g_object_set_data_full (G_OBJECT (dialog), "caldav-session", session, NULL); /* it is freed at the end of thread life */ - - soup_uri_free (soup_uri); - - thread_mutex = g_mutex_new (); - thread_cond = g_cond_new (); - - g_object_set_data (G_OBJECT (dialog), "caldav-thread-task", GINT_TO_POINTER (CALDAV_THREAD_SHOULD_SLEEP)); - g_object_set_data_full (G_OBJECT (dialog), "caldav-thread-mutex", thread_mutex, NULL); /* it is freed at the end of thread life */ - g_object_set_data_full (G_OBJECT (dialog), "caldav-thread-cond", thread_cond, NULL); /* it is freed at the end of thread life */ - - /* create thread at the end, to have all properties on the dialog set */ - thread = g_thread_create (caldav_browse_server_thread, dialog, TRUE, &error); - - if (error || !thread) { - e_notice (GTK_WINDOW (dialog), GTK_MESSAGE_ERROR, _("Failed to create thread: %s"), error ? error->message : _("Unknown error")); - if (error) - g_error_free (error); - } else { - xmlDocPtr doc; - xmlNodePtr root, node; - xmlNsPtr nsdav, nsc; - - g_object_set_data_full (G_OBJECT (dialog), "caldav-thread", thread, (GDestroyNotify) g_thread_join); - - doc = xmlNewDoc (XC "1.0"); - root = xmlNewDocNode (doc, NULL, XC "propfind", NULL); - nsc = xmlNewNs (root, XC "urn:ietf:params:xml:ns:caldav", XC "C"); - nsdav = xmlNewNs (root, XC "DAV:", XC "D"); - xmlSetNs (root, nsdav); - xmlDocSetRootElement (doc, root); - - node = xmlNewTextChild (root, nsdav, XC "prop", NULL); - xmlNewTextChild (node, nsdav, XC "current-user-principal", NULL); - xmlNewTextChild (node, nsdav, XC "principal-URL", NULL); - xmlNewTextChild (node, nsdav, XC "resourcetype", NULL); - xmlNewTextChild (node, nsc, XC "calendar-home-set", NULL); - xmlNewTextChild (node, nsc, XC "calendar-user-address-set", NULL); - - send_xml_message (doc, FALSE, url, G_OBJECT (dialog), find_users_calendar_cb, NULL, _("Searching for user's calendars...")); - - xmlFreeDoc (doc); - } - - g_signal_connect ( - dialog, "response", - G_CALLBACK (dialog_response_cb), dialog); - - url_entry_changed (GTK_ENTRY (*new_url_entry), G_OBJECT (dialog)); -} - -static gchar * -prepare_url (const gchar *server_url, - gboolean use_ssl) -{ - gchar *url; - gint len; - - g_return_val_if_fail (server_url != NULL, NULL); - g_return_val_if_fail (*server_url, NULL); - - if (g_str_has_prefix (server_url, "caldav://")) { - url = g_strconcat (use_ssl ? "https://" : "http://", server_url + 9, NULL); - } else { - url = g_strdup (server_url); - } - - if (url) { - SoupURI *suri = soup_uri_new (url); - - /* properly encode uri */ - if (suri && suri->path) { - gchar *tmp = soup_uri_encode (suri->path, NULL); - gchar *path = soup_uri_normalize (tmp, "/"); - - soup_uri_set_path (suri, path); - - g_free (tmp); - g_free (path); - g_free (url); - - url = soup_uri_to_string (suri, FALSE); - } else { - g_free (url); - soup_uri_free (suri); - return NULL; - } - - soup_uri_free (suri); - } - - /* remove trailing slashes... */ - len = strlen (url); - while (len--) { - if (url[len] == '/') { - url[len] = '\0'; - } else { - break; - } - } - - /* ...and append exactly one slash */ - if (url && *url) { - gchar *tmp = url; - - url = g_strconcat (url, "/", NULL); - - g_free (tmp); - } else { - g_free (url); - url = NULL; - } - - return url; -} - -gchar * -caldav_browse_server (GtkWindow *parent, - const gchar *server_url, - const gchar *username, - gboolean use_ssl, - gboolean ignore_invalid_cert, - gchar **new_usermail, - gboolean *new_autoschedule, - gint source_type) -{ - GtkWidget *dialog, *new_url_entry, *new_usermail_combo, *new_autoschedule_check; - gchar *url, *new_url = NULL; - SoupURI *soup_uri = NULL; - - g_return_val_if_fail (server_url != NULL, NULL); - - url = prepare_url (server_url, use_ssl); - if (url && *url) - soup_uri = soup_uri_new (url); - - if (!url || !*url || !soup_uri) { - e_notice (parent, GTK_MESSAGE_ERROR, _("Server URL '%s' is not a valid URL"), server_url); - if (soup_uri) - soup_uri_free (soup_uri); - g_free (url); - return NULL; - } - - soup_uri_free (soup_uri); - - dialog = gtk_dialog_new_with_buttons ( - _("Browse for a CalDAV calendar"), - parent, - GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT, - GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL, - GTK_STOCK_OK, GTK_RESPONSE_OK, - NULL); - - new_url_entry = NULL; - new_usermail_combo = NULL; - new_autoschedule_check = NULL; - init_dialog (GTK_DIALOG (dialog), - &new_url_entry, - &new_usermail_combo, - &new_autoschedule_check, - url, - username, - new_usermail ? *new_usermail : NULL, - new_autoschedule ? *new_autoschedule : FALSE, - source_type, - ignore_invalid_cert); - - if (new_url_entry && gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_OK) { - const gchar *txt; - - txt = gtk_entry_get_text (GTK_ENTRY (new_url_entry)); - if (txt && *txt) - new_url = change_url_path (server_url, txt); - - txt = gtk_combo_box_text_get_active_text (GTK_COMBO_BOX_TEXT (new_usermail_combo)); - if (txt && *txt && new_usermail) { - g_free (*new_usermail); - *new_usermail = g_strdup (txt); - } - - if (new_autoschedule) - *new_autoschedule = gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (new_autoschedule_check)); - } - - gtk_widget_destroy (dialog); - - g_free (url); - - return new_url; -} |