/*
* Subtype 0x0004 - Set your client's capabilities.
*/
int
aim_locate_setcaps(OscarData *od, guint32 caps)
{
FlapConnection *conn;
ByteStream bs;
aim_snacid_t snacid;
GSList *tlvlist = NULL;
if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_LOCATE)))
return -EINVAL;
aim_tlvlist_add_caps(&tlvlist, 0x0005, caps);
byte_stream_new(&bs, aim_tlvlist_size(tlvlist));
snacid = aim_cachesnac(od, SNAC_FAMILY_LOCATE, 0x0004, 0x0000, NULL, 0);
aim_tlvlist_write(&bs, &tlvlist);
aim_tlvlist_free(tlvlist);
flap_connection_send_snac(od, conn, SNAC_FAMILY_LOCATE, 0x0004, 0x0000, snacid, &bs);
byte_stream_destroy(&bs);
return 0;
}
/*
* Subtype 0x0004 - Set your client's capabilities.
*/
int
aim_locate_setcaps(OscarData *od, guint32 caps)
{
FlapConnection *conn;
FlapFrame *frame;
aim_snacid_t snacid;
GSList *tlvlist = NULL;
if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_LOCATE)))
return -EINVAL;
aim_tlvlist_add_caps(&tlvlist, 0x0005, caps);
frame = flap_frame_new(od, 0x02, 10 + aim_tlvlist_size(tlvlist));
snacid = aim_cachesnac(od, 0x0002, 0x0004, 0x0000, NULL, 0);
aim_putsnac(&frame->data, 0x0002, 0x004, 0x0000, snacid);
aim_tlvlist_write(&frame->data, &tlvlist);
aim_tlvlist_free(tlvlist);
flap_connection_send(conn, frame);
return 0;
}
/*
* Subtype 0x0004 - Set your client's capabilities.
*/
int
aim_locate_setcaps(OscarData *od, guint64 caps)
{
FlapConnection *conn;
PurpleAccount *account = purple_connection_get_account(od->gc);
PurplePresence *presence = purple_account_get_presence(account);
PurpleStatus *status = purple_presence_get_status(presence, "mood");
const char *mood = purple_status_get_attr_string(status, PURPLE_MOOD_NAME);
ByteStream bs;
aim_snacid_t snacid;
GSList *tlvlist = NULL;
if (!(conn = flap_connection_findbygroup(od, SNAC_FAMILY_LOCATE)))
return -EINVAL;
aim_tlvlist_add_caps(&tlvlist, 0x0005, caps, mood);
byte_stream_new(&bs, aim_tlvlist_size(tlvlist));
snacid = aim_cachesnac(od, SNAC_FAMILY_LOCATE, 0x0004, 0x0000, NULL, 0);
aim_tlvlist_write(&bs, &tlvlist);
aim_tlvlist_free(tlvlist);
flap_connection_send_snac(od, conn, SNAC_FAMILY_LOCATE, 0x0004, snacid, &bs);
byte_stream_destroy(&bs);
return 0;
}
/*
* Subtype 0x0009 - Set directory profile data.
*
* This is not the same as aim_location_setprofile!
* privacy: 1 to allow searching, 0 to disallow.
*
*/
int aim_locate_setdirinfo(OscarData *od, const char *first, const char *middle, const char *last, const char *maiden, const char *nickname, const char *street, const char *city, const char *state, const char *zip, int country, guint16 privacy)
{
FlapConnection *conn;
ByteStream bs;
aim_snacid_t snacid;
GSList *tlvlist = NULL;
if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_LOCATE)))
return -EINVAL;
aim_tlvlist_add_16(&tlvlist, 0x000a, privacy);
if (first)
aim_tlvlist_add_str(&tlvlist, 0x0001, first);
if (last)
aim_tlvlist_add_str(&tlvlist, 0x0002, last);
if (middle)
aim_tlvlist_add_str(&tlvlist, 0x0003, middle);
if (maiden)
aim_tlvlist_add_str(&tlvlist, 0x0004, maiden);
if (state)
aim_tlvlist_add_str(&tlvlist, 0x0007, state);
if (city)
aim_tlvlist_add_str(&tlvlist, 0x0008, city);
if (nickname)
aim_tlvlist_add_str(&tlvlist, 0x000c, nickname);
if (zip)
aim_tlvlist_add_str(&tlvlist, 0x000d, zip);
if (street)
aim_tlvlist_add_str(&tlvlist, 0x0021, street);
byte_stream_new(&bs, aim_tlvlist_size(tlvlist));
snacid = aim_cachesnac(od, SNAC_FAMILY_LOCATE, 0x0009, 0x0000, NULL, 0);
aim_tlvlist_write(&bs, &tlvlist);
aim_tlvlist_free(tlvlist);
flap_connection_send_snac(od, conn, SNAC_FAMILY_LOCATE, 0x0009, 0x0000, snacid, &bs);
byte_stream_destroy(&bs);
return 0;
}
/**
* Read a TLV chain from a buffer.
*
* Reads and parses a series of TLV patterns from a data buffer; the
* returned structure is manipulatable with the rest of the TLV
* routines. When done with a TLV chain, aim_tlvlist_free() should
* be called to free the dynamic substructures.
*
* XXX There should be a flag setable here to have the tlvlist contain
* bstream references, so that at least the ->value portion of each
* element doesn't need to be malloc/memcpy'd. This could prove to be
* just as effecient as the in-place TLV parsing used in a couple places
* in libfaim.
*
* @param bs Input bstream
* @param len The max length in bytes that will be read.
* There are a number of places where you want to read in a tlvchain,
* but the chain is not at the end of the SNAC, and the chain is
* preceeded by the length of the TLVs. So you can limit that with this.
*/
faim_internal aim_tlvlist_t *aim_tlvlist_readlen(aim_bstream_t *bs, fu16_t len)
{
aim_tlvlist_t *list = NULL, *cur;
while ((aim_bstream_empty(bs) > 0) && (len > 0)) {
fu16_t type, length;
type = aimbs_get16(bs);
length = aimbs_get16(bs);
if (length > aim_bstream_empty(bs)) {
aim_tlvlist_free(&list);
return NULL;
}
cur = (aim_tlvlist_t *)malloc(sizeof(aim_tlvlist_t));
if (!cur) {
aim_tlvlist_free(&list);
return NULL;
}
memset(cur, 0, sizeof(aim_tlvlist_t));
cur->tlv = createtlv(type, length, NULL);
if (!cur->tlv) {
free(cur);
aim_tlvlist_free(&list);
return NULL;
}
if (cur->tlv->length > 0) {
cur->tlv->value = aimbs_getraw(bs, length);
if (!cur->tlv->value) {
freetlv(&cur->tlv);
free(cur);
aim_tlvlist_free(&list);
return NULL;
}
}
len -= aim_tlvlist_size(&cur);
cur->next = list;
list = cur;
}
return list;
}
/*
* Subtype 0x000f
*
* XXX pass these in better
*
*/
int
aim_locate_setinterests(OscarData *od, const char *interest1, const char *interest2, const char *interest3, const char *interest4, const char *interest5, guint16 privacy)
{
FlapConnection *conn;
ByteStream bs;
aim_snacid_t snacid;
GSList *tlvlist = NULL;
if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_LOCATE)))
return -EINVAL;
/* ?? privacy ?? */
aim_tlvlist_add_16(&tlvlist, 0x000a, privacy);
if (interest1)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest1);
if (interest2)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest2);
if (interest3)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest3);
if (interest4)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest4);
if (interest5)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest5);
byte_stream_new(&bs, aim_tlvlist_size(tlvlist));
snacid = aim_cachesnac(od, SNAC_FAMILY_LOCATE, 0x000f, 0x0000, NULL, 0);
aim_tlvlist_write(&bs, &tlvlist);
aim_tlvlist_free(tlvlist);
flap_connection_send_snac(od, conn, SNAC_FAMILY_LOCATE, 0x000f, 0x0000, snacid, &bs);
byte_stream_destroy(&bs);
return 0;
}
/*
* Subtype 0x000f
*
* XXX pass these in better
*
*/
int
aim_locate_setinterests(OscarData *od, const char *interest1, const char *interest2, const char *interest3, const char *interest4, const char *interest5, guint16 privacy)
{
FlapConnection *conn;
FlapFrame *frame;
aim_snacid_t snacid;
GSList *tlvlist = NULL;
if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_LOCATE)))
return -EINVAL;
/* ?? privacy ?? */
aim_tlvlist_add_16(&tlvlist, 0x000a, privacy);
if (interest1)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest1);
if (interest2)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest2);
if (interest3)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest3);
if (interest4)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest4);
if (interest5)
aim_tlvlist_add_str(&tlvlist, 0x0000b, interest5);
frame = flap_frame_new(od, 0x02, 10+aim_tlvlist_size(tlvlist));
snacid = aim_cachesnac(od, 0x0002, 0x000f, 0x0000, NULL, 0);
aim_putsnac(&frame->data, 0x0002, 0x000f, 0x0000, 0);
aim_tlvlist_write(&frame->data, &tlvlist);
aim_tlvlist_free(tlvlist);
flap_connection_send(conn, frame);
return 0;
}
/*
* Subtype 0x0004
*
* Gives BOS your profile.
*
* profile_encoding and awaymsg_encoding MUST be set if profile or
* away are set, respectively, and their value may or may not be
* restricted to a few choices. I am currently aware of:
*
* us-ascii Just that
* unicode-2-0 UTF-16BE
*
* profile_len and awaymsg_len MUST be set similarly, and they MUST
* be the length of their respective strings in bytes.
*
* To get the previous behavior of awaymsg == "" un-setting the away
* message, set awaymsg non-NULL and awaymsg_len to 0 (this is the
* obvious equivalent).
*
*/
int
aim_locate_setprofile(OscarData *od,
const char *profile_encoding, const gchar *profile, const int profile_len,
const char *awaymsg_encoding, const gchar *awaymsg, const int awaymsg_len)
{
FlapConnection *conn;
ByteStream bs;
aim_snacid_t snacid;
GSList *tlvlist = NULL;
char *encoding;
static const char defencoding[] = {"text/aolrtf; charset=\"%s\""};
if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_LOCATE)))
return -EINVAL;
if (!profile && !awaymsg)
return -EINVAL;
if ((profile && profile_encoding == NULL) || (awaymsg && awaymsg_len && awaymsg_encoding == NULL)) {
return -EINVAL;
}
/* Build the packet first to get real length */
if (profile) {
/* no + 1 here because of %s */
encoding = g_malloc(strlen(defencoding) + strlen(profile_encoding));
snprintf(encoding, strlen(defencoding) + strlen(profile_encoding), defencoding, profile_encoding);
aim_tlvlist_add_str(&tlvlist, 0x0001, encoding);
aim_tlvlist_add_raw(&tlvlist, 0x0002, profile_len, (const guchar *)profile);
g_free(encoding);
}
/*
* So here's how this works:
* - You are away when you have a non-zero-length type 4 TLV stored.
* - You become unaway when you clear the TLV with a zero-length
* type 4 TLV.
* - If you do not send the type 4 TLV, your status does not change
* (that is, if you were away, you'll remain away).
*/
if (awaymsg) {
if (awaymsg_len) {
encoding = g_malloc(strlen(defencoding) + strlen(awaymsg_encoding));
snprintf(encoding, strlen(defencoding) + strlen(awaymsg_encoding), defencoding, awaymsg_encoding);
aim_tlvlist_add_str(&tlvlist, 0x0003, encoding);
aim_tlvlist_add_raw(&tlvlist, 0x0004, awaymsg_len, (const guchar *)awaymsg);
g_free(encoding);
} else
aim_tlvlist_add_noval(&tlvlist, 0x0004);
}
byte_stream_new(&bs, aim_tlvlist_size(tlvlist));
snacid = aim_cachesnac(od, SNAC_FAMILY_LOCATE, 0x0004, 0x0000, NULL, 0);
aim_tlvlist_write(&bs, &tlvlist);
aim_tlvlist_free(tlvlist);
flap_connection_send_snac(od, conn, SNAC_FAMILY_LOCATE, 0x0004, 0x0000, snacid, &bs);
byte_stream_destroy(&bs);
return 0;
}
