Mercurial > pidgin.yaz
view libpurple/protocols/jabber/buddy.c @ 25796:c5c4faef04ff
Patch from darkrain42
Introduce a temporary variable to aid in readability
author | Marcus Lundblad <ml@update.uu.se> |
---|---|
date | Tue, 18 Nov 2008 20:22:57 +0000 |
parents | 3d4ce9df0d48 |
children | cac2f6203505 |
line wrap: on
line source
/* * purple - Jabber Protocol Plugin * * Copyright (C) 2003, Nathan Walp <faceprint@faceprint.com> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA * */ #include "internal.h" #include "cipher.h" #include "debug.h" #include "imgstore.h" #include "prpl.h" #include "notify.h" #include "request.h" #include "util.h" #include "xmlnode.h" #include "buddy.h" #include "chat.h" #include "jabber.h" #include "iq.h" #include "presence.h" #include "xdata.h" #include "pep.h" #include "adhoccommands.h" #define MAX_HTTP_BUDDYICON_BYTES (200 * 1024) typedef struct { long idle_seconds; } JabberBuddyInfoResource; typedef struct { JabberStream *js; JabberBuddy *jb; char *jid; GSList *ids; GHashTable *resources; int timeout_handle; GSList *vcard_imgids; PurpleNotifyUserInfo *user_info; } JabberBuddyInfo; void jabber_buddy_free(JabberBuddy *jb) { g_return_if_fail(jb != NULL); g_free(jb->error_msg); while(jb->resources) jabber_buddy_resource_free(jb->resources->data); g_free(jb); } JabberBuddy *jabber_buddy_find(JabberStream *js, const char *name, gboolean create) { JabberBuddy *jb; const char *realname; if (js->buddies == NULL) return NULL; if(!(realname = jabber_normalize(js->gc->account, name))) return NULL; jb = g_hash_table_lookup(js->buddies, realname); if(!jb && create) { jb = g_new0(JabberBuddy, 1); g_hash_table_insert(js->buddies, g_strdup(realname), jb); } return jb; } JabberBuddyResource *jabber_buddy_find_resource(JabberBuddy *jb, const char *resource) { JabberBuddyResource *jbr = NULL; GList *l; if(!jb) return NULL; for(l = jb->resources; l; l = l->next) { JabberBuddyResource *tmp = l->data; if(!jbr && !resource) { jbr = tmp; } else if(!resource) { if(tmp->priority > jbr->priority) jbr = tmp; else if(tmp->priority == jbr->priority) { /* Determine if this resource is more available than the one we've currently chosen */ switch(tmp->state) { case JABBER_BUDDY_STATE_ONLINE: case JABBER_BUDDY_STATE_CHAT: /* This resource is online/chatty. Prefer to one which isn't either. */ if ((jbr->state != JABBER_BUDDY_STATE_ONLINE) && (jbr->state != JABBER_BUDDY_STATE_CHAT)) jbr = tmp; break; case JABBER_BUDDY_STATE_AWAY: case JABBER_BUDDY_STATE_DND: case JABBER_BUDDY_STATE_UNAVAILABLE: /* This resource is away/dnd/unavailable. Prefer to one which is extended away or unknown. */ if ((jbr->state == JABBER_BUDDY_STATE_XA) || (jbr->state == JABBER_BUDDY_STATE_UNKNOWN) || (jbr->state == JABBER_BUDDY_STATE_ERROR)) jbr = tmp; break; case JABBER_BUDDY_STATE_XA: /* This resource is extended away. That's better than unknown. */ if ((jbr->state == JABBER_BUDDY_STATE_UNKNOWN) || (jbr->state == JABBER_BUDDY_STATE_ERROR)) jbr = tmp; break; case JABBER_BUDDY_STATE_UNKNOWN: case JABBER_BUDDY_STATE_ERROR: /* These are never preferable. */ break; } } } else if(tmp->name) { if(!strcmp(tmp->name, resource)) { jbr = tmp; break; } } } return jbr; } JabberBuddyResource *jabber_buddy_track_resource(JabberBuddy *jb, const char *resource, int priority, JabberBuddyState state, const char *status) { JabberBuddyResource *jbr = jabber_buddy_find_resource(jb, resource); if(!jbr) { jbr = g_new0(JabberBuddyResource, 1); jbr->jb = jb; jbr->name = g_strdup(resource); jbr->capabilities = JABBER_CAP_XHTML; jb->resources = g_list_append(jb->resources, jbr); } jbr->priority = priority; jbr->state = state; g_free(jbr->status); jbr->status = status != NULL ? g_markup_escape_text(status, -1) : NULL; return jbr; } void jabber_buddy_resource_free(JabberBuddyResource *jbr) { g_return_if_fail(jbr != NULL); jbr->jb->resources = g_list_remove(jbr->jb->resources, jbr); while(jbr->commands) { JabberAdHocCommands *cmd = jbr->commands->data; g_free(cmd->jid); g_free(cmd->node); g_free(cmd->name); g_free(cmd); jbr->commands = g_list_delete_link(jbr->commands, jbr->commands); } jabber_caps_free_clientinfo(jbr->caps); g_free(jbr->name); g_free(jbr->status); g_free(jbr->thread_id); g_free(jbr->client.name); g_free(jbr->client.version); g_free(jbr->client.os); g_free(jbr); } void jabber_buddy_remove_resource(JabberBuddy *jb, const char *resource) { JabberBuddyResource *jbr = jabber_buddy_find_resource(jb, resource); if(!jbr) return; jabber_buddy_resource_free(jbr); } const char *jabber_buddy_get_status_msg(JabberBuddy *jb) { JabberBuddyResource *jbr; if(!jb) return NULL; jbr = jabber_buddy_find_resource(jb, NULL); if(!jbr) return NULL; return jbr->status; } /******* * This is the old vCard stuff taken from the old prpl. vCards, by definition * are a temporary thing until jabber can get its act together and come up * with a format for user information, hence the namespace of 'vcard-temp' * * Since I don't feel like putting that much work into something that's * _supposed_ to go away, i'm going to just copy the kludgy old code here, * and make it purdy when jabber comes up with a standards-track JEP to * replace vcard-temp * --Nathan *******/ /*---------------------------------------*/ /* Jabber "set info" (vCard) support */ /*---------------------------------------*/ /* * V-Card format: * * <vCard prodid='' version='' xmlns=''> * <FN></FN> * <N> * <FAMILY/> * <GIVEN/> * </N> * <NICKNAME/> * <URL/> * <ADR> * <STREET/> * <EXTADD/> * <LOCALITY/> * <REGION/> * <PCODE/> * <COUNTRY/> * </ADR> * <TEL/> * <EMAIL/> * <ORG> * <ORGNAME/> * <ORGUNIT/> * </ORG> * <TITLE/> * <ROLE/> * <DESC/> * <BDAY/> * </vCard> * * See also: * * http://docs.jabber.org/proto/html/vcard-temp.html * http://www.vcard-xml.org/dtd/vCard-XML-v2-20010520.dtd */ /* * Cross-reference user-friendly V-Card entry labels to vCard XML tags * and attributes. * * Order is (or should be) unimportant. For example: we have no way of * knowing in what order real data will arrive. * * Format: Label, Pre-set text, "visible" flag, "editable" flag, XML tag * name, XML tag's parent tag "path" (relative to vCard node). * * List is terminated by a NULL label pointer. * * Entries with no label text, but with XML tag and parent tag * entries, are used by V-Card XML construction routines to * "automagically" construct the appropriate XML node tree. * * Thoughts on future direction/expansion * * This is a "simple" vCard. * * It is possible for nodes other than the "vCard" node to have * attributes. Should that prove necessary/desirable, add an * "attributes" pointer to the vcard_template struct, create the * necessary tag_attr structs, and add 'em to the vcard_dflt_data * array. * * The above changes will (obviously) require changes to the vCard * construction routines. */ struct vcard_template { char *label; /* label text pointer */ char *text; /* entry text pointer */ int visible; /* should entry field be "visible?" */ int editable; /* should entry field be editable? */ char *tag; /* tag text */ char *ptag; /* parent tag "path" text */ char *url; /* vCard display format if URL */ } const vcard_template_data[] = { {N_("Full Name"), NULL, TRUE, TRUE, "FN", NULL, NULL}, {N_("Family Name"), NULL, TRUE, TRUE, "FAMILY", "N", NULL}, {N_("Given Name"), NULL, TRUE, TRUE, "GIVEN", "N", NULL}, {N_("Nickname"), NULL, TRUE, TRUE, "NICKNAME", NULL, NULL}, {N_("URL"), NULL, TRUE, TRUE, "URL", NULL, "<A HREF=\"%s\">%s</A>"}, {N_("Street Address"), NULL, TRUE, TRUE, "STREET", "ADR", NULL}, {N_("Extended Address"), NULL, TRUE, TRUE, "EXTADD", "ADR", NULL}, {N_("Locality"), NULL, TRUE, TRUE, "LOCALITY", "ADR", NULL}, {N_("Region"), NULL, TRUE, TRUE, "REGION", "ADR", NULL}, {N_("Postal Code"), NULL, TRUE, TRUE, "PCODE", "ADR", NULL}, {N_("Country"), NULL, TRUE, TRUE, "CTRY", "ADR", NULL}, {N_("Telephone"), NULL, TRUE, TRUE, "NUMBER", "TEL", NULL}, {N_("Email"), NULL, TRUE, TRUE, "USERID", "EMAIL", "<A HREF=\"mailto:%s\">%s</A>"}, {N_("Organization Name"), NULL, TRUE, TRUE, "ORGNAME", "ORG", NULL}, {N_("Organization Unit"), NULL, TRUE, TRUE, "ORGUNIT", "ORG", NULL}, {N_("Title"), NULL, TRUE, TRUE, "TITLE", NULL, NULL}, {N_("Role"), NULL, TRUE, TRUE, "ROLE", NULL, NULL}, {N_("Birthday"), NULL, TRUE, TRUE, "BDAY", NULL, NULL}, {N_("Description"), NULL, TRUE, TRUE, "DESC", NULL, NULL}, {"", NULL, TRUE, TRUE, "N", NULL, NULL}, {"", NULL, TRUE, TRUE, "ADR", NULL, NULL}, {"", NULL, TRUE, TRUE, "ORG", NULL, NULL}, {NULL, NULL, 0, 0, NULL, NULL, NULL} }; /* * The "vCard" tag's attribute list... */ struct tag_attr { char *attr; char *value; } const vcard_tag_attr_list[] = { {"prodid", "-//HandGen//NONSGML vGen v1.0//EN"}, {"version", "2.0", }, {"xmlns", "vcard-temp", }, {NULL, NULL}, }; /* * Insert a tag node into an xmlnode tree, recursively inserting parent tag * nodes as necessary * * Returns pointer to inserted node * * Note to hackers: this code is designed to be re-entrant (it's recursive--it * calls itself), so don't put any "static"s in here! */ static xmlnode *insert_tag_to_parent_tag(xmlnode *start, const char *parent_tag, const char *new_tag) { xmlnode *x = NULL; /* * If the parent tag wasn't specified, see if we can get it * from the vCard template struct. */ if(parent_tag == NULL) { const struct vcard_template *vc_tp = vcard_template_data; while(vc_tp->label != NULL) { if(strcmp(vc_tp->tag, new_tag) == 0) { parent_tag = vc_tp->ptag; break; } ++vc_tp; } } /* * If we have a parent tag... */ if(parent_tag != NULL ) { /* * Try to get the parent node for a tag */ if((x = xmlnode_get_child(start, parent_tag)) == NULL) { /* * Descend? */ char *grand_parent = g_strdup(parent_tag); char *parent; if((parent = strrchr(grand_parent, '/')) != NULL) { *(parent++) = '\0'; x = insert_tag_to_parent_tag(start, grand_parent, parent); } else { x = xmlnode_new_child(start, grand_parent); } g_free(grand_parent); } else { /* * We found *something* to be the parent node. * Note: may be the "root" node! */ xmlnode *y; if((y = xmlnode_get_child(x, new_tag)) != NULL) { return(y); } } } /* * insert the new tag into its parent node */ return(xmlnode_new_child((x == NULL? start : x), new_tag)); } /* * Send vCard info to Jabber server */ void jabber_set_info(PurpleConnection *gc, const char *info) { PurpleStoredImage *img; JabberIq *iq; JabberStream *js = gc->proto_data; xmlnode *vc_node; const struct tag_attr *tag_attr; /* if we have't grabbed the remote vcard yet, we can't * assume that what we have here is correct */ if(!js->vcard_fetched) return; g_free(js->avatar_hash); js->avatar_hash = NULL; /* * Send only if there's actually any *information* to send */ vc_node = info ? xmlnode_from_str(info, -1) : NULL; if (vc_node && (!vc_node->name || g_ascii_strncasecmp(vc_node->name, "vCard", 5))) { xmlnode_free(vc_node); vc_node = NULL; } if ((img = purple_buddy_icons_find_account_icon(gc->account))) { gconstpointer avatar_data; gsize avatar_len; xmlnode *photo, *binval, *type; gchar *enc; int i; unsigned char hashval[20]; char *p, hash[41]; if(!vc_node) { vc_node = xmlnode_new("vCard"); for(tag_attr = vcard_tag_attr_list; tag_attr->attr != NULL; ++tag_attr) xmlnode_set_attrib(vc_node, tag_attr->attr, tag_attr->value); } avatar_data = purple_imgstore_get_data(img); avatar_len = purple_imgstore_get_size(img); /* have to get rid of the old PHOTO if it exists */ if((photo = xmlnode_get_child(vc_node, "PHOTO"))) { xmlnode_free(photo); } photo = xmlnode_new_child(vc_node, "PHOTO"); type = xmlnode_new_child(photo, "TYPE"); xmlnode_insert_data(type, "image/png", -1); binval = xmlnode_new_child(photo, "BINVAL"); enc = purple_base64_encode(avatar_data, avatar_len); purple_cipher_digest_region("sha1", avatar_data, avatar_len, sizeof(hashval), hashval, NULL); purple_imgstore_unref(img); p = hash; for(i=0; i<20; i++, p+=2) snprintf(p, 3, "%02x", hashval[i]); js->avatar_hash = g_strdup(hash); xmlnode_insert_data(binval, enc, -1); g_free(enc); } if (vc_node != NULL) { iq = jabber_iq_new(js, JABBER_IQ_SET); xmlnode_insert_child(iq->node, vc_node); jabber_iq_send(iq); } } void jabber_set_buddy_icon(PurpleConnection *gc, PurpleStoredImage *img) { PurplePresence *gpresence; PurpleStatus *status; if(((JabberStream*)gc->proto_data)->pep) { /* XEP-0084: User Avatars */ if(img) { /* * TODO: This is pretty gross. The Jabber PRPL really shouldn't * do voodoo to try to determine the image type, height * and width. */ /* A PNG header, including the IHDR, but nothing else */ const struct { guchar signature[8]; /* must be hex 89 50 4E 47 0D 0A 1A 0A */ struct { guint32 length; /* must be 0x0d */ guchar type[4]; /* must be 'I' 'H' 'D' 'R' */ guint32 width; guint32 height; guchar bitdepth; guchar colortype; guchar compression; guchar filter; guchar interlace; } ihdr; } *png = purple_imgstore_get_data(img); /* ATTN: this is in network byte order! */ /* check if the data is a valid png file (well, at least to some extend) */ if(png->signature[0] == 0x89 && png->signature[1] == 0x50 && png->signature[2] == 0x4e && png->signature[3] == 0x47 && png->signature[4] == 0x0d && png->signature[5] == 0x0a && png->signature[6] == 0x1a && png->signature[7] == 0x0a && ntohl(png->ihdr.length) == 0x0d && png->ihdr.type[0] == 'I' && png->ihdr.type[1] == 'H' && png->ihdr.type[2] == 'D' && png->ihdr.type[3] == 'R') { /* parse PNG header to get the size of the image (yes, this is required) */ guint32 width = ntohl(png->ihdr.width); guint32 height = ntohl(png->ihdr.height); xmlnode *publish, *item, *data, *metadata, *info; char *lengthstring, *widthstring, *heightstring; /* compute the sha1 hash */ PurpleCipherContext *ctx; unsigned char digest[20]; char *hash; char *base64avatar; ctx = purple_cipher_context_new_by_name("sha1", NULL); purple_cipher_context_append(ctx, purple_imgstore_get_data(img), purple_imgstore_get_size(img)); purple_cipher_context_digest(ctx, sizeof(digest), digest, NULL); purple_cipher_context_destroy(ctx); /* convert digest to a string */ hash = g_strdup_printf("%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x%x",digest[0],digest[1],digest[2],digest[3],digest[4],digest[5],digest[6],digest[7],digest[8],digest[9],digest[10],digest[11],digest[12],digest[13],digest[14],digest[15],digest[16],digest[17],digest[18],digest[19]); publish = xmlnode_new("publish"); xmlnode_set_attrib(publish,"node",AVATARNAMESPACEDATA); item = xmlnode_new_child(publish, "item"); xmlnode_set_attrib(item, "id", hash); data = xmlnode_new_child(item, "data"); xmlnode_set_namespace(data,AVATARNAMESPACEDATA); base64avatar = purple_base64_encode(purple_imgstore_get_data(img), purple_imgstore_get_size(img)); xmlnode_insert_data(data,base64avatar,-1); g_free(base64avatar); /* publish the avatar itself */ jabber_pep_publish((JabberStream*)gc->proto_data, publish); /* next step: publish the metadata */ publish = xmlnode_new("publish"); xmlnode_set_attrib(publish,"node",AVATARNAMESPACEMETA); item = xmlnode_new_child(publish, "item"); xmlnode_set_attrib(item, "id", hash); metadata = xmlnode_new_child(item, "metadata"); xmlnode_set_namespace(metadata,AVATARNAMESPACEMETA); info = xmlnode_new_child(metadata, "info"); xmlnode_set_attrib(info, "id", hash); xmlnode_set_attrib(info, "type", "image/png"); lengthstring = g_strdup_printf("%u", (unsigned)purple_imgstore_get_size(img)); xmlnode_set_attrib(info, "bytes", lengthstring); g_free(lengthstring); widthstring = g_strdup_printf("%u", width); xmlnode_set_attrib(info, "width", widthstring); g_free(widthstring); heightstring = g_strdup_printf("%u", height); xmlnode_set_attrib(info, "height", heightstring); g_free(heightstring); /* publish the metadata */ jabber_pep_publish((JabberStream*)gc->proto_data, publish); g_free(hash); } else { /* if(img) */ /* remove the metadata */ xmlnode *metadata, *item; xmlnode *publish = xmlnode_new("publish"); xmlnode_set_attrib(publish,"node",AVATARNAMESPACEMETA); item = xmlnode_new_child(publish, "item"); metadata = xmlnode_new_child(item, "metadata"); xmlnode_set_namespace(metadata,AVATARNAMESPACEMETA); xmlnode_new_child(metadata, "stop"); /* publish the metadata */ jabber_pep_publish((JabberStream*)gc->proto_data, publish); } } else { purple_debug(PURPLE_DEBUG_ERROR, "jabber", "jabber_set_buddy_icon received non-png data"); } } /* even when the image is not png, we can still publish the vCard, since this one doesn't require a specific image type */ /* publish vCard for those poor older clients */ jabber_set_info(gc, purple_account_get_user_info(gc->account)); gpresence = purple_account_get_presence(gc->account); status = purple_presence_get_active_status(gpresence); jabber_presence_send(gc->account, status); } /* * This is the callback from the "ok clicked" for "set vCard" * * Formats GSList data into XML-encoded string and returns a pointer * to said string. * * g_free()'ing the returned string space is the responsibility of * the caller. */ static void jabber_format_info(PurpleConnection *gc, PurpleRequestFields *fields) { xmlnode *vc_node; PurpleRequestField *field; const char *text; char *p; const struct vcard_template *vc_tp; const struct tag_attr *tag_attr; vc_node = xmlnode_new("vCard"); for(tag_attr = vcard_tag_attr_list; tag_attr->attr != NULL; ++tag_attr) xmlnode_set_attrib(vc_node, tag_attr->attr, tag_attr->value); for (vc_tp = vcard_template_data; vc_tp->label != NULL; vc_tp++) { if (*vc_tp->label == '\0') continue; field = purple_request_fields_get_field(fields, vc_tp->tag); text = purple_request_field_string_get_value(field); if (text != NULL && *text != '\0') { xmlnode *xp; purple_debug(PURPLE_DEBUG_INFO, "jabber", "Setting %s to '%s'\n", vc_tp->tag, text); if ((xp = insert_tag_to_parent_tag(vc_node, NULL, vc_tp->tag)) != NULL) { xmlnode_insert_data(xp, text, -1); } } } p = xmlnode_to_str(vc_node, NULL); xmlnode_free(vc_node); purple_account_set_user_info(purple_connection_get_account(gc), p); serv_set_info(gc, p); g_free(p); } /* * This gets executed by the proto action * * Creates a new PurpleRequestFields struct, gets the XML-formatted user_info * string (if any) into GSLists for the (multi-entry) edit dialog and * calls the set_vcard dialog. */ void jabber_setup_set_info(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; PurpleRequestFields *fields; PurpleRequestFieldGroup *group; PurpleRequestField *field; const struct vcard_template *vc_tp; const char *user_info; char *cdata = NULL; xmlnode *x_vc_data = NULL; fields = purple_request_fields_new(); group = purple_request_field_group_new(NULL); purple_request_fields_add_group(fields, group); /* * Get existing, XML-formatted, user info */ if((user_info = purple_account_get_user_info(gc->account)) != NULL) x_vc_data = xmlnode_from_str(user_info, -1); /* * Set up GSLists for edit with labels from "template," data from user info */ for(vc_tp = vcard_template_data; vc_tp->label != NULL; ++vc_tp) { xmlnode *data_node; if((vc_tp->label)[0] == '\0') continue; if (x_vc_data != NULL) { if(vc_tp->ptag == NULL) { data_node = xmlnode_get_child(x_vc_data, vc_tp->tag); } else { gchar *tag = g_strdup_printf("%s/%s", vc_tp->ptag, vc_tp->tag); data_node = xmlnode_get_child(x_vc_data, tag); g_free(tag); } if(data_node) cdata = xmlnode_get_data(data_node); } if(strcmp(vc_tp->tag, "DESC") == 0) { field = purple_request_field_string_new(vc_tp->tag, _(vc_tp->label), cdata, TRUE); } else { field = purple_request_field_string_new(vc_tp->tag, _(vc_tp->label), cdata, FALSE); } g_free(cdata); cdata = NULL; purple_request_field_group_add_field(group, field); } if(x_vc_data != NULL) xmlnode_free(x_vc_data); purple_request_fields(gc, _("Edit XMPP vCard"), _("Edit XMPP vCard"), _("All items below are optional. Enter only the " "information with which you feel comfortable."), fields, _("Save"), G_CALLBACK(jabber_format_info), _("Cancel"), NULL, purple_connection_get_account(gc), NULL, NULL, gc); } /*---------------------------------------*/ /* End Jabber "set info" (vCard) support */ /*---------------------------------------*/ /****** * end of that ancient crap that needs to die ******/ static void jabber_buddy_info_destroy(JabberBuddyInfo *jbi) { /* Remove the timeout, which would otherwise trigger jabber_buddy_get_info_timeout() */ if (jbi->timeout_handle > 0) purple_timeout_remove(jbi->timeout_handle); g_free(jbi->jid); g_hash_table_destroy(jbi->resources); purple_notify_user_info_destroy(jbi->user_info); g_free(jbi); } static void jabber_buddy_info_show_if_ready(JabberBuddyInfo *jbi) { char *resource_name, *tmp; JabberBuddyResource *jbr; JabberBuddyInfoResource *jbir = NULL; GList *resources; PurpleNotifyUserInfo *user_info; /* not yet */ if(jbi->ids) return; user_info = jbi->user_info; resource_name = jabber_get_resource(jbi->jid); /* If we have one or more pairs from the vcard, put a section break above it */ if (purple_notify_user_info_get_entries(user_info)) purple_notify_user_info_prepend_section_break(user_info); /* Prepend the primary buddy info to user_info so that it goes before the vcard. */ if(resource_name) { jbr = jabber_buddy_find_resource(jbi->jb, resource_name); jbir = g_hash_table_lookup(jbi->resources, resource_name); if(jbr && jbr->client.name) { tmp = g_strdup_printf("%s%s%s", jbr->client.name, (jbr->client.version ? " " : ""), (jbr->client.version ? jbr->client.version : "")); purple_notify_user_info_add_pair(user_info, _("Client"), tmp); g_free(tmp); if(jbr->client.os) { purple_notify_user_info_prepend_pair(user_info, _("Operating System"), jbr->client.os); } } if(jbir) { if(jbir->idle_seconds > 0) { char *idle = purple_str_seconds_to_string(jbir->idle_seconds); purple_notify_user_info_prepend_pair(user_info, _("Idle"), idle); g_free(idle); } } if(jbr) { char *purdy = NULL; const char *status_name = jabber_buddy_state_get_name(jbr->state); if(jbr->status) purdy = purple_strdup_withhtml(jbr->status); if(status_name && purdy && !strcmp(status_name, purdy)) status_name = NULL; tmp = g_strdup_printf("%s%s%s", (status_name ? status_name : ""), ((status_name && purdy) ? ": " : ""), (purdy ? purdy : "")); purple_notify_user_info_prepend_pair(user_info, _("Status"), tmp); g_free(tmp); g_free(purdy); } else { purple_notify_user_info_prepend_pair(user_info, _("Status"), _("Unknown")); } #if 0 /* #if 0 this for now; I think this would be far more useful if we limited this to a particular set of features * of particular interest (-vv jumps out as one). As it is now, I don't picture people getting all excited: "Oh sweet crap! * So-and-so supports 'jabber:x:data' AND 'Collaborative Data Objects'!" */ if(jbr && jbr->caps) { GString *tmp = g_string_new(""); GList *iter; for(iter = jbr->caps->features; iter; iter = g_list_next(iter)) { const char *feature = iter->data; if(!strcmp(feature, "jabber:iq:last")) feature = _("Last Activity"); else if(!strcmp(feature, "http://jabber.org/protocol/disco#info")) feature = _("Service Discovery Info"); else if(!strcmp(feature, "http://jabber.org/protocol/disco#items")) feature = _("Service Discovery Items"); else if(!strcmp(feature, "http://jabber.org/protocol/address")) feature = _("Extended Stanza Addressing"); else if(!strcmp(feature, "http://jabber.org/protocol/muc")) feature = _("Multi-User Chat"); else if(!strcmp(feature, "http://jabber.org/protocol/muc#user")) feature = _("Multi-User Chat Extended Presence Information"); else if(!strcmp(feature, "http://jabber.org/protocol/ibb")) feature = _("In-Band Bytestreams"); else if(!strcmp(feature, "http://jabber.org/protocol/commands")) feature = _("Ad-Hoc Commands"); else if(!strcmp(feature, "http://jabber.org/protocol/pubsub")) feature = _("PubSub Service"); else if(!strcmp(feature, "http://jabber.org/protocol/bytestreams")) feature = _("SOCKS5 Bytestreams"); else if(!strcmp(feature, "jabber:x:oob")) feature = _("Out of Band Data"); else if(!strcmp(feature, "http://jabber.org/protocol/xhtml-im")) feature = _("XHTML-IM"); else if(!strcmp(feature, "jabber:iq:register")) feature = _("In-Band Registration"); else if(!strcmp(feature, "http://jabber.org/protocol/geoloc")) feature = _("User Location"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0084.html")) feature = _("User Avatar"); else if(!strcmp(feature, "http://jabber.org/protocol/chatstates")) feature = _("Chat State Notifications"); else if(!strcmp(feature, "jabber:iq:version")) feature = _("Software Version"); else if(!strcmp(feature, "http://jabber.org/protocol/si")) feature = _("Stream Initiation"); else if(!strcmp(feature, "http://jabber.org/protocol/si/profile/file-transfer")) feature = _("File Transfer"); else if(!strcmp(feature, "http://jabber.org/protocol/mood")) feature = _("User Mood"); else if(!strcmp(feature, "http://jabber.org/protocol/activity")) feature = _("User Activity"); else if(!strcmp(feature, "http://jabber.org/protocol/caps")) feature = _("Entity Capabilities"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0116.html")) feature = _("Encrypted Session Negotiations"); else if(!strcmp(feature, "http://jabber.org/protocol/tune")) feature = _("User Tune"); else if(!strcmp(feature, "http://jabber.org/protocol/rosterx")) feature = _("Roster Item Exchange"); else if(!strcmp(feature, "http://jabber.org/protocol/reach")) feature = _("Reachability Address"); else if(!strcmp(feature, "http://jabber.org/protocol/profile")) feature = _("User Profile"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0166.html#ns")) feature = _("Jingle"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0167.html#ns")) feature = _("Jingle Audio"); else if(!strcmp(feature, "http://jabber.org/protocol/nick")) feature = _("User Nickname"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0176.html#ns-udp")) feature = _("Jingle ICE UDP"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0176.html#ns-tcp")) feature = _("Jingle ICE TCP"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0177.html#ns")) feature = _("Jingle Raw UDP"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0180.html#ns")) feature = _("Jingle Video"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0181.html#ns")) feature = _("Jingle DTMF"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0184.html#ns")) feature = _("Message Receipts"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0189.html#ns")) feature = _("Public Key Publishing"); else if(!strcmp(feature, "http://jabber.org/protocol/chatting")) feature = _("User Chatting"); else if(!strcmp(feature, "http://jabber.org/protocol/browsing")) feature = _("User Browsing"); else if(!strcmp(feature, "http://jabber.org/protocol/gaming")) feature = _("User Gaming"); else if(!strcmp(feature, "http://jabber.org/protocol/viewing")) feature = _("User Viewing"); else if(!strcmp(feature, "urn:xmpp:ping") || !strcmp(feature, "http://www.xmpp.org/extensions/xep-0199.html#ns")) feature = _("Ping"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0200.html#ns")) feature = _("Stanza Encryption"); else if(!strcmp(feature, "urn:xmpp:time")) feature = _("Entity Time"); else if(!strcmp(feature, "urn:xmpp:delay")) feature = _("Delayed Delivery"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0204.html#ns")) feature = _("Collaborative Data Objects"); else if(!strcmp(feature, "http://jabber.org/protocol/fileshare")) feature = _("File Repository and Sharing"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0215.html#ns")) feature = _("STUN Service Discovery for Jingle"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0116.html#ns")) feature = _("Simplified Encrypted Session Negotiation"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0219.html#ns")) feature = _("Hop Check"); else if(g_str_has_suffix(feature, "+notify")) feature = NULL; if(feature) g_string_append_printf(tmp, "%s<br/>", feature); } if(strlen(tmp->str) > 0) purple_notify_user_info_prepend_pair(user_info, _("Capabilities"), tmp->str); g_string_free(tmp, TRUE); } #endif } else { gboolean multiple_resources = jbi->jb->resources && (g_list_length(jbi->jb->resources) > 1); for(resources = jbi->jb->resources; resources; resources = resources->next) { char *purdy = NULL; const char *status_name = NULL; jbr = resources->data; if(jbr->client.name) { tmp = g_strdup_printf("%s%s%s", jbr->client.name, (jbr->client.version ? " " : ""), (jbr->client.version ? jbr->client.version : "")); purple_notify_user_info_prepend_pair(user_info, _("Client"), tmp); g_free(tmp); if(jbr->client.os) { purple_notify_user_info_prepend_pair(user_info, _("Operating System"), jbr->client.os); } } if(jbr->name && (jbir = g_hash_table_lookup(jbi->resources, jbr->name))) { if(jbir->idle_seconds > 0) { char *idle = purple_str_seconds_to_string(jbir->idle_seconds); purple_notify_user_info_prepend_pair(user_info, _("Idle"), idle); g_free(idle); } } status_name = jabber_buddy_state_get_name(jbr->state); if(jbr->status) purdy = purple_strdup_withhtml(jbr->status); if(status_name && purdy && !strcmp(status_name, purdy)) status_name = NULL; tmp = g_strdup_printf("%s%s%s", (status_name ? status_name : ""), ((status_name && purdy) ? ": " : ""), (purdy ? purdy : "")); purple_notify_user_info_prepend_pair(user_info, _("Status"), tmp); g_free(tmp); g_free(purdy); if(multiple_resources) { tmp = g_strdup_printf("%d", jbr->priority); purple_notify_user_info_prepend_pair(user_info, _("Priority"), tmp); g_free(tmp); } if(jbr->name) purple_notify_user_info_prepend_pair(user_info, _("Resource"), jbr->name); #if 0 if(jbr && jbr->caps) { GString *tmp = g_string_new(""); GList *iter; for(iter = jbr->caps->features; iter; iter = g_list_next(iter)) { const char *feature = iter->data; if(!strcmp(feature, "jabber:iq:last")) feature = _("Last Activity"); else if(!strcmp(feature, "http://jabber.org/protocol/disco#info")) feature = _("Service Discovery Info"); else if(!strcmp(feature, "http://jabber.org/protocol/disco#items")) feature = _("Service Discovery Items"); else if(!strcmp(feature, "http://jabber.org/protocol/address")) feature = _("Extended Stanza Addressing"); else if(!strcmp(feature, "http://jabber.org/protocol/muc")) feature = _("Multi-User Chat"); else if(!strcmp(feature, "http://jabber.org/protocol/muc#user")) feature = _("Multi-User Chat Extended Presence Information"); else if(!strcmp(feature, "http://jabber.org/protocol/ibb")) feature = _("In-Band Bytestreams"); else if(!strcmp(feature, "http://jabber.org/protocol/commands")) feature = _("Ad-Hoc Commands"); else if(!strcmp(feature, "http://jabber.org/protocol/pubsub")) feature = _("PubSub Service"); else if(!strcmp(feature, "http://jabber.org/protocol/bytestreams")) feature = _("SOCKS5 Bytestreams"); else if(!strcmp(feature, "jabber:x:oob")) feature = _("Out of Band Data"); else if(!strcmp(feature, "http://jabber.org/protocol/xhtml-im")) feature = _("XHTML-IM"); else if(!strcmp(feature, "jabber:iq:register")) feature = _("In-Band Registration"); else if(!strcmp(feature, "http://jabber.org/protocol/geoloc")) feature = _("User Location"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0084.html")) feature = _("User Avatar"); else if(!strcmp(feature, "http://jabber.org/protocol/chatstates")) feature = _("Chat State Notifications"); else if(!strcmp(feature, "jabber:iq:version")) feature = _("Software Version"); else if(!strcmp(feature, "http://jabber.org/protocol/si")) feature = _("Stream Initiation"); else if(!strcmp(feature, "http://jabber.org/protocol/si/profile/file-transfer")) feature = _("File Transfer"); else if(!strcmp(feature, "http://jabber.org/protocol/mood")) feature = _("User Mood"); else if(!strcmp(feature, "http://jabber.org/protocol/activity")) feature = _("User Activity"); else if(!strcmp(feature, "http://jabber.org/protocol/caps")) feature = _("Entity Capabilities"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0116.html")) feature = _("Encrypted Session Negotiations"); else if(!strcmp(feature, "http://jabber.org/protocol/tune")) feature = _("User Tune"); else if(!strcmp(feature, "http://jabber.org/protocol/rosterx")) feature = _("Roster Item Exchange"); else if(!strcmp(feature, "http://jabber.org/protocol/reach")) feature = _("Reachability Address"); else if(!strcmp(feature, "http://jabber.org/protocol/profile")) feature = _("User Profile"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0166.html#ns")) feature = _("Jingle"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0167.html#ns")) feature = _("Jingle Audio"); else if(!strcmp(feature, "http://jabber.org/protocol/nick")) feature = _("User Nickname"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0176.html#ns-udp")) feature = _("Jingle ICE UDP"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0176.html#ns-tcp")) feature = _("Jingle ICE TCP"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0177.html#ns")) feature = _("Jingle Raw UDP"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0180.html#ns")) feature = _("Jingle Video"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0181.html#ns")) feature = _("Jingle DTMF"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0184.html#ns")) feature = _("Message Receipts"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0189.html#ns")) feature = _("Public Key Publishing"); else if(!strcmp(feature, "http://jabber.org/protocol/chatting")) feature = _("User Chatting"); else if(!strcmp(feature, "http://jabber.org/protocol/browsing")) feature = _("User Browsing"); else if(!strcmp(feature, "http://jabber.org/protocol/gaming")) feature = _("User Gaming"); else if(!strcmp(feature, "http://jabber.org/protocol/viewing")) feature = _("User Viewing"); else if(!strcmp(feature, "urn:xmpp:ping") || !strcmp(feature, "http://www.xmpp.org/extensions/xep-0199.html#ns")) feature = _("Ping"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0200.html#ns")) feature = _("Stanza Encryption"); else if(!strcmp(feature, "urn:xmpp:time")) feature = _("Entity Time"); else if(!strcmp(feature, "urn:xmpp:delay")) feature = _("Delayed Delivery"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0204.html#ns")) feature = _("Collaborative Data Objects"); else if(!strcmp(feature, "http://jabber.org/protocol/fileshare")) feature = _("File Repository and Sharing"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0215.html#ns")) feature = _("STUN Service Discovery for Jingle"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0116.html#ns")) feature = _("Simplified Encrypted Session Negotiation"); else if(!strcmp(feature, "http://www.xmpp.org/extensions/xep-0219.html#ns")) feature = _("Hop Check"); else if(g_str_has_suffix(feature, "+notify")) feature = NULL; if(feature) g_string_append_printf(tmp, "%s\n", feature); } if(strlen(tmp->str) > 0) purple_notify_user_info_prepend_pair(user_info, _("Capabilities"), tmp->str); g_string_free(tmp, TRUE); } #endif } } g_free(resource_name); purple_notify_userinfo(jbi->js->gc, jbi->jid, user_info, NULL, NULL); while(jbi->vcard_imgids) { purple_imgstore_unref_by_id(GPOINTER_TO_INT(jbi->vcard_imgids->data)); jbi->vcard_imgids = g_slist_delete_link(jbi->vcard_imgids, jbi->vcard_imgids); } jbi->js->pending_buddy_info_requests = g_slist_remove(jbi->js->pending_buddy_info_requests, jbi); jabber_buddy_info_destroy(jbi); } static void jabber_buddy_info_remove_id(JabberBuddyInfo *jbi, const char *id) { GSList *l = jbi->ids; char *comp_id; if(!id) return; while(l) { comp_id = l->data; if(!strcmp(id, comp_id)) { jbi->ids = g_slist_remove(jbi->ids, comp_id); g_free(comp_id); return; } l = l->next; } } static void jabber_vcard_save_mine(JabberStream *js, xmlnode *packet, gpointer data) { xmlnode *vcard; char *txt; PurpleStoredImage *img; if((vcard = xmlnode_get_child(packet, "vCard")) || (vcard = xmlnode_get_child_with_namespace(packet, "query", "vcard-temp"))) { txt = xmlnode_to_str(vcard, NULL); purple_account_set_user_info(purple_connection_get_account(js->gc), txt); g_free(txt); } else { /* if we have no vCard, then lets not overwrite what we might have locally */ } js->vcard_fetched = TRUE; if(NULL != (img = purple_buddy_icons_find_account_icon(js->gc->account))) { jabber_set_buddy_icon(js->gc, img); purple_imgstore_unref(img); } } void jabber_vcard_fetch_mine(JabberStream *js) { JabberIq *iq = jabber_iq_new(js, JABBER_IQ_GET); xmlnode *vcard = xmlnode_new_child(iq->node, "vCard"); xmlnode_set_namespace(vcard, "vcard-temp"); jabber_iq_set_callback(iq, jabber_vcard_save_mine, NULL); jabber_iq_send(iq); } static void jabber_vcard_parse(JabberStream *js, xmlnode *packet, gpointer data) { const char *id, *from; char *bare_jid; char *text; char *serverside_alias = NULL; xmlnode *vcard; PurpleBuddy *b; JabberBuddyInfo *jbi = data; PurpleNotifyUserInfo *user_info; from = xmlnode_get_attrib(packet, "from"); id = xmlnode_get_attrib(packet, "id"); if(!jbi) return; jabber_buddy_info_remove_id(jbi, id); if(!from) return; if(!jabber_buddy_find(js, from, FALSE)) return; /* XXX: handle the error case */ user_info = jbi->user_info; bare_jid = jabber_get_bare_jid(from); b = purple_find_buddy(js->gc->account, bare_jid); if((vcard = xmlnode_get_child(packet, "vCard")) || (vcard = xmlnode_get_child_with_namespace(packet, "query", "vcard-temp"))) { xmlnode *child; for(child = vcard->child; child; child = child->next) { xmlnode *child2; if(child->type != XMLNODE_TYPE_TAG) continue; text = xmlnode_get_data(child); if(text && !strcmp(child->name, "FN")) { if (!serverside_alias) serverside_alias = g_strdup(text); purple_notify_user_info_add_pair(user_info, _("Full Name"), text); } else if(!strcmp(child->name, "N")) { for(child2 = child->child; child2; child2 = child2->next) { char *text2; if(child2->type != XMLNODE_TYPE_TAG) continue; text2 = xmlnode_get_data(child2); if(text2 && !strcmp(child2->name, "FAMILY")) { purple_notify_user_info_add_pair(user_info, _("Family Name"), text2); } else if(text2 && !strcmp(child2->name, "GIVEN")) { purple_notify_user_info_add_pair(user_info, _("Given Name"), text2); } else if(text2 && !strcmp(child2->name, "MIDDLE")) { purple_notify_user_info_add_pair(user_info, _("Middle Name"), text2); } g_free(text2); } } else if(text && !strcmp(child->name, "NICKNAME")) { /* Prefer the Nickcname to the Full Name as the serverside alias if it's not just part of the jid. * Ignore it if it's part of the jid. */ if (strstr(bare_jid, text) == NULL) { g_free(serverside_alias); serverside_alias = g_strdup(text); purple_notify_user_info_add_pair(user_info, _("Nickname"), text); } } else if(text && !strcmp(child->name, "BDAY")) { purple_notify_user_info_add_pair(user_info, _("Birthday"), text); } else if(!strcmp(child->name, "ADR")) { gboolean address_line_added = FALSE; for(child2 = child->child; child2; child2 = child2->next) { char *text2; if(child2->type != XMLNODE_TYPE_TAG) continue; text2 = xmlnode_get_data(child2); if (text2 == NULL) continue; /* We do this here so that it's not added if all the child * elements are empty. */ if (!address_line_added) { purple_notify_user_info_add_section_header(user_info, _("Address")); address_line_added = TRUE; } if(!strcmp(child2->name, "POBOX")) { purple_notify_user_info_add_pair(user_info, _("P.O. Box"), text2); } else if(!strcmp(child2->name, "EXTADR")) { purple_notify_user_info_add_pair(user_info, _("Extended Address"), text2); } else if(!strcmp(child2->name, "STREET")) { purple_notify_user_info_add_pair(user_info, _("Street Address"), text2); } else if(!strcmp(child2->name, "LOCALITY")) { purple_notify_user_info_add_pair(user_info, _("Locality"), text2); } else if(!strcmp(child2->name, "REGION")) { purple_notify_user_info_add_pair(user_info, _("Region"), text2); } else if(!strcmp(child2->name, "PCODE")) { purple_notify_user_info_add_pair(user_info, _("Postal Code"), text2); } else if(!strcmp(child2->name, "CTRY") || !strcmp(child2->name, "COUNTRY")) { purple_notify_user_info_add_pair(user_info, _("Country"), text2); } g_free(text2); } if (address_line_added) purple_notify_user_info_add_section_break(user_info); } else if(!strcmp(child->name, "TEL")) { char *number; if((child2 = xmlnode_get_child(child, "NUMBER"))) { /* show what kind of number it is */ number = xmlnode_get_data(child2); if(number) { purple_notify_user_info_add_pair(user_info, _("Telephone"), number); g_free(number); } } else if((number = xmlnode_get_data(child))) { /* lots of clients (including purple) do this, but it's * out of spec */ purple_notify_user_info_add_pair(user_info, _("Telephone"), number); g_free(number); } } else if(!strcmp(child->name, "EMAIL")) { char *userid, *escaped; if((child2 = xmlnode_get_child(child, "USERID"))) { /* show what kind of email it is */ userid = xmlnode_get_data(child2); if(userid) { char *mailto; escaped = g_markup_escape_text(userid, -1); mailto = g_strdup_printf("<a href=\"mailto:%s\">%s</a>", escaped, escaped); purple_notify_user_info_add_pair(user_info, _("Email"), mailto); g_free(mailto); g_free(escaped); g_free(userid); } } else if((userid = xmlnode_get_data(child))) { /* lots of clients (including purple) do this, but it's * out of spec */ char *mailto; escaped = g_markup_escape_text(userid, -1); mailto = g_strdup_printf("<a href=\"mailto:%s\">%s</a>", escaped, escaped); purple_notify_user_info_add_pair(user_info, _("Email"), mailto); g_free(mailto); g_free(escaped); g_free(userid); } } else if(!strcmp(child->name, "ORG")) { for(child2 = child->child; child2; child2 = child2->next) { char *text2; if(child2->type != XMLNODE_TYPE_TAG) continue; text2 = xmlnode_get_data(child2); if(text2 && !strcmp(child2->name, "ORGNAME")) { purple_notify_user_info_add_pair(user_info, _("Organization Name"), text2); } else if(text2 && !strcmp(child2->name, "ORGUNIT")) { purple_notify_user_info_add_pair(user_info, _("Organization Unit"), text2); } g_free(text2); } } else if(text && !strcmp(child->name, "TITLE")) { purple_notify_user_info_add_pair(user_info, _("Title"), text); } else if(text && !strcmp(child->name, "ROLE")) { purple_notify_user_info_add_pair(user_info, _("Role"), text); } else if(text && !strcmp(child->name, "DESC")) { purple_notify_user_info_add_pair(user_info, _("Description"), text); } else if(!strcmp(child->name, "PHOTO") || !strcmp(child->name, "LOGO")) { char *bintext = NULL; xmlnode *binval; if( ((binval = xmlnode_get_child(child, "BINVAL")) && (bintext = xmlnode_get_data(binval))) || (bintext = xmlnode_get_data(child))) { gsize size; guchar *data; int i; unsigned char hashval[20]; char *p, hash[41]; gboolean photo = (strcmp(child->name, "PHOTO") == 0); data = purple_base64_decode(bintext, &size); if (data) { char *img_text; jbi->vcard_imgids = g_slist_prepend(jbi->vcard_imgids, GINT_TO_POINTER(purple_imgstore_add_with_id(g_memdup(data, size), size, "logo.png"))); img_text = g_strdup_printf("<img id='%d'>", GPOINTER_TO_INT(jbi->vcard_imgids->data)); purple_notify_user_info_add_pair(user_info, (photo ? _("Photo") : _("Logo")), img_text); purple_cipher_digest_region("sha1", (guchar *)data, size, sizeof(hashval), hashval, NULL); p = hash; for(i=0; i<20; i++, p+=2) snprintf(p, 3, "%02x", hashval[i]); purple_buddy_icons_set_for_user(js->gc->account, bare_jid, data, size, hash); g_free(bintext); g_free(img_text); } } } g_free(text); } } if (serverside_alias) { /* If we found a serverside alias, set it and tell the core */ serv_got_alias(js->gc, from, serverside_alias); if (b) { purple_blist_node_set_string((PurpleBlistNode*)b, "servernick", serverside_alias); } g_free(serverside_alias); } g_free(bare_jid); jabber_buddy_info_show_if_ready(jbi); } typedef struct _JabberBuddyAvatarUpdateURLInfo { JabberStream *js; char *from; char *id; } JabberBuddyAvatarUpdateURLInfo; static void do_buddy_avatar_update_fromurl(PurpleUtilFetchUrlData *url_data, gpointer user_data, const gchar *url_text, gsize len, const gchar *error_message) { JabberBuddyAvatarUpdateURLInfo *info = user_data; if(!url_text) { purple_debug(PURPLE_DEBUG_ERROR, "jabber", "do_buddy_avatar_update_fromurl got error \"%s\"", error_message); return; } purple_buddy_icons_set_for_user(purple_connection_get_account(info->js->gc), info->from, (void*)url_text, len, info->id); g_free(info->from); g_free(info->id); g_free(info); } static void do_buddy_avatar_update_data(JabberStream *js, const char *from, xmlnode *items) { xmlnode *item, *data; const char *checksum; char *b64data; void *img; size_t size; if(!items) return; item = xmlnode_get_child(items, "item"); if(!item) return; data = xmlnode_get_child_with_namespace(item,"data",AVATARNAMESPACEDATA); if(!data) return; checksum = xmlnode_get_attrib(item,"id"); if(!checksum) return; b64data = xmlnode_get_data(data); if(!b64data) return; img = purple_base64_decode(b64data, &size); if(!img) { g_free(b64data); return; } purple_buddy_icons_set_for_user(purple_connection_get_account(js->gc), from, img, size, checksum); g_free(b64data); } void jabber_buddy_avatar_update_metadata(JabberStream *js, const char *from, xmlnode *items) { PurpleBuddy *buddy = purple_find_buddy(purple_connection_get_account(js->gc), from); const char *checksum; xmlnode *item, *metadata; if(!buddy) return; checksum = purple_buddy_icons_get_checksum_for_user(buddy); item = xmlnode_get_child(items,"item"); metadata = xmlnode_get_child_with_namespace(item, "metadata", AVATARNAMESPACEMETA); if(!metadata) return; /* check if we have received a stop */ if(xmlnode_get_child(metadata, "stop")) { purple_buddy_icons_set_for_user(purple_connection_get_account(js->gc), from, NULL, 0, NULL); } else { xmlnode *info, *goodinfo = NULL; /* iterate over all info nodes to get one we can use */ for(info = metadata->child; info; info = info->next) { if(info->type == XMLNODE_TYPE_TAG && !strcmp(info->name,"info")) { const char *type = xmlnode_get_attrib(info,"type"); const char *id = xmlnode_get_attrib(info,"id"); if(checksum && id && !strcmp(id, checksum)) { /* we already have that avatar, so we don't have to do anything */ goodinfo = NULL; break; } /* We'll only pick the png one for now. It's a very nice image format anyways. */ if(type && id && !goodinfo && !strcmp(type, "image/png")) goodinfo = info; } } if(goodinfo) { const char *url = xmlnode_get_attrib(goodinfo, "url"); const char *id = xmlnode_get_attrib(goodinfo,"id"); /* the avatar might either be stored in a pep node, or on a HTTP/HTTPS URL */ if(!url) jabber_pep_request_item(js, from, AVATARNAMESPACEDATA, id, do_buddy_avatar_update_data); else { PurpleUtilFetchUrlData *url_data; JabberBuddyAvatarUpdateURLInfo *info = g_new0(JabberBuddyAvatarUpdateURLInfo, 1); info->js = js; url_data = purple_util_fetch_url_len(url, TRUE, NULL, TRUE, MAX_HTTP_BUDDYICON_BYTES, do_buddy_avatar_update_fromurl, info); if (url_data) { info->from = g_strdup(from); info->id = g_strdup(id); js->url_datas = g_slist_prepend(js->url_datas, url_data); } else g_free(info); } } } } static void jabber_buddy_info_resource_free(gpointer data) { JabberBuddyInfoResource *jbri = data; g_free(jbri); } static void jabber_version_parse(JabberStream *js, xmlnode *packet, gpointer data) { JabberBuddyInfo *jbi = data; const char *type, *id, *from; xmlnode *query; char *resource_name; g_return_if_fail(jbi != NULL); type = xmlnode_get_attrib(packet, "type"); id = xmlnode_get_attrib(packet, "id"); from = xmlnode_get_attrib(packet, "from"); jabber_buddy_info_remove_id(jbi, id); if(!from) return; resource_name = jabber_get_resource(from); if(resource_name) { if(type && !strcmp(type, "result")) { if((query = xmlnode_get_child(packet, "query"))) { JabberBuddyResource *jbr = jabber_buddy_find_resource(jbi->jb, resource_name); if(jbr) { xmlnode *node; if((node = xmlnode_get_child(query, "name"))) { jbr->client.name = xmlnode_get_data(node); } if((node = xmlnode_get_child(query, "version"))) { jbr->client.version = xmlnode_get_data(node); } if((node = xmlnode_get_child(query, "os"))) { jbr->client.os = xmlnode_get_data(node); } } } } g_free(resource_name); } jabber_buddy_info_show_if_ready(jbi); } static void jabber_last_parse(JabberStream *js, xmlnode *packet, gpointer data) { JabberBuddyInfo *jbi = data; xmlnode *query; char *resource_name; const char *type, *id, *from, *seconds; g_return_if_fail(jbi != NULL); type = xmlnode_get_attrib(packet, "type"); id = xmlnode_get_attrib(packet, "id"); from = xmlnode_get_attrib(packet, "from"); jabber_buddy_info_remove_id(jbi, id); if(!from) return; resource_name = jabber_get_resource(from); if(resource_name) { if(type && !strcmp(type, "result")) { if((query = xmlnode_get_child(packet, "query"))) { seconds = xmlnode_get_attrib(query, "seconds"); if(seconds) { char *end = NULL; long sec = strtol(seconds, &end, 10); if(end != seconds) { JabberBuddyInfoResource *jbir = g_hash_table_lookup(jbi->resources, resource_name); if(jbir) { jbir->idle_seconds = sec; } } } } } g_free(resource_name); } jabber_buddy_info_show_if_ready(jbi); } void jabber_buddy_remove_all_pending_buddy_info_requests(JabberStream *js) { if (js->pending_buddy_info_requests) { JabberBuddyInfo *jbi; GSList *l = js->pending_buddy_info_requests; while (l) { jbi = l->data; g_slist_free(jbi->ids); jabber_buddy_info_destroy(jbi); l = l->next; } g_slist_free(js->pending_buddy_info_requests); js->pending_buddy_info_requests = NULL; } } static gboolean jabber_buddy_get_info_timeout(gpointer data) { JabberBuddyInfo *jbi = data; /* remove the pending callbacks */ while(jbi->ids) { char *id = jbi->ids->data; jabber_iq_remove_callback_by_id(jbi->js, id); jbi->ids = g_slist_remove(jbi->ids, id); g_free(id); } jbi->js->pending_buddy_info_requests = g_slist_remove(jbi->js->pending_buddy_info_requests, jbi); jbi->timeout_handle = 0; jabber_buddy_info_show_if_ready(jbi); return FALSE; } static gboolean _client_is_blacklisted(JabberBuddyResource *jbr, const char *ns) { /* can't be blacklisted if we don't know what you're running yet */ if(!jbr->client.name) return FALSE; if(!strcmp(ns, "jabber:iq:last")) { if(!strcmp(jbr->client.name, "Trillian")) { /* verified by nwalp 2007/05/09 */ if(!strcmp(jbr->client.version, "3.1.0.121") || /* verified by nwalp 2007/09/19 */ !strcmp(jbr->client.version, "3.1.7.0")) { return TRUE; } } } return FALSE; } static void jabber_buddy_get_info_for_jid(JabberStream *js, const char *jid) { JabberIq *iq; xmlnode *vcard; GList *resources; JabberBuddy *jb; JabberBuddyInfo *jbi; jb = jabber_buddy_find(js, jid, TRUE); /* invalid JID */ if(!jb) return; jbi = g_new0(JabberBuddyInfo, 1); jbi->jid = g_strdup(jid); jbi->js = js; jbi->jb = jb; jbi->resources = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, jabber_buddy_info_resource_free); jbi->user_info = purple_notify_user_info_new(); iq = jabber_iq_new(js, JABBER_IQ_GET); xmlnode_set_attrib(iq->node, "to", jid); vcard = xmlnode_new_child(iq->node, "vCard"); xmlnode_set_namespace(vcard, "vcard-temp"); jabber_iq_set_callback(iq, jabber_vcard_parse, jbi); jbi->ids = g_slist_prepend(jbi->ids, g_strdup(iq->id)); jabber_iq_send(iq); for(resources = jb->resources; resources; resources = resources->next) { JabberBuddyResource *jbr = resources->data; JabberBuddyInfoResource *jbir; char *full_jid; if ((strchr(jid, '/') == NULL) && (jbr->name != NULL)) { full_jid = g_strdup_printf("%s/%s", jid, jbr->name); } else { full_jid = g_strdup(jid); } if (jbr->name != NULL) { jbir = g_new0(JabberBuddyInfoResource, 1); g_hash_table_insert(jbi->resources, g_strdup(jbr->name), jbir); } if(!jbr->client.name) { iq = jabber_iq_new_query(js, JABBER_IQ_GET, "jabber:iq:version"); xmlnode_set_attrib(iq->node, "to", full_jid); jabber_iq_set_callback(iq, jabber_version_parse, jbi); jbi->ids = g_slist_prepend(jbi->ids, g_strdup(iq->id)); jabber_iq_send(iq); } /* this is to fix the feeling of irritation I get when trying * to get info on a friend running Trillian, which doesn't * respond (with an error or otherwise) to jabber:iq:last * requests. There are a number of Trillian users in my * office. */ if(!_client_is_blacklisted(jbr, "jabber:iq:last")) { iq = jabber_iq_new_query(js, JABBER_IQ_GET, "jabber:iq:last"); xmlnode_set_attrib(iq->node, "to", full_jid); jabber_iq_set_callback(iq, jabber_last_parse, jbi); jbi->ids = g_slist_prepend(jbi->ids, g_strdup(iq->id)); jabber_iq_send(iq); } g_free(full_jid); } js->pending_buddy_info_requests = g_slist_prepend(js->pending_buddy_info_requests, jbi); jbi->timeout_handle = purple_timeout_add(30000, jabber_buddy_get_info_timeout, jbi); } void jabber_buddy_get_info(PurpleConnection *gc, const char *who) { JabberStream *js = gc->proto_data; char *bare_jid = jabber_get_bare_jid(who); if(bare_jid) { jabber_buddy_get_info_for_jid(js, bare_jid); g_free(bare_jid); } } static void jabber_buddy_set_invisibility(JabberStream *js, const char *who, gboolean invisible) { PurplePresence *gpresence; PurpleAccount *account; PurpleStatus *status; JabberBuddy *jb = jabber_buddy_find(js, who, TRUE); xmlnode *presence; JabberBuddyState state; char *msg; int priority; account = purple_connection_get_account(js->gc); gpresence = purple_account_get_presence(account); status = purple_presence_get_active_status(gpresence); purple_status_to_jabber(status, &state, &msg, &priority); presence = jabber_presence_create_js(js, state, msg, priority); g_free(msg); xmlnode_set_attrib(presence, "to", who); if(invisible) { xmlnode_set_attrib(presence, "type", "invisible"); jb->invisible |= JABBER_INVIS_BUDDY; } else { jb->invisible &= ~JABBER_INVIS_BUDDY; } jabber_send(js, presence); xmlnode_free(presence); } static void jabber_buddy_make_invisible(PurpleBlistNode *node, gpointer data) { PurpleBuddy *buddy; PurpleConnection *gc; JabberStream *js; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *) node; gc = purple_account_get_connection(buddy->account); js = gc->proto_data; jabber_buddy_set_invisibility(js, buddy->name, TRUE); } static void jabber_buddy_make_visible(PurpleBlistNode *node, gpointer data) { PurpleBuddy *buddy; PurpleConnection *gc; JabberStream *js; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *) node; gc = purple_account_get_connection(buddy->account); js = gc->proto_data; jabber_buddy_set_invisibility(js, buddy->name, FALSE); } static void jabber_buddy_cancel_presence_notification(PurpleBlistNode *node, gpointer data) { PurpleBuddy *buddy; PurpleConnection *gc; JabberStream *js; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *) node; gc = purple_account_get_connection(buddy->account); js = gc->proto_data; /* I wonder if we should prompt the user before doing this */ jabber_presence_subscription_set(js, buddy->name, "unsubscribed"); } static void jabber_buddy_rerequest_auth(PurpleBlistNode *node, gpointer data) { PurpleBuddy *buddy; PurpleConnection *gc; JabberStream *js; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *) node; gc = purple_account_get_connection(buddy->account); js = gc->proto_data; jabber_presence_subscription_set(js, buddy->name, "subscribe"); } static void jabber_buddy_unsubscribe(PurpleBlistNode *node, gpointer data) { PurpleBuddy *buddy; PurpleConnection *gc; JabberStream *js; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *) node; gc = purple_account_get_connection(buddy->account); js = gc->proto_data; jabber_presence_subscription_set(js, buddy->name, "unsubscribe"); } static void jabber_buddy_login(PurpleBlistNode *node, gpointer data) { if(PURPLE_BLIST_NODE_IS_BUDDY(node)) { /* simply create a directed presence of the current status */ PurpleBuddy *buddy = (PurpleBuddy *) node; PurpleConnection *gc = purple_account_get_connection(buddy->account); JabberStream *js = gc->proto_data; PurpleAccount *account = purple_connection_get_account(gc); PurplePresence *gpresence = purple_account_get_presence(account); PurpleStatus *status = purple_presence_get_active_status(gpresence); xmlnode *presence; JabberBuddyState state; char *msg; int priority; purple_status_to_jabber(status, &state, &msg, &priority); presence = jabber_presence_create_js(js, state, msg, priority); g_free(msg); xmlnode_set_attrib(presence, "to", buddy->name); jabber_send(js, presence); xmlnode_free(presence); } } static void jabber_buddy_logout(PurpleBlistNode *node, gpointer data) { if(PURPLE_BLIST_NODE_IS_BUDDY(node)) { /* simply create a directed unavailable presence */ PurpleBuddy *buddy = (PurpleBuddy *) node; JabberStream *js = purple_account_get_connection(buddy->account)->proto_data; xmlnode *presence; presence = jabber_presence_create_js(js, JABBER_BUDDY_STATE_UNAVAILABLE, NULL, 0); xmlnode_set_attrib(presence, "to", buddy->name); jabber_send(js, presence); xmlnode_free(presence); } } static GList *jabber_buddy_menu(PurpleBuddy *buddy) { PurpleConnection *gc = purple_account_get_connection(buddy->account); JabberStream *js = gc->proto_data; JabberBuddy *jb = jabber_buddy_find(js, buddy->name, TRUE); GList *jbrs; GList *m = NULL; PurpleMenuAction *act; if(!jb) return m; /* XXX: fix the NOT ME below */ if(js->protocol_version == JABBER_PROTO_0_9 /* && NOT ME */) { if(jb->invisible & JABBER_INVIS_BUDDY) { act = purple_menu_action_new(_("Un-hide From"), PURPLE_CALLBACK(jabber_buddy_make_visible), NULL, NULL); } else { act = purple_menu_action_new(_("Temporarily Hide From"), PURPLE_CALLBACK(jabber_buddy_make_invisible), NULL, NULL); } m = g_list_append(m, act); } if(jb->subscription & JABBER_SUB_FROM /* && NOT ME */) { act = purple_menu_action_new(_("Cancel Presence Notification"), PURPLE_CALLBACK(jabber_buddy_cancel_presence_notification), NULL, NULL); m = g_list_append(m, act); } if(!(jb->subscription & JABBER_SUB_TO)) { act = purple_menu_action_new(_("(Re-)Request authorization"), PURPLE_CALLBACK(jabber_buddy_rerequest_auth), NULL, NULL); m = g_list_append(m, act); } else /* if(NOT ME) */{ /* shouldn't this just happen automatically when the buddy is removed? */ act = purple_menu_action_new(_("Unsubscribe"), PURPLE_CALLBACK(jabber_buddy_unsubscribe), NULL, NULL); m = g_list_append(m, act); } /* * This if-condition implements parts of XEP-0100: Gateway Interaction * * According to stpeter, there is no way to know if a jid on the roster is a gateway without sending a disco#info. * However, since the gateway might appear offline to us, we cannot get that information. Therefore, I just assume * that gateways on the roster can be identified by having no '@' in their jid. This is a faily safe assumption, since * people don't tend to have a server or other service there. */ if (g_utf8_strchr(buddy->name, -1, '@') == NULL) { act = purple_menu_action_new(_("Log In"), PURPLE_CALLBACK(jabber_buddy_login), NULL, NULL); m = g_list_append(m, act); act = purple_menu_action_new(_("Log Out"), PURPLE_CALLBACK(jabber_buddy_logout), NULL, NULL); m = g_list_append(m, act); } /* add all ad hoc commands to the action menu */ for(jbrs = jb->resources; jbrs; jbrs = g_list_next(jbrs)) { JabberBuddyResource *jbr = jbrs->data; GList *commands; if (!jbr->commands) continue; for(commands = jbr->commands; commands; commands = g_list_next(commands)) { JabberAdHocCommands *cmd = commands->data; act = purple_menu_action_new(cmd->name, PURPLE_CALLBACK(jabber_adhoc_execute_action), cmd, NULL); m = g_list_append(m, act); } } return m; } GList * jabber_blist_node_menu(PurpleBlistNode *node) { if(PURPLE_BLIST_NODE_IS_BUDDY(node)) { return jabber_buddy_menu((PurpleBuddy *) node); } else { return NULL; } } const char * jabber_buddy_state_get_name(JabberBuddyState state) { switch(state) { case JABBER_BUDDY_STATE_UNKNOWN: return _("Unknown"); case JABBER_BUDDY_STATE_ERROR: return _("Error"); case JABBER_BUDDY_STATE_UNAVAILABLE: return _("Offline"); case JABBER_BUDDY_STATE_ONLINE: return _("Available"); case JABBER_BUDDY_STATE_CHAT: return _("Chatty"); case JABBER_BUDDY_STATE_AWAY: return _("Away"); case JABBER_BUDDY_STATE_XA: return _("Extended Away"); case JABBER_BUDDY_STATE_DND: return _("Do Not Disturb"); } return _("Unknown"); } JabberBuddyState jabber_buddy_status_id_get_state(const char *id) { if(!id) return JABBER_BUDDY_STATE_UNKNOWN; if(!strcmp(id, "available")) return JABBER_BUDDY_STATE_ONLINE; if(!strcmp(id, "freeforchat")) return JABBER_BUDDY_STATE_CHAT; if(!strcmp(id, "away")) return JABBER_BUDDY_STATE_AWAY; if(!strcmp(id, "extended_away")) return JABBER_BUDDY_STATE_XA; if(!strcmp(id, "dnd")) return JABBER_BUDDY_STATE_DND; if(!strcmp(id, "offline")) return JABBER_BUDDY_STATE_UNAVAILABLE; if(!strcmp(id, "error")) return JABBER_BUDDY_STATE_ERROR; return JABBER_BUDDY_STATE_UNKNOWN; } JabberBuddyState jabber_buddy_show_get_state(const char *id) { if(!id) return JABBER_BUDDY_STATE_UNKNOWN; if(!strcmp(id, "available")) return JABBER_BUDDY_STATE_ONLINE; if(!strcmp(id, "chat")) return JABBER_BUDDY_STATE_CHAT; if(!strcmp(id, "away")) return JABBER_BUDDY_STATE_AWAY; if(!strcmp(id, "xa")) return JABBER_BUDDY_STATE_XA; if(!strcmp(id, "dnd")) return JABBER_BUDDY_STATE_DND; if(!strcmp(id, "offline")) return JABBER_BUDDY_STATE_UNAVAILABLE; if(!strcmp(id, "error")) return JABBER_BUDDY_STATE_ERROR; return JABBER_BUDDY_STATE_UNKNOWN; } const char *jabber_buddy_state_get_show(JabberBuddyState state) { switch(state) { case JABBER_BUDDY_STATE_CHAT: return "chat"; case JABBER_BUDDY_STATE_AWAY: return "away"; case JABBER_BUDDY_STATE_XA: return "xa"; case JABBER_BUDDY_STATE_DND: return "dnd"; case JABBER_BUDDY_STATE_ONLINE: return "available"; case JABBER_BUDDY_STATE_UNKNOWN: case JABBER_BUDDY_STATE_ERROR: return NULL; case JABBER_BUDDY_STATE_UNAVAILABLE: return "offline"; } return NULL; } const char *jabber_buddy_state_get_status_id(JabberBuddyState state) { switch(state) { case JABBER_BUDDY_STATE_CHAT: return "freeforchat"; case JABBER_BUDDY_STATE_AWAY: return "away"; case JABBER_BUDDY_STATE_XA: return "extended_away"; case JABBER_BUDDY_STATE_DND: return "dnd"; case JABBER_BUDDY_STATE_ONLINE: return "available"; case JABBER_BUDDY_STATE_UNKNOWN: return "available"; case JABBER_BUDDY_STATE_ERROR: return "error"; case JABBER_BUDDY_STATE_UNAVAILABLE: return "offline"; } return NULL; } static void user_search_result_add_buddy_cb(PurpleConnection *gc, GList *row, void *user_data) { /* XXX find out the jid */ purple_blist_request_add_buddy(purple_connection_get_account(gc), g_list_nth_data(row, 0), NULL, NULL); } static void user_search_result_cb(JabberStream *js, xmlnode *packet, gpointer data) { PurpleNotifySearchResults *results; PurpleNotifySearchColumn *column; xmlnode *x, *query, *item, *field; /* XXX error checking? */ if(!(query = xmlnode_get_child(packet, "query"))) return; results = purple_notify_searchresults_new(); if((x = xmlnode_get_child_with_namespace(query, "x", "jabber:x:data"))) { xmlnode *reported; GSList *column_vars = NULL; purple_debug_info("jabber", "new-skool\n"); if((reported = xmlnode_get_child(x, "reported"))) { xmlnode *field = xmlnode_get_child(reported, "field"); while(field) { const char *var = xmlnode_get_attrib(field, "var"); const char *label = xmlnode_get_attrib(field, "label"); if(var) { column = purple_notify_searchresults_column_new(label ? label : var); purple_notify_searchresults_column_add(results, column); column_vars = g_slist_append(column_vars, (char *)var); } field = xmlnode_get_next_twin(field); } } item = xmlnode_get_child(x, "item"); while(item) { GList *row = NULL; GSList *l; xmlnode *valuenode; const char *var; for (l = column_vars; l != NULL; l = l->next) { /* * Build a row containing the strings that correspond * to each column of the search results. */ for (field = xmlnode_get_child(item, "field"); field != NULL; field = xmlnode_get_next_twin(field)) { if ((var = xmlnode_get_attrib(field, "var")) && !strcmp(var, l->data) && (valuenode = xmlnode_get_child(field, "value"))) { char *value = xmlnode_get_data(valuenode); row = g_list_append(row, value); break; } } if (field == NULL) /* No data for this column */ row = g_list_append(row, NULL); } purple_notify_searchresults_row_add(results, row); item = xmlnode_get_next_twin(item); } g_slist_free(column_vars); } else { /* old skool */ purple_debug_info("jabber", "old-skool\n"); column = purple_notify_searchresults_column_new(_("JID")); purple_notify_searchresults_column_add(results, column); column = purple_notify_searchresults_column_new(_("First Name")); purple_notify_searchresults_column_add(results, column); column = purple_notify_searchresults_column_new(_("Last Name")); purple_notify_searchresults_column_add(results, column); column = purple_notify_searchresults_column_new(_("Nickname")); purple_notify_searchresults_column_add(results, column); column = purple_notify_searchresults_column_new(_("Email")); purple_notify_searchresults_column_add(results, column); for(item = xmlnode_get_child(query, "item"); item; item = xmlnode_get_next_twin(item)) { const char *jid; xmlnode *node; GList *row = NULL; if(!(jid = xmlnode_get_attrib(item, "jid"))) continue; row = g_list_append(row, g_strdup(jid)); node = xmlnode_get_child(item, "first"); row = g_list_append(row, node ? xmlnode_get_data(node) : NULL); node = xmlnode_get_child(item, "last"); row = g_list_append(row, node ? xmlnode_get_data(node) : NULL); node = xmlnode_get_child(item, "nick"); row = g_list_append(row, node ? xmlnode_get_data(node) : NULL); node = xmlnode_get_child(item, "email"); row = g_list_append(row, node ? xmlnode_get_data(node) : NULL); purple_debug_info("jabber", "row=%p\n", row); purple_notify_searchresults_row_add(results, row); } } purple_notify_searchresults_button_add(results, PURPLE_NOTIFY_BUTTON_ADD, user_search_result_add_buddy_cb); purple_notify_searchresults(js->gc, NULL, NULL, _("The following are the results of your search"), results, NULL, NULL); } static void user_search_x_data_cb(JabberStream *js, xmlnode *result, gpointer data) { xmlnode *query; JabberIq *iq; char *dir_server = data; const char *type; /* if they've cancelled the search, we're * just going to get an error if we send * a cancel, so skip it */ type = xmlnode_get_attrib(result, "type"); if(type && !strcmp(type, "cancel")) { g_free(dir_server); return; } iq = jabber_iq_new_query(js, JABBER_IQ_SET, "jabber:iq:search"); query = xmlnode_get_child(iq->node, "query"); xmlnode_insert_child(query, result); jabber_iq_set_callback(iq, user_search_result_cb, NULL); xmlnode_set_attrib(iq->node, "to", dir_server); jabber_iq_send(iq); g_free(dir_server); } struct user_search_info { JabberStream *js; char *directory_server; }; static void user_search_cancel_cb(struct user_search_info *usi, PurpleRequestFields *fields) { g_free(usi->directory_server); g_free(usi); } static void user_search_cb(struct user_search_info *usi, PurpleRequestFields *fields) { JabberStream *js = usi->js; JabberIq *iq; xmlnode *query; GList *groups, *flds; iq = jabber_iq_new_query(js, JABBER_IQ_SET, "jabber:iq:search"); query = xmlnode_get_child(iq->node, "query"); for(groups = purple_request_fields_get_groups(fields); groups; groups = groups->next) { for(flds = purple_request_field_group_get_fields(groups->data); flds; flds = flds->next) { PurpleRequestField *field = flds->data; const char *id = purple_request_field_get_id(field); const char *value = purple_request_field_string_get_value(field); if(value && (!strcmp(id, "first") || !strcmp(id, "last") || !strcmp(id, "nick") || !strcmp(id, "email"))) { xmlnode *y = xmlnode_new_child(query, id); xmlnode_insert_data(y, value, -1); } } } jabber_iq_set_callback(iq, user_search_result_cb, NULL); xmlnode_set_attrib(iq->node, "to", usi->directory_server); jabber_iq_send(iq); g_free(usi->directory_server); g_free(usi); } #if 0 /* This is for gettext only -- it will see this even though there's an #if 0. */ /* * An incomplete list of server generated original language search * comments for Jabber User Directories * * See discussion thread "Search comment for Jabber is not translatable" * in purple-i18n@lists.sourceforge.net (March 2006) */ static const char * jabber_user_dir_comments [] = { /* current comment from Jabber User Directory users.jabber.org */ N_("Find a contact by entering the search criteria in the given fields. " "Note: Each field supports wild card searches (%)"), NULL }; #endif static void user_search_fields_result_cb(JabberStream *js, xmlnode *packet, gpointer data) { xmlnode *query, *x; const char *from, *type; if(!(from = xmlnode_get_attrib(packet, "from"))) return; if(!(type = xmlnode_get_attrib(packet, "type")) || !strcmp(type, "error")) { char *msg = jabber_parse_error(js, packet, NULL); if(!msg) msg = g_strdup(_("Unknown error")); purple_notify_error(js->gc, _("Directory Query Failed"), _("Could not query the directory server."), msg); g_free(msg); return; } if(!(query = xmlnode_get_child(packet, "query"))) return; if((x = xmlnode_get_child_with_namespace(query, "x", "jabber:x:data"))) { jabber_x_data_request(js, x, user_search_x_data_cb, g_strdup(from)); return; } else { struct user_search_info *usi; xmlnode *instnode; char *instructions = NULL; PurpleRequestFields *fields; PurpleRequestFieldGroup *group; PurpleRequestField *field; /* old skool */ fields = purple_request_fields_new(); group = purple_request_field_group_new(NULL); purple_request_fields_add_group(fields, group); if((instnode = xmlnode_get_child(query, "instructions"))) { char *tmp = xmlnode_get_data(instnode); if(tmp) { /* Try to translate the message (see static message list in jabber_user_dir_comments[]) */ instructions = g_strdup_printf(_("Server Instructions: %s"), _(tmp)); g_free(tmp); } } if(!instructions) { instructions = g_strdup(_("Fill in one or more fields to search " "for any matching XMPP users.")); } if(xmlnode_get_child(query, "first")) { field = purple_request_field_string_new("first", _("First Name"), NULL, FALSE); purple_request_field_group_add_field(group, field); } if(xmlnode_get_child(query, "last")) { field = purple_request_field_string_new("last", _("Last Name"), NULL, FALSE); purple_request_field_group_add_field(group, field); } if(xmlnode_get_child(query, "nick")) { field = purple_request_field_string_new("nick", _("Nickname"), NULL, FALSE); purple_request_field_group_add_field(group, field); } if(xmlnode_get_child(query, "email")) { field = purple_request_field_string_new("email", _("Email Address"), NULL, FALSE); purple_request_field_group_add_field(group, field); } usi = g_new0(struct user_search_info, 1); usi->js = js; usi->directory_server = g_strdup(from); purple_request_fields(js->gc, _("Search for XMPP users"), _("Search for XMPP users"), instructions, fields, _("Search"), G_CALLBACK(user_search_cb), _("Cancel"), G_CALLBACK(user_search_cancel_cb), purple_connection_get_account(js->gc), NULL, NULL, usi); g_free(instructions); } } void jabber_user_search(JabberStream *js, const char *directory) { JabberIq *iq; /* XXX: should probably better validate the directory we're given */ if(!directory || !*directory) { purple_notify_error(js->gc, _("Invalid Directory"), _("Invalid Directory"), NULL); return; } iq = jabber_iq_new_query(js, JABBER_IQ_GET, "jabber:iq:search"); xmlnode_set_attrib(iq->node, "to", directory); jabber_iq_set_callback(iq, user_search_fields_result_cb, NULL); jabber_iq_send(iq); } void jabber_user_search_begin(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; JabberStream *js = gc->proto_data; purple_request_input(gc, _("Enter a User Directory"), _("Enter a User Directory"), _("Select a user directory to search"), js->user_directories ? js->user_directories->data : NULL, FALSE, FALSE, NULL, _("Search Directory"), PURPLE_CALLBACK(jabber_user_search), _("Cancel"), NULL, NULL, NULL, NULL, js); } gboolean jabber_resource_has_capability(const JabberBuddyResource *jbr, const gchar *cap) { const GList *iter = NULL; if (!jbr->caps) { purple_debug_error("jabber", "Unable to find caps: nothing known about buddy\n"); return FALSE; } for (iter = jbr->caps->features ; iter ; iter = g_list_next(iter)) { if (strcmp(iter->data, cap) == 0) { purple_debug_info("jabber", "Found cap: %s\n", (char *)iter->data); return TRUE; } } purple_debug_info("jabber", "Cap %s not found\n", cap); return FALSE; } gboolean jabber_buddy_has_capability(const JabberBuddy *jb, const gchar *cap) { JabberBuddyResource *jbr = jabber_buddy_find_resource((JabberBuddy*)jb, NULL); if (!jbr) { purple_debug_error("jabber", "Unable to find caps: buddy might be offline\n"); return FALSE; } return jabber_resource_has_capability(jbr, cap); }