[libfaim.git] / src / chat.c

/*
 * aim_chat.c
 *
 * Routines for the Chat service.
 *
 */

#define FAIM_INTERNAL
#include <aim.h> 

faim_export char *aim_chat_getname(aim_conn_t *conn)
{
	
	if (!conn)
		return NULL;
	
	if (conn->type != AIM_CONN_TYPE_CHAT)
		return NULL;

	return (char *)conn->priv; /* yuck ! */
}

/* XXX get this into conn.c -- evil!! */
faim_export aim_conn_t *aim_chat_getconn(aim_session_t *sess, const char *name)
{
	aim_conn_t *cur;

	for (cur = sess->connlist; cur; cur = cur->next) {
		if (cur->type != AIM_CONN_TYPE_CHAT)
			continue;
		if (!cur->priv) {
			faimdprintf(sess, 0, "faim: chat: chat connection with no name! (fd = %d)\n", cur->fd);
			continue;
		}
		if (strcmp((char *)cur->priv, name) == 0)
			break;
	}

	return cur;
}

faim_export int aim_chat_attachname(aim_conn_t *conn, const char *roomname)
{

	if (!conn || !roomname)
		return -EINVAL;

	if (conn->priv)
		free(conn->priv);

	conn->priv = strdup(roomname);

	return 0;
}

/*
 * Send a Chat Message.
 *
 * Possible flags:
 *   AIM_CHATFLAGS_NOREFLECT   --  Unset the flag that requests messages
 *                                 should be sent to their sender.
 *   AIM_CHATFLAGS_AWAY        --  Mark the message as an autoresponse
 *                                 (Note that WinAIM does not honor this,
 *                                 and displays the message as normal.)
 *
 * XXX convert this to use tlvchains 
 */
faim_export int aim_chat_send_im(aim_session_t *sess, aim_conn_t *conn, fu16_t flags, const char *msg, int msglen)
{   
	int i;
	aim_frame_t *fr;
	aim_msgcookie_t *cookie;
	aim_snacid_t snacid;
	fu8_t ckstr[8];
	aim_tlvlist_t *otl = NULL, *itl = NULL;

	if (!sess || !conn || !msg || (msglen <= 0))
		return 0;

	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1152)))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x000e, 0x0005, 0x0000, NULL, 0);
	aim_putsnac(&fr->data, 0x000e, 0x0005, 0x0000, snacid);


	/* 
	 * Generate a random message cookie.
	 *
	 * XXX mkcookie should generate the cookie and cache it in one
	 * operation to preserve uniqueness.
	 *
	 */
	for (i = 0; i < sizeof(ckstr); i++)
		aimutil_put8(ckstr+i, (fu8_t) rand());

	cookie = aim_mkcookie(ckstr, AIM_COOKIETYPE_CHAT, NULL);
	cookie->data = strdup(conn->priv); /* chat hack dependent */

	aim_cachecookie(sess, cookie);

	for (i = 0; i < sizeof(ckstr); i++)
		aimbs_put8(&fr->data, ckstr[i]);


	/*
	 * Channel ID. 
	 */
	aimbs_put16(&fr->data, 0x0003);


	/*
	 * Type 1: Flag meaning this message is destined to the room.
	 */
	aim_addtlvtochain_noval(&otl, 0x0001);

	/*
	 * Type 6: Reflect
	 */
	if (!(flags & AIM_CHATFLAGS_NOREFLECT))
		aim_addtlvtochain_noval(&otl, 0x0006);

	/*
	 * Type 7: Autoresponse
	 */
	if (flags & AIM_CHATFLAGS_AWAY)
		aim_addtlvtochain_noval(&otl, 0x0007);

	/*
	 * SubTLV: Type 1: Message
	 */
	aim_addtlvtochain_raw(&itl, 0x0001, strlen(msg), msg);

	/*
	 * Type 5: Message block.  Contains more TLVs.
	 *
	 * This could include other information... We just
	 * put in a message TLV however.  
	 * 
	 */
	aim_addtlvtochain_frozentlvlist(&otl, 0x0005, &itl);

	aim_writetlvchain(&fr->data, &otl);
	
	aim_freetlvchain(&itl);
	aim_freetlvchain(&otl);
	
	aim_tx_enqueue(sess, fr);

	return 0;
}

static int aim_addtlvtochain_chatroom(aim_tlvlist_t **list, fu16_t type, fu16_t exchange, const char *roomname, fu16_t instance)
{
	fu8_t *buf;
	int buflen;
	aim_bstream_t bs;

	buflen = 2 + 1 + strlen(roomname) + 2;
	
	if (!(buf = malloc(buflen)))
		return 0;

	aim_bstream_init(&bs, buf, buflen);

	aimbs_put16(&bs, exchange);
	aimbs_put8(&bs, strlen(roomname));
	aimbs_putraw(&bs, roomname, strlen(roomname));
	aimbs_put16(&bs, instance);

	aim_addtlvtochain_raw(list, type, aim_bstream_curpos(&bs), buf);

	free(buf);

	return 0;
}

