libpurple/protocols/jabber/roster.c

   1 /*
   2  * purple - Jabber Protocol Plugin
   3  *
   4  * Purple is the legal property of its developers, whose names are too numerous
   5  * to list here.  Please refer to the COPYRIGHT file distributed with this
   6  * source distribution.
   7  *
   8  * This program is free software; you can redistribute it and/or modify
   9  * it under the terms of the GNU General Public License as published by
  10  * the Free Software Foundation; either version 2 of the License, or
  11  * (at your option) any later version.
  12  *
  13  * This program is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16  * GNU General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU General Public License
  19  * along with this program; if not, write to the Free Software
  20  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02111-1301  USA
  21  *
  22  */
  23 #include "internal.h"
  24 #include "debug.h"
  25 #include "server.h"
  26 #include "util.h"
  27
  28 #include "buddy.h"
  29 #include "chat.h"
  30 #include "google/google.h"
  31 #include "google/google_roster.h"
  32 #include "presence.h"
  33 #include "roster.h"
  34 #include "iq.h"
  35
  36 #include <string.h>
  37
  38 /* Take a list of strings and join them with a ", " separator */
  39 static gchar *roster_groups_join(GSList *list)
  40 {
  41         GString *out = g_string_new(NULL);
  42         for ( ; list; list = list->next) {
  43                 out = g_string_append(out, (const char *)list->data);
  44                 if (list->next)
  45                         out = g_string_append(out, ", ");
  46         }
  47
  48         return g_string_free(out, FALSE);
  49 }
  50
  51 static void roster_request_cb(JabberStream *js, const char *from,
  52                               JabberIqType type, const char *id,
  53                               PurpleXmlNode *packet, gpointer data)
  54 {
  55         PurpleXmlNode *query;
  56
  57         if (type == JABBER_IQ_ERROR) {
  58                 /*
  59                  * This shouldn't happen in any real circumstances and
  60                  * likely constitutes a server-side misconfiguration (i.e.
  61                  * explicitly not loading mod_roster...)
  62                  */
  63                 purple_debug_error("jabber", "Error retrieving roster!?\n");
  64                 jabber_stream_set_state(js, JABBER_STREAM_CONNECTED);
  65                 return;
  66         }
  67
  68         query = purple_xmlnode_get_child(packet, "query");
  69         if (query == NULL) {
  70                 jabber_stream_set_state(js, JABBER_STREAM_CONNECTED);
  71                 return;
  72         }
  73
  74         jabber_roster_parse(js, from, type, id, query);
  75         jabber_stream_set_state(js, JABBER_STREAM_CONNECTED);
  76 }
  77
  78 void jabber_roster_request(JabberStream *js)
  79 {
  80         JabberIq *iq;
  81         PurpleXmlNode *query;
  82
  83         iq = jabber_iq_new_query(js, JABBER_IQ_GET, "jabber:iq:roster");
  84         query = purple_xmlnode_get_child(iq->node, "query");
  85
  86         if (js->server_caps & JABBER_CAP_GOOGLE_ROSTER) {
  87                 purple_xmlnode_set_attrib(query, "xmlns:gr", NS_GOOGLE_ROSTER);
  88                 purple_xmlnode_set_attrib(query, "gr:ext", "2");
  89         }
  90
  91         jabber_iq_set_callback(iq, roster_request_cb, NULL);
  92         jabber_iq_send(iq);
  93 }
  94
  95 static void remove_purple_buddies(JabberStream *js, const char *jid)
  96 {
  97         GSList *buddies, *l;
  98
  99         buddies = purple_blist_find_buddies(purple_connection_get_account(js->gc), jid);
 100
 101         for(l = buddies; l; l = l->next)
 102                 purple_blist_remove_buddy(l->data);
 103
 104         g_slist_free(buddies);
 105 }
 106
 107 static void add_purple_buddy_to_groups(JabberStream *js, const char *jid,
 108                 const char *alias, GSList *groups)
 109 {
 110         GSList *buddies, *l;
 111         PurpleAccount *account = purple_connection_get_account(js->gc);
 112
 113         buddies = purple_blist_find_buddies(purple_connection_get_account(js->gc), jid);
 114
 115         if(!groups) {
 116                 if(!buddies) {
 117                         groups = g_slist_append(groups, g_strdup(JABBER_ROSTER_DEFAULT_GROUP));
 118                 } else {
 119                         /* TODO: What should we do here? Removing the local buddies
 120                          * is wrong, but so is letting the group state get out of sync with
 121                          * the server.
 122                          */
 123                         g_slist_free(buddies);
 124                         return;
 125                 }
 126         }
 127
 128         while(buddies) {
 129                 PurpleBuddy *b = buddies->data;
 130                 PurpleGroup *g = purple_buddy_get_group(b);
 131
 132                 buddies = g_slist_delete_link(buddies, buddies);
 133
 134                 /* XMPP groups are case-sensitive, but libpurple groups are
 135                  * case-insensitive. We treat a buddy in both "Friends" and "friends"
 136                  * as only being in one group, but if we push changes about the buddy
 137                  * to the server, the buddy will be dropped from one of the groups.
 138                  * Not optimal, but better than the alternative, I think.
 139                  */
 140                 l = g_slist_find_custom(groups, purple_group_get_name(g),
 141                         (GCompareFunc)purple_utf8_strcasecmp);
 142                 if (!l && g == purple_blist_get_default_group()) {
 143                         l = g_slist_find_custom(groups, JABBER_ROSTER_DEFAULT_GROUP,
 144                                 (GCompareFunc)purple_utf8_strcasecmp);
 145                 }
 146                 if (!l && g == purple_blist_get_default_group()) {
 147                         l = g_slist_find_custom(groups,
 148                                 _purple_blist_get_localized_default_group_name(),
 149                                 (GCompareFunc)purple_utf8_strcasecmp);
 150                 }
 151
 152                 if (l) {
 153                         /* The buddy is already on the local list. Update info. */
 154                         const char *servernick, *balias;
 155
 156                         /* Previously stored serverside / buddy-supplied alias */
 157                         if((servernick = purple_blist_node_get_string((PurpleBlistNode*)b, "servernick")))
 158                                 purple_serv_got_alias(js->gc, jid, servernick);
 159
 160                         /* Alias from our roster retrieval */
 161                         balias = purple_buddy_get_local_alias(b);
 162                         if(alias && !purple_strequal(alias, balias))
 163                                 purple_serv_got_private_alias(js->gc, jid, alias);
 164                         g_free(l->data);
 165                         groups = g_slist_delete_link(groups, l);
 166                 } else {
 167                         /* This buddy isn't in the group on the server anymore */
 168                         purple_debug_info("jabber", "jabber_roster_parse(): "
 169                                 "Removing %s from group '%s' on the local list",
 170                                 purple_buddy_get_name(b),
 171                                 jabber_roster_group_get_global_name(g));
 172                         purple_blist_remove_buddy(b);
 173                 }
 174         }
 175
 176         if (groups) {
 177                 char *tmp = roster_groups_join(groups);
 178                 purple_debug_info("jabber", "jabber_roster_parse(): Adding %s to "
 179                                   "groups: %s\n", jid, tmp);
 180                 g_free(tmp);
 181         }
 182
 183         while(groups) {
 184                 PurpleGroup *g = purple_blist_find_group(groups->data);
 185                 PurpleBuddy *b = purple_buddy_new(account, jid, alias);
 186
 187                 if(!g) {
 188                         g = purple_group_new(groups->data);
 189                         purple_blist_add_group(g, NULL);
 190                 }
 191
 192                 purple_blist_add_buddy(b, NULL, g, NULL);
 193                 purple_buddy_set_local_alias(b, alias);
 194
 195                 g_free(groups->data);
 196                 groups = g_slist_delete_link(groups, groups);
 197         }
 198 }
 199
 200 void jabber_roster_parse(JabberStream *js, const char *from,
 201                          JabberIqType type, const char *id, PurpleXmlNode *query)
 202 {
 203         PurpleXmlNode *item, *group;
 204
 205         if (!jabber_is_own_account(js, from)) {
 206                 purple_debug_warning("jabber", "Received bogon roster push from %s\n",
 207                                      from);
 208                 return;
 209         }
 210
 211         js->currently_parsing_roster_push = TRUE;
 212
 213         for(item = purple_xmlnode_get_child(query, "item"); item; item = purple_xmlnode_get_next_twin(item))
 214         {
 215                 const char *jid, *name, *subscription, *ask;
 216                 JabberBuddy *jb;
 217
 218                 subscription = purple_xmlnode_get_attrib(item, "subscription");
 219                 jid = purple_xmlnode_get_attrib(item, "jid");
 220                 name = purple_xmlnode_get_attrib(item, "name");
 221                 ask = purple_xmlnode_get_attrib(item, "ask");
 222
 223                 if(!jid)
 224                         continue;
 225
 226                 if(!(jb = jabber_buddy_find(js, jid, TRUE)))
 227                         continue;
 228
 229                 if(subscription) {
 230                         if (purple_strequal(subscription, "remove"))
 231                                 jb->subscription = JABBER_SUB_REMOVE;
 232                         else if (jb == js->user_jb)
 233                                 jb->subscription = JABBER_SUB_BOTH;
 234                         else if (purple_strequal(subscription, "none"))
 235                                 jb->subscription = JABBER_SUB_NONE;
 236                         else if (purple_strequal(subscription, "to"))
 237                                 jb->subscription = JABBER_SUB_TO;
 238                         else if (purple_strequal(subscription, "from"))
 239                                 jb->subscription = JABBER_SUB_FROM;
 240                         else if (purple_strequal(subscription, "both"))
 241                                 jb->subscription = JABBER_SUB_BOTH;
 242                 }
 243
 244                 if(purple_strequal(ask, "subscribe"))
 245                         jb->subscription |= JABBER_SUB_PENDING;
 246                 else
 247                         jb->subscription &= ~JABBER_SUB_PENDING;
 248
 249                 if(jb->subscription & JABBER_SUB_REMOVE) {
 250                         remove_purple_buddies(js, jid);
 251                 } else {
 252                         GSList *groups = NULL;
 253
 254                         if (js->server_caps & JABBER_CAP_GOOGLE_ROSTER)
 255                                 if (!jabber_google_roster_incoming(js, item))
 256                                         continue;
 257
 258                         for(group = purple_xmlnode_get_child(item, "group"); group; group = purple_xmlnode_get_next_twin(group)) {
 259                                 char *group_name = purple_xmlnode_get_data(group);
 260
 261                                 if (group_name == NULL || *group_name == '\0')
 262                                         /* Changing this string?  Look in add_purple_buddy_to_groups */
 263                                         group_name = g_strdup(JABBER_ROSTER_DEFAULT_GROUP);
 264
 265                                 /*
 266                                  * See the note in add_purple_buddy_to_groups; the core handles
 267                                  * names case-insensitively and this is required to not
 268                                  * end up with duplicates if a buddy is in, e.g.,
 269                                  * 'XMPP' and 'xmpp'
 270                                  */
 271                                 if (g_slist_find_custom(groups, group_name, (GCompareFunc)purple_utf8_strcasecmp))
 272                                         g_free(group_name);
 273                                 else
 274                                         groups = g_slist_prepend(groups, group_name);
 275                         }
 276
 277                         add_purple_buddy_to_groups(js, jid, name, groups);
 278                         if (jb == js->user_jb)
 279                                 jabber_presence_fake_to_self(js, NULL);
 280                 }
 281         }
 282
 283         if (type == JABBER_IQ_SET) {
 284                 JabberIq *ack = jabber_iq_new(js, JABBER_IQ_RESULT);
 285                 jabber_iq_set_id(ack, id);
 286                 jabber_iq_send(ack);
 287         }
 288
 289         js->currently_parsing_roster_push = FALSE;
 290 }
 291
 292 /* jabber_roster_update frees the GSList* passed in */
 293 static void jabber_roster_update(JabberStream *js, const char *name,
 294                 GSList *groups)
 295 {
 296         PurpleBuddy *b;
 297         PurpleGroup *g;
 298         GSList *l;
 299         JabberIq *iq;
 300         PurpleXmlNode *query, *item, *group;
 301         const char *balias;
 302
 303         if (js->currently_parsing_roster_push)
 304                 return;
 305
 306         if(!(b = purple_blist_find_buddy(purple_connection_get_account(js->gc), name)))
 307                 return;
 308
 309         if (groups) {
 310                 char *tmp = roster_groups_join(groups);
 311
 312                 purple_debug_info("jabber", "jabber_roster_update(%s): [Source: "
 313                                   "groups]: groups: %s\n", name, tmp);
 314                 g_free(tmp);
 315         } else {
 316                 GSList *buddies = purple_blist_find_buddies(purple_connection_get_account(js->gc), name);
 317                 char *tmp;
 318
 319                 if(!buddies)
 320                         return;
 321                 while(buddies) {
 322                         b = buddies->data;
 323                         g = purple_buddy_get_group(b);
 324                         groups = g_slist_append(groups,
 325                                 (char *)jabber_roster_group_get_global_name(g));
 326                         buddies = g_slist_remove(buddies, b);
 327                 }
 328
 329                 tmp = roster_groups_join(groups);
 330                 purple_debug_info("jabber", "jabber_roster_update(%s): [Source: local blist]: groups: %s\n",
 331                                   name, tmp);
 332                 g_free(tmp);
 333         }
 334
 335         iq = jabber_iq_new_query(js, JABBER_IQ_SET, "jabber:iq:roster");
 336
 337         query = purple_xmlnode_get_child(iq->node, "query");
 338         item = purple_xmlnode_new_child(query, "item");
 339
 340         purple_xmlnode_set_attrib(item, "jid", name);
 341
 342         balias = purple_buddy_get_local_alias(b);
 343         purple_xmlnode_set_attrib(item, "name", balias ? balias : "");
 344
 345         for(l = groups; l; l = l->next) {
 346                 group = purple_xmlnode_new_child(item, "group");
 347                 purple_xmlnode_insert_data(group, l->data, -1);
 348         }
 349
 350         g_slist_free(groups);
 351
 352         if (js->server_caps & JABBER_CAP_GOOGLE_ROSTER) {
 353                 jabber_google_roster_outgoing(js, query, item);
 354                 purple_xmlnode_set_attrib(query, "xmlns:gr", NS_GOOGLE_ROSTER);
 355                 purple_xmlnode_set_attrib(query, "gr:ext", "2");
 356         }
 357         jabber_iq_send(iq);
 358 }
 359
 360 void jabber_roster_add_buddy(PurpleConnection *gc, PurpleBuddy *buddy,
 361                 PurpleGroup *group, const char *message)
 362 {
 363         JabberStream *js = purple_connection_get_protocol_data(gc);
 364         char *who;
 365         JabberID *jid;
 366         JabberBuddy *jb;
 367         JabberBuddyResource *jbr;
 368         const char *name;
 369
 370         /* If we haven't received the roster yet, ignore any adds */
 371         if (js->state != JABBER_STREAM_CONNECTED)
 372                 return;
 373
 374         name = purple_buddy_get_name(buddy);
 375         jid = jabber_id_new(name);
 376         if (jid == NULL) {
 377                 /* TODO: Remove the buddy from the list? */
 378                 return;
 379         }
 380
 381         /* Adding a chat room or a chat user to the roster is *not* supported. */
 382         if (jid->node && jabber_chat_find(js, jid->node, jid->domain) != NULL) {
 383                 /*
 384                  * This is the same thing Bonjour does. If it causes problems, move
 385                  * it to an idle callback.
 386                  */
 387                 purple_debug_warning("jabber", "Cowardly refusing to add a MUC user "
 388                                      "to your buddy list and removing the buddy. "
 389                                      "Buddies can only be added by real (non-MUC) "
 390                                      "JID\n");
 391                 purple_blist_remove_buddy(buddy);
 392                 jabber_id_free(jid);
 393                 return;
 394         }
 395
 396         who = jabber_id_get_bare_jid(jid);
 397         if (jid->resource != NULL) {
 398                 /*
 399                  * If the buddy name added contains a resource, strip that off and
 400                  * rename the buddy.
 401                  */
 402                 purple_buddy_set_name(buddy, who);
 403         }
 404
 405         jb = jabber_buddy_find(js, who, FALSE);
 406
 407         purple_debug_info("jabber", "jabber_roster_add_buddy(): Adding %s\n", who);
 408
 409         jabber_roster_update(js, who, NULL);
 410
 411         if (jb == js->user_jb) {
 412                 jabber_presence_fake_to_self(js, NULL);
 413         } else if(!jb || !(jb->subscription & JABBER_SUB_TO)) {
 414                 jabber_presence_subscription_set(js, who, "subscribe");
 415         } else if((jbr =jabber_buddy_find_resource(jb, NULL))) {
 416                 purple_protocol_got_user_status(purple_connection_get_account(gc), who,
 417                                 jabber_buddy_state_get_status_id(jbr->state),
 418                                 "priority", jbr->priority, jbr->status ? "message" : NULL, jbr->status, NULL);
 419         }
 420
 421         g_free(who);
 422 }
 423
 424 void jabber_roster_alias_change(PurpleConnection *gc, const char *name, const char *alias)
 425 {
 426         PurpleBuddy *b = purple_blist_find_buddy(purple_connection_get_account(gc), name);
 427
 428         if(b != NULL) {
 429                 purple_buddy_set_local_alias(b, alias);
 430
 431                 purple_debug_info("jabber", "jabber_roster_alias_change(): Aliased %s to %s\n",
 432                                 name, alias ? alias : "(null)");
 433
 434                 jabber_roster_update(purple_connection_get_protocol_data(gc), name, NULL);
 435         }
 436 }
 437
 438 void jabber_roster_group_change(PurpleConnection *gc, const char *name,
 439                 const char *old_group, const char *new_group)
 440 {
 441         GSList *buddies, *groups = NULL;
 442         PurpleBuddy *b;
 443
 444         if(!old_group || !new_group || purple_strequal(old_group, new_group))
 445                 return;
 446
 447         buddies = purple_blist_find_buddies(purple_connection_get_account(gc), name);
 448         while(buddies) {
 449                 b = buddies->data;
 450                 groups = g_slist_append(groups, (char*)new_group);
 451                 buddies = g_slist_remove(buddies, b);
 452         }
 453
 454         purple_debug_info("jabber", "jabber_roster_group_change(): Moving %s from %s to %s\n",
 455                           name, old_group, new_group);
 456
 457         jabber_roster_update(purple_connection_get_protocol_data(gc), name, groups);
 458 }
 459
 460 void jabber_roster_group_rename(PurpleConnection *gc, const char *old_name,
 461                 PurpleGroup *group, GList *moved_buddies)
 462 {
 463         GList *l;
 464         const char *gname = jabber_roster_group_get_global_name(group);
 465         for(l = moved_buddies; l; l = l->next) {
 466                 PurpleBuddy *buddy = l->data;
 467                 jabber_roster_group_change(gc, purple_buddy_get_name(buddy), old_name, gname);
 468         }
 469 }
 470
 471 void jabber_roster_remove_buddy(PurpleConnection *gc, PurpleBuddy *buddy,
 472                 PurpleGroup *group) {
 473         const char *name = purple_buddy_get_name(buddy);
 474         GSList *buddies = purple_blist_find_buddies(purple_connection_get_account(gc), name);
 475
 476         buddies = g_slist_remove(buddies, buddy);
 477         if(buddies != NULL) {
 478                 PurpleBuddy *tmpbuddy;
 479                 PurpleGroup *tmpgroup;
 480                 GSList *groups = NULL;
 481
 482                 while(buddies) {
 483                         tmpbuddy = buddies->data;
 484                         tmpgroup = purple_buddy_get_group(tmpbuddy);
 485                         groups = g_slist_append(groups,
 486                                 (char *)jabber_roster_group_get_global_name(tmpgroup));
 487                         buddies = g_slist_remove(buddies, tmpbuddy);
 488                 }
 489
 490                 purple_debug_info("jabber", "jabber_roster_remove_buddy(): "
 491                         "Removing %s from %s", purple_buddy_get_name(buddy),
 492                         jabber_roster_group_get_global_name(group));
 493
 494                 jabber_roster_update(purple_connection_get_protocol_data(gc), name, groups);
 495         } else {
 496                 JabberIq *iq = jabber_iq_new_query(purple_connection_get_protocol_data(gc), JABBER_IQ_SET,
 497                                 "jabber:iq:roster");
 498                 PurpleXmlNode *query = purple_xmlnode_get_child(iq->node, "query");
 499                 PurpleXmlNode *item = purple_xmlnode_new_child(query, "item");
 500
 501                 purple_xmlnode_set_attrib(item, "jid", name);
 502                 purple_xmlnode_set_attrib(item, "subscription", "remove");
 503
 504                 purple_debug_info("jabber", "jabber_roster_remove_buddy(): Removing %s\n",
 505                                   purple_buddy_get_name(buddy));
 506
 507                 jabber_iq_send(iq);
 508         }
 509 }
 510
 511 const gchar *
 512 jabber_roster_group_get_global_name(PurpleGroup *group)
 513 {
 514         const gchar *name = NULL;
 515
 516         if (group)
 517                 name = purple_group_get_name(group);
 518
 519         if (name == NULL)
 520                 name = JABBER_ROSTER_DEFAULT_GROUP;
 521         else if (purple_strequal(name, PURPLE_BLIST_DEFAULT_GROUP_NAME))
 522                 name = JABBER_ROSTER_DEFAULT_GROUP;
 523         else if (purple_strequal(name, _purple_blist_get_localized_default_group_name()))
 524                 name = JABBER_ROSTER_DEFAULT_GROUP;
 525
 526         return name;
 527 }