/*
* aim_chat.c
*
- * Routines for the Chat service. Nothing works (yet).
+ * Routines for the Chat service.
*
*/
+#define FAIM_INTERNAL
#include <faim/aim.h>
+faim_export char *aim_chat_getname(struct aim_conn_t *conn)
+{
+ if (!conn)
+ return NULL;
+ if (conn->type != AIM_CONN_TYPE_CHAT)
+ return NULL;
+
+ return (char *)conn->priv; /* yuck ! */
+}
+
+faim_export struct aim_conn_t *aim_chat_getconn(struct aim_session_t *sess, char *name)
+{
+ struct aim_conn_t *cur;
+
+ faim_mutex_lock(&sess->connlistlock);
+ for (cur = sess->connlist; cur; cur = cur->next) {
+ if (cur->type != AIM_CONN_TYPE_CHAT)
+ continue;
+ if (!cur->priv) {
+ printf("faim: chat: chat connection with no name! (fd = %d)\n", cur->fd);
+ continue;
+ }
+ if (strcmp((char *)cur->priv, name) == 0)
+ break;
+ }
+ faim_mutex_unlock(&sess->connlistlock);
+
+ return cur;
+}
+
+faim_export int aim_chat_attachname(struct aim_conn_t *conn, char *roomname)
+{
+ if (!conn || !roomname)
+ return -1;
+
+ if (conn->priv)
+ free(conn->priv);
+
+ conn->priv = strdup(roomname);
+
+ return 0;
+}
+
+faim_export unsigned long aim_chat_send_im(struct aim_session_t *sess,
+ struct aim_conn_t *conn,
+ char *msg)
+{
+
+ int curbyte,i;
+ struct command_tx_struct *newpacket;
+ struct aim_msgcookie_t *cookie;
+
+ if (!sess || !conn || !msg)
+ return 0;
+
+ if (!(newpacket = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 1152)))
+ return -1;
+
+ newpacket->lock = 1; /* lock struct */
+
+ curbyte = 0;
+ curbyte += aim_putsnac(newpacket->data+curbyte,
+ 0x000e, 0x0005, 0x0000, sess->snac_nextid);
+
+ /*
+ * Generate a random message cookie
+ */
+ for (i=0;i<8;i++)
+ curbyte += aimutil_put8(newpacket->data+curbyte, (u_char) rand());
+
+ cookie = aim_mkcookie(newpacket->data+curbyte-8, AIM_COOKIETYPE_CHAT, NULL);
+ cookie->data = strdup(conn->priv); /* chat hack dependent */
+
+ aim_cachecookie(sess, cookie);
+
+ /*
+ * metaTLV start. -- i assume this is a metaTLV. it could be the
+ * channel ID though.
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0003);
+
+ /*
+ * Type 1: Unknown. Blank.
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0001);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0000);
+
+ /*
+ * Type 6: Unknown. Blank.
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0006);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0000);
+
+ /*
+ * Type 5: Message block. Contains more TLVs.
+ *
+ * This could include other information... We just
+ * put in a message TLV however.
+ *
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0005);
+ curbyte += aimutil_put16(newpacket->data+curbyte, strlen(msg)+4);
+
+ /*
+ * SubTLV: Type 1: Message
+ */
+ curbyte += aim_puttlv_str(newpacket->data+curbyte, 0x0001, strlen(msg), msg);
+
+ newpacket->commandlen = curbyte;
+
+ newpacket->lock = 0;
+ aim_tx_enqueue(sess, newpacket);
+
+ return (sess->snac_nextid++);
+}
+
+/*
+ * 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.
+ *
+ */
+faim_export unsigned long aim_chat_join(struct aim_session_t *sess,
+ struct aim_conn_t *conn,
+ u_short exchange,
+ const char *roomname)
+{
+ struct command_tx_struct *newpacket;
+ int i;
+
+ if (!sess || !conn || !roomname)
+ return 0;
+
+ if (!(newpacket = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 10+9+strlen(roomname)+2)))
+ return -1;
+
+ newpacket->lock = 1;
+
+ i = aim_putsnac(newpacket->data, 0x0001, 0x0004, 0x0000, sess->snac_nextid);
+
+ i+= aimutil_put16(newpacket->data+i, 0x000e);
+
+ /*
+ * this is techinally a TLV, but we can't use normal functions
+ * because we need the extraneous nulls and other weird things.
+ */
+ i+= aimutil_put16(newpacket->data+i, 0x0001);
+ i+= aimutil_put16(newpacket->data+i, 2+1+strlen(roomname)+2);
+ i+= aimutil_put16(newpacket->data+i, exchange);
+ i+= aimutil_put8(newpacket->data+i, strlen(roomname));
+ i+= aimutil_putstr(newpacket->data+i, roomname, strlen(roomname));
+ i+= aimutil_put16(newpacket->data+i, 0x0000); /* instance? */
+
+ /*
+ * Chat hack.
+ *
+ * XXX: A problem occurs here if we request a channel
+ * join but it fails....pendingjoin will be nonnull
+ * even though the channel is never going to get a
+ * redirect!
+ *
+ */
+ sess->pendingjoin = strdup(roomname);
+ sess->pendingjoinexchange = exchange;
+
+ newpacket->lock = 0;
+ aim_tx_enqueue(sess, newpacket);
+
+ aim_cachesnac(sess, 0x0001, 0x0004, 0x0000, roomname, strlen(roomname)+1);
+
+ return sess->snac_nextid;
+}
+
+faim_internal int aim_chat_readroominfo(u_char *buf, struct aim_chat_roominfo *outinfo)
+{
+ int namelen = 0;
+ int i = 0;
+
+ if (!buf || !outinfo)
+ return 0;
+
+ outinfo->exchange = aimutil_get16(buf+i);
+ i += 2;
+
+ namelen = aimutil_get8(buf+i);
+ i += 1;
+
+ outinfo->name = (char *)malloc(namelen+1);
+ memcpy(outinfo->name, buf+i, namelen);
+ outinfo->name[namelen] = '\0';
+ i += namelen;
+
+ outinfo->instance = aimutil_get16(buf+i);
+ i += 2;
+
+ return i;
+}
+
+
/*
- * FIXME: Doesn't work.
+ * General room information. Lots of stuff.
+ *
+ * Values I know are in here but I havent attached
+ * them to any of the 'Unknown's:
+ * - Language (English)
*
+ * SNAC 000e/0002
*/
-u_long aim_chat_join(struct aim_session_t *sess,
- struct aim_conn_t *conn,
- const char *roomname)
+faim_internal int aim_chat_parse_infoupdate(struct aim_session_t *sess,
+ struct command_rx_struct *command)
{
- struct command_tx_struct newpacket;
-
- newpacket.lock = 1;
- if (conn)
- newpacket.conn = conn;
- else
- newpacket.conn = aim_getconn_type(sess, AIM_CONN_TYPE_BOS);
-
- newpacket.type = 0x0002;
-
- newpacket.commandlen = 12+7+strlen(roomname)+6;
- newpacket.data = (char *) malloc(newpacket.commandlen);
- memset(newpacket.data, 0x00, newpacket.commandlen);
-
- aim_putsnac(newpacket.data, 0x0001, 0x0004, 0x0000, sess->snac_nextid);
-
- newpacket.data[10] = 0x00;
- newpacket.data[11] = 0x0e;
- newpacket.data[12] = 0x00;
- newpacket.data[13] = 0x01;
- newpacket.data[14] = 0x00;
- newpacket.data[15] = 0x0c;
- newpacket.data[16] = 0x00;
- newpacket.data[17] = 0x04;
- newpacket.data[18] = strlen(roomname) & 0x00ff;
- memcpy(&(newpacket.data[19]), roomname, strlen(roomname));
-
- {
- u_int i = 0;
- printf("\n\n\n");
- for (i = 0;i < newpacket.commandlen; i++)
- printf("0x%02x ", newpacket.data[i]);
- printf("\n\n\n");
+ struct aim_userinfo_s *userinfo = NULL;
+ rxcallback_t userfunc=NULL;
+ int ret = 1, i = 0;
+ int usercount = 0;
+ u_char detaillevel = 0;
+ char *roomname = NULL;
+ struct aim_chat_roominfo roominfo;
+ u_short tlvcount = 0;
+ struct aim_tlvlist_t *tlvlist;
+ char *roomdesc = NULL;
+ unsigned short unknown_c9 = 0;
+ unsigned long creationtime = 0;
+ unsigned short maxmsglen = 0;
+ unsigned short unknown_d2 = 0, unknown_d5 = 0;
+
+ i = 10;
+ i += aim_chat_readroominfo(command->data+i, &roominfo);
+
+ detaillevel = aimutil_get8(command->data+i);
+ i++;
+
+ if (detaillevel != 0x02) {
+ if (detaillevel == 0x01)
+ printf("faim: chat_roomupdateinfo: detail level 1 not supported\n");
+ else
+ printf("faim: chat_roomupdateinfo: unknown detail level %d\n", detaillevel);
+ return 1;
}
+
+ tlvcount = aimutil_get16(command->data+i);
+ i += 2;
- aim_tx_enqueue(sess, &newpacket);
+ /*
+ * Everything else are TLVs.
+ */
+ tlvlist = aim_readtlvchain(command->data+i, command->commandlen-i);
+
+ /*
+ * TLV type 0x006a is the room name in Human Readable Form.
+ */
+ if (aim_gettlv(tlvlist, 0x006a, 1))
+ roomname = aim_gettlv_str(tlvlist, 0x006a, 1);
- {
- struct aim_snac_t snac;
+ /*
+ * Type 0x006f: Number of occupants.
+ */
+ if (aim_gettlv(tlvlist, 0x006f, 1))
+ usercount = aim_gettlv16(tlvlist, 0x006f, 1);
+
+ /*
+ * Type 0x0073: Occupant list.
+ */
+ if (aim_gettlv(tlvlist, 0x0073, 1)) {
+ int curoccupant = 0;
+ struct aim_tlv_t *tmptlv;
- snac.id = sess->snac_nextid;
- snac.family = 0x0001;
- snac.type = 0x0004;
- snac.flags = 0x0000;
+ tmptlv = aim_gettlv(tlvlist, 0x0073, 1);
- snac.data = malloc(strlen(roomname));
- memcpy(snac.data, roomname, strlen(roomname));
+ /* Allocate enough userinfo structs for all occupants */
+ userinfo = calloc(usercount, sizeof(struct aim_userinfo_s));
+
+ i = 0;
+ while (curoccupant < usercount)
+ i += aim_extractuserinfo(tmptlv->value+i, &userinfo[curoccupant++]);
+ }
+
+ /*
+ * Type 0x00c9: Unknown. (2 bytes)
+ */
+ if (aim_gettlv(tlvlist, 0x00c9, 1))
+ unknown_c9 = aim_gettlv16(tlvlist, 0x00c9, 1);
+
+ /*
+ * Type 0x00ca: Creation time (4 bytes)
+ */
+ if (aim_gettlv(tlvlist, 0x00ca, 1))
+ creationtime = aim_gettlv32(tlvlist, 0x00ca, 1);
+
+ /*
+ * Type 0x00d1: Maximum Message Length
+ */
+ if (aim_gettlv(tlvlist, 0x00d1, 1))
+ maxmsglen = aim_gettlv16(tlvlist, 0x00d1, 1);
+
+ /*
+ * Type 0x00d2: Unknown. (2 bytes)
+ */
+ if (aim_gettlv(tlvlist, 0x00d2, 1))
+ unknown_d2 = aim_gettlv16(tlvlist, 0x00d2, 1);
- aim_newsnac(sess, &snac);
+ /*
+ * Type 0x00d3: Room Description
+ */
+ if (aim_gettlv(tlvlist, 0x00d3, 1))
+ roomdesc = aim_gettlv_str(tlvlist, 0x00d3, 1);
+
+ /*
+ * Type 0x00d5: Unknown. (1 byte)
+ */
+ if (aim_gettlv(tlvlist, 0x00d5, 1))
+ unknown_d5 = aim_gettlv8(tlvlist, 0x00d5, 1);
+
+
+ if ((userfunc = aim_callhandler(command->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_ROOMINFOUPDATE))) {
+ ret = userfunc(sess,
+ command,
+ &roominfo,
+ roomname,
+ usercount,
+ userinfo,
+ roomdesc,
+ unknown_c9,
+ creationtime,
+ maxmsglen,
+ unknown_d2,
+ unknown_d5);
+ }
+ free(roominfo.name);
+ free(userinfo);
+ free(roomname);
+ free(roomdesc);
+ aim_freetlvchain(&tlvlist);
+
+ return ret;
+}
+
+faim_internal int aim_chat_parse_joined(struct aim_session_t *sess,
+ struct command_rx_struct *command)
+{
+ struct aim_userinfo_s *userinfo = NULL;
+ rxcallback_t userfunc=NULL;
+ int i = 10, curcount = 0, ret = 1;
+
+ while (i < command->commandlen) {
+ curcount++;
+ userinfo = realloc(userinfo, curcount * sizeof(struct aim_userinfo_s));
+ i += aim_extractuserinfo(command->data+i, &userinfo[curcount-1]);
+ }
+
+ if ((userfunc = aim_callhandler(command->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_USERJOIN))) {
+ ret = userfunc(sess,
+ command,
+ curcount,
+ userinfo);
+ }
+
+ free(userinfo);
+
+ return ret;
+}
+
+faim_internal int aim_chat_parse_leave(struct aim_session_t *sess,
+ struct command_rx_struct *command)
+{
+
+ struct aim_userinfo_s *userinfo = NULL;
+ rxcallback_t userfunc=NULL;
+ int i = 10, curcount = 0, ret = 1;
+
+ while (i < command->commandlen) {
+ curcount++;
+ userinfo = realloc(userinfo, curcount * sizeof(struct aim_userinfo_s));
+ i += aim_extractuserinfo(command->data+i, &userinfo[curcount-1]);
}
+ if ((userfunc = aim_callhandler(command->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_USERLEAVE))) {
+ ret = userfunc(sess,
+ command,
+ curcount,
+ userinfo);
+ }
+
+ free(userinfo);
+
+ return ret;
+}
+
+/*
+ * 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.
+ */
+faim_internal int aim_chat_parse_incoming(struct aim_session_t *sess,
+ struct command_rx_struct *command)
+{
+ struct aim_userinfo_s userinfo;
+ rxcallback_t userfunc=NULL;
+ int ret = 1, i = 0, z = 0;
+ unsigned char cookie[8];
+ int channel;
+ struct aim_tlvlist_t *outerlist;
+ char *msg = NULL;
+ struct aim_msgcookie_t *ck;
+
+ memset(&userinfo, 0x00, sizeof(struct aim_userinfo_s));
+
+ i = 10; /* skip snac */
+
+ /*
+ * ICBM Cookie. Cache it.
+ */
+ for (z=0; z<8; z++,i++)
+ cookie[z] = command->data[i];
+
+ if ((ck = aim_uncachecookie(sess, cookie, AIM_COOKIETYPE_CHAT))) {
+ if (ck->data)
+ free(ck->data);
+ free(ck);
+ }
+
+ /*
+ * Channel ID
+ *
+ * Channels 1 and 2 are implemented in the normal ICBM
+ * parser.
+ *
+ * We only do channel 3 here.
+ *
+ */
+ channel = aimutil_get16(command->data+i);
+ i += 2;
+
+ if (channel != 0x0003) {
+ printf("faim: chat_incoming: unknown channel! (0x%04x)\n", channel);
+ return 1;
+ }
+
+ /*
+ * Start parsing TLVs right away.
+ */
+ outerlist = aim_readtlvchain(command->data+i, command->commandlen-i);
+
+ /*
+ * Type 0x0003: Source User Information
+ */
+ if (aim_gettlv(outerlist, 0x0003, 1)) {
+ struct aim_tlv_t *userinfotlv;
+
+ userinfotlv = aim_gettlv(outerlist, 0x0003, 1);
+ aim_extractuserinfo(userinfotlv->value, &userinfo);
+ }
+
+ /*
+ * Type 0x0001: Unknown.
+ */
+ if (aim_gettlv(outerlist, 0x0001, 1))
+ ;
+
+ /*
+ * Type 0x0005: Message Block. Conains more TLVs.
+ */
+ if (aim_gettlv(outerlist, 0x0005, 1))
+ {
+ struct aim_tlvlist_t *innerlist;
+ struct aim_tlv_t *msgblock;
+
+ msgblock = aim_gettlv(outerlist, 0x0005, 1);
+ innerlist = aim_readtlvchain(msgblock->value, msgblock->length);
+
+ /*
+ * Type 0x0001: Message.
+ */
+ if (aim_gettlv(innerlist, 0x0001, 1))
+ msg = aim_gettlv_str(innerlist, 0x0001, 1);
+
+ aim_freetlvchain(&innerlist);
+ }
+
+ userfunc = aim_callhandler(command->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_INCOMINGMSG);
+ if (userfunc)
+ {
+ ret = userfunc(sess,
+ command,
+ &userinfo,
+ msg);
+ }
+ free(msg);
+ aim_freetlvchain(&outerlist);
+
+ return ret;
+}
+
+faim_export unsigned long aim_chat_clientready(struct aim_session_t *sess,
+ struct aim_conn_t *conn)
+{
+ struct command_tx_struct *newpacket;
+ int i;
+
+ if (!(newpacket = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 0x20)))
+ return -1;
+
+ newpacket->lock = 1;
+
+ i = aim_putsnac(newpacket->data, 0x0001, 0x0002, 0x0000, sess->snac_nextid);
+
+ i+= aimutil_put16(newpacket->data+i, 0x000e);
+ i+= aimutil_put16(newpacket->data+i, 0x0001);
+
+ i+= aimutil_put16(newpacket->data+i, 0x0004);
+ i+= aimutil_put16(newpacket->data+i, 0x0001);
+
+ i+= aimutil_put16(newpacket->data+i, 0x0001);
+ i+= aimutil_put16(newpacket->data+i, 0x0003);
+
+ i+= aimutil_put16(newpacket->data+i, 0x0004);
+ i+= aimutil_put16(newpacket->data+i, 0x0686);
+
+ newpacket->lock = 0;
+ aim_tx_enqueue(sess, newpacket);
+
+ return (sess->snac_nextid++);
+}
+
+faim_export int aim_chat_leaveroom(struct aim_session_t *sess, char *name)
+{
+ struct aim_conn_t *conn;
+
+ if ((conn = aim_chat_getconn(sess, name)))
+ aim_conn_close(conn);
+
+ if (!conn)
+ return -1;
+ return 0;
+}
+
+/*
+ * conn must be a BOS connection!
+ */
+faim_export unsigned long aim_chat_invite(struct aim_session_t *sess,
+ struct aim_conn_t *conn,
+ char *sn,
+ char *msg,
+ u_short exchange,
+ char *roomname,
+ u_short instance)
+{
+ struct command_tx_struct *newpacket;
+ int i,curbyte=0;
+ struct aim_msgcookie_t *cookie;
+ struct aim_invite_priv *priv;
+
+ if (!sess || !conn || !sn || !msg || !roomname)
+ return -1;
+
+ if (conn->type != AIM_CONN_TYPE_BOS)
+ return -1;
+
+ if (!(newpacket = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 1152+strlen(sn)+strlen(roomname)+strlen(msg))))
+ return -1;
+
+ newpacket->lock = 1;
+
+ curbyte = aim_putsnac(newpacket->data, 0x0004, 0x0006, 0x0000, sess->snac_nextid);
+
+ /*
+ * Cookie
+ */
+ for (i=0;i<8;i++)
+ curbyte += aimutil_put8(newpacket->data+curbyte, (u_char)rand());
+
+ /* XXX this should get uncached by the unwritten 'invite accept' handler */
+ if(!(priv = calloc(sizeof(struct aim_invite_priv), 1)))
+ return -1;
+ priv->sn = strdup(sn);
+ priv->roomname = strdup(roomname);
+ priv->exchange = exchange;
+ priv->instance = instance;
+
+ if(!(cookie = aim_mkcookie(newpacket->data+curbyte-8, AIM_COOKIETYPE_INVITE, priv)))
+ return -1;
+ aim_cachecookie(sess, cookie);
+
+ /*
+ * Channel (2)
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0002);
+
+ /*
+ * Dest sn
+ */
+ curbyte += aimutil_put8(newpacket->data+curbyte, strlen(sn));
+ curbyte += aimutil_putstr(newpacket->data+curbyte, sn, strlen(sn));
+
+ /*
+ * TLV t(0005)
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0005);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x28+strlen(msg)+0x04+0x03+strlen(roomname)+0x02);
+
+ /*
+ * Unknown info
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0000);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x3131);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x3538);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x3446);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x4100);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x748f);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x2420);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x6287);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x11d1);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x8222);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x4445);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x5354);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0000);
+
+ /*
+ * TLV t(000a) -- Unknown
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x000a);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0002);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0001);
+
+ /*
+ * TLV t(000f) -- Unknown
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x000f);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x0000);
+
+ /*
+ * TLV t(000c) -- Invitation message
+ */
+ curbyte += aim_puttlv_str(newpacket->data+curbyte, 0x000c, strlen(msg), msg);
+
+ /*
+ * TLV t(2711) -- Container for room information
+ */
+ curbyte += aimutil_put16(newpacket->data+curbyte, 0x2711);
+ curbyte += aimutil_put16(newpacket->data+curbyte, 3+strlen(roomname)+2);
+ curbyte += aimutil_put16(newpacket->data+curbyte, exchange);
+ curbyte += aimutil_put8(newpacket->data+curbyte, strlen(roomname));
+ curbyte += aimutil_putstr(newpacket->data+curbyte, roomname, strlen(roomname));
+ curbyte += aimutil_put16(newpacket->data+curbyte, instance);
+
+ newpacket->commandlen = curbyte;
+ newpacket->lock = 0;
+ aim_tx_enqueue(sess, newpacket);
+
return (sess->snac_nextid++);
}
andersk / libfaim.git / blobdiff