pidgin/pidgin

Added tag v2.14.2 for changeset 2eb25613d054
release-2.x.y
2021-04-01, Gary Kramlich
1dd6e5170860
Added tag v2.14.2 for changeset 2eb25613d054
/*
* 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.
*
* Relatively new facility that allows certain types of information, such as
* a user's buddy list, permit/deny list, and permit/deny preferences, to be
* stored 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 "debug.h"
static int aim_ssi_addmoddel(OscarData *od);
/**
* 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" },
};
size_t 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_item *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; cur; cur=cur->next)
if ((cur->type == AIM_SSI_TYPE_GROUP) && (cur->gid != 0x0000))
newlen += 2;
} else {
for (cur=list; 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 = (guint8 *)g_malloc((newlen)*sizeof(guint8));
newlen = 0;
if (group->gid == 0x0000) {
for (cur=list; 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; 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_item **list, const char *name, guint16 gid, guint16 bid, guint16 type, GSList *data)
{
gboolean exists;
struct aim_ssi_item *cur, *new;
new = g_new(struct aim_ssi_item, 1);
/* Set the name */
new->name = g_strdup(name);
/* 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; 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; 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; 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;
/* 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) {
if ((new->gid < (*list)->gid) || ((new->gid == (*list)->gid) && (new->bid < (*list)->bid))) {
new->next = *list;
*list = new;
} else {
struct aim_ssi_item *prev;
for ((prev=*list, cur=(*list)->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;
*list = 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_item **list, struct aim_ssi_item *del)
{
if (!(*list) || !del)
return -EINVAL;
/* Remove the item from the list */
if (*list == del) {
*list = (*list)->next;
} else {
struct aim_ssi_item *cur;
for (cur=*list; (cur->next && (cur->next!=del)); cur=cur->next);
if (cur->next)
cur->next = del->next;
}
/* Free the removed item */
g_free(del->name);
aim_tlvlist_free(del->data);
g_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_item *list, struct aim_ssi_item *item)
{
struct aim_ssi_item *cur;
for (cur=list; 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_item *list, guint16 gid, guint16 bid)
{
struct aim_ssi_item *cur;
for (cur=list; cur; cur=cur->next)
if ((cur->gid == gid) && (cur->bid == bid))
return cur;
return NULL;
}
/**
* 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_item *list, const char *gn, const char *bn, guint16 type)
{
struct aim_ssi_item *cur;
if (!list)
return NULL;
if (gn && bn) { /* For finding buddies in groups */
for (cur=list; 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; 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) { /* For finding groups */
for (cur=list; cur; cur=cur->next) {
if ((cur->type == type) && (cur->bid == 0x0000) && (cur->name) && !(oscar_util_name_compare(cur->name, gn))) {
return cur;
}
}
} else if (bn) { /* For finding permits, denies, and ignores */
for (cur=list; cur; cur=cur->next) {
if ((cur->type == type) && (cur->name) && !(oscar_util_name_compare(cur->name, bn))) {
return cur;
}
}
/* For stuff without names--permit deny setting, visibility mask, etc. */
} else for (cur=list; 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_item *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_item *list, const char *bn)
{
struct aim_ssi_item *cur, *curg;
if (!list || !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_item *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_item *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_item *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, 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_item *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_item *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; 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; 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; 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; 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;
while (cur) {
del = cur;
cur = cur->next;
g_free(del->name);
aim_tlvlist_free(del->data);
g_free(del);
}
cur = od->ssi.local;
while (cur) {
del = cur;
cur = cur->next;
g_free(del->name);
aim_tlvlist_free(del->data);
g_free(del);
}
curtmp = od->ssi.pending;
while (curtmp) {
deltmp = curtmp;
curtmp = curtmp->next;
g_free(deltmp);
}
od->ssi.numitems = 0;
od->ssi.official = NULL;
od->ssi.local = 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;
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;
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 != NULL) && (strlen(alias) > 0))
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 != NULL) && (strlen(comment) > 0))
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;
g_free(group->name);
group->name = g_strdup(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));
(void)aimutil_put8(&csumdata[0], 0x00);
(void)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; 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;
g_free(item->name);
item->name = g_strdup(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;
g_free(item->name);
item->name = g_strdup(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 */
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))) {
g_free(cur->item->name);
cur->item->name = g_strdup(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))) {
g_free(cur1->name);
cur1->name = g_strdup(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, *tmpstr;
/* Read buddy name */
tmp = byte_stream_get8(bs);
if (!tmp) {
purple_debug_warning("oscar", "Dropping auth grant SNAC "
"because username was empty\n");
return 0;
}
bn = byte_stream_getstr(bs, tmp);
if (!g_utf8_validate(bn, -1, NULL)) {
purple_debug_warning("oscar", "Dropping auth grant SNAC "
"because the username was not valid UTF-8\n");
g_free(bn);
}
/* Read message */
tmp = byte_stream_get16(bs);
if (tmp) {
msg = byte_stream_getstr(bs, tmp);
if (!g_utf8_validate(msg, -1, NULL)) {
/* Ugh, msg isn't UTF8. Let's salvage. */
purple_debug_warning("oscar", "Got non-UTF8 message in auth "
"grant from %s\n", bn);
tmpstr = purple_utf8_salvage(msg);
g_free(msg);
msg = tmpstr;
}
} 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, *tmpstr;
/* Read buddy name */
tmp = byte_stream_get8(bs);
if (!tmp) {
purple_debug_warning("oscar", "Dropping auth request SNAC "
"because username was empty\n");
return 0;
}
bn = byte_stream_getstr(bs, tmp);
if (!g_utf8_validate(bn, -1, NULL)) {
purple_debug_warning("oscar", "Dropping auth request SNAC "
"because the username was not valid UTF-8\n");
g_free(bn);
}
/* Read message */
tmp = byte_stream_get16(bs);
if (tmp) {
msg = byte_stream_getstr(bs, tmp);
if (!g_utf8_validate(msg, -1, NULL)) {
/* Ugh, msg isn't UTF8. Let's salvage. */
purple_debug_warning("oscar", "Got non-UTF8 message in auth "
"request from %s\n", bn);
tmpstr = purple_utf8_salvage(msg);
g_free(msg);
msg = tmpstr;
}
} 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, *tmpstr;
/* Read buddy name */
tmp = byte_stream_get8(bs);
if (!tmp) {
purple_debug_warning("oscar", "Dropping auth reply SNAC "
"because username was empty\n");
return 0;
}
bn = byte_stream_getstr(bs, tmp);
if (!g_utf8_validate(bn, -1, NULL)) {
purple_debug_warning("oscar", "Dropping auth reply SNAC "
"because the username was not valid UTF-8\n");
g_free(bn);
}
/* Read reply */
reply = byte_stream_get8(bs);
/* Read message */
tmp = byte_stream_get16(bs);
if (tmp) {
msg = byte_stream_getstr(bs, tmp);
if (!g_utf8_validate(msg, -1, NULL)) {
/* Ugh, msg isn't UTF8. Let's salvage. */
purple_debug_warning("oscar", "Got non-UTF8 message in auth "
"reply from %s\n", bn);
tmpstr = purple_utf8_salvage(msg);
g_free(msg);
msg = tmpstr;
}
} 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 */
tmp = byte_stream_get8(bs);
if (!tmp) {
purple_debug_warning("oscar", "Dropping 'you were added' SNAC "
"because username was empty\n");
return 0;
}
bn = byte_stream_getstr(bs, tmp);
if (!g_utf8_validate(bn, -1, NULL)) {
purple_debug_warning("oscar", "Dropping 'you were added' SNAC "
"because the username was not valid UTF-8\n");
g_free(bn);
}
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;
}