pidgin/pidgin
Clone
Summary
Browse
Changes
Graph
Fix some spelling errors
release-2.x.y
2021-01-21, Richard Laager
5201d33e8999
Fix some spelling errors
This is #438, but for the release-2.x.y branch. There were more errors in release-2.x.y (which is where I was starting) than default.
Testing Done:
I looked at the diff.
Reviewed at https://reviews.imfreedom.org/r/439/
/*
* 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
;
}