Mercurial > pidgin.yaz
view libpurple/protocols/oscar/family_feedbag.c @ 32365:e8d4755ef84b
Don't use strlen() when you're just checking whether a string is
empty
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Mon, 22 Aug 2011 02:11:36 +0000 |
parents | 323876c34a96 |
children | f75041cb3fec |
line wrap: on
line source
/* * Purple's oscar protocol plugin * This file is the legal property of its developers. * Please see the AUTHORS file distributed alongside this file. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA */ /* * Family 0x0013 - Server-Side/Stored Information. * * Deals with storing certain types of information, such as a user's buddy * list, permit/deny list, and permit/deny preferences, on the server, so * that they can be accessed from any client. * * We keep 2 copies of SSI data: * 1) An exact copy of what is stored on the AIM servers. * 2) A local copy that we make changes to, and then send diffs * between this and the exact copy to keep them in sync. * * All the "aim_ssi_itemlist_bleh" functions near the top just modify the list * that is given to them (i.e. they don't send SNACs). * * The SNAC sending and receiving functions are lower down in the file, and * they're simpler. They are in the order of the subtypes they deal with, * starting with the request rights function (subtype 0x0002), then parse * rights (subtype 0x0003), then--well, you get the idea. * * This is entirely too complicated. * You don't know the half of it. */ #include "oscar.h" #include "oscarcommon.h" #include "debug.h" static int aim_ssi_addmoddel(OscarData *od); static void aim_ssi_item_free(struct aim_ssi_item *item) { g_free(item->name); aim_tlvlist_free(item->data); g_free(item); } static void aim_ssi_item_set_name(struct aim_ssi_itemlist *list, struct aim_ssi_item *item, const char *name) { gchar key[3000]; if (item->name) { /* Remove old name from hash table */ snprintf(key, sizeof(key), "%hx%s", item->type, oscar_normalize(NULL, item->name)); g_hash_table_remove(list->idx_all_named_items, key); } g_free(item->name); item->name = g_strdup(name); if (name) { /* Add new name to hash table */ snprintf(key, sizeof(key), "%hx%s", item->type, oscar_normalize(NULL, item->name)); g_hash_table_insert(list->idx_all_named_items, g_strdup(key), item); } } /** * List types based on http://dev.aol.com/aim/oscar/#FEEDBAG (archive.org) * and http://iserverd.khstu.ru/oscar/ssi_item.html * * @param type The type of a list item as integer number, as provided by an aim_ssi_item struct. * @return Returns the name of the item type as a character string. */ static const gchar* aim_ssi_type_to_string(guint16 type) { struct TypeStringPair { guint16 type; const gchar *string; }; static const struct TypeStringPair type_strings[] = { { 0x0000, "Buddy" }, { 0x0001, "Group" }, { 0x0002, "Permit/Visible" }, { 0x0003, "Deny/Invisible" }, { 0x0004, "PDInfo" }, { 0x0005, "PresencePrefs" }, { 0x0006, "Non-Buddy Info" }, { 0x0009, "ClientPrefs" }, { 0x000e, "ICQDeny/Ignore" }, { 0x0014, "Buddy Icon" }, { 0x0015, "Recent Buddies" }, { 0x0019, "Non-Buddy" }, { 0x001d, "Vanity Info" }, { 0x0020, "ICQ-MDir" }, { 0x0029, "Facebook" }, }; int i; for (i = 0; i < G_N_ELEMENTS(type_strings); i++) { if (type_strings[i].type == type) { return type_strings[i].string; } } return "unknown"; } /** For debug log output: Appends a line containing information about a given list item to a string. * * @param str String to which the line will be appended. * @param prefix A string which will be prepended to the line. * @param item List item from which information is extracted. */ static void aim_ssi_item_debug_append(GString *str, char *prefix, struct aim_ssi_item *item) { g_string_append_printf(str, "%s gid=0x%04hx, bid=0x%04hx, list_type=0x%04hx [%s], name=%s.\n", prefix, item->gid, item->bid, item->type, aim_ssi_type_to_string(item->type), item->name ? item->name : "(null)"); } /** * Locally rebuild the 0x00c8 TLV in the additional data of the given group. * * @param list A pointer to a pointer to the current list of items. * @param name A null terminated string containing the group name, or NULL * if you want to modify the master group. * @return Return a pointer to the modified item. */ static void aim_ssi_itemlist_rebuildgroup(struct aim_ssi_itemlist *list, const char *name) { int newlen; struct aim_ssi_item *cur, *group; /* Find the group */ if (!(group = aim_ssi_itemlist_finditem(list, name, NULL, AIM_SSI_TYPE_GROUP))) return; /* Find the length for the new additional data */ newlen = 0; if (group->gid == 0x0000) { for (cur=list->data; cur; cur=cur->next) if ((cur->type == AIM_SSI_TYPE_GROUP) && (cur->gid != 0x0000)) newlen += 2; } else { for (cur=list->data; cur; cur=cur->next) if ((cur->gid == group->gid) && (cur->type == AIM_SSI_TYPE_BUDDY)) newlen += 2; } /* Build the new TLV list */ if (newlen > 0) { guint8 *newdata; newdata = g_new(guint8, newlen); newlen = 0; if (group->gid == 0x0000) { for (cur=list->data; cur; cur=cur->next) if ((cur->type == AIM_SSI_TYPE_GROUP) && (cur->gid != 0x0000)) newlen += aimutil_put16(newdata+newlen, cur->gid); } else { for (cur=list->data; cur; cur=cur->next) if ((cur->gid == group->gid) && (cur->type == AIM_SSI_TYPE_BUDDY)) newlen += aimutil_put16(newdata+newlen, cur->bid); } aim_tlvlist_replace_raw(&group->data, 0x00c8, newlen, newdata); g_free(newdata); } } /** * Locally add a new item to the given item list. * * @param list A pointer to a pointer to the current list of items. * @param name A null terminated string of the name of the new item, or NULL if the * item should have no name. * @param gid The group ID# you want the new item to have, or 0xFFFF if we should pick something. * @param bid The buddy ID# you want the new item to have, or 0xFFFF if we should pick something. * @param type The type of the item, 0x0000 for a contact, 0x0001 for a group, etc. * @param data The additional data for the new item. * @return A pointer to the newly created item. */ static struct aim_ssi_item *aim_ssi_itemlist_add(struct aim_ssi_itemlist *list, const char *name, guint16 gid, guint16 bid, guint16 type, GSList *data) { gboolean exists; struct aim_ssi_item *cur, *new; new = g_new0(struct aim_ssi_item, 1); /* Set the group ID# and buddy ID# */ new->gid = gid; new->bid = bid; if (type == AIM_SSI_TYPE_GROUP) { if ((new->gid == 0xFFFF) && name) { do { new->gid += 0x0001; exists = FALSE; for (cur = list->data; cur != NULL; cur = cur->next) if ((cur->type == AIM_SSI_TYPE_GROUP) && (cur->gid == new->gid)) { exists = TRUE; break; } } while (exists); } } else if (new->gid == 0x0000) { /* * This is weird, but apparently items in the root group can't * have a buddy ID equal to any group ID. You'll get error * 0x0003 when trying to add, which is "item already exists" */ if (new->bid == 0xFFFF) { do { new->bid += 0x0001; exists = FALSE; for (cur = list->data; cur != NULL; cur = cur->next) if (cur->bid == new->bid || cur->gid == new->bid) { exists = TRUE; break; } } while (exists); } } else { if (new->bid == 0xFFFF) { do { new->bid += 0x0001; exists = FALSE; for (cur = list->data; cur != NULL; cur = cur->next) if (cur->bid == new->bid && cur->gid == new->gid) { exists = TRUE; break; } } while (exists); } } /* Set the type */ new->type = type; /* Add it to the gid+bid hashtable */ g_hash_table_insert(list->idx_gid_bid, GINT_TO_POINTER((new->gid << 16) + new->bid), new); /* Set the name - do this *AFTER* setting the type because type is used for the key */ aim_ssi_item_set_name(list, new, name); /* Set the TLV list */ new->data = aim_tlvlist_copy(data); /* Add the item to the list in the correct numerical position. Fancy, eh? */ if (list->data) { if ((new->gid < list->data->gid) || ((new->gid == list->data->gid) && (new->bid < list->data->bid))) { new->next = list->data; list->data = new; } else { struct aim_ssi_item *prev; for ((prev=list->data, cur=list->data->next); (cur && ((new->gid > cur->gid) || ((new->gid == cur->gid) && (new->bid > cur->bid)))); prev=cur, cur=cur->next); new->next = prev->next; prev->next = new; } } else { new->next = list->data; list->data = new; } return new; } /** * Locally delete an item from the given item list. * * @param list A pointer to a pointer to the current list of items. * @param del A pointer to the item you want to remove from the list. * @return Return 0 if no errors, otherwise return the error number. */ static int aim_ssi_itemlist_del(struct aim_ssi_itemlist *list, struct aim_ssi_item *del) { gchar key[3000]; if (!(list->data) || !del) return -EINVAL; /* Remove the item from the list */ if (list->data == del) { list->data = list->data->next; } else { struct aim_ssi_item *cur; for (cur=list->data; (cur->next && (cur->next!=del)); cur=cur->next); if (cur->next) cur->next = del->next; } /* Remove from the hashtables */ g_hash_table_remove(list->idx_gid_bid, GINT_TO_POINTER((del->gid << 16) + del->bid)); snprintf(key, sizeof(key), "%hx%s", del->type, oscar_normalize(NULL, del->name)); g_hash_table_remove(list->idx_all_named_items, key); /* Free the removed item */ aim_ssi_item_free(del); return 0; } /** * Compare two items to see if they have the same data. * * @param cur1 A pointer to a pointer to the first item. * @param cur2 A pointer to a pointer to the second item. * @return Return 0 if no differences, or a number if there are differences. */ static int aim_ssi_itemlist_cmp(struct aim_ssi_item *cur1, struct aim_ssi_item *cur2) { if (!cur1 || !cur2) return 1; if (cur1->data && !cur2->data) return 2; if (!cur1->data && cur2->data) return 3; if ((cur1->data && cur2->data) && (aim_tlvlist_cmp(cur1->data, cur2->data))) return 4; if (cur1->name && !cur2->name) return 5; if (!cur1->name && cur2->name) return 6; if (cur1->name && cur2->name && oscar_util_name_compare(cur1->name, cur2->name)) return 7; if (cur1->gid != cur2->gid) return 8; if (cur1->bid != cur2->bid) return 9; if (cur1->type != cur2->type) return 10; return 0; } static gboolean aim_ssi_itemlist_valid(struct aim_ssi_itemlist *list, struct aim_ssi_item *item) { struct aim_ssi_item *cur; for (cur=list->data; cur; cur=cur->next) if (cur == item) return TRUE; return FALSE; } /** * Locally find an item given a group ID# and a buddy ID#. * * @param list A pointer to the current list of items. * @param gid The group ID# of the desired item. * @param bid The buddy ID# of the desired item. * @return Return a pointer to the item if found, else return NULL; */ struct aim_ssi_item *aim_ssi_itemlist_find(struct aim_ssi_itemlist *list, guint16 gid, guint16 bid) { guint32 id_key = (gid << 16) + bid; return g_hash_table_lookup(list->idx_gid_bid, GINT_TO_POINTER(id_key)); } /** * Locally find an item given a group name, buddy name, and type. If group name * and buddy name are null, then just return the first item of the given type. * * @param list A pointer to the current list of items. * @param gn The group name of the desired item. * @param bn The buddy name of the desired item. * @param type The type of the desired item. * @return Return a pointer to the item if found, else return NULL. */ struct aim_ssi_item *aim_ssi_itemlist_finditem(struct aim_ssi_itemlist *list, const char *gn, const char *bn, guint16 type) { struct aim_ssi_item *cur; gchar key[3000]; if (!list->data) return NULL; if (gn && bn) { /* For finding buddies in groups */ g_return_val_if_fail(type == AIM_SSI_TYPE_BUDDY, NULL); for (cur=list->data; cur; cur=cur->next) if ((cur->type == type) && (cur->name) && !(oscar_util_name_compare(cur->name, bn))) { struct aim_ssi_item *curg; for (curg=list->data; curg; curg=curg->next) if ((curg->type == AIM_SSI_TYPE_GROUP) && (curg->gid == cur->gid) && (curg->name) && !(oscar_util_name_compare(curg->name, gn))) return cur; } } else if (gn || bn) { /* For finding groups, permits, denies and ignores */ snprintf(key, sizeof(key), "%hx%s", type, oscar_normalize(NULL, gn ? gn : bn)); return g_hash_table_lookup(list->idx_all_named_items, key); /* For stuff without names--permit deny setting, visibility mask, etc. */ } else for (cur=list->data; cur; cur=cur->next) { if ((cur->type == type) && (!cur->name)) return cur; } return NULL; } /** * Check if the given buddy exists in any group in the buddy list. * * @param list A pointer to the current list of items. * @param bn The group name of the desired item. * @return Return a pointer to the name of the item if found, else return NULL; */ struct aim_ssi_item *aim_ssi_itemlist_exists(struct aim_ssi_itemlist *list, const char *bn) { if (!bn) return NULL; return aim_ssi_itemlist_finditem(list, NULL, bn, AIM_SSI_TYPE_BUDDY); } /** * Locally find the parent item of the given buddy name. * * @param list A pointer to the current list of items. * @param bn The buddy name of the desired item. * @return Return a pointer to the name of the item if found, else return NULL; */ char *aim_ssi_itemlist_findparentname(struct aim_ssi_itemlist *list, const char *bn) { struct aim_ssi_item *cur, *curg; if (!list->data || !bn) return NULL; if (!(cur = aim_ssi_itemlist_exists(list, bn))) return NULL; if (!(curg = aim_ssi_itemlist_find(list, cur->gid, 0x0000))) return NULL; return curg->name; } /** * Locally find the permit/deny setting item, and return the setting. * * @param list A pointer to the current list of items. * @return Return the current SSI permit deny setting, or 0 if no setting was found. */ int aim_ssi_getpermdeny(struct aim_ssi_itemlist *list) { struct aim_ssi_item *cur = aim_ssi_itemlist_finditem(list, NULL, NULL, AIM_SSI_TYPE_PDINFO); if (cur) { aim_tlv_t *tlv = aim_tlv_gettlv(cur->data, 0x00ca, 1); if (tlv && tlv->value) return aimutil_get8(tlv->value); } return 0; } /** * Locally find the presence flag item, and return the setting. The returned setting is a * bitmask of the preferences. See the AIM_SSI_PRESENCE_FLAG_* #defines in oscar.h. * * @param list A pointer to the current list of items. * @return Return the current set of preferences. */ guint32 aim_ssi_getpresence(struct aim_ssi_itemlist *list) { struct aim_ssi_item *cur = aim_ssi_itemlist_finditem(list, NULL, NULL, AIM_SSI_TYPE_PRESENCEPREFS); if (cur) { aim_tlv_t *tlv = aim_tlv_gettlv(cur->data, 0x00c9, 1); if (tlv && tlv->length) return aimutil_get32(tlv->value); } return 0xFFFFFFFF; } /** * Locally find the alias of the given buddy. * * @param list A pointer to the current list of items. * @param gn The group of the buddy. * @param bn The name of the buddy. * @return A pointer to a NULL terminated string that is the buddy's * alias, or NULL if the buddy has no alias. You should free * this returned value! */ char *aim_ssi_getalias(struct aim_ssi_itemlist *list, const char *gn, const char *bn) { struct aim_ssi_item *item = aim_ssi_itemlist_finditem(list, gn, bn, AIM_SSI_TYPE_BUDDY); if (item) { return aim_ssi_getalias_from_item(item); } return NULL; } char *aim_ssi_getalias_from_item(struct aim_ssi_item *item) { aim_tlv_t *tlv = aim_tlv_gettlv(item->data, 0x0131, 1); if (tlv && tlv->length) return g_strndup((const gchar *)tlv->value, tlv->length); return NULL; } /** * Locally find the comment of the given buddy. * * @param list A pointer to the current list of items. * @param gn The group of the buddy. * @param bn The name of the buddy. * @return A pointer to a NULL terminated string that is the buddy's * comment, or NULL if the buddy has no comment. You should free * this returned value! */ char *aim_ssi_getcomment(struct aim_ssi_itemlist *list, const char *gn, const char *bn) { struct aim_ssi_item *cur = aim_ssi_itemlist_finditem(list, gn, bn, AIM_SSI_TYPE_BUDDY); if (cur) { aim_tlv_t *tlv = aim_tlv_gettlv(cur->data, 0x013c, 1); if (tlv && tlv->length) { return g_strndup((const gchar *)tlv->value, tlv->length); } } return NULL; } /** * Locally find if you are waiting for authorization for a buddy. * * @param list A pointer to the current list of items. * @param gn The group of the buddy. * @param bn The name of the buddy. * @return 1 if you are waiting for authorization; 0 if you are not */ gboolean aim_ssi_waitingforauth(struct aim_ssi_itemlist *list, const char *gn, const char *bn) { struct aim_ssi_item *cur = aim_ssi_itemlist_finditem(list, gn, bn, AIM_SSI_TYPE_BUDDY); if (cur) { if (aim_tlv_gettlv(cur->data, 0x0066, 1)) return TRUE; } return FALSE; } /** * If there are changes, then create temporary items and * call addmoddel. * * @param od The oscar session. * @return Return 0 if no errors, otherwise return the error number. */ static int aim_ssi_sync(OscarData *od) { struct aim_ssi_item *cur1, *cur2; struct aim_ssi_tmp *cur, *new; int n = 0; GString *debugstr = g_string_new(""); /* * The variable "n" is used to limit the number of addmoddel's that * are performed in a single SNAC. It will hopefully keep the size * of the SNAC below the maximum SNAC size. */ if (!od) return -EINVAL; /* If we're waiting for an ack, we shouldn't do anything else */ if (od->ssi.waiting_for_ack) return 0; /* * Compare the 2 lists and create an aim_ssi_tmp for each difference. * We should only send either additions, modifications, or deletions * before waiting for an acknowledgement. So first do deletions, then * additions, then modifications. Also, both the official and the local * list should be in ascending numerical order for the group ID#s and the * buddy ID#s, which makes things more efficient. I think. */ /* Deletions */ if (!od->ssi.pending) { for (cur1=od->ssi.official.data; cur1 && (n < 15); cur1=cur1->next) { if (!aim_ssi_itemlist_find(&od->ssi.local, cur1->gid, cur1->bid)) { n++; new = g_new(struct aim_ssi_tmp, 1); new->action = SNAC_SUBTYPE_FEEDBAG_DEL; new->ack = 0xffff; new->name = NULL; new->item = cur1; new->next = NULL; if (od->ssi.pending) { for (cur=od->ssi.pending; cur->next; cur=cur->next); cur->next = new; } else od->ssi.pending = new; aim_ssi_item_debug_append(debugstr, "Deleting item ", cur1); } } } /* Additions */ if (!od->ssi.pending) { for (cur1=od->ssi.local.data; cur1 && (n < 15); cur1=cur1->next) { if (!aim_ssi_itemlist_find(&od->ssi.official, cur1->gid, cur1->bid)) { n++; new = g_new(struct aim_ssi_tmp, 1); new->action = SNAC_SUBTYPE_FEEDBAG_ADD; new->ack = 0xffff; new->name = NULL; new->item = cur1; new->next = NULL; if (od->ssi.pending) { for (cur=od->ssi.pending; cur->next; cur=cur->next); cur->next = new; } else od->ssi.pending = new; aim_ssi_item_debug_append(debugstr, "Adding item ", cur1); } } } /* Modifications */ if (!od->ssi.pending) { for (cur1=od->ssi.local.data; cur1 && (n < 15); cur1=cur1->next) { cur2 = aim_ssi_itemlist_find(&od->ssi.official, cur1->gid, cur1->bid); if (cur2 && (aim_ssi_itemlist_cmp(cur1, cur2))) { n++; new = g_new(struct aim_ssi_tmp, 1); new->action = SNAC_SUBTYPE_FEEDBAG_MOD; new->ack = 0xffff; new->name = NULL; new->item = cur1; new->next = NULL; if (od->ssi.pending) { for (cur=od->ssi.pending; cur->next; cur=cur->next); cur->next = new; } else od->ssi.pending = new; aim_ssi_item_debug_append(debugstr, "Modifying item ", cur1); } } } if (debugstr->len > 0) { purple_debug_info("oscar", "%s", debugstr->str); if (purple_debug_is_verbose()) { g_string_truncate(debugstr, 0); for (cur1 = od->ssi.local.data; cur1; cur1 = cur1->next) aim_ssi_item_debug_append(debugstr, "\t", cur1); purple_debug_misc("oscar", "Dumping item list of account %s:\n%s", purple_connection_get_account(od->gc)->username, debugstr->str); } } g_string_free(debugstr, TRUE); /* We're out of stuff to do, so tell the AIM servers we're done and exit */ if (!od->ssi.pending) { if (od->ssi.in_transaction) { aim_ssi_modend(od); od->ssi.in_transaction = FALSE; } return 0; } /* If this is the first in a series of add/mod/del * requests then send the "begin transaction" message. */ if (!od->ssi.in_transaction) { aim_ssi_modbegin(od); od->ssi.in_transaction = TRUE; } /* Make sure we don't send anything else between now * and when we receive the ack for the following operation */ od->ssi.waiting_for_ack = TRUE; /* Now go mail off our data and wait 4 to 6 weeks */ return aim_ssi_addmoddel(od);; } /** * Free all SSI data. * * This doesn't remove it from the server, that's different. * * @param od The oscar odion. * @return Return 0 if no errors, otherwise return the error number. */ static void aim_ssi_freelist(OscarData *od) { struct aim_ssi_item *cur, *del; struct aim_ssi_tmp *curtmp, *deltmp; cur = od->ssi.official.data; while (cur) { del = cur; cur = cur->next; aim_ssi_item_free(del); } cur = od->ssi.local.data; while (cur) { del = cur; cur = cur->next; aim_ssi_item_free(del); } curtmp = od->ssi.pending; while (curtmp) { deltmp = curtmp; curtmp = curtmp->next; g_free(deltmp); } od->ssi.numitems = 0; od->ssi.official.data = NULL; od->ssi.local.data = NULL; od->ssi.pending = NULL; od->ssi.timestamp = (time_t)0; } /** * This "cleans" the ssi list. It does the following: * 1) Makes sure all buddies, permits, and denies have names. * 2) Makes sure that all buddies are in a group that exist. * 3) Deletes any empty groups * * @param od The oscar odion. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_cleanlist(OscarData *od) { struct aim_ssi_item *cur, *next; if (!od) return -EINVAL; /* Delete any buddies, permits, or denies with empty names. */ /* If there are any buddies directly in the master group, add them to a real group. */ /* DESTROY any buddies that are directly in the master group. */ /* Do the same for buddies that are in a non-existant group. */ /* This will kind of mess up if you hit the item limit, but this function isn't too critical */ cur = od->ssi.local.data; while (cur) { next = cur->next; if (!cur->name) { if (cur->type == AIM_SSI_TYPE_BUDDY) aim_ssi_delbuddy(od, NULL, NULL); else if (cur->type == AIM_SSI_TYPE_PERMIT || cur->type == AIM_SSI_TYPE_DENY || cur->type == AIM_SSI_TYPE_ICQDENY) aim_ssi_del_from_private_list(od, NULL, cur->type); } else if ((cur->type == AIM_SSI_TYPE_BUDDY) && ((cur->gid == 0x0000) || (!aim_ssi_itemlist_find(&od->ssi.local, cur->gid, 0x0000)))) { char *alias = aim_ssi_getalias(&od->ssi.local, NULL, cur->name); aim_ssi_addbuddy(od, cur->name, "orphans", NULL, alias, NULL, NULL, FALSE); aim_ssi_delbuddy(od, cur->name, NULL); g_free(alias); } cur = next; } /* Make sure there aren't any duplicate buddies in a group, or duplicate permits or denies */ cur = od->ssi.local.data; while (cur) { if ((cur->type == AIM_SSI_TYPE_BUDDY) || (cur->type == AIM_SSI_TYPE_PERMIT) || (cur->type == AIM_SSI_TYPE_DENY)) { struct aim_ssi_item *cur2, *next2; cur2 = cur->next; while (cur2) { next2 = cur2->next; if ((cur->type == cur2->type) && (cur->gid == cur2->gid) && (cur->name != NULL) && (cur2->name != NULL) && (!oscar_util_name_compare(cur->name, cur2->name))) { aim_ssi_itemlist_del(&od->ssi.local, cur2); } cur2 = next2; } } cur = cur->next; } /* If we've made any changes then sync our list with the server's */ return aim_ssi_sync(od); } /** * Add a buddy to the list. * * @param od The oscar odion. * @param name The name of the item. * @param group The group of the item. * @param data A TLV list to use as the additional data for this item. * @param alias The alias/nickname of the item, or NULL. * @param comment The buddy comment for the item, or NULL. * @param smsnum The locally assigned SMS number, or NULL. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_addbuddy(OscarData *od, const char *name, const char *group, GSList *data, const char *alias, const char *comment, const char *smsnum, gboolean needauth) { struct aim_ssi_item *parent; if (!od || !name || !group) return -EINVAL; /* Find the parent */ if (!(parent = aim_ssi_itemlist_finditem(&od->ssi.local, group, NULL, AIM_SSI_TYPE_GROUP))) { /* Find the parent's parent (the master group) */ if (aim_ssi_itemlist_find(&od->ssi.local, 0x0000, 0x0000) == NULL) aim_ssi_itemlist_add(&od->ssi.local, NULL, 0x0000, 0x0000, AIM_SSI_TYPE_GROUP, NULL); /* Add the parent */ parent = aim_ssi_itemlist_add(&od->ssi.local, group, 0xFFFF, 0x0000, AIM_SSI_TYPE_GROUP, NULL); /* Modify the parent's parent (the master group) */ aim_ssi_itemlist_rebuildgroup(&od->ssi.local, NULL); } /* Create a TLV list for the new buddy */ if (needauth) aim_tlvlist_add_noval(&data, 0x0066); if (alias != NULL) aim_tlvlist_add_str(&data, 0x0131, alias); if (smsnum != NULL) aim_tlvlist_add_str(&data, 0x013a, smsnum); if (comment != NULL) aim_tlvlist_add_str(&data, 0x013c, comment); /* Add that bad boy */ aim_ssi_itemlist_add(&od->ssi.local, name, parent->gid, 0xFFFF, AIM_SSI_TYPE_BUDDY, data); aim_tlvlist_free(data); /* Modify the parent group */ aim_ssi_itemlist_rebuildgroup(&od->ssi.local, group); /* Sync our local list with the server list */ return aim_ssi_sync(od); } int aim_ssi_add_to_private_list(OscarData *od, const char* name, guint16 list_type) { if (!od || !name || !od->ssi.received_data) return -EINVAL; if (aim_ssi_itemlist_find(&od->ssi.local, 0x0000, 0x0000) == NULL) aim_ssi_itemlist_add(&od->ssi.local, NULL, 0x0000, 0x0000, AIM_SSI_TYPE_GROUP, NULL); aim_ssi_itemlist_add(&od->ssi.local, name, 0x0000, 0xFFFF, list_type, NULL); return aim_ssi_sync(od); } int aim_ssi_del_from_private_list(OscarData* od, const char* name, guint16 list_type) { struct aim_ssi_item *del; if (!od) return -EINVAL; if (!(del = aim_ssi_itemlist_finditem(&od->ssi.local, NULL, name, list_type))) return -EINVAL; aim_ssi_itemlist_del(&od->ssi.local, del); return aim_ssi_sync(od); } /** * Deletes a buddy from the list. * * @param od The oscar odion. * @param name The name of the item, or NULL. * @param group The group of the item, or NULL. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_delbuddy(OscarData *od, const char *name, const char *group) { struct aim_ssi_item *del; if (!od) return -EINVAL; /* Find the buddy */ if (!(del = aim_ssi_itemlist_finditem(&od->ssi.local, group, name, AIM_SSI_TYPE_BUDDY))) return -EINVAL; /* Remove the item from the list */ aim_ssi_itemlist_del(&od->ssi.local, del); /* Modify the parent group */ aim_ssi_itemlist_rebuildgroup(&od->ssi.local, group); /* Sync our local list with the server list */ return aim_ssi_sync(od); } /** * Deletes a group from the list. * * @param od The oscar odion. * @param group The name of the group. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_delgroup(OscarData *od, const char *group) { struct aim_ssi_item *del; aim_tlv_t *tlv; if (!od) return -EINVAL; /* Find the group */ if (!(del = aim_ssi_itemlist_finditem(&od->ssi.local, group, NULL, AIM_SSI_TYPE_GROUP))) return -EINVAL; /* Don't delete the group if it's not empty */ tlv = aim_tlv_gettlv(del->data, 0x00c8, 1); if (tlv && tlv->length > 0) return -EINVAL; /* Remove the item from the list */ aim_ssi_itemlist_del(&od->ssi.local, del); /* Modify the parent group */ aim_ssi_itemlist_rebuildgroup(&od->ssi.local, group); /* Sync our local list with the server list */ return aim_ssi_sync(od); } /** * Move a buddy from one group to another group. This basically just deletes the * buddy and re-adds it. * * @param od The oscar odion. * @param oldgn The group that the buddy is currently in. * @param newgn The group that the buddy should be moved in to. * @param bn The name of the buddy to be moved. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_movebuddy(OscarData *od, const char *oldgn, const char *newgn, const char *bn) { struct aim_ssi_item *buddy; GSList *data; /* Find the buddy */ buddy = aim_ssi_itemlist_finditem(&od->ssi.local, oldgn, bn, AIM_SSI_TYPE_BUDDY); if (buddy == NULL) return -EINVAL; /* Make a copy of the buddy's TLV list */ data = aim_tlvlist_copy(buddy->data); /* Delete the old item */ aim_ssi_delbuddy(od, bn, oldgn); /* Add the new item using the EXACT SAME TLV list */ aim_ssi_addbuddy(od, bn, newgn, data, NULL, NULL, NULL, FALSE); return 0; } /** * Change the alias stored on the server for a given buddy. * * @param od The oscar odion. * @param gn The group that the buddy is currently in. * @param bn The name of the buddy. * @param alias The new alias for the buddy, or NULL if you want to remove * a buddy's comment. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_aliasbuddy(OscarData *od, const char *gn, const char *bn, const char *alias) { struct aim_ssi_item *tmp; if (!od || !gn || !bn) return -EINVAL; if (!(tmp = aim_ssi_itemlist_finditem(&od->ssi.local, gn, bn, AIM_SSI_TYPE_BUDDY))) return -EINVAL; /* Either add or remove the 0x0131 TLV from the TLV chain */ if (alias && *alias) aim_tlvlist_replace_str(&tmp->data, 0x0131, alias); else aim_tlvlist_remove(&tmp->data, 0x0131); /* Sync our local list with the server list */ return aim_ssi_sync(od); } /** * Change the comment stored on the server for a given buddy. * * @param od The oscar odion. * @param gn The group that the buddy is currently in. * @param bn The name of the buddy. * @param alias The new comment for the buddy, or NULL if you want to remove * a buddy's comment. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_editcomment(OscarData *od, const char *gn, const char *bn, const char *comment) { struct aim_ssi_item *tmp; if (!od || !gn || !bn) return -EINVAL; if (!(tmp = aim_ssi_itemlist_finditem(&od->ssi.local, gn, bn, AIM_SSI_TYPE_BUDDY))) return -EINVAL; /* Either add or remove the 0x0131 TLV from the TLV chain */ if (comment && *comment) aim_tlvlist_replace_str(&tmp->data, 0x013c, comment); else aim_tlvlist_remove(&tmp->data, 0x013c); /* Sync our local list with the server list */ return aim_ssi_sync(od); } /** * Rename a group. * * @param od The oscar odion. * @param oldgn The old group name. * @param newgn The new group name. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_rename_group(OscarData *od, const char *oldgn, const char *newgn) { struct aim_ssi_item *group; if (!od || !oldgn || !newgn) return -EINVAL; if (!(group = aim_ssi_itemlist_finditem(&od->ssi.local, oldgn, NULL, AIM_SSI_TYPE_GROUP))) return -EINVAL; aim_ssi_item_set_name(&od->ssi.local, group, newgn); /* Sync our local list with the server list */ return aim_ssi_sync(od); } /** * Stores your permit/deny setting on the server, and starts using it. * * @param od The oscar odion. * @param permdeny Your permit/deny setting. For ICQ accounts, it actually affects your visibility * and has nothing to do with blocking. Can be one of the following: * 1 - Allow all users * 2 - Block all users * 3 - Allow only the users below * 4 - Block only the users below * 5 - Allow only users on my buddy list * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_setpermdeny(OscarData *od, guint8 permdeny) { struct aim_ssi_item *tmp; if (!od || !od->ssi.received_data) return -EINVAL; /* Find the PDINFO item, or add it if it does not exist */ if (!(tmp = aim_ssi_itemlist_finditem(&od->ssi.local, NULL, NULL, AIM_SSI_TYPE_PDINFO))) { /* Make sure the master group exists */ if (aim_ssi_itemlist_find(&od->ssi.local, 0x0000, 0x0000) == NULL) aim_ssi_itemlist_add(&od->ssi.local, NULL, 0x0000, 0x0000, AIM_SSI_TYPE_GROUP, NULL); tmp = aim_ssi_itemlist_add(&od->ssi.local, NULL, 0x0000, 0xFFFF, AIM_SSI_TYPE_PDINFO, NULL); } /* Need to add the 0x00ca TLV to the TLV chain */ aim_tlvlist_replace_8(&tmp->data, 0x00ca, permdeny); /* Sync our local list with the server list */ return aim_ssi_sync(od); } /** * Set buddy icon information * * @param od The oscar odion. * @param iconcsum The MD5 checksum of the icon you are using. * @param iconcsumlen Length of the MD5 checksum given above. Should be 0x10 bytes. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_seticon(OscarData *od, const guint8 *iconsum, guint8 iconsumlen) { struct aim_ssi_item *tmp; guint8 *csumdata; if (!od || !iconsum || !iconsumlen || !od->ssi.received_data) return -EINVAL; /* Find the ICONINFO item, or add it if it does not exist */ if (!(tmp = aim_ssi_itemlist_finditem(&od->ssi.local, NULL, "1", AIM_SSI_TYPE_ICONINFO))) { /* Make sure the master group exists */ if (aim_ssi_itemlist_find(&od->ssi.local, 0x0000, 0x0000) == NULL) aim_ssi_itemlist_add(&od->ssi.local, NULL, 0x0000, 0x0000, AIM_SSI_TYPE_GROUP, NULL); tmp = aim_ssi_itemlist_add(&od->ssi.local, "1", 0x0000, 0xFFFF, AIM_SSI_TYPE_ICONINFO, NULL); } /* Need to add the 0x00d5 TLV to the TLV chain */ csumdata = (guint8 *)g_malloc((iconsumlen+2)*sizeof(guint8)); aimutil_put8(&csumdata[0], 0x00); aimutil_put8(&csumdata[1], iconsumlen); memcpy(&csumdata[2], iconsum, iconsumlen); aim_tlvlist_replace_raw(&tmp->data, 0x00d5, (iconsumlen+2) * sizeof(guint8), csumdata); g_free(csumdata); /* Need to add the 0x0131 TLV to the TLV chain, used to cache the icon */ aim_tlvlist_replace_noval(&tmp->data, 0x0131); /* Sync our local list with the server list */ aim_ssi_sync(od); return 0; } /** * Remove a reference to a server stored buddy icon. This will make your * icon stop showing up to other people. * * Really this function just sets the icon to a dummy value. It's weird... * but I think the dummy value basically means "I don't have an icon!" * * @param od The oscar session. * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_delicon(OscarData *od) { const guint8 csumdata[] = {0x02, 0x01, 0xd2, 0x04, 0x72}; return aim_ssi_seticon(od, csumdata, 5); } /** * Stores your setting for various SSI settings. Whether you * should show up as idle or not, etc. * * @param od The oscar odion. * @param presence A bitmask of the first 32 entries [0-31] from * http://dev.aol.com/aim/oscar/#FEEDBAG__BUDDY_PREFS * 0x00000002 - Hide "eBuddy group" (whatever that is) * 0x00000400 - Allow others to see your idle time * 0x00020000 - Don't show Recent Buddies * @return Return 0 if no errors, otherwise return the error number. */ int aim_ssi_setpresence(OscarData *od, guint32 presence) { struct aim_ssi_item *tmp; if (!od || !od->ssi.received_data) return -EINVAL; /* Find the PRESENCEPREFS item, or add it if it does not exist */ if (!(tmp = aim_ssi_itemlist_finditem(&od->ssi.local, NULL, NULL, AIM_SSI_TYPE_PRESENCEPREFS))) { /* Make sure the master group exists */ if (aim_ssi_itemlist_find(&od->ssi.local, 0x0000, 0x0000) == NULL) aim_ssi_itemlist_add(&od->ssi.local, NULL, 0x0000, 0x0000, AIM_SSI_TYPE_GROUP, NULL); tmp = aim_ssi_itemlist_add(&od->ssi.local, NULL, 0x0000, 0xFFFF, AIM_SSI_TYPE_PRESENCEPREFS, NULL); } /* Need to add the x00c9 TLV to the TLV chain */ aim_tlvlist_replace_32(&tmp->data, 0x00c9, presence); /* Sync our local list with the server list */ return aim_ssi_sync(od); } /* * Subtype 0x0002 - Request SSI Rights. */ int aim_ssi_reqrights(OscarData *od) { FlapConnection *conn; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG))) return -EINVAL; aim_genericreq_n_snacid(od, conn, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_REQRIGHTS); return 0; } /* * Subtype 0x0003 - SSI Rights Information. */ static int parserights(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0, i; aim_rxcallback_t userfunc; GSList *tlvlist; aim_tlv_t *tlv; ByteStream bstream; guint16 *maxitems; /* This SNAC is made up of a bunch of TLVs */ tlvlist = aim_tlvlist_read(bs); /* TLV 0x0004 contains the maximum number of each item */ if (!(tlv = aim_tlv_gettlv(tlvlist, 0x0004, 1))) { aim_tlvlist_free(tlvlist); return 0; } byte_stream_init(&bstream, tlv->value, tlv->length); maxitems = (guint16 *)g_malloc((tlv->length/2)*sizeof(guint16)); for (i=0; i<(tlv->length/2); i++) maxitems[i] = byte_stream_get16(&bstream); if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, tlv->length/2, maxitems); aim_tlvlist_free(tlvlist); g_free(maxitems); return ret; } /* * Subtype 0x0004 - Request SSI Data when you don't have a timestamp and * revision number. * */ int aim_ssi_reqdata(OscarData *od) { FlapConnection *conn; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG))) return -EINVAL; /* Free any current data, just in case */ aim_ssi_freelist(od); aim_genericreq_n_snacid(od, conn, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_REQDATA); return 0; } /* * Subtype 0x0006 - SSI Data. */ static int parsedata(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; guint8 fmtver; /* guess */ guint16 namelen, gid, bid, type; char *name; GSList *data; GString *debugstr = g_string_new(""); fmtver = byte_stream_get8(bs); /* Version of ssi data. Should be 0x00 */ od->ssi.numitems += byte_stream_get16(bs); /* # of items in this SSI SNAC */ /* Read in the list */ while (byte_stream_bytes_left(bs) > 4) { /* last four bytes are timestamp */ if ((namelen = byte_stream_get16(bs))) name = byte_stream_getstr(bs, namelen); else name = NULL; gid = byte_stream_get16(bs); bid = byte_stream_get16(bs); type = byte_stream_get16(bs); data = aim_tlvlist_readlen(bs, byte_stream_get16(bs)); aim_ssi_item_debug_append(debugstr, "\t", aim_ssi_itemlist_add(&od->ssi.official, name, gid, bid, type, data)); g_free(name); aim_tlvlist_free(data); } purple_debug_misc("oscar", "Reading items from tlvlist for account %s:\n%s", purple_connection_get_account(od->gc)->username, debugstr->str); g_string_free(debugstr, TRUE); /* Read in the timestamp */ od->ssi.timestamp = byte_stream_get32(bs); if (!(snac->flags & 0x0001)) { /* Make a copy of the list */ struct aim_ssi_item *cur; for (cur=od->ssi.official.data; cur; cur=cur->next) aim_ssi_itemlist_add(&od->ssi.local, cur->name, cur->gid, cur->bid, cur->type, cur->data); od->ssi.received_data = TRUE; if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, fmtver, od->ssi.numitems, od->ssi.timestamp); } return ret; } /* * Subtype 0x0007 - SSI Activate Data. * * Should be sent after receiving 13/6 or 13/f to tell the server you * are ready to begin using the list. It will promptly give you the * presence information for everyone in your list and put your permit/deny * settings into effect. * */ int aim_ssi_enable(OscarData *od) { FlapConnection *conn; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG))) return -EINVAL; aim_genericreq_n(od, conn, SNAC_FAMILY_FEEDBAG, 0x0007); return 0; } /* * Subtype 0x0008/0x0009/0x000a - SSI Add/Mod/Del Item(s). * * Sends the SNAC to add, modify, or delete items from the server-stored * information. These 3 SNACs all have an identical structure. The only * difference is the subtype that is set for the SNAC. * */ static int aim_ssi_addmoddel(OscarData *od) { FlapConnection *conn; ByteStream bs; aim_snacid_t snacid; int bslen; struct aim_ssi_tmp *cur; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG)) || !od->ssi.pending || !od->ssi.pending->item) return -EINVAL; /* Calculate total SNAC size */ bslen = 0; for (cur=od->ssi.pending; cur; cur=cur->next) { bslen += 10; /* For length, GID, BID, type, and length */ if (cur->item->name) bslen += strlen(cur->item->name); if (cur->item->data) bslen += aim_tlvlist_size(cur->item->data); } byte_stream_new(&bs, bslen); for (cur=od->ssi.pending; cur; cur=cur->next) { byte_stream_put16(&bs, cur->item->name ? strlen(cur->item->name) : 0); if (cur->item->name) byte_stream_putstr(&bs, cur->item->name); byte_stream_put16(&bs, cur->item->gid); byte_stream_put16(&bs, cur->item->bid); byte_stream_put16(&bs, cur->item->type); byte_stream_put16(&bs, cur->item->data ? aim_tlvlist_size(cur->item->data) : 0); if (cur->item->data) aim_tlvlist_write(&bs, &cur->item->data); } snacid = aim_cachesnac(od, SNAC_FAMILY_FEEDBAG, od->ssi.pending->action, 0x0000, NULL, 0); flap_connection_send_snac(od, conn, SNAC_FAMILY_FEEDBAG, od->ssi.pending->action, snacid, &bs); byte_stream_destroy(&bs); return 0; } /* * Subtype 0x0008 - Incoming SSI add. * * Sent by the server, for example, when someone is added to * your "Recent Buddies" group. */ static int parseadd(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; char *name; guint16 len, gid, bid, type; GSList *data; while (byte_stream_bytes_left(bs)) { if ((len = byte_stream_get16(bs))) name = byte_stream_getstr(bs, len); else name = NULL; gid = byte_stream_get16(bs); bid = byte_stream_get16(bs); type = byte_stream_get16(bs); if ((len = byte_stream_get16(bs))) data = aim_tlvlist_readlen(bs, len); else data = NULL; aim_ssi_itemlist_add(&od->ssi.local, name, gid, bid, type, data); aim_ssi_itemlist_add(&od->ssi.official, name, gid, bid, type, data); aim_tlvlist_free(data); if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, snac->subtype, type, name); g_free(name); } return ret; } /* * Subtype 0x0009 - Incoming SSI mod. */ static int parsemod(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; char *name; guint16 len, gid, bid, type; GSList *data; struct aim_ssi_item *item; while (byte_stream_bytes_left(bs)) { if ((len = byte_stream_get16(bs))) name = byte_stream_getstr(bs, len); else name = NULL; gid = byte_stream_get16(bs); bid = byte_stream_get16(bs); type = byte_stream_get16(bs); if ((len = byte_stream_get16(bs))) data = aim_tlvlist_readlen(bs, len); else data = NULL; /* Replace the 2 local items with the given one */ if ((item = aim_ssi_itemlist_find(&od->ssi.local, gid, bid))) { item->type = type; aim_ssi_item_set_name(&od->ssi.local, item, name); aim_tlvlist_free(item->data); item->data = aim_tlvlist_copy(data); } if ((item = aim_ssi_itemlist_find(&od->ssi.official, gid, bid))) { item->type = type; aim_ssi_item_set_name(&od->ssi.official, item, name); aim_tlvlist_free(item->data); item->data = aim_tlvlist_copy(data); } if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, snac->subtype, type, name); g_free(name); aim_tlvlist_free(data); } return ret; } /* * Subtype 0x000a - Incoming SSI del. * * XXX - It would probably be good for the client to actually do something when it gets this. */ static int parsedel(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; guint16 gid, bid; struct aim_ssi_item *del; while (byte_stream_bytes_left(bs)) { byte_stream_advance(bs, byte_stream_get16(bs)); gid = byte_stream_get16(bs); bid = byte_stream_get16(bs); byte_stream_get16(bs); byte_stream_advance(bs, byte_stream_get16(bs)); if ((del = aim_ssi_itemlist_find(&od->ssi.local, gid, bid))) aim_ssi_itemlist_del(&od->ssi.local, del); if ((del = aim_ssi_itemlist_find(&od->ssi.official, gid, bid))) aim_ssi_itemlist_del(&od->ssi.official, del); if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame); } return ret; } /* * Subtype 0x000e - SSI Add/Mod/Del Ack. * * Response to add, modify, or delete SNAC (sent with aim_ssi_addmoddel). * */ static int parseack(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; struct aim_ssi_tmp *cur, *del; /* Read in the success/failure flags from the ack SNAC */ cur = od->ssi.pending; while (cur && (byte_stream_bytes_left(bs)>0)) { cur->ack = byte_stream_get16(bs); cur = cur->next; } /* * If outcome is 0, then add the item to the item list, or replace the other item, * or remove the old item. If outcome is non-zero, then remove the item from the * local list, or unmodify it, or add it. */ for (cur=od->ssi.pending; (cur && (cur->ack != 0xffff)); cur=cur->next) { if (cur->item) { if (cur->ack) { /* Our action was unsuccessful, so change the local list back to how it was */ if (cur->action == SNAC_SUBTYPE_FEEDBAG_ADD) { /* Remove the item from the local list */ /* Make sure cur->item is still valid memory */ /* TODO: "Still valid memory"? That's bad form. */ if (aim_ssi_itemlist_valid(&od->ssi.local, cur->item)) { cur->name = g_strdup(cur->item->name); aim_ssi_itemlist_del(&od->ssi.local, cur->item); } cur->item = NULL; } else if (cur->action == SNAC_SUBTYPE_FEEDBAG_MOD) { /* Replace the local item with the item from the official list */ if (aim_ssi_itemlist_valid(&od->ssi.local, cur->item)) { struct aim_ssi_item *cur1; if ((cur1 = aim_ssi_itemlist_find(&od->ssi.official, cur->item->gid, cur->item->bid))) { aim_ssi_item_set_name(&od->ssi.official, cur->item, cur1->name); aim_tlvlist_free(cur->item->data); cur->item->data = aim_tlvlist_copy(cur1->data); } } else cur->item = NULL; } else if (cur->action == SNAC_SUBTYPE_FEEDBAG_DEL) { /* Add the item back into the local list */ if (aim_ssi_itemlist_valid(&od->ssi.official, cur->item)) { aim_ssi_itemlist_add(&od->ssi.local, cur->item->name, cur->item->gid, cur->item->bid, cur->item->type, cur->item->data); } else cur->item = NULL; } } else { /* Do the exact opposite */ if (cur->action == SNAC_SUBTYPE_FEEDBAG_ADD) { /* Add the local item to the official list */ if (aim_ssi_itemlist_valid(&od->ssi.local, cur->item)) { aim_ssi_itemlist_add(&od->ssi.official, cur->item->name, cur->item->gid, cur->item->bid, cur->item->type, cur->item->data); } else cur->item = NULL; } else if (cur->action == SNAC_SUBTYPE_FEEDBAG_MOD) { /* Replace the official item with the item from the local list */ if (aim_ssi_itemlist_valid(&od->ssi.local, cur->item)) { struct aim_ssi_item *cur1; if ((cur1 = aim_ssi_itemlist_find(&od->ssi.official, cur->item->gid, cur->item->bid))) { aim_ssi_item_set_name(&od->ssi.official, cur1, cur->item->name); aim_tlvlist_free(cur1->data); cur1->data = aim_tlvlist_copy(cur->item->data); } } else cur->item = NULL; } else if (cur->action == SNAC_SUBTYPE_FEEDBAG_DEL) { /* Remove the item from the official list */ if (aim_ssi_itemlist_valid(&od->ssi.official, cur->item)) aim_ssi_itemlist_del(&od->ssi.official, cur->item); cur->item = NULL; } } } /* End if (cur->item) */ } /* End for loop */ if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, od->ssi.pending); /* Free all aim_ssi_tmp's with an outcome */ cur = od->ssi.pending; while (cur && (cur->ack != 0xffff)) { del = cur; cur = cur->next; g_free(del->name); g_free(del); } od->ssi.pending = cur; /* If we're not waiting for any more acks, then send more SNACs */ if (!od->ssi.pending) { od->ssi.waiting_for_ack = FALSE; aim_ssi_sync(od); } return ret; } /* * Subtype 0x000f - SSI Data Unchanged. * * Response to aim_ssi_reqifchanged() if the server-side data is not newer than * posted local stamp/revision. * */ static int parsedataunchanged(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; od->ssi.received_data = TRUE; if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame); return ret; } /* * Subtype 0x0011 - SSI Begin Data Modification. * * Tell the server you're going to start modifying data. This marks * the beginning of a transaction. */ int aim_ssi_modbegin(OscarData *od) { FlapConnection *conn; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG))) return -EINVAL; aim_genericreq_n(od, conn, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_EDITSTART); return 0; } /* * Subtype 0x0012 - SSI End Data Modification. * * Tell the server you're finished modifying data. The marks the end * of a transaction. */ int aim_ssi_modend(OscarData *od) { FlapConnection *conn; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG))) return -EINVAL; aim_genericreq_n(od, conn, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_EDITSTOP); return 0; } /* * Subtype 0x0015 - Receive an authorization grant */ static int receiveauthgrant(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; guint16 tmp; char *bn, *msg; /* Read buddy name */ if ((tmp = byte_stream_get8(bs))) bn = byte_stream_getstr(bs, tmp); else bn = NULL; /* Read message (null terminated) */ if ((tmp = byte_stream_get16(bs))) msg = byte_stream_getstr(bs, tmp); else msg = NULL; /* Unknown */ tmp = byte_stream_get16(bs); if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, bn, msg); g_free(bn); g_free(msg); return ret; } /* * Subtype 0x0018 - Send authorization request * * Sends a request for authorization to the given contact. The request will either be * granted, denied, or dropped. * */ int aim_ssi_sendauthrequest(OscarData *od, const char *bn, const char *msg) { FlapConnection *conn; ByteStream bs; aim_snacid_t snacid; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG)) || !bn) return -EINVAL; byte_stream_new(&bs, 1+strlen(bn) + 2+(msg ? strlen(msg)+1 : 0) + 2); /* Username */ byte_stream_put8(&bs, strlen(bn)); byte_stream_putstr(&bs, bn); /* Message (null terminated) */ byte_stream_put16(&bs, msg ? strlen(msg) : 0); if (msg) { byte_stream_putstr(&bs, msg); byte_stream_put8(&bs, 0x00); } /* Unknown */ byte_stream_put16(&bs, 0x0000); snacid = aim_cachesnac(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_SENDAUTHREQ, 0x0000, NULL, 0); flap_connection_send_snac(od, conn, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_SENDAUTHREQ, snacid, &bs); byte_stream_destroy(&bs); return 0; } /* * Subtype 0x0019 - Receive an authorization request */ static int receiveauthrequest(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; guint16 tmp; char *bn, *msg; /* Read buddy name */ if ((tmp = byte_stream_get8(bs))) bn = byte_stream_getstr(bs, tmp); else bn = NULL; /* Read message (null terminated) */ if ((tmp = byte_stream_get16(bs))) msg = byte_stream_getstr(bs, tmp); else msg = NULL; /* Unknown */ tmp = byte_stream_get16(bs); if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, bn, msg); g_free(bn); g_free(msg); return ret; } /* * Subtype 0x001a - Send authorization reply * * Sends a reply to a request for authorization. The reply can either * grant authorization or deny authorization. * * if reply=0x00 then deny * if reply=0x01 then grant * */ int aim_ssi_sendauthreply(OscarData *od, const char *bn, guint8 reply, const char *msg) { FlapConnection *conn; ByteStream bs; aim_snacid_t snacid; if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_FEEDBAG)) || !bn) return -EINVAL; byte_stream_new(&bs, 1+strlen(bn) + 1 + 2+(msg ? (strlen(msg)+1) : 0) + 2); /* Username */ byte_stream_put8(&bs, strlen(bn)); byte_stream_putstr(&bs, bn); /* Grant or deny */ byte_stream_put8(&bs, reply); /* Message (null terminated) */ byte_stream_put16(&bs, msg ? (strlen(msg)+1) : 0); if (msg) { byte_stream_putstr(&bs, msg); byte_stream_put8(&bs, 0x00); } /* Unknown */ byte_stream_put16(&bs, 0x0000); snacid = aim_cachesnac(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_SENDAUTHREP, 0x0000, NULL, 0); flap_connection_send_snac(od, conn, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_SENDAUTHREP, snacid, &bs); byte_stream_destroy(&bs); return 0; } /* * Subtype 0x001b - Receive an authorization reply * * You get this bad boy when other people respond to the authorization * request that you have previously sent them. */ static int receiveauthreply(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; guint16 tmp; guint8 reply; char *bn, *msg; /* Read buddy name */ if ((tmp = byte_stream_get8(bs))) bn = byte_stream_getstr(bs, tmp); else bn = NULL; /* Read reply */ reply = byte_stream_get8(bs); /* Read message (null terminated) */ if ((tmp = byte_stream_get16(bs))) msg = byte_stream_getstr(bs, tmp); else msg = NULL; /* Unknown */ tmp = byte_stream_get16(bs); if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, bn, reply, msg); g_free(bn); g_free(msg); return ret; } /* * Subtype 0x001c - Receive a message telling you someone added you to their list. */ static int receiveadded(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { int ret = 0; aim_rxcallback_t userfunc; guint16 tmp; char *bn; /* Read buddy name */ if ((tmp = byte_stream_get8(bs))) bn = byte_stream_getstr(bs, tmp); else bn = NULL; if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) ret = userfunc(od, conn, frame, bn); g_free(bn); return ret; } /* * If we're on ICQ, then AIM_SSI_TYPE_DENY is used for the "permanently invisible" list. * AIM_SSI_TYPE_ICQDENY is used for blocking users instead. */ guint16 aim_ssi_getdenyentrytype(OscarData* od) { return od->icq ? AIM_SSI_TYPE_ICQDENY : AIM_SSI_TYPE_DENY; } static int snachandler(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) { if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_RIGHTSINFO) return parserights(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_LIST) return parsedata(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_ADD) return parseadd(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_MOD) return parsemod(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_DEL) return parsedel(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_SRVACK) return parseack(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_NOLIST) return parsedataunchanged(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_RECVAUTH) return receiveauthgrant(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_RECVAUTHREQ) return receiveauthrequest(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_RECVAUTHREP) return receiveauthreply(od, conn, mod, frame, snac, bs); else if (snac->subtype == SNAC_SUBTYPE_FEEDBAG_ADDED) return receiveadded(od, conn, mod, frame, snac, bs); return 0; } static void ssi_shutdown(OscarData *od, aim_module_t *mod) { aim_ssi_freelist(od); } int ssi_modfirst(OscarData *od, aim_module_t *mod) { mod->family = SNAC_FAMILY_FEEDBAG; mod->version = 0x0004; mod->toolid = 0x0110; mod->toolversion = 0x0629; mod->flags = 0; strncpy(mod->name, "feedbag", sizeof(mod->name)); mod->snachandler = snachandler; mod->shutdown = ssi_shutdown; return 0; }