/*
 * 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 int aim_chat_join(aim_session_t *sess, aim_conn_t *conn, fu16_t exchange, const char *roomname, fu16_t instance)
{
	aim_frame_t *fr;
	aim_snacid_t snacid;
	aim_tlvlist_t *tl = NULL;
	
	if (!sess || !conn || !roomname || !strlen(roomname))
		return -EINVAL;

	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+9+strlen(roomname)+2)))
		return -ENOMEM;


	snacid = aim_cachesnac(sess, 0x0001, 0x0004, 0x0000, roomname, strlen(roomname)+1);
	aim_putsnac(&fr->data, 0x0001, 0x0004, 0x0000, snacid);

	/*
	 * Requesting service chat (0x000e)
	 */
	aimbs_put16(&fr->data, 0x000e);

	aim_addtlvtochain_chatroom(&tl, 0x0001, exchange, roomname, instance);
	aim_writetlvchain(&fr->data, &tl);
	aim_freetlvchain(&tl);

	/*
	 * 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;

	aim_tx_enqueue(sess, fr);

	return 0; 
}

faim_internal int aim_chat_readroominfo(aim_bstream_t *bs, struct aim_chat_roominfo *outinfo)
{
	int namelen;

	if (!bs || !outinfo)
		return 0;

	outinfo->exchange = aimbs_get16(bs);
	namelen = aimbs_get8(bs);
	outinfo->name = aimbs_getstr(bs, namelen);
	outinfo->instance = aimbs_get16(bs);

	return 0;
}

faim_export int aim_chat_clientready(aim_session_t *sess, aim_conn_t *conn)
{
	aim_frame_t *fr;
	aim_snacid_t snacid;

	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 0x20)))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x0001, 0x0002, 0x0000, NULL, 0);
	aim_putsnac(&fr->data, 0x0001, 0x0002, 0x0000, snacid);

	aimbs_put16(&fr->data, 0x000e);
	aimbs_put16(&fr->data, 0x0001);

	aimbs_put16(&fr->data, 0x0004);
	aimbs_put16(&fr->data, 0x0001);

	aimbs_put16(&fr->data, 0x0001);
	aimbs_put16(&fr->data, 0x0003);

	aimbs_put16(&fr->data, 0x0004);
	aimbs_put16(&fr->data, 0x0686);

	aim_tx_enqueue(sess, fr);

	return 0;
}

faim_export int aim_chat_leaveroom(aim_session_t *sess, const char *name)
{
	aim_conn_t *conn;

	if (!(conn = aim_chat_getconn(sess, name)))
		return -ENOENT;

	aim_conn_close(conn);

	return 0;
}

/*
 * conn must be a BOS connection!
 */
faim_export int aim_chat_invite(aim_session_t *sess, aim_conn_t *conn, const char *sn, const char *msg, fu16_t exchange, const char *roomname, fu16_t instance)
{
	int i;
	aim_frame_t *fr;
	aim_msgcookie_t *cookie;
	struct aim_invite_priv *priv;
	fu8_t ckstr[8];
	aim_snacid_t snacid;
	aim_tlvlist_t *otl = NULL, *itl = NULL;
	fu8_t *hdr;
	int hdrlen;
	aim_bstream_t hdrbs;
	
	if (!sess || !conn || !sn || !msg || !roomname)
		return -EINVAL;

	if (conn->type != AIM_CONN_TYPE_BOS)
		return -EINVAL;

	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1152+strlen(sn)+strlen(roomname)+strlen(msg))))
		return -ENOMEM;

	snacid = aim_cachesnac(sess, 0x0004, 0x0006, 0x0000, sn, strlen(sn)+1);
	aim_putsnac(&fr->data, 0x0004, 0x0006, 0x0000, snacid);


	/*
	 * Cookie
	 */
	for (i = 0; i < sizeof(ckstr); i++)
		aimutil_put8(ckstr, (fu8_t) rand());

	/* XXX should be uncached by an unwritten 'invite accept' handler */
	if ((priv = malloc(sizeof(struct aim_invite_priv)))) {
		priv->sn = strdup(sn);
		priv->roomname = strdup(roomname);
		priv->exchange = exchange;
		priv->instance = instance;
	}

	if ((cookie = aim_mkcookie(ckstr, AIM_COOKIETYPE_INVITE, priv)))
		aim_cachecookie(sess, cookie);
	else
		free(priv);

	for (i = 0; i < sizeof(ckstr); i++)
		aimbs_put8(&fr->data, ckstr[i]);


	/*
	 * Channel (2)
	 */
	aimbs_put16(&fr->data, 0x0002);

	/*
	 * Dest sn
	 */
	aimbs_put8(&fr->data, strlen(sn));
	aimbs_putraw(&fr->data, sn, strlen(sn));

	/*
	 * TLV t(0005)
	 *
	 * Everything else is inside this TLV.
	 *
	 * Sigh.  AOL was rather inconsistent right here.  So we have
	 * to play some minor tricks.  Right inside the type 5 is some
	 * raw data, followed by a series of TLVs.  
	 *
	 */
	hdrlen = 2+8+16+6+4+4+strlen(msg)+4+2+1+strlen(roomname)+2;
	hdr = malloc(hdrlen);
	aim_bstream_init(&hdrbs, hdr, hdrlen);
	
	aimbs_put16(&hdrbs, 0x0000); /* Unknown! */
	aimbs_putraw(&hdrbs, ckstr, sizeof(ckstr)); /* I think... */
	aim_putcap(&hdrbs, AIM_CAPS_CHAT);

	aim_addtlvtochain16(&itl, 0x000a, 0x0001);
	aim_addtlvtochain_noval(&itl, 0x000f);
	aim_addtlvtochain_raw(&itl, 0x000c, strlen(msg), msg);
	aim_addtlvtochain_chatroom(&itl, 0x2711, exchange, roomname, instance);
	aim_writetlvchain(&hdrbs, &itl);
	
	aim_addtlvtochain_raw(&otl, 0x0005, aim_bstream_curpos(&hdrbs), hdr);

	aim_writetlvchain(&fr->data, &otl);

	free(hdr);
	aim_freetlvchain(&itl);
	aim_freetlvchain(&otl);
	
	aim_tx_enqueue(sess, fr);

	return 0;
}

/*
 * 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
 */
