src/core/sipe-ucs.c

   1 /**
   2  * @file sipe-ucs.c
   3  *
   4  * pidgin-sipe
   5  *
   6  * Copyright (C) 2013 SIPE Project <http://sipe.sourceforge.net/>
   7  *
   8  *
   9  * This program is free software; you can redistribute it and/or modify
  10  * it under the terms of the GNU General Public License as published by
  11  * the Free Software Foundation; either version 2 of the License, or
  12  * (at your option) any later version.
  13  *
  14  * This program is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17  * GNU General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU General Public License
  20  * along with this program; if not, write to the Free Software
  21  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  22  *
  23  *
  24  * Implementation for Unified Contact Store [MS-OXWSCOS]
  25  *  <http://msdn.microsoft.com/en-us/library/jj194130.aspx>
  26  */
  27
  28 #include <string.h>
  29
  30 #include <glib.h>
  31
  32 #include "sipe-backend.h"
  33 #include "sipe-buddy.h"
  34 #include "sipe-common.h"
  35 #include "sipe-core.h"
  36 #include "sipe-core-private.h"
  37 #include "sipe-digest.h"
  38 #include "sipe-ews-autodiscover.h"
  39 #include "sipe-group.h"
  40 #include "sipe-http.h"
  41 #include "sipe-subscriptions.h"
  42 #include "sipe-ucs.h"
  43 #include "sipe-utils.h"
  44 #include "sipe-xml.h"
  45
  46 typedef void (ucs_callback)(struct sipe_core_private *sipe_private,
  47                             const sipe_xml *body,
  48                             gpointer callback_data);
  49
  50 struct ucs_deferred {
  51         ucs_callback *cb;
  52         gpointer cb_data;
  53         gchar *body;
  54 };
  55
  56 struct ucs_request {
  57         ucs_callback *cb;
  58         gpointer cb_data;
  59         struct sipe_http_request *request;
  60 };
  61
  62 struct sipe_ucs {
  63         gchar *ews_url;
  64         GSList *deferred_requests;
  65         GSList *pending_requests;
  66         gboolean migrated;
  67         gboolean shutting_down;
  68 };
  69
  70 static void sipe_ucs_deferred_free(struct sipe_core_private *sipe_private,
  71                                    struct ucs_deferred *data)
  72 {
  73         if (data->cb)
  74                 /* Callback: aborted */
  75                 (*data->cb)(sipe_private, NULL, data->cb_data);
  76         g_free(data->body);
  77         g_free(data);
  78 }
  79
  80 static void sipe_ucs_request_free(struct sipe_core_private *sipe_private,
  81                                   struct ucs_request *data)
  82 {
  83         if (data->request)
  84                 sipe_http_request_cancel(data->request);
  85         if (data->cb)
  86                 /* Callback: aborted */
  87                 (*data->cb)(sipe_private, NULL, data->cb_data);
  88         g_free(data);
  89 }
  90
  91 static void sipe_ucs_http_response(struct sipe_core_private *sipe_private,
  92                                    guint status,
  93                                    SIPE_UNUSED_PARAMETER GSList *headers,
  94                                    const gchar *body,
  95                                    gpointer callback_data)
  96 {
  97         struct ucs_request *data = callback_data;
  98         struct sipe_ucs *ucs = sipe_private->ucs;
  99
 100         SIPE_DEBUG_INFO("sipe_ucs_http_response: code %d", status);
 101         data->request = NULL;
 102
 103         if ((status == SIPE_HTTP_STATUS_OK) && body) {
 104                 sipe_xml *xml = sipe_xml_parse(body, strlen(body));
 105                 const sipe_xml *soap_body = sipe_xml_child(xml, "Body");
 106                 /* Callback: success */
 107                 (*data->cb)(sipe_private, soap_body, data->cb_data);
 108                 sipe_xml_free(xml);
 109         } else {
 110                 /* Callback: failed */
 111                 (*data->cb)(sipe_private, NULL, data->cb_data);
 112         }
 113
 114         /* already been called */
 115         data->cb = NULL;
 116
 117         ucs->pending_requests = g_slist_remove(ucs->pending_requests,
 118                                                data);
 119         sipe_ucs_request_free(sipe_private, data);
 120 }
 121
 122 static gboolean sipe_ucs_http_request(struct sipe_core_private *sipe_private,
 123                                       const gchar *body,
 124                                       ucs_callback *callback,
 125                                       gpointer callback_data)
 126 {
 127         struct sipe_ucs *ucs = sipe_private->ucs;
 128         gboolean success = FALSE;
 129
 130         if (ucs->shutting_down) {
 131                 SIPE_DEBUG_ERROR("sipe_ucs_http_request: new UCS request during shutdown: THIS SHOULD NOT HAPPEN! Debugging information:\n"
 132                                  "Body:   %s\n",
 133                                  body ? body : "<EMPTY>");
 134
 135         } else if (ucs->ews_url) {
 136                 struct ucs_request *data = g_new0(struct ucs_request, 1);
 137                 gchar *soap = g_strdup_printf("<?xml version=\"1.0\"?>\r\n"
 138                                               "<soap:Envelope"
 139                                               " xmlns:m=\"http://schemas.microsoft.com/exchange/services/2006/messages\""
 140                                               " xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\""
 141                                               " xmlns:t=\"http://schemas.microsoft.com/exchange/services/2006/types\""
 142                                               " >"
 143                                               " <soap:Header>"
 144                                               "  <t:RequestServerVersion Version=\"Exchange2013\" />"
 145                                               " </soap:Header>"
 146                                               " <soap:Body>"
 147                                               "  %s"
 148                                               " </soap:Body>"
 149                                               "</soap:Envelope>",
 150                                               body);
 151                 struct sipe_http_request *request = sipe_http_request_post(sipe_private,
 152                                                                            ucs->ews_url,
 153                                                                            NULL,
 154                                                                            soap,
 155                                                                            "text/xml; charset=UTF-8",
 156                                                                            sipe_ucs_http_response,
 157                                                                            data);
 158                 g_free(soap);
 159
 160                 if (request) {
 161                         data->cb      = callback;
 162                         data->cb_data = callback_data;
 163                         data->request = request;
 164
 165                         ucs->pending_requests = g_slist_prepend(ucs->pending_requests,
 166                                                                 data);
 167
 168                         sipe_core_email_authentication(sipe_private,
 169                                                        request);
 170                         sipe_http_request_allow_redirect(request);
 171                         sipe_http_request_ready(request);
 172
 173                         success = TRUE;
 174                 } else {
 175                         SIPE_DEBUG_ERROR_NOFORMAT("sipe_ucs_http_request: failed to create HTTP connection");
 176                         g_free(data);
 177                 }
 178
 179         } else {
 180                 struct ucs_deferred *data = g_new0(struct ucs_deferred, 1);
 181                 data->cb      = callback;
 182                 data->cb_data = callback_data;
 183                 data->body    = g_strdup(body);
 184
 185                 ucs->deferred_requests = g_slist_prepend(ucs->deferred_requests,
 186                                                          data);
 187                 success = TRUE;
 188         }
 189
 190         return(success);
 191 }
 192
 193 static void sipe_ucs_get_user_photo_response(struct sipe_core_private *sipe_private,
 194                                              const sipe_xml *body,
 195                                              gpointer callback_data)
 196 {
 197         gchar *uri = callback_data;
 198         const sipe_xml *node = sipe_xml_child(body,
 199                                               "GetUserPhotoResponse/PictureData");
 200
 201         if (node) {
 202                 gchar *base64;
 203                 gsize photo_size;
 204                 guchar *photo;
 205                 guchar digest[SIPE_DIGEST_SHA1_LENGTH];
 206                 gchar *digest_string;
 207
 208                 /* decode photo data */
 209                 base64 = sipe_xml_data(node);
 210                 photo = g_base64_decode(base64, &photo_size);
 211                 g_free(base64);
 212
 213                 /* EWS doesn't provide a hash -> calculate SHA-1 digest */
 214                 sipe_digest_sha1(photo, photo_size, digest);
 215                 digest_string = buff_to_hex_str(digest,
 216                                                 SIPE_DIGEST_SHA1_LENGTH);
 217
 218                 /* backend frees "photo" */
 219                 sipe_backend_buddy_set_photo(SIPE_CORE_PUBLIC,
 220                                              uri,
 221                                              photo,
 222                                              photo_size,
 223                                              digest_string);
 224                 g_free(digest_string);
 225         }
 226
 227         g_free(uri);
 228 }
 229
 230 void sipe_ucs_get_photo(struct sipe_core_private *sipe_private,
 231                         const gchar *uri)
 232 {
 233         gchar *payload = g_strdup(uri);
 234         gchar *body = g_strdup_printf("<m:GetUserPhoto>"
 235                                       " <m:Email>%s</m:Email>"
 236                                       " <m:SizeRequested>HR48x48</m:SizeRequested>"
 237                                       "</m:GetUserPhoto>",
 238                                       sipe_get_no_sip_uri(uri));
 239
 240         if (!sipe_ucs_http_request(sipe_private,
 241                                    body,
 242                                    sipe_ucs_get_user_photo_response,
 243                                    payload))
 244                 g_free(payload);
 245
 246         g_free(body);
 247 }
 248
 249 static void sipe_ucs_get_im_item_list_response(struct sipe_core_private *sipe_private,
 250                                                const sipe_xml *body,
 251                                                SIPE_UNUSED_PARAMETER gpointer callback_data)
 252 {
 253         const sipe_xml *node = sipe_xml_child(body,
 254                                               "GetImItemListResponse/ImItemList");
 255
 256         if (node) {
 257                 const sipe_xml *persona_node;
 258                 const sipe_xml *group_node;
 259
 260                 /* Start processing contact list */
 261                 sipe_backend_buddy_list_processing_start(SIPE_CORE_PUBLIC);
 262
 263                 for (persona_node = sipe_xml_child(node, "Personas/Persona");
 264                      persona_node;
 265                      persona_node = sipe_xml_twin(persona_node)) {
 266                         gchar *address = sipe_xml_data(sipe_xml_child(persona_node,
 267                                                                       "ImAddress"));
 268                         const gchar *key = NULL;
 269                         const sipe_xml *attr_node;
 270
 271                         /* extract Exchange key - not sure if this is correct */
 272                         for (attr_node = sipe_xml_child(persona_node,
 273                                                         "Attributions/Attribution");
 274                              attr_node;
 275                              attr_node = sipe_xml_twin(attr_node)) {
 276                                 const sipe_xml *id_node = sipe_xml_child(attr_node,
 277                                                                          "SourceId");
 278                                 gchar *type = sipe_xml_data(sipe_xml_child(attr_node,
 279                                                                            "DisplayName"));
 280                                 if (id_node &&
 281                                     sipe_strequal(type, "Lync Contacts")) {
 282                                         key = sipe_xml_attribute(id_node, "Id");
 283                                         g_free(type);
 284                                         break;
 285                                 }
 286                                 g_free(type);
 287                         }
 288
 289                         if (!(is_empty(address) || is_empty(key))) {
 290                                 /*
 291                                  * Buddy name must be lower case as we use
 292                                  * purple_normalize_nocase() to compare
 293                                  */
 294                                 gchar *uri            = sip_uri_from_name(address);
 295                                 gchar *normalized_uri = g_ascii_strdown(uri, -1);
 296                                 g_free(uri);
 297
 298                                 sipe_buddy_add(sipe_private,
 299                                                normalized_uri,
 300                                                key);
 301                                 g_free(normalized_uri);
 302                         }
 303                         g_free(address);
 304                 }
 305
 306                 for (group_node = sipe_xml_child(node, "Groups/ImGroup");
 307                      group_node;
 308                      group_node = sipe_xml_twin(group_node)) {
 309                         gchar *name = sipe_xml_data(sipe_xml_child(group_node,
 310                                                                    "DisplayName"));
 311
 312                         if (!is_empty(name)) {
 313                                 struct sipe_group *group = g_new0(struct sipe_group, 1);
 314                                 const sipe_xml *member_node;
 315
 316                                 group->name = name;
 317                                 name = NULL; /* group takes ownership */
 318
 319                                 sipe_group_add(sipe_private, group);
 320
 321                                 for (member_node = sipe_xml_child(group_node,
 322                                                                   "MemberCorrelationKey/ItemId");
 323                                      member_node;
 324                                      member_node = sipe_xml_twin(member_node)) {
 325                                         struct sipe_buddy *buddy = sipe_buddy_find_by_exchange_key(sipe_private,
 326                                                                                                    sipe_xml_attribute(member_node,
 327                                                                                                                       "Id"));
 328                                         if (buddy) {
 329                                                 sipe_backend_buddy b = sipe_backend_buddy_find(SIPE_CORE_PUBLIC,
 330                                                                                                buddy->name,
 331                                                                                                group->name);
 332
 333                                                 if (!b) {
 334                                                         b = sipe_backend_buddy_add(SIPE_CORE_PUBLIC,
 335                                                                                    buddy->name,
 336                                                                                    /* alias will be set via buddy presence update */
 337                                                                                    NULL,
 338                                                                                    group->name);
 339                                                         SIPE_DEBUG_INFO("Created new buddy %s", buddy->name);
 340                                                 }
 341
 342                                         }
 343
 344                                         buddy->groups = sipe_utils_slist_insert_unique_sorted(buddy->groups,
 345                                                                                               group,
 346                                                                                               (GCompareFunc) sipe_group_compare,
 347                                                                                               NULL);
 348
 349                                         SIPE_DEBUG_INFO("Added buddy %s to group %s",
 350                                                         buddy->name, group->name);
 351                                 }
 352                         }
 353
 354                         g_free(name);
 355                 }
 356
 357                 /* Finished processing contact list */
 358                 sipe_backend_buddy_list_processing_finish(SIPE_CORE_PUBLIC);
 359                 sipe_subscribe_presence_initial(sipe_private);
 360         }
 361 }
 362
 363 static void ucs_ews_autodiscover_cb(struct sipe_core_private *sipe_private,
 364                                     const struct sipe_ews_autodiscover_data *ews_data,
 365                                     SIPE_UNUSED_PARAMETER gpointer callback_data)
 366 {
 367         struct sipe_ucs *ucs = sipe_private->ucs;
 368         const gchar *ews_url = ews_data->ews_url;
 369
 370         if (!ucs)
 371                 return;
 372
 373         if (is_empty(ews_url)) {
 374                 SIPE_DEBUG_ERROR_NOFORMAT("ucs_ews_autodiscover_cb: can't detect EWS URL, contact list operations will not work!");
 375                 return;
 376         }
 377
 378         SIPE_DEBUG_INFO("ucs_ews_autodiscover_cb: EWS URL '%s'", ews_url);
 379         ucs->ews_url = g_strdup(ews_url);
 380
 381         /* Request migrated contact list */
 382         if (ucs->migrated)
 383                 sipe_ucs_http_request(sipe_private,
 384                                       "<m:GetImItemList/>",
 385                                       sipe_ucs_get_im_item_list_response,
 386                                       NULL);
 387
 388         /* EWS URL is valid, send all deferred requests now */
 389         if (ucs->deferred_requests) {
 390                 GSList *entry = ucs->deferred_requests;
 391                 while (entry) {
 392                         struct ucs_deferred *data = entry->data;
 393
 394                         sipe_ucs_http_request(sipe_private,
 395                                               data->body,
 396                                               data->cb,
 397                                               data->cb_data);
 398
 399                         /* callback & data has been forwarded */
 400                         data->cb = NULL;
 401                         sipe_ucs_deferred_free(sipe_private, data);
 402
 403                         entry = entry->next;
 404                 }
 405                 g_slist_free(ucs->deferred_requests);
 406                 ucs->deferred_requests = NULL;
 407         }
 408 }
 409
 410 gboolean sipe_ucs_is_migrated(struct sipe_core_private *sipe_private)
 411 {
 412         return(sipe_private->ucs ? sipe_private->ucs->migrated : FALSE);
 413 }
 414
 415 void sipe_ucs_init(struct sipe_core_private *sipe_private,
 416                    gboolean migrated)
 417 {
 418         struct sipe_ucs *ucs;
 419
 420         if (sipe_private->ucs)
 421                 return;
 422
 423         sipe_private->ucs = ucs = g_new0(struct sipe_ucs, 1);
 424         ucs->migrated = migrated;
 425
 426         sipe_ews_autodiscover_start(sipe_private,
 427                                     ucs_ews_autodiscover_cb,
 428                                     NULL);
 429 }
 430
 431 void sipe_ucs_free(struct sipe_core_private *sipe_private)
 432 {
 433         struct sipe_ucs *ucs = sipe_private->ucs;
 434
 435         if (!ucs)
 436                 return;
 437
 438         /* UCS stack is shutting down: reject all new requests */
 439         ucs->shutting_down = TRUE;
 440
 441         if (ucs->deferred_requests) {
 442                 GSList *entry = ucs->deferred_requests;
 443                 while (entry) {
 444                         sipe_ucs_deferred_free(sipe_private, entry->data);
 445                         entry = entry->next;
 446                 }
 447                 g_slist_free(ucs->deferred_requests);
 448         }
 449
 450         if (ucs->pending_requests) {
 451                 GSList *entry = ucs->pending_requests;
 452                 while (entry) {
 453                         sipe_ucs_request_free(sipe_private, entry->data);
 454                         entry = entry->next;
 455                 }
 456                 g_slist_free(ucs->pending_requests);
 457         }
 458
 459         g_free(ucs->ews_url);
 460         g_free(ucs);
 461         sipe_private->ucs = NULL;
 462 }
 463
 464 /*
 465   Local Variables:
 466   mode: c
 467   c-file-style: "bsd"
 468   indent-tabs-mode: t
 469   tab-width: 8
 470   End:
 471 */