Mercurial > pidgin
diff libpurple/protocols/oscar/family_oservice.c @ 15373:5fe8042783c1
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Sat, 20 Jan 2007 02:32:10 +0000 |
parents | |
children | 3548e64b0245 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/libpurple/protocols/oscar/family_oservice.c Sat Jan 20 02:32:10 2007 +0000 @@ -0,0 +1,1119 @@ +/* + * Gaim'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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +*/ + +/* + * Family 0x0001 - This is a very special group. All connections support + * this group, as it does some particularly good things (like rate limiting). + */ + +#include "oscar.h" + +#include "cipher.h" + +/* Subtype 0x0002 - Client Online */ +void +aim_clientready(OscarData *od, FlapConnection *conn) +{ + FlapFrame *frame; + aim_snacid_t snacid; + GSList *cur; + + frame = flap_frame_new(od, 0x02, 1152); + + snacid = aim_cachesnac(od, 0x0001, 0x0002, 0x0000, NULL, 0); + aim_putsnac(&frame->data, 0x0001, 0x0002, 0x0000, snacid); + + /* + * Send only the tool versions that the server cares about (that it + * marked as supporting in the server ready SNAC). + */ + for (cur = conn->groups; cur != NULL; cur = cur->next) + { + aim_module_t *mod; + + if ((mod = aim__findmodulebygroup(od, GPOINTER_TO_UINT(cur->data)))) + { + byte_stream_put16(&frame->data, mod->family); + byte_stream_put16(&frame->data, mod->version); + byte_stream_put16(&frame->data, mod->toolid); + byte_stream_put16(&frame->data, mod->toolversion); + } + } + + flap_connection_send(conn, frame); +} + +/* + * Subtype 0x0003 - Host Online + * + * See comments in conn.c about how the group associations are supposed + * to work, and how they really work. + * + * This info probably doesn't even need to make it to the client. + * + * We don't actually call the client here. This starts off the connection + * initialization routine required by all AIM connections. The next time + * the client is called is the CONNINITDONE callback, which should be + * shortly after the rate information is acknowledged. + * + */ +static int +hostonline(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int group; + + while (byte_stream_empty(bs)) + { + group = byte_stream_get16(bs); + conn->groups = g_slist_prepend(conn->groups, GUINT_TO_POINTER(group)); + } + + /* + * Next step is in the Host Versions handler. + * + * Note that we must send this before we request rates, since + * the format of the rate information depends on the versions we + * give it. + * + */ + aim_srv_setversions(od, conn); + + return 1; +} + +/* Subtype 0x0004 - Service request */ +void +aim_srv_requestnew(OscarData *od, guint16 serviceid) +{ + FlapConnection *conn; + + conn = flap_connection_findbygroup(od, SNAC_FAMILY_BOS); + if(!conn) + return; + + aim_genericreq_s(od, conn, 0x0001, 0x0004, &serviceid); +} + +/* + * Join a room of name roomname. This is the first step to joining an + * already created room. It's basically a Service Request for + * family 0x000e, with a little added on to specify the exchange and room + * name. + */ +int +aim_chat_join(OscarData *od, guint16 exchange, const char *roomname, guint16 instance) +{ + FlapConnection *conn; + FlapFrame *frame; + aim_snacid_t snacid; + aim_tlvlist_t *tl = NULL; + struct chatsnacinfo csi; + + conn = flap_connection_findbygroup(od, SNAC_FAMILY_BOS); + if (!conn || !roomname || !strlen(roomname)) + return -EINVAL; + + frame = flap_frame_new(od, 0x02, 512); + + memset(&csi, 0, sizeof(csi)); + csi.exchange = exchange; + strncpy(csi.name, roomname, sizeof(csi.name)); + csi.instance = instance; + + snacid = aim_cachesnac(od, 0x0001, 0x0004, 0x0000, &csi, sizeof(csi)); + aim_putsnac(&frame->data, 0x0001, 0x0004, 0x0000, snacid); + + /* + * Requesting service chat (0x000e) + */ + byte_stream_put16(&frame->data, 0x000e); + + aim_tlvlist_add_chatroom(&tl, 0x0001, exchange, roomname, instance); + aim_tlvlist_write(&frame->data, &tl); + aim_tlvlist_free(&tl); + + flap_connection_send(conn, frame); + + return 0; +} + +/* Subtype 0x0005 - Redirect */ +static int +redirect(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + struct aim_redirect_data redir; + aim_rxcallback_t userfunc; + aim_tlvlist_t *tlvlist; + aim_snac_t *origsnac = NULL; + int ret = 0; + + memset(&redir, 0, sizeof(redir)); + + tlvlist = aim_tlvlist_read(bs); + + if (!aim_tlv_gettlv(tlvlist, 0x000d, 1) || + !aim_tlv_gettlv(tlvlist, 0x0005, 1) || + !aim_tlv_gettlv(tlvlist, 0x0006, 1)) { + aim_tlvlist_free(&tlvlist); + return 0; + } + + redir.group = aim_tlv_get16(tlvlist, 0x000d, 1); + redir.ip = aim_tlv_getstr(tlvlist, 0x0005, 1); + redir.cookielen = aim_tlv_gettlv(tlvlist, 0x0006, 1)->length; + redir.cookie = (guchar *)aim_tlv_getstr(tlvlist, 0x0006, 1); + + /* Fetch original SNAC so we can get csi if needed */ + origsnac = aim_remsnac(od, snac->id); + + if ((redir.group == SNAC_FAMILY_CHAT) && origsnac) { + struct chatsnacinfo *csi = (struct chatsnacinfo *)origsnac->data; + + redir.chat.exchange = csi->exchange; + redir.chat.room = csi->name; + redir.chat.instance = csi->instance; + } + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame, &redir); + + free((void *)redir.ip); + free((void *)redir.cookie); + + if (origsnac) + free(origsnac->data); + free(origsnac); + + aim_tlvlist_free(&tlvlist); + + return ret; +} + +/* Subtype 0x0006 - Request Rate Information. */ +void +aim_srv_reqrates(OscarData *od, FlapConnection *conn) +{ + aim_genericreq_n_snacid(od, conn, 0x0001, 0x0006); +} + +/* + * OSCAR defines several 'rate classes'. Each class has separate + * rate limiting properties (limit level, alert level, disconnect + * level, etc), and a set of SNAC family/type pairs associated with + * it. The rate classes, their limiting properties, and the definitions + * of which SNACs belong to which class are defined in the + * Rate Response packet at login to each host. + * + * Logically, all rate offenses within one class count against further + * offenses for other SNACs in the same class (ie, sending messages + * too fast will limit the number of user info requests you can send, + * since those two SNACs are in the same rate class). + * + * Since the rate classes are defined dynamically at login, the values + * below may change. But they seem to be fairly constant. + * + * Currently, BOS defines five rate classes, with the commonly used + * members as follows... + * + * Rate class 0x0001: + * - Everything thats not in any of the other classes + * + * Rate class 0x0002: + * - Buddy list add/remove + * - Permit list add/remove + * - Deny list add/remove + * + * Rate class 0x0003: + * - User information requests + * - Outgoing ICBMs + * + * Rate class 0x0004: + * - A few unknowns: 2/9, 2/b, and f/2 + * + * Rate class 0x0005: + * - Chat room create + * - Outgoing chat ICBMs + * + * The only other thing of note is that class 5 (chat) has slightly looser + * limiting properties than class 3 (normal messages). But thats just a + * small bit of trivia for you. + * + * The last thing that needs to be learned about the rate limiting + * system is how the actual numbers relate to the passing of time. This + * seems to be a big mystery. + * + * See joscar's javadoc for the RateClassInfo class for a great + * explanation. You might be able to find it at + * http://dscoder.com/RateClassInfo.html + */ + +static struct rateclass * +rateclass_find(GSList *rateclasses, guint16 id) +{ + GSList *tmp; + + for (tmp = rateclasses; tmp != NULL; tmp = tmp->next) + { + struct rateclass *rateclass; + rateclass = tmp->data; + if (rateclass->classid == id) + return rateclass; + } + + return NULL; +} + +/* Subtype 0x0007 - Rate Parameters */ +static int +rateresp(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + guint16 numclasses, i; + aim_rxcallback_t userfunc; + + /* + * First are the parameters for each rate class. + */ + numclasses = byte_stream_get16(bs); + for (i = 0; i < numclasses; i++) + { + struct rateclass *rateclass; + + rateclass = g_new0(struct rateclass, 1); + + rateclass->classid = byte_stream_get16(bs); + rateclass->windowsize = byte_stream_get32(bs); + rateclass->clear = byte_stream_get32(bs); + rateclass->alert = byte_stream_get32(bs); + rateclass->limit = byte_stream_get32(bs); + rateclass->disconnect = byte_stream_get32(bs); + rateclass->current = byte_stream_get32(bs); + rateclass->max = byte_stream_get32(bs); + + /* + * The server will send an extra five bytes of parameters + * depending on the version we advertised in 1/17. If we + * didn't send 1/17 (evil!), then this will crash and you + * die, as it will default to the old version but we have + * the new version hardcoded here. + */ + if (mod->version >= 3) + byte_stream_getrawbuf(bs, rateclass->unknown, sizeof(rateclass->unknown)); + + rateclass->members = g_hash_table_new(g_direct_hash, g_direct_equal); + rateclass->last.tv_sec = 0; + rateclass->last.tv_usec = 0; + conn->rateclasses = g_slist_prepend(conn->rateclasses, rateclass); + } + conn->rateclasses = g_slist_reverse(conn->rateclasses); + + /* + * Then the members of each class. + */ + for (i = 0; i < numclasses; i++) + { + guint16 classid, count; + struct rateclass *rateclass; + int j; + + classid = byte_stream_get16(bs); + count = byte_stream_get16(bs); + + rateclass = rateclass_find(conn->rateclasses, classid); + + for (j = 0; j < count; j++) + { + guint16 group, subtype; + + group = byte_stream_get16(bs); + subtype = byte_stream_get16(bs); + + if (rateclass != NULL) + g_hash_table_insert(rateclass->members, + GUINT_TO_POINTER((group << 16) + subtype), + GUINT_TO_POINTER(TRUE)); + } + } + + /* + * We don't pass the rate information up to the client, as it really + * doesn't care. The information is stored in the connection, however + * so that we can do rate limiting management when sending SNACs. + */ + + /* + * Last step in the conn init procedure is to acknowledge that we + * agree to these draconian limitations. + */ + aim_srv_rates_addparam(od, conn); + + /* + * Finally, tell the client it's ready to go... + */ + if ((userfunc = aim_callhandler(od, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE))) + userfunc(od, conn, frame); + + return 1; +} + +/* Subtype 0x0008 - Add Rate Parameter */ +void +aim_srv_rates_addparam(OscarData *od, FlapConnection *conn) +{ + FlapFrame *frame; + aim_snacid_t snacid; + GSList *tmp; + + frame = flap_frame_new(od, 0x02, 512); + + snacid = aim_cachesnac(od, 0x0001, 0x0008, 0x0000, NULL, 0); + aim_putsnac(&frame->data, 0x0001, 0x0008, 0x0000, snacid); + + for (tmp = conn->rateclasses; tmp != NULL; tmp = tmp->next) + { + struct rateclass *rateclass; + rateclass = tmp->data; + byte_stream_put16(&frame->data, rateclass->classid); + } + + flap_connection_send(conn, frame); +} + +/* Subtype 0x0009 - Delete Rate Parameter */ +void +aim_srv_rates_delparam(OscarData *od, FlapConnection *conn) +{ + FlapFrame *frame; + aim_snacid_t snacid; + GSList *tmp; + + frame = flap_frame_new(od, 0x02, 512); + + snacid = aim_cachesnac(od, 0x0001, 0x0009, 0x0000, NULL, 0); + aim_putsnac(&frame->data, 0x0001, 0x0009, 0x0000, snacid); + + for (tmp = conn->rateclasses; tmp != NULL; tmp = tmp->next) + { + struct rateclass *rateclass; + rateclass = tmp->data; + byte_stream_put16(&frame->data, rateclass->classid); + } + + flap_connection_send(conn, frame); +} + +/* Subtype 0x000a - Rate Change */ +static int +ratechange(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int ret = 0; + aim_rxcallback_t userfunc; + guint16 code, classid; + struct rateclass *rateclass; + + code = byte_stream_get16(bs); + classid = byte_stream_get16(bs); + + rateclass = rateclass_find(conn->rateclasses, classid); + if (rateclass == NULL) + /* This should never really happen */ + return 0; + + rateclass->windowsize = byte_stream_get32(bs); + rateclass->clear = byte_stream_get32(bs); + rateclass->alert = byte_stream_get32(bs); + rateclass->limit = byte_stream_get32(bs); + rateclass->disconnect = byte_stream_get32(bs); + rateclass->current = byte_stream_get32(bs); + rateclass->max = byte_stream_get32(bs); + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame, code, classid, rateclass->windowsize, rateclass->clear, rateclass->alert, rateclass->limit, rateclass->disconnect, rateclass->current, rateclass->max); + + return ret; +} + +/* + * How Migrations work. + * + * The server sends a Server Pause message, which the client should respond to + * with a Server Pause Ack, which contains the families it needs on this + * connection. The server will send a Migration Notice with an IP address, and + * then disconnect. Next the client should open the connection and send the + * cookie. Repeat the normal login process and pretend this never happened. + * + * The Server Pause contains no data. + * + */ + +/* Subtype 0x000b - Service Pause */ +static int +serverpause(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int ret = 0; + aim_rxcallback_t userfunc; + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame); + + return ret; +} + +/* + * Subtype 0x000c - Service Pause Acknowledgement + * + * It is rather important that aim_srv_sendpauseack() gets called for the exact + * same connection that the Server Pause callback was called for, since + * libfaim extracts the data for the SNAC from the connection structure. + * + * Of course, if you don't do that, more bad things happen than just what + * libfaim can cause. + * + */ +void +aim_srv_sendpauseack(OscarData *od, FlapConnection *conn) +{ + FlapFrame *frame; + aim_snacid_t snacid; + GSList *cur; + + frame = flap_frame_new(od, 0x02, 1024); + + snacid = aim_cachesnac(od, 0x0001, 0x000c, 0x0000, NULL, 0); + aim_putsnac(&frame->data, 0x0001, 0x000c, 0x0000, snacid); + + /* + * This list should have all the groups that the original + * Host Online / Server Ready said this host supports. And + * we want them all back after the migration. + */ + for (cur = conn->groups; cur != NULL; cur = cur->next) + byte_stream_put16(&frame->data, GPOINTER_TO_UINT(cur->data)); + + flap_connection_send(conn, frame); +} + +/* Subtype 0x000d - Service Resume */ +static int +serverresume(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int ret = 0; + aim_rxcallback_t userfunc; + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame); + + return ret; +} + +/* Subtype 0x000e - Request self-info */ +void +aim_srv_reqpersonalinfo(OscarData *od, FlapConnection *conn) +{ + aim_genericreq_n_snacid(od, conn, 0x0001, 0x000e); +} + +/* Subtype 0x000f - Self User Info */ +static int +selfinfo(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; + + aim_info_extract(od, bs, &userinfo); + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame, &userinfo); + + aim_info_free(&userinfo); + + return ret; +} + +/* Subtype 0x0010 - Evil Notification */ +static int +evilnotify(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int ret = 0; + aim_rxcallback_t userfunc; + guint16 newevil; + aim_userinfo_t userinfo; + + memset(&userinfo, 0, sizeof(aim_userinfo_t)); + + newevil = byte_stream_get16(bs); + + if (byte_stream_empty(bs)) + aim_info_extract(od, bs, &userinfo); + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame, newevil, &userinfo); + + aim_info_free(&userinfo); + + return ret; +} + +/* + * Subtype 0x0011 - Idle Notification + * + * Should set your current idle time in seconds. Note that this should + * never be called consecutively with a non-zero idle time. That makes + * OSCAR do funny things. Instead, just set it once you go idle, and then + * call it again with zero when you're back. + * + */ +void +aim_srv_setidle(OscarData *od, guint32 idletime) +{ + FlapConnection *conn; + + conn = flap_connection_findbygroup(od, SNAC_FAMILY_BOS); + if(!conn) + return; + + aim_genericreq_l(od, conn, 0x0001, 0x0011, &idletime); +} + +/* + * Subtype 0x0012 - Service Migrate + * + * This is the final SNAC sent on the original connection during a migration. + * It contains the IP and cookie used to connect to the new server, and + * optionally a list of the SNAC groups being migrated. + * + */ +static int +migrate(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + aim_rxcallback_t userfunc; + int ret = 0; + guint16 groupcount, i; + aim_tlvlist_t *tl; + char *ip = NULL; + aim_tlv_t *cktlv; + + /* + * Apparently there's some fun stuff that can happen right here. The + * migration can actually be quite selective about what groups it + * moves to the new server. When not all the groups for a connection + * are migrated, or they are all migrated but some groups are moved + * to a different server than others, it is called a bifurcated + * migration. + * + * Let's play dumb and not support that. + * + */ + groupcount = byte_stream_get16(bs); + for (i = 0; i < groupcount; i++) { + guint16 group; + + group = byte_stream_get16(bs); + + gaim_debug_misc("oscar", "bifurcated migration unsupported -- group 0x%04x\n", group); + } + + tl = aim_tlvlist_read(bs); + + if (aim_tlv_gettlv(tl, 0x0005, 1)) + ip = aim_tlv_getstr(tl, 0x0005, 1); + + cktlv = aim_tlv_gettlv(tl, 0x0006, 1); + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame, ip, cktlv ? cktlv->value : NULL); + + aim_tlvlist_free(&tl); + free(ip); + + return ret; +} + +/* Subtype 0x0013 - Message of the Day */ +static int +motd(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + aim_rxcallback_t userfunc; + char *msg = NULL; + int ret = 0; + aim_tlvlist_t *tlvlist; + guint16 id; + + /* + * Code. + * + * Valid values: + * 1 Mandatory upgrade + * 2 Advisory upgrade + * 3 System bulletin + * 4 Nothing's wrong ("top o the world" -- normal) + * 5 Lets-break-something. + * + */ + id = byte_stream_get16(bs); + + /* + * TLVs follow + */ + tlvlist = aim_tlvlist_read(bs); + + msg = aim_tlv_getstr(tlvlist, 0x000b, 1); + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame, id, msg); + + free(msg); + + aim_tlvlist_free(&tlvlist); + + return ret; +} + +/* + * Subtype 0x0014 - Set privacy flags + * + * Normally 0x03. + * + * Bit 1: Allows other AIM users to see how long you've been idle. + * Bit 2: Allows other AIM users to see how long you've been a member. + * + */ +void +aim_srv_setprivacyflags(OscarData *od, FlapConnection *conn, guint32 flags) +{ + aim_genericreq_l(od, conn, 0x0001, 0x0014, &flags); +} + +/* + * Subtype 0x0016 - No-op + * + * WinAIM sends these every 4min or so to keep the connection alive. Its not + * really necessary. + * + * Wha? No? Since when? I think WinAIM sends an empty channel 5 + * FLAP as a no-op... + */ +void +aim_srv_nop(OscarData *od, FlapConnection *conn) +{ + aim_genericreq_n(od, conn, 0x0001, 0x0016); +} + +/* + * Subtype 0x0017 - Set client versions + * + * If you've seen the clientonline/clientready SNAC you're probably + * wondering what the point of this one is. And that point seems to be + * that the versions in the client online SNAC are sent too late for the + * server to be able to use them to change the protocol for the earlier + * login packets (client versions are sent right after Host Online is + * received, but client online versions aren't sent until quite a bit later). + * We can see them already making use of this by changing the format of + * the rate information based on what version of group 1 we advertise here. + * + */ +void +aim_srv_setversions(OscarData *od, FlapConnection *conn) +{ + FlapFrame *frame; + aim_snacid_t snacid; + GSList *cur; + + frame = flap_frame_new(od, 0x02, 1152); + + snacid = aim_cachesnac(od, 0x0001, 0x0017, 0x0000, NULL, 0); + aim_putsnac(&frame->data, 0x0001, 0x0017, 0x0000, snacid); + + /* + * Send only the versions that the server cares about (that it + * marked as supporting in the server ready SNAC). + */ + for (cur = conn->groups; cur != NULL; cur = cur->next) + { + aim_module_t *mod; + + if ((mod = aim__findmodulebygroup(od, GPOINTER_TO_UINT(cur->data)))) + { + byte_stream_put16(&frame->data, mod->family); + byte_stream_put16(&frame->data, mod->version); + } + } + + flap_connection_send(conn, frame); +} + +/* Subtype 0x0018 - Host versions */ +static int +hostversions(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int vercount; + guint8 *versions; + + /* This is frivolous. (Thank you SmarterChild.) */ + vercount = byte_stream_empty(bs)/4; + versions = byte_stream_getraw(bs, byte_stream_empty(bs)); + free(versions); + + /* + * Now request rates. + */ + aim_srv_reqrates(od, conn); + + return 1; +} + +/* + * Subtype 0x001e - Set various account settings (mostly ICQ related). + * + * These settings are transient, not server-stored (i.e. they only + * apply to this session, and must be re-set the next time you sign + * on). + * + * You can set your ICQ status (available, away, do not disturb, + * etc.), or whether your IP address should be hidden or not, or + * if your status is visible on ICQ web sites, and you can set + * your IP address info and what not. + * + * These are the same TLVs seen in user info. You can + * also set 0x0008 and 0x000c. + * + * TODO: Combine this with the function below. + */ +int +aim_srv_setextstatus(OscarData *od, guint32 status) +{ + FlapConnection *conn; + FlapFrame *frame; + aim_snacid_t snacid; + aim_tlvlist_t *tl = NULL; + guint32 data; + + if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_ICBM))) + return -EINVAL; + + data = AIM_ICQ_STATE_HIDEIP | AIM_ICQ_STATE_DIRECTREQUIREAUTH | status; + + frame = flap_frame_new(od, 0x02, 10 + 8); + + snacid = aim_cachesnac(od, 0x0001, 0x001e, 0x0000, NULL, 0); + aim_putsnac(&frame->data, 0x0001, 0x001e, 0x0000, snacid); + + aim_tlvlist_add_32(&tl, 0x0006, data); +#if 0 + aim_tlvlist_add_raw(&tl, 0x000c, 0x0025, chunk_of_x25_bytes_with_ip_address_etc); + aim_tlvlist_add_raw(&tl, 0x0011, 0x0005, unknown 0x01 61 10 f6 41); + aim_tlvlist_add_16(&tl, 0x0012, unknown 0x00 00); +#endif + aim_tlvlist_write(&frame->data, &tl); + aim_tlvlist_free(&tl); + + flap_connection_send(conn, frame); + + return 0; +} + +/* + * Subtype 0x001e - Extended Status. + * + * Sets your "available" message. This is currently only supported by iChat + * and Gaim. + * + * These are the same TLVs seen in user info. You can + * also set 0x0008 and 0x000c. + * + * TODO: Combine this with the above function. + */ +int +aim_srv_setstatusmsg(OscarData *od, const char *msg) +{ + FlapConnection *conn; + FlapFrame *frame; + aim_snacid_t snacid; + int msglen; + + if (!od || !(conn = flap_connection_findbygroup(od, 0x0004))) + return -EINVAL; + + if (msg == NULL) + msglen = 0; + else + msglen = strlen(msg); + + frame = flap_frame_new(od, 0x02, 10 + 4 + msglen + 8); + + snacid = aim_cachesnac(od, 0x0001, 0x001e, 0x0000, NULL, 0); + aim_putsnac(&frame->data, 0x0001, 0x001e, 0x0000, snacid); + + byte_stream_put16(&frame->data, 0x001d); /* userinfo TLV type */ + byte_stream_put16(&frame->data, msglen + 8); /* total length of userinfo TLV data */ + byte_stream_put16(&frame->data, 0x0002); + byte_stream_put8(&frame->data, 0x04); + byte_stream_put8(&frame->data, msglen+4); + byte_stream_put16(&frame->data, msglen); + if (msglen > 0) + byte_stream_putstr(&frame->data, msg); + byte_stream_put16(&frame->data, 0x0000); + + flap_connection_send(conn, frame); + + return 0; +} + +/* + * Starting this past week (26 Mar 2001, say), AOL has started sending + * this nice little extra SNAC. AFAIK, it has never been used until now. + * + * The request contains eight bytes. The first four are an offset, the + * second four are a length. + * + * The offset is an offset into aim.exe when it is mapped during execution + * on Win32. So far, AOL has only been requesting bytes in static regions + * of memory. (I won't put it past them to start requesting data in + * less static regions -- regions that are initialized at run time, but still + * before the client receives this request.) + * + * When the client receives the request, it adds it to the current ds + * (0x00400000) and dereferences it, copying the data into a buffer which + * it then runs directly through the MD5 hasher. The 16 byte output of + * the hash is then sent back to the server. + * + * If the client does not send any data back, or the data does not match + * the data that the specific client should have, the client will get the + * following message from "AOL Instant Messenger": + * "You have been disconnected from the AOL Instant Message Service (SM) + * for accessing the AOL network using unauthorized software. You can + * download a FREE, fully featured, and authorized client, here + * http://www.aol.com/aim/download2.html" + * The connection is then closed, receiving disconnect code 1, URL + * http://www.aim.aol.com/errors/USER_LOGGED_OFF_NEW_LOGIN.html. + * + * Note, however, that numerous inconsistencies can cause the above error, + * not just sending back a bad hash. Do not immediatly suspect this code + * if you get disconnected. AOL and the open/free software community have + * played this game for a couple years now, generating the above message + * on numerous ocassions. + * + * Anyway, neener. We win again. + * + */ +/* Subtype 0x001f - Client verification */ +static int +memrequest(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int ret = 0; + aim_rxcallback_t userfunc; + guint32 offset, len; + aim_tlvlist_t *list; + char *modname; + + offset = byte_stream_get32(bs); + len = byte_stream_get32(bs); + list = aim_tlvlist_read(bs); + + modname = aim_tlv_getstr(list, 0x0001, 1); + + gaim_debug_info("oscar", "Got memory request for data at 0x%08lx (%d bytes) of requested %s\n", offset, len, modname ? modname : "aim.exe"); + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) + ret = userfunc(od, conn, frame, offset, len, modname); + + free(modname); + aim_tlvlist_free(&list); + + return ret; +} + +/* Subtype 0x0020 - Client verification reply */ +int +aim_sendmemblock(OscarData *od, FlapConnection *conn, guint32 offset, guint32 len, const guint8 *buf, guint8 flag) +{ + FlapFrame *frame; + aim_snacid_t snacid; + + if (!od || !conn) + return -EINVAL; + + frame = flap_frame_new(od, 0x02, 10+2+16); + + snacid = aim_cachesnac(od, 0x0001, 0x0020, 0x0000, NULL, 0); + + aim_putsnac(&frame->data, 0x0001, 0x0020, 0x0000, snacid); + byte_stream_put16(&frame->data, 0x0010); /* md5 is always 16 bytes */ + + if ((flag == AIM_SENDMEMBLOCK_FLAG_ISHASH) && buf && (len == 0x10)) { /* we're getting a hash */ + + byte_stream_putraw(&frame->data, buf, 0x10); + + } else if (buf && (len > 0)) { /* use input buffer */ + GaimCipher *cipher; + GaimCipherContext *context; + guchar digest[16]; + + cipher = gaim_ciphers_find_cipher("md5"); + + context = gaim_cipher_context_new(cipher, NULL); + gaim_cipher_context_append(context, buf, len); + gaim_cipher_context_digest(context, 16, digest, NULL); + gaim_cipher_context_destroy(context); + + byte_stream_putraw(&frame->data, digest, 0x10); + + } else if (len == 0) { /* no length, just hash NULL (buf is optional) */ + GaimCipher *cipher; + GaimCipherContext *context; + guchar digest[16]; + guint8 nil = '\0'; + + /* + * I'm not sure if we really need the empty append with the + * new MD5 functions, so I'll leave it in, just in case. + */ + cipher = gaim_ciphers_find_cipher("md5"); + + context = gaim_cipher_context_new(cipher, NULL); + gaim_cipher_context_append(context, &nil, 0); + gaim_cipher_context_digest(context, 16, digest, NULL); + gaim_cipher_context_destroy(context); + + byte_stream_putraw(&frame->data, digest, 0x10); + + } else { + + /* + * This data is correct for AIM 3.5.1670. + * + * Using these blocks is as close to "legal" as you can get + * without using an AIM binary. + * + */ + if ((offset == 0x03ffffff) && (len == 0x03ffffff)) { + +#if 1 /* with "AnrbnrAqhfzcd" */ + byte_stream_put32(&frame->data, 0x44a95d26); + byte_stream_put32(&frame->data, 0xd2490423); + byte_stream_put32(&frame->data, 0x93b8821f); + byte_stream_put32(&frame->data, 0x51c54b01); +#else /* no filename */ + byte_stream_put32(&frame->data, 0x1df8cbae); + byte_stream_put32(&frame->data, 0x5523b839); + byte_stream_put32(&frame->data, 0xa0e10db3); + byte_stream_put32(&frame->data, 0xa46d3b39); +#endif + + } else + gaim_debug_warning("oscar", "sendmemblock: unknown hash request\n"); + + } + + flap_connection_send(conn, frame); + + return 0; +} + +/* + * Subtype 0x0021 - Receive our extended status + * + * This is used for iChat's "available" messages, and maybe ICQ extended + * status messages? It's also used to tell the client whether or not it + * needs to upload an SSI buddy icon... who engineers this stuff, anyway? + */ +static int +aim_parse_extstatus(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + int ret = 0; + aim_rxcallback_t userfunc; + guint16 type; + guint8 flags, length; + + type = byte_stream_get16(bs); + flags = byte_stream_get8(bs); + length = byte_stream_get8(bs); + + /* + * A flag of 0x01 could mean "this is the checksum we have for you" + * A flag of 0x40 could mean "I don't have your icon, upload it" + */ + + if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) { + switch (type) { + case 0x0000: + case 0x0001: { /* buddy icon checksum */ + /* not sure what the difference between 1 and 0 is */ + guint8 *md5 = byte_stream_getraw(bs, length); + ret = userfunc(od, conn, frame, type, flags, length, md5); + free(md5); + } break; + case 0x0002: { /* available message */ + /* there is a second length that is just for the message */ + char *msg = byte_stream_getstr(bs, byte_stream_get16(bs)); + ret = userfunc(od, conn, frame, msg); + free(msg); + } break; + } + } + + return ret; +} + +static int +snachandler(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs) +{ + if (snac->subtype == 0x0003) + return hostonline(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x0005) + return redirect(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x0007) + return rateresp(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x000a) + return ratechange(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x000b) + return serverpause(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x000d) + return serverresume(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x000f) + return selfinfo(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x0010) + return evilnotify(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x0012) + return migrate(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x0013) + return motd(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x0018) + return hostversions(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x001f) + return memrequest(od, conn, mod, frame, snac, bs); + else if (snac->subtype == 0x0021) + return aim_parse_extstatus(od, conn, mod, frame, snac, bs); + + return 0; +} + +int service_modfirst(OscarData *od, aim_module_t *mod) +{ + mod->family = 0x0001; + mod->version = 0x0003; + mod->toolid = 0x0110; + mod->toolversion = 0x0629; + mod->flags = 0; + strncpy(mod->name, "oservice", sizeof(mod->name)); + mod->snachandler = snachandler; + + return 0; +}