static int infoupdate(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
{
	struct aim_userinfo_s *userinfo = NULL;
	aim_rxcallback_t userfunc;
	int ret = 0;
	int usercount = 0;
	fu8_t detaillevel = 0;
	char *roomname = NULL;
	struct aim_chat_roominfo roominfo;
	fu16_t tlvcount = 0;
	aim_tlvlist_t *tlvlist;
	char *roomdesc = NULL;
	fu16_t unknown_c9 = 0;
	fu32_t creationtime = 0;
	fu16_t maxmsglen = 0, maxvisiblemsglen = 0;
	fu16_t unknown_d2 = 0, unknown_d5 = 0;

	aim_chat_readroominfo(bs, &roominfo);

	detaillevel = aimbs_get8(bs);

	if (detaillevel != 0x02) {
		faimdprintf(sess, 0, "faim: chat_roomupdateinfo: detail level %d not supported\n", detaillevel);
		return 1;
	}

	tlvcount = aimbs_get16(bs);

	/*
	 * Everything else are TLVs.
	 */ 
	tlvlist = aim_readtlvchain(bs);

	/*
	 * TLV type 0x006a is the room name in Human Readable Form.
	 */
	if (aim_gettlv(tlvlist, 0x006a, 1))
		roomname = aim_gettlv_str(tlvlist, 0x006a, 1);

	/*
	 * 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;
		aim_tlv_t *tmptlv;
		aim_bstream_t occbs;

		tmptlv = aim_gettlv(tlvlist, 0x0073, 1);

		/* Allocate enough userinfo structs for all occupants */
		userinfo = calloc(usercount, sizeof(struct aim_userinfo_s));

		aim_bstream_init(&occbs, tmptlv->value, tmptlv->length);

		while (curoccupant < usercount)
			aim_extractuserinfo(sess, &occbs, &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);

	/* 
	 * Type 0x00d3: Room Description
	 */
	if (aim_gettlv(tlvlist, 0x00d3, 1))
		roomdesc = aim_gettlv_str(tlvlist, 0x00d3, 1);

	/*
	 * Type 0x000d4: Unknown (flag only)
	 */
	if (aim_gettlv(tlvlist, 0x000d4, 1))
		;

	/* 
	 * Type 0x00d5: Unknown. (1 byte)
	 */
	if (aim_gettlv(tlvlist, 0x00d5, 1))
		unknown_d5 = aim_gettlv8(tlvlist, 0x00d5, 1);


	/*
	 * Type 0x00d6: Encoding 1 ("us-ascii")
	 */
	if (aim_gettlv(tlvlist, 0x000d6, 1))
		;
	
	/*
	 * Type 0x00d7: Language 1 ("en")
	 */
	if (aim_gettlv(tlvlist, 0x000d7, 1))
		;

	/*
	 * Type 0x00d8: Encoding 2 ("us-ascii")
	 */
	if (aim_gettlv(tlvlist, 0x000d8, 1))
		;
	
	/*
	 * Type 0x00d9: Language 2 ("en")
	 */
	if (aim_gettlv(tlvlist, 0x000d9, 1))
		;

	/*
	 * Type 0x00da: Maximum visible message length
	 */
	if (aim_gettlv(tlvlist, 0x000da, 1))
		maxvisiblemsglen = aim_gettlv16(tlvlist, 0x00da, 1);

	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype))) {
		ret = userfunc(sess,
				rx, 
				&roominfo,
				roomname,
				usercount,
				userinfo,	
				roomdesc,
				unknown_c9,
				creationtime,
				maxmsglen,
				unknown_d2,
				unknown_d5,
				maxvisiblemsglen);
	}

	free(roominfo.name);
	free(userinfo);
	free(roomname);
	free(roomdesc);
	aim_freetlvchain(&tlvlist);

	return ret;
}

