int byte_stream_new(ByteStream *bs, guint32 len)
{
if (bs == NULL)
return -1;
return byte_stream_init(bs, g_malloc(len), len);
}
/* Subtype 0x0006 */
static int
userinfo(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
{
int ret = 0;
aim_rxcallback_t userfunc;
aim_userinfo_t *userinfo, *userinfo2;
GSList *tlvlist;
aim_tlv_t *tlv = NULL;
int was_explicit;
userinfo = (aim_userinfo_t *)g_malloc(sizeof(aim_userinfo_t));
aim_info_extract(od, bs, userinfo);
tlvlist = aim_tlvlist_read(bs);
/* Profile will be 1 and 2 */
userinfo->info_encoding = aim_tlv_getstr(tlvlist, 0x0001, 1);
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0002, 1))) {
userinfo->info = (char *)g_malloc(tlv->length);
memcpy(userinfo->info, tlv->value, tlv->length);
userinfo->info_len = tlv->length;
}
/* Away message will be 3 and 4 */
userinfo->away_encoding = aim_tlv_getstr(tlvlist, 0x0003, 1);
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0004, 1))) {
userinfo->away = (char *)g_malloc(tlv->length);
memcpy(userinfo->away, tlv->value, tlv->length);
userinfo->away_len = tlv->length;
}
/* Caps will be 5 */
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0005, 1))) {
ByteStream cbs;
byte_stream_init(&cbs, tlv->value, tlv->length);
userinfo->capabilities = aim_locate_getcaps(od, &cbs, tlv->length);
userinfo->present = AIM_USERINFO_PRESENT_CAPABILITIES;
}
aim_tlvlist_free(tlvlist);
aim_locate_adduserinfo(od, userinfo);
userinfo2 = aim_locate_finduserinfo(od, userinfo->sn);
aim_info_free(userinfo);
g_free(userinfo);
/*
* Remove this screen name from our queue. If the client requested
* this buddy's info explicitly, then notify them that we have info
* for this buddy.
*/
if (userinfo2 != NULL)
{
was_explicit = aim_locate_gotuserinfo(od, conn, userinfo2->sn);
if (was_explicit == TRUE)
if ((userfunc = aim_callhandler(od, snac->family, snac->subtype)))
ret = userfunc(od, conn, frame, userinfo2);
}
return ret;
}
/* Subtype 0x0006 */
static int
userinfo(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
{
int ret = 0;
aim_userinfo_t *userinfo, *userinfo2;
GSList *tlvlist;
aim_tlv_t *tlv = NULL;
userinfo = (aim_userinfo_t *)g_malloc(sizeof(aim_userinfo_t));
aim_info_extract(od, bs, userinfo);
tlvlist = aim_tlvlist_read(bs);
/* Profile will be 1 and 2 */
userinfo->info_encoding = aim_tlv_getstr(tlvlist, 0x0001, 1);
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0002, 1))) {
userinfo->info = (char *)g_malloc(tlv->length);
memcpy(userinfo->info, tlv->value, tlv->length);
userinfo->info_len = tlv->length;
}
/* Away message will be 3 and 4 */
userinfo->away_encoding = aim_tlv_getstr(tlvlist, 0x0003, 1);
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0004, 1))) {
userinfo->away = (char *)g_malloc(tlv->length);
memcpy(userinfo->away, tlv->value, tlv->length);
userinfo->away_len = tlv->length;
}
/* Caps will be 5 */
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0005, 1))) {
ByteStream cbs;
PurpleAccount *account = purple_connection_get_account(od->gc);
const char *mood;
byte_stream_init(&cbs, tlv->value, tlv->length);
userinfo->capabilities = aim_locate_getcaps(od, &cbs, tlv->length);
byte_stream_rewind(&cbs);
userinfo->present = AIM_USERINFO_PRESENT_CAPABILITIES;
mood = aim_receive_custom_icon(od, &cbs, tlv->length);
if (mood)
purple_prpl_got_user_status(account, userinfo->bn, "mood",
PURPLE_MOOD_NAME, mood,
NULL);
else
purple_prpl_got_user_status_deactive(account, userinfo->bn, "mood");
}
aim_tlvlist_free(tlvlist);
aim_locate_adduserinfo(od, userinfo);
userinfo2 = aim_locate_finduserinfo(od, userinfo->bn);
aim_info_free(userinfo);
g_free(userinfo);
/* Show the info to the user */
oscar_user_info_display_aim(od, userinfo2);
return ret;
}
/* Subtype 0x0006 */
static int
userinfo(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
{
int ret = 0;
aim_rxcallback_t userfunc;
aim_userinfo_t *userinfo, *userinfo2;
GSList *tlvlist;
aim_tlv_t *tlv = NULL;
userinfo = (aim_userinfo_t *)g_malloc(sizeof(aim_userinfo_t));
aim_info_extract(od, bs, userinfo);
tlvlist = aim_tlvlist_read(bs);
/* Profile will be 1 and 2 */
userinfo->info_encoding = aim_tlv_getstr(tlvlist, 0x0001, 1);
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0002, 1))) {
userinfo->info = (char *)g_malloc(tlv->length);
memcpy(userinfo->info, tlv->value, tlv->length);
userinfo->info_len = tlv->length;
}
/* Away message will be 3 and 4 */
userinfo->away_encoding = aim_tlv_getstr(tlvlist, 0x0003, 1);
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0004, 1))) {
userinfo->away = (char *)g_malloc(tlv->length);
memcpy(userinfo->away, tlv->value, tlv->length);
userinfo->away_len = tlv->length;
}
/* Caps will be 5 */
if ((tlv = aim_tlv_gettlv(tlvlist, 0x0005, 1))) {
ByteStream cbs;
byte_stream_init(&cbs, tlv->value, tlv->length);
userinfo->capabilities = aim_locate_getcaps(od, &cbs, tlv->length);
userinfo->present = AIM_USERINFO_PRESENT_CAPABILITIES;
}
aim_tlvlist_free(tlvlist);
aim_locate_adduserinfo(od, userinfo);
userinfo2 = aim_locate_finduserinfo(od, userinfo->bn);
aim_info_free(userinfo);
g_free(userinfo);
/* Show the info to the user */
if (userinfo2 != NULL && ((userfunc = aim_callhandler(od, snac->family, snac->subtype))))
ret = userfunc(od, conn, frame, userinfo2);
return ret;
}
static int
parseinfo_create(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs, aim_snac_t *snac2)
{
aim_rxcallback_t userfunc;
GSList *tlvlist, *innerlist;
char *ck = NULL, *fqcn = NULL, *name = NULL;
guint16 exchange = 0, instance = 0, unknown = 0, flags = 0, maxmsglen = 0, maxoccupancy = 0;
guint32 createtime = 0;
guint8 createperms = 0, detaillevel;
int cklen;
aim_tlv_t *bigblock;
int ret = 0;
ByteStream bbbs;
tlvlist = aim_tlvlist_read(bs);
if (!(bigblock = aim_tlv_gettlv(tlvlist, 0x0004, 1))) {
purple_debug_misc("oscar", "no bigblock in top tlv in create room response\n");
aim_tlvlist_free(tlvlist);
return 0;
}
byte_stream_init(&bbbs, bigblock->value, bigblock->length);
exchange = byte_stream_get16(&bbbs);
cklen = byte_stream_get8(&bbbs);
ck = byte_stream_getstr(&bbbs, cklen);
instance = byte_stream_get16(&bbbs);
detaillevel = byte_stream_get8(&bbbs);
if (detaillevel != 0x02) {
purple_debug_misc("oscar", "unknown detaillevel in create room response (0x%02x)\n", detaillevel);
aim_tlvlist_free(tlvlist);
g_free(ck);
return 0;
}
unknown = byte_stream_get16(&bbbs);
innerlist = aim_tlvlist_read(&bbbs);
if (aim_tlv_gettlv(innerlist, 0x006a, 1))
fqcn = aim_tlv_getstr(innerlist, 0x006a, 1);
if (aim_tlv_gettlv(innerlist, 0x00c9, 1))
flags = aim_tlv_get16(innerlist, 0x00c9, 1);
if (aim_tlv_gettlv(innerlist, 0x00ca, 1))
createtime = aim_tlv_get32(innerlist, 0x00ca, 1);
if (aim_tlv_gettlv(innerlist, 0x00d1, 1))
maxmsglen = aim_tlv_get16(innerlist, 0x00d1, 1);
if (aim_tlv_gettlv(innerlist, 0x00d2, 1))
maxoccupancy = aim_tlv_get16(innerlist, 0x00d2, 1);
if (aim_tlv_gettlv(innerlist, 0x00d3, 1))
name = aim_tlv_getstr(innerlist, 0x00d3, 1);
if (aim_tlv_gettlv(innerlist, 0x00d5, 1))
createperms = aim_tlv_get8(innerlist, 0x00d5, 1);
if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) {
ret = userfunc(od, conn, frame, snac2->type, fqcn, instance, exchange, flags, createtime, maxmsglen, maxoccupancy, createperms, unknown, name, ck);
}
g_free(ck);
g_free(name);
g_free(fqcn);
aim_tlvlist_free(innerlist);
aim_tlvlist_free(tlvlist);
return ret;
}
static int
parseinfo_perms(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs, aim_snac_t *snac2)
{
aim_rxcallback_t userfunc;
int ret = 0;
struct aim_chat_exchangeinfo *exchanges = NULL;
int curexchange;
aim_tlv_t *exchangetlv;
guint8 maxrooms = 0;
GSList *tlvlist, *innerlist;
tlvlist = aim_tlvlist_read(bs);
/*
* Type 0x0002: Maximum concurrent rooms.
*/
if (aim_tlv_gettlv(tlvlist, 0x0002, 1))
maxrooms = aim_tlv_get8(tlvlist, 0x0002, 1);
/*
* Type 0x0003: Exchange information
*
* There can be any number of these, each one
* representing another exchange.
*
*/
for (curexchange = 0; ((exchangetlv = aim_tlv_gettlv(tlvlist, 0x0003, curexchange+1))); ) {
ByteStream tbs;
byte_stream_init(&tbs, exchangetlv->value, exchangetlv->length);
curexchange++;
exchanges = g_realloc(exchanges, curexchange * sizeof(struct aim_chat_exchangeinfo));
/* exchange number */
exchanges[curexchange-1].number = byte_stream_get16(&tbs);
innerlist = aim_tlvlist_read(&tbs);
/*
* Type 0x0002: Unknown
*/
if (aim_tlv_gettlv(innerlist, 0x0002, 1)) {
guint16 classperms;
classperms = aim_tlv_get16(innerlist, 0x0002, 1);
purple_debug_misc("oscar", "faim: class permissions %x\n", classperms);
}
/*
* Type 0x00c9: Flags
*
* 1 Evilable
* 2 Nav Only
* 4 Instancing Allowed
* 8 Occupant Peek Allowed
*
*/
if (aim_tlv_gettlv(innerlist, 0x00c9, 1))
exchanges[curexchange-1].flags = aim_tlv_get16(innerlist, 0x00c9, 1);
/*
* Type 0x00d3: Exchange Description
*/
if (aim_tlv_gettlv(innerlist, 0x00d3, 1))
exchanges[curexchange-1].name = aim_tlv_getstr(innerlist, 0x00d3, 1);
else
exchanges[curexchange-1].name = NULL;
/*
* Type 0x00d5: Creation Permissions
*
* 0 Creation not allowed
* 1 Room creation allowed
* 2 Exchange creation allowed
*
*/
if (aim_tlv_gettlv(innerlist, 0x00d5, 1))
aim_tlv_get8(innerlist, 0x00d5, 1); /* createperms */
/*
* Type 0x00d6: Character Set (First Time)
*/
if (aim_tlv_gettlv(innerlist, 0x00d6, 1))
exchanges[curexchange-1].charset1 = aim_tlv_getstr(innerlist, 0x00d6, 1);
else
exchanges[curexchange-1].charset1 = NULL;
/*
* Type 0x00d7: Language (First Time)
*/
if (aim_tlv_gettlv(innerlist, 0x00d7, 1))
exchanges[curexchange-1].lang1 = aim_tlv_getstr(innerlist, 0x00d7, 1);
else
exchanges[curexchange-1].lang1 = NULL;
/*
* Type 0x00d8: Character Set (Second Time)
*/
if (aim_tlv_gettlv(innerlist, 0x00d8, 1))
exchanges[curexchange-1].charset2 = aim_tlv_getstr(innerlist, 0x00d8, 1);
else
exchanges[curexchange-1].charset2 = NULL;
/*
* Type 0x00d9: Language (Second Time)
*/
if (aim_tlv_gettlv(innerlist, 0x00d9, 1))
exchanges[curexchange-1].lang2 = aim_tlv_getstr(innerlist, 0x00d9, 1);
else
exchanges[curexchange-1].lang2 = NULL;
aim_tlvlist_free(innerlist);
}
/*
* Call client.
*/
if ((userfunc = aim_callhandler(od, snac->family, snac->subtype)))
ret = userfunc(od, conn, frame, snac2->type, maxrooms, curexchange, exchanges);
for (curexchange--; curexchange >= 0; curexchange--) {
g_free(exchanges[curexchange].name);
g_free(exchanges[curexchange].charset1);
g_free(exchanges[curexchange].lang1);
g_free(exchanges[curexchange].charset2);
g_free(exchanges[curexchange].lang2);
}
g_free(exchanges);
aim_tlvlist_free(tlvlist);
return ret;
}
/*
* Subtype 0x0006
*
* We could probably include this in the normal ICBM parsing
* code as channel 0x0003, however, since only the start
* would be the same, we might as well do it here.
*
* General outline of this SNAC:
* snac
* cookie
* channel id
* tlvlist
* unknown
* source user info
* name
* evility
* userinfo tlvs
* online time
* etc
* message metatlv
* message tlv
* message string
* possibly others
*
*/
static int
incomingim_ch3(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
{
int ret = 0, i;
aim_rxcallback_t userfunc;
aim_userinfo_t userinfo;
guint8 cookie[8];
guint16 channel;
GSList *tlvlist;
char *msg = NULL;
int len = 0;
char *encoding = NULL, *language = NULL;
IcbmCookie *ck;
aim_tlv_t *tlv;
ByteStream tbs;
memset(&userinfo, 0, sizeof(aim_userinfo_t));
/*
* Read ICBM Cookie.
*/
for (i = 0; i < 8; i++)
cookie[i] = byte_stream_get8(bs);
if ((ck = aim_uncachecookie(od, cookie, AIM_COOKIETYPE_CHAT))) {
g_free(ck->data);
g_free(ck);
}
/*
* Channel ID
*
* Channel 0x0003 is used for chat messages.
*
*/
channel = byte_stream_get16(bs);
if (channel != 0x0003) {
purple_debug_misc("oscar", "faim: chat_incoming: unknown channel! (0x%04x)\n", channel);
return 0;
}
/*
* Start parsing TLVs right away.
*/
tlvlist = aim_tlvlist_read(bs);
/*
* Type 0x0003: Source User Information
*/
tlv = aim_tlv_gettlv(tlvlist, 0x0003, 1);
if (tlv != NULL)
{
byte_stream_init(&tbs, tlv->value, tlv->length);
aim_info_extract(od, &tbs, &userinfo);
}
/*
* Type 0x0005: Message Block. Conains more TLVs.
*/
tlv = aim_tlv_gettlv(tlvlist, 0x0005, 1);
if (tlv != NULL)
{
GSList *inner_tlvlist;
aim_tlv_t *inner_tlv;
byte_stream_init(&tbs, tlv->value, tlv->length);
inner_tlvlist = aim_tlvlist_read(&tbs);
/*
* Type 0x0001: Message.
*/
inner_tlv = aim_tlv_gettlv(inner_tlvlist, 0x0001, 1);
if (inner_tlv != NULL)
{
len = inner_tlv->length;
msg = aim_tlv_getvalue_as_string(inner_tlv);
}
/*
* Type 0x0002: Encoding.
*/
encoding = aim_tlv_getstr(inner_tlvlist, 0x0002, 1);
/*
* Type 0x0003: Language.
*/
language = aim_tlv_getstr(inner_tlvlist, 0x0003, 1);
aim_tlvlist_free(inner_tlvlist);
}
if ((userfunc = aim_callhandler(od, snac->family, snac->subtype)))
ret = userfunc(od, conn, frame, &userinfo, len, msg, encoding, language);
aim_info_free(&userinfo);
g_free(msg);
g_free(encoding);
g_free(language);
aim_tlvlist_free(tlvlist);
return ret;
}