static int userlistchange(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
{
	struct aim_userinfo_s *userinfo = NULL;
	aim_rxcallback_t userfunc;
	int curcount = 0, ret = 0;

	while (aim_bstream_empty(bs)) {
		curcount++;
		userinfo = realloc(userinfo, curcount * sizeof(struct aim_userinfo_s));
		aim_extractuserinfo(sess, bs, &userinfo[curcount-1]);
	}

	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
		ret = userfunc(sess, rx, 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.
 *
 * 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 incomingmsg(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
{
	struct aim_userinfo_s userinfo;
	aim_rxcallback_t userfunc;	
	int ret = 0;
	fu8_t *cookie;
	fu16_t channel;
	aim_tlvlist_t *otl;
	char *msg = NULL;
	aim_msgcookie_t *ck;

	memset(&userinfo, 0, sizeof(struct aim_userinfo_s));

	/*
	 * ICBM Cookie.  Uncache it.
	 */
	cookie = aimbs_getraw(bs, 8);

	if ((ck = aim_uncachecookie(sess, cookie, AIM_COOKIETYPE_CHAT))) {
		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 = aimbs_get16(bs);

	if (channel != 0x0003) {
		faimdprintf(sess, 0, "faim: chat_incoming: unknown channel! (0x%04x)\n", channel);
		return 0;
	}

	/*
	 * Start parsing TLVs right away. 
	 */
	otl = aim_readtlvchain(bs);

	/*
	 * Type 0x0003: Source User Information
	 */
	if (aim_gettlv(otl, 0x0003, 1)) {
		aim_tlv_t *userinfotlv;
		aim_bstream_t tbs;

		userinfotlv = aim_gettlv(otl, 0x0003, 1);

		aim_bstream_init(&tbs, userinfotlv->value, userinfotlv->length);
		aim_extractuserinfo(sess, &tbs, &userinfo);
	}

	/*
	 * Type 0x0001: If present, it means it was a message to the 
	 * room (as opposed to a whisper).
	 */
	if (aim_gettlv(otl, 0x0001, 1))
		;

	/*
	 * Type 0x0005: Message Block.  Conains more TLVs.
	 */
	if (aim_gettlv(otl, 0x0005, 1)) {
		aim_tlvlist_t *itl;
		aim_tlv_t *msgblock;
		aim_bstream_t tbs;

		msgblock = aim_gettlv(otl, 0x0005, 1);
		aim_bstream_init(&tbs, msgblock->value, msgblock->length);
		itl = aim_readtlvchain(&tbs);

		/* 
		 * Type 0x0001: Message.
		 */	
		if (aim_gettlv(itl, 0x0001, 1))
			msg = aim_gettlv_str(itl, 0x0001, 1);

		aim_freetlvchain(&itl); 
	}

	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
		ret = userfunc(sess, rx, &userinfo, msg);

	free(cookie);
	free(msg);
	aim_freetlvchain(&otl);

	return ret;
}

static int snachandler(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
{

	if (snac->subtype == 0x0002)
		return infoupdate(sess, mod, rx, snac, bs);
	else if ((snac->subtype == 0x0003) || (snac->subtype == 0x0004))
		return userlistchange(sess, mod, rx, snac, bs);
	else if (snac->subtype == 0x0006)
		return incomingmsg(sess, mod, rx, snac, bs);

	return 0;
}

faim_internal int chat_modfirst(aim_session_t *sess, aim_module_t *mod)
{

	mod->family = 0x000e;
	mod->version = 0x0000;
	mod->flags = 0;
	strncpy(mod->name, "chat", sizeof(mod->name));
	mod->snachandler = snachandler;

	return 0;
}
Commit	Line	Data
9de3ca7e	1	/*
	2	* aim_chat.c
	3	*
aa6efcfd	4	* Routines for the Chat service.
9de3ca7e	5	*
	6	*/
	7
37ee990e	8	#define FAIM_INTERNAL
dd60ff8b	9	#include <aim.h>
9de3ca7e	10
d410cf58	11	faim_export char aim_chat_getname(aim_conn_t conn)
0c20631f	12	{
d410cf58	13
	14	if (!conn)
	15	return NULL;
	16
	17	if (conn->type != AIM_CONN_TYPE_CHAT)
	18	return NULL;
0c20631f	19
d410cf58	20	return (char )conn->priv; / yuck ! */
0c20631f	21	}
0c20631f	22
031c2fb3	23	/* XXX get this into conn.c -- evil!! */
d410cf58	24	faim_export aim_conn_t aim_chat_getconn(aim_session_t sess, const char *name)
0c20631f	25	{
d410cf58	26	aim_conn_t *cur;
d410cf58	27
d410cf58	28	for (cur = sess->connlist; cur; cur = cur->next) {
	29	if (cur->type != AIM_CONN_TYPE_CHAT)
	30	continue;
	31	if (!cur->priv) {
	32	faimdprintf(sess, 0, "faim: chat: chat connection with no name! (fd = %d)\n", cur->fd);
	33	continue;
	34	}
	35	if (strcmp((char *)cur->priv, name) == 0)
	36	break;
	37	}
d410cf58	38
d410cf58	39	return cur;
0c20631f	40	}
0c20631f	41
d410cf58	42	faim_export int aim_chat_attachname(aim_conn_t conn, const char roomname)
0c20631f	43	{
0c20631f	44
d410cf58	45	if (!conn \|\| !roomname)
	46	return -EINVAL;
	47
	48	if (conn->priv)
	49	free(conn->priv);
9d2a3582	50
d410cf58	51	conn->priv = strdup(roomname);
0c20631f	52
d410cf58	53	return 0;
0c20631f	54	}
0c20631f	55
a2244dd9	56	/*
	57	* Send a Chat Message.
	58	*
	59	* Possible flags:
	60	* AIM_CHATFLAGS_NOREFLECT -- Unset the flag that requests messages
	61	* should be sent to their sender.
	62	* AIM_CHATFLAGS_AWAY -- Mark the message as an autoresponse
	63	* (Note that WinAIM does not honor this,
	64	* and displays the message as normal.)
	65	*
	66	* XXX convert this to use tlvchains
	67	*/
d410cf58	68	faim_export int aim_chat_send_im(aim_session_t sess, aim_conn_t conn, fu16_t flags, const char *msg, int msglen)
0c20631f	69	{
d410cf58	70	int i;
	71	aim_frame_t *fr;
	72	aim_msgcookie_t *cookie;
	73	aim_snacid_t snacid;
	74	fu8_t ckstr[8];
	75	aim_tlvlist_t otl = NULL, itl = NULL;
	76
	77	if (!sess \|\| !conn \|\| !msg \|\| (msglen <= 0))
	78	return 0;
	79
	80	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1152)))
	81	return -ENOMEM;
	82
	83	snacid = aim_cachesnac(sess, 0x000e, 0x0005, 0x0000, NULL, 0);
	84	aim_putsnac(&fr->data, 0x000e, 0x0005, 0x0000, snacid);
	85
0c20631f	86
d410cf58	87	/*
	88	* Generate a random message cookie.
	89	*
	90	* XXX mkcookie should generate the cookie and cache it in one
	91	* operation to preserve uniqueness.
	92	*
	93	*/
	94	for (i = 0; i < sizeof(ckstr); i++)
	95	aimutil_put8(ckstr+i, (fu8_t) rand());
	96
	97	cookie = aim_mkcookie(ckstr, AIM_COOKIETYPE_CHAT, NULL);
	98	cookie->data = strdup(conn->priv); /* chat hack dependent */
	99
	100	aim_cachecookie(sess, cookie);
	101
	102	for (i = 0; i < sizeof(ckstr); i++)
	103	aimbs_put8(&fr->data, ckstr[i]);
	104
	105
	106	/*
	107	* Channel ID.
	108	*/
	109	aimbs_put16(&fr->data, 0x0003);
	110
	111
	112	/*
	113	* Type 1: Flag meaning this message is destined to the room.
	114	*/
	115	aim_addtlvtochain_noval(&otl, 0x0001);
	116
	117	/*
	118	* Type 6: Reflect
	119	*/
	120	if (!(flags & AIM_CHATFLAGS_NOREFLECT))
	121	aim_addtlvtochain_noval(&otl, 0x0006);
	122
	123	/*
	124	* Type 7: Autoresponse
	125	*/
	126	if (flags & AIM_CHATFLAGS_AWAY)
	127	aim_addtlvtochain_noval(&otl, 0x0007);
	128
	129	/*
	130	* SubTLV: Type 1: Message
	131	*/
	132	aim_addtlvtochain_raw(&itl, 0x0001, strlen(msg), msg);
	133
	134	/*
	135	* Type 5: Message block. Contains more TLVs.
	136	*
	137	* This could include other information... We just
	138	* put in a message TLV however.
	139	*
	140	*/
	141	aim_addtlvtochain_frozentlvlist(&otl, 0x0005, &itl);
	142
	143	aim_writetlvchain(&fr->data, &otl);
	144
	145	aim_freetlvchain(&itl);
	146	aim_freetlvchain(&otl);
	147
	148	aim_tx_enqueue(sess, fr);
	149
	150	return 0;
0c20631f	151	}
0c20631f	152
d410cf58	153	static int aim_addtlvtochain_chatroom(aim_tlvlist_t *list, fu16_t type, fu16_t exchange, const char roomname, fu16_t instance)
9de3ca7e	154	{
d410cf58	155	fu8_t *buf;
	156	int buflen;
	157	aim_bstream_t bs;
	158
	159	buflen = 2 + 1 + strlen(roomname) + 2;
	160
	161	if (!(buf = malloc(buflen)))
	162	return 0;
	163
	164	aim_bstream_init(&bs, buf, buflen);
	165
	166	aimbs_put16(&bs, exchange);
	167	aimbs_put8(&bs, strlen(roomname));
	168	aimbs_putraw(&bs, roomname, strlen(roomname));
	169	aimbs_put16(&bs, instance);
	170
	171	aim_addtlvtochain_raw(list, type, aim_bstream_curpos(&bs), buf);
	172
	173	free(buf);
	174
	175	return 0;
0c20631f	176	}
0c20631f	177
d410cf58	178	/*
	179	* Join a room of name roomname. This is the first step to joining an
	180	* already created room. It's basically a Service Request for
	181	* family 0x000e, with a little added on to specify the exchange and room
	182	* name.
	183	*/
	184	faim_export int aim_chat_join(aim_session_t sess, aim_conn_t conn, fu16_t exchange, const char *roomname, fu16_t instance)
0c20631f	185	{
d410cf58	186	aim_frame_t *fr;
	187	aim_snacid_t snacid;
	188	aim_tlvlist_t *tl = NULL;
	189
	190	if (!sess \|\| !conn \|\| !roomname \|\| !strlen(roomname))
	191	return -EINVAL;
	192
	193	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+9+strlen(roomname)+2)))
	194	return -ENOMEM;
	195
0c20631f	196
d410cf58	197	snacid = aim_cachesnac(sess, 0x0001, 0x0004, 0x0000, roomname, strlen(roomname)+1);
d410cf58	198	aim_putsnac(&fr->data, 0x0001, 0x0004, 0x0000, snacid);
0c20631f	199
d410cf58	200	/*
	201	* Requesting service chat (0x000e)
	202	*/
	203	aimbs_put16(&fr->data, 0x000e);
0c20631f	204
d410cf58	205	aim_addtlvtochain_chatroom(&tl, 0x0001, exchange, roomname, instance);
	206	aim_writetlvchain(&fr->data, &tl);
	207	aim_freetlvchain(&tl);
	208
	209	/*
	210	* Chat hack.
	211	*
	212	* XXX: A problem occurs here if we request a channel
	213	* join but it fails....pendingjoin will be nonnull
	214	* even though the channel is never going to get a
	215	* redirect!
	216	*
	217	*/
	218	sess->pendingjoin = strdup(roomname);
	219	sess->pendingjoinexchange = exchange;
0c20631f	220
d410cf58	221	aim_tx_enqueue(sess, fr);
0c20631f	222
d410cf58	223	return 0;
78b3fb13	224	}
0c20631f	225
d410cf58	226	faim_internal int aim_chat_readroominfo(aim_bstream_t bs, struct aim_chat_roominfo outinfo)
00ef5271	227	{
d410cf58	228	int namelen;
	229
	230	if (!bs \|\| !outinfo)
	231	return 0;
	232
	233	outinfo->exchange = aimbs_get16(bs);
	234	namelen = aimbs_get8(bs);
	235	outinfo->name = aimbs_getstr(bs, namelen);
	236	outinfo->instance = aimbs_get16(bs);
	237
	238	return 0;
	239	}
00ef5271	240
d410cf58	241	faim_export int aim_chat_clientready(aim_session_t sess, aim_conn_t conn)
	242	{
	243	aim_frame_t *fr;
	244	aim_snacid_t snacid;
00ef5271	245
d410cf58	246	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 0x20)))
d410cf58	247	return -ENOMEM;
00ef5271	248
d410cf58	249	snacid = aim_cachesnac(sess, 0x0001, 0x0002, 0x0000, NULL, 0);
d410cf58	250	aim_putsnac(&fr->data, 0x0001, 0x0002, 0x0000, snacid);
00ef5271	251
d410cf58	252	aimbs_put16(&fr->data, 0x000e);
d410cf58	253	aimbs_put16(&fr->data, 0x0001);
00ef5271	254
d410cf58	255	aimbs_put16(&fr->data, 0x0004);
d410cf58	256	aimbs_put16(&fr->data, 0x0001);
00ef5271	257
d410cf58	258	aimbs_put16(&fr->data, 0x0001);
d410cf58	259	aimbs_put16(&fr->data, 0x0003);
00ef5271	260
d410cf58	261	aimbs_put16(&fr->data, 0x0004);
d410cf58	262	aimbs_put16(&fr->data, 0x0686);
00ef5271	263
d410cf58	264	aim_tx_enqueue(sess, fr);
00ef5271	265
d410cf58	266	return 0;
00ef5271	267	}
00ef5271	268
d410cf58	269	faim_export int aim_chat_leaveroom(aim_session_t sess, const char name)
00ef5271	270	{
d410cf58	271	aim_conn_t *conn;
00ef5271	272
d410cf58	273	if (!(conn = aim_chat_getconn(sess, name)))
d410cf58	274	return -ENOENT;
00ef5271	275
d410cf58	276	aim_conn_close(conn);
	277
	278	return 0;
00ef5271	279	}
	280
	281	/*
	282	* conn must be a BOS connection!
	283	*/
d410cf58	284	faim_export int aim_chat_invite(aim_session_t sess, aim_conn_t conn, const char sn, const char msg, fu16_t exchange, const char *roomname, fu16_t instance)
00ef5271	285	{
d410cf58	286	int i;
	287	aim_frame_t *fr;
	288	aim_msgcookie_t *cookie;
	289	struct aim_invite_priv *priv;
	290	fu8_t ckstr[8];
	291	aim_snacid_t snacid;
	292	aim_tlvlist_t otl = NULL, itl = NULL;
	293	fu8_t *hdr;
	294	int hdrlen;
	295	aim_bstream_t hdrbs;
	296
	297	if (!sess \|\| !conn \|\| !sn \|\| !msg \|\| !roomname)
	298	return -EINVAL;
	299
	300	if (conn->type != AIM_CONN_TYPE_BOS)
	301	return -EINVAL;
	302
	303	if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1152+strlen(sn)+strlen(roomname)+strlen(msg))))
	304	return -ENOMEM;
	305
	306	snacid = aim_cachesnac(sess, 0x0004, 0x0006, 0x0000, sn, strlen(sn)+1);
	307	aim_putsnac(&fr->data, 0x0004, 0x0006, 0x0000, snacid);
	308
	309
	310	/*
	311	* Cookie
	312	*/
	313	for (i = 0; i < sizeof(ckstr); i++)
	314	aimutil_put8(ckstr, (fu8_t) rand());
	315
	316	/* XXX should be uncached by an unwritten 'invite accept' handler */
	317	if ((priv = malloc(sizeof(struct aim_invite_priv)))) {
	318	priv->sn = strdup(sn);
	319	priv->roomname = strdup(roomname);
	320	priv->exchange = exchange;
	321	priv->instance = instance;
	322	}
	323
	324	if ((cookie = aim_mkcookie(ckstr, AIM_COOKIETYPE_INVITE, priv)))
	325	aim_cachecookie(sess, cookie);
	326	else
	327	free(priv);
	328
	329	for (i = 0; i < sizeof(ckstr); i++)
	330	aimbs_put8(&fr->data, ckstr[i]);
	331
	332
	333	/*
	334	* Channel (2)
	335	*/
	336	aimbs_put16(&fr->data, 0x0002);
	337
	338	/*
	339	* Dest sn
	340	*/
	341	aimbs_put8(&fr->data, strlen(sn));
	342	aimbs_putraw(&fr->data, sn, strlen(sn));
	343
	344	/*
	345	* TLV t(0005)
	346	*
	347	* Everything else is inside this TLV.
	348	*
	349	* Sigh. AOL was rather inconsistent right here. So we have
350	* to play some minor tricks. Right inside the type 5 is some
351	* raw data, followed by a series of TLVs.
352	*
353	*/
354	hdrlen = 2+8+16+6+4+4+strlen(msg)+4+2+1+strlen(roomname)+2;
355	hdr = malloc(hdrlen);
356	aim_bstream_init(&hdrbs, hdr, hdrlen);
357
358	aimbs_put16(&hdrbs, 0x0000); /* Unknown! */
359	aimbs_putraw(&hdrbs, ckstr, sizeof(ckstr)); /* I think... */
360	aim_putcap(&hdrbs, AIM_CAPS_CHAT);
361
362	aim_addtlvtochain16(&itl, 0x000a, 0x0001);
363	aim_addtlvtochain_noval(&itl, 0x000f);
364	aim_addtlvtochain_raw(&itl, 0x000c, strlen(msg), msg);
365	aim_addtlvtochain_chatroom(&itl, 0x2711, exchange, roomname, instance);
366	aim_writetlvchain(&hdrbs, &itl);
367
368	aim_addtlvtochain_raw(&otl, 0x0005, aim_bstream_curpos(&hdrbs), hdr);
369
370	aim_writetlvchain(&fr->data, &otl);
371
372	free(hdr);
373	aim_freetlvchain(&itl);
374	aim_freetlvchain(&otl);
375
376	aim_tx_enqueue(sess, fr);
377
378	return 0;
00ef5271	379	}
0c20631f	380
	381	/*
	382	* General room information. Lots of stuff.
	383	*
	384	* Values I know are in here but I havent attached
	385	* them to any of the 'Unknown's:
	386	* - Language (English)
	387	*
aa6efcfd	388	* SNAC 000e/0002
0c20631f	389	*/
d410cf58	390	static int infoupdate(aim_session_t sess, aim_module_t mod, aim_frame_t rx, aim_modsnac_t snac, aim_bstream_t *bs)
0c20631f	391	{
9031e2e3	392	struct aim_userinfo_s *userinfo = NULL;
d410cf58	393	aim_rxcallback_t userfunc;
d410cf58	394	int ret = 0;
9031e2e3	395	int usercount = 0;
d410cf58	396	fu8_t detaillevel = 0;
9031e2e3	397	char *roomname = NULL;
9031e2e3	398	struct aim_chat_roominfo roominfo;
d410cf58	399	fu16_t tlvcount = 0;
d410cf58	400	aim_tlvlist_t *tlvlist;
9031e2e3	401	char *roomdesc = NULL;
d410cf58	402	fu16_t unknown_c9 = 0;
	403	fu32_t creationtime = 0;
	404	fu16_t maxmsglen = 0, maxvisiblemsglen = 0;
	405	fu16_t unknown_d2 = 0, unknown_d5 = 0;
9031e2e3	406
d410cf58	407	aim_chat_readroominfo(bs, &roominfo);
9031e2e3	408
d410cf58	409	detaillevel = aimbs_get8(bs);
9031e2e3	410
9031e2e3	411	if (detaillevel != 0x02) {
d410cf58	412	faimdprintf(sess, 0, "faim: chat_roomupdateinfo: detail level %d not supported\n", detaillevel);
9031e2e3	413	return 1;
	414	}
	415
d410cf58	416	tlvcount = aimbs_get16(bs);
9031e2e3	417
	418	/*
	419	* Everything else are TLVs.
	420	*/
d410cf58	421	tlvlist = aim_readtlvchain(bs);
9031e2e3	422
	423	/*
	424	* TLV type 0x006a is the room name in Human Readable Form.
	425	*/
	426	if (aim_gettlv(tlvlist, 0x006a, 1))
	427	roomname = aim_gettlv_str(tlvlist, 0x006a, 1);
	428
	429	/*
	430	* Type 0x006f: Number of occupants.
	431	*/
	432	if (aim_gettlv(tlvlist, 0x006f, 1))
	433	usercount = aim_gettlv16(tlvlist, 0x006f, 1);
	434
	435	/*
	436	* Type 0x0073: Occupant list.
	437	*/
	438	if (aim_gettlv(tlvlist, 0x0073, 1)) {
	439	int curoccupant = 0;
d410cf58	440	aim_tlv_t *tmptlv;
d410cf58	441	aim_bstream_t occbs;
9031e2e3	442
	443	tmptlv = aim_gettlv(tlvlist, 0x0073, 1);
	444
	445	/* Allocate enough userinfo structs for all occupants */
	446	userinfo = calloc(usercount, sizeof(struct aim_userinfo_s));
	447
d410cf58	448	aim_bstream_init(&occbs, tmptlv->value, tmptlv->length);
	449
	450	while (curoccupant < usercount)
	451	aim_extractuserinfo(sess, &occbs, &userinfo[curoccupant++]);
9031e2e3	452	}
	453
	454	/*
	455	* Type 0x00c9: Unknown. (2 bytes)
	456	*/
	457	if (aim_gettlv(tlvlist, 0x00c9, 1))
	458	unknown_c9 = aim_gettlv16(tlvlist, 0x00c9, 1);
	459
	460	/*
	461	* Type 0x00ca: Creation time (4 bytes)
	462	*/
	463	if (aim_gettlv(tlvlist, 0x00ca, 1))
	464	creationtime = aim_gettlv32(tlvlist, 0x00ca, 1);
	465
	466	/*
	467	* Type 0x00d1: Maximum Message Length
	468	*/
	469	if (aim_gettlv(tlvlist, 0x00d1, 1))
	470	maxmsglen = aim_gettlv16(tlvlist, 0x00d1, 1);
	471
	472	/*
	473	* Type 0x00d2: Unknown. (2 bytes)
	474	*/
	475	if (aim_gettlv(tlvlist, 0x00d2, 1))
	476	unknown_d2 = aim_gettlv16(tlvlist, 0x00d2, 1);
	477
	478	/*
	479	* Type 0x00d3: Room Description
	480	*/
	481	if (aim_gettlv(tlvlist, 0x00d3, 1))
	482	roomdesc = aim_gettlv_str(tlvlist, 0x00d3, 1);
	483
	484	/*
	485	* Type 0x000d4: Unknown (flag only)
	486	*/
	487	if (aim_gettlv(tlvlist, 0x000d4, 1))
	488	;
	489
	490	/*
	491	* Type 0x00d5: Unknown. (1 byte)
	492	*/
	493	if (aim_gettlv(tlvlist, 0x00d5, 1))
	494	unknown_d5 = aim_gettlv8(tlvlist, 0x00d5, 1);
	495
	496
	497	/*
	498	* Type 0x00d6: Encoding 1 ("us-ascii")
	499	*/
	500	if (aim_gettlv(tlvlist, 0x000d6, 1))
	501	;
	502
	503	/*
	504	* Type 0x00d7: Language 1 ("en")
	505	*/
	506	if (aim_gettlv(tlvlist, 0x000d7, 1))
	507	;
	508
	509	/*
	510	* Type 0x00d8: Encoding 2 ("us-ascii")
	511	*/
	512	if (aim_gettlv(tlvlist, 0x000d8, 1))
	513	;
	514
	515	/*
516	* Type 0x00d9: Language 2 ("en")
517	*/
518	if (aim_gettlv(tlvlist, 0x000d9, 1))
519	;
520
521	/*
522	* Type 0x00da: Maximum visible message length
523	*/
524	if (aim_gettlv(tlvlist, 0x000da, 1))
525	maxvisiblemsglen = aim_gettlv16(tlvlist, 0x00da, 1);
526
527	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype))) {
528	ret = userfunc(sess,
529	rx,
530	&roominfo,
531	roomname,
532	usercount,
533	userinfo,
534	roomdesc,
535	unknown_c9,
536	creationtime,
537	maxmsglen,
538	unknown_d2,
539	unknown_d5,
540	maxvisiblemsglen);
541	}
542
543	free(roominfo.name);
544	free(userinfo);
545	free(roomname);
546	free(roomdesc);
547	aim_freetlvchain(&tlvlist);
548
549	return ret;
0c20631f	550	}
0c20631f	551
d410cf58	552	static int userlistchange(aim_session_t sess, aim_module_t mod, aim_frame_t rx, aim_modsnac_t snac, aim_bstream_t *bs)
0c20631f	553	{
d410cf58	554	struct aim_userinfo_s *userinfo = NULL;
	555	aim_rxcallback_t userfunc;
	556	int curcount = 0, ret = 0;
0c20631f	557
d410cf58	558	while (aim_bstream_empty(bs)) {
	559	curcount++;
	560	userinfo = realloc(userinfo, curcount * sizeof(struct aim_userinfo_s));
	561	aim_extractuserinfo(sess, bs, &userinfo[curcount-1]);
	562	}
0c20631f	563
d410cf58	564	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
d410cf58	565	ret = userfunc(sess, rx, curcount, userinfo);
0c20631f	566
d410cf58	567	free(userinfo);
0c20631f	568
d410cf58	569	return ret;
00ef5271	570	}
0c20631f	571
	572	/*
	573	* We could probably include this in the normal ICBM parsing
	574	* code as channel 0x0003, however, since only the start
	575	* would be the same, we might as well do it here.
9d83220c	576	*
	577	* General outline of this SNAC:
	578	* snac
	579	* cookie
	580	* channel id
	581	* tlvlist
	582	* unknown
	583	* source user info
	584	* name
	585	* evility
	586	* userinfo tlvs
	587	* online time
	588	* etc
	589	* message metatlv
	590	* message tlv
	591	* message string
	592	* possibly others
	593	*
0c20631f	594	*/
d410cf58	595	static int incomingmsg(aim_session_t sess, aim_module_t mod, aim_frame_t rx, aim_modsnac_t snac, aim_bstream_t *bs)
0c20631f	596	{
d410cf58	597	struct aim_userinfo_s userinfo;
	598	aim_rxcallback_t userfunc;
	599	int ret = 0;
	600	fu8_t *cookie;
	601	fu16_t channel;
	602	aim_tlvlist_t *otl;
	603	char *msg = NULL;
	604	aim_msgcookie_t *ck;
	605
	606	memset(&userinfo, 0, sizeof(struct aim_userinfo_s));
	607
	608	/*
	609	* ICBM Cookie. Uncache it.
	610	*/
	611	cookie = aimbs_getraw(bs, 8);
	612
	613	if ((ck = aim_uncachecookie(sess, cookie, AIM_COOKIETYPE_CHAT))) {
	614	free(ck->data);
	615	free(ck);
	616	}
	617
	618	/*
	619	* Channel ID
	620	*
	621	* Channels 1 and 2 are implemented in the normal ICBM
	622	* parser.
	623	*
	624	* We only do channel 3 here.
	625	*
	626	*/
	627	channel = aimbs_get16(bs);
	628
	629	if (channel != 0x0003) {
	630	faimdprintf(sess, 0, "faim: chat_incoming: unknown channel! (0x%04x)\n", channel);
	631	return 0;
	632	}
	633
	634	/*
	635	* Start parsing TLVs right away.
	636	*/
	637	otl = aim_readtlvchain(bs);
	638
	639	/*
	640	* Type 0x0003: Source User Information
	641	*/
	642	if (aim_gettlv(otl, 0x0003, 1)) {
	643	aim_tlv_t *userinfotlv;
	644	aim_bstream_t tbs;
	645
	646	userinfotlv = aim_gettlv(otl, 0x0003, 1);
	647
	648	aim_bstream_init(&tbs, userinfotlv->value, userinfotlv->length);
	649	aim_extractuserinfo(sess, &tbs, &userinfo);
	650	}
	651
	652	/*
	653	* Type 0x0001: If present, it means it was a message to the
	654	* room (as opposed to a whisper).
	655	*/
	656	if (aim_gettlv(otl, 0x0001, 1))
	657	;
	658
	659	/*
	660	* Type 0x0005: Message Block. Conains more TLVs.
661	*/
662	if (aim_gettlv(otl, 0x0005, 1)) {
663	aim_tlvlist_t *itl;
664	aim_tlv_t *msgblock;
665	aim_bstream_t tbs;
666
667	msgblock = aim_gettlv(otl, 0x0005, 1);
668	aim_bstream_init(&tbs, msgblock->value, msgblock->length);
669	itl = aim_readtlvchain(&tbs);
670
671	/*
672	* Type 0x0001: Message.
673	*/
674	if (aim_gettlv(itl, 0x0001, 1))
675	msg = aim_gettlv_str(itl, 0x0001, 1);
676
677	aim_freetlvchain(&itl);
678	}
679
680	if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
681	ret = userfunc(sess, rx, &userinfo, msg);
682
683	free(cookie);
684	free(msg);
685	aim_freetlvchain(&otl);
686
687	return ret;
0c20631f	688	}
0c20631f	689
d410cf58	690	static int snachandler(aim_session_t sess, aim_module_t mod, aim_frame_t rx, aim_modsnac_t snac, aim_bstream_t *bs)
0c20631f	691	{
0c20631f	692
d410cf58	693	if (snac->subtype == 0x0002)
	694	return infoupdate(sess, mod, rx, snac, bs);
	695	else if ((snac->subtype == 0x0003) \|\| (snac->subtype == 0x0004))
	696	return userlistchange(sess, mod, rx, snac, bs);
	697	else if (snac->subtype == 0x0006)
	698	return incomingmsg(sess, mod, rx, snac, bs);
040457cc	699
d410cf58	700	return 0;
0c20631f	701	}
0c20631f	702
d410cf58	703	faim_internal int chat_modfirst(aim_session_t sess, aim_module_t mod)
0c20631f	704	{
0c20631f	705
d410cf58	706	mod->family = 0x000e;
	707	mod->version = 0x0000;
	708	mod->flags = 0;
	709	strncpy(mod->name, "chat", sizeof(mod->name));
	710	mod->snachandler = snachandler;
0c20631f	711
d410cf58	712	return 0;
9de3ca7e	713	}
d410cf58	714
d410cf58	715