Annotation of ChivanetAimPidgin/oscarprpl/src/c/family_chat.c, revision 1.1.1.1
1.1 snw 1: /*
2: * Purple's oscar protocol plugin
3: * This file is the legal property of its developers.
4: * Please see the AUTHORS file distributed alongside this file.
5: *
6: * This library is free software; you can redistribute it and/or
7: * modify it under the terms of the GNU Lesser General Public
8: * License as published by the Free Software Foundation; either
9: * version 2 of the License, or (at your option) any later version.
10: *
11: * This library is distributed in the hope that it will be useful,
12: * but WITHOUT ANY WARRANTY; without even the implied warranty of
13: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14: * Lesser General Public License for more details.
15: *
16: * You should have received a copy of the GNU Lesser General Public
17: * License along with this library; if not, write to the Free Software
18: * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA
19: */
20:
21: /*
22: * Family 0x000e - Routines for the Chat service.
23: *
24: */
25:
26: #include "oscar.h"
27:
28: #include <string.h>
29:
30: /* Stored in the ->internal of chat connections */
31: struct chatconnpriv
32: {
33: guint16 exchange;
34: char *name;
35: guint16 instance;
36: };
37:
38: void
39: flap_connection_destroy_chat(OscarData *od, FlapConnection *conn)
40: {
41: struct chatconnpriv *ccp = (struct chatconnpriv *)conn->internal;
42:
43: if (ccp)
44: g_free(ccp->name);
45: g_free(ccp);
46:
47: return;
48: }
49:
50: int
51: aim_chat_readroominfo(ByteStream *bs, struct aim_chat_roominfo *outinfo)
52: {
53: if (!bs || !outinfo)
54: return 0;
55:
56: outinfo->exchange = byte_stream_get16(bs);
57: outinfo->namelen = byte_stream_get8(bs);
58: outinfo->name = (char *)byte_stream_getraw(bs, outinfo->namelen);
59: outinfo->instance = byte_stream_get16(bs);
60:
61: return 0;
62: }
63:
64: /*
65: * Subtype 0x0002 - General room information. Lots of stuff.
66: *
67: * Values I know are in here but I haven't attached
68: * them to any of the 'Unknown's:
69: * - Language (English)
70: *
71: */
72: static int
73: infoupdate(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
74: {
75: aim_rxcallback_t userfunc;
76: int ret = 0;
77: guint8 detaillevel = 0;
78: struct aim_chat_roominfo roominfo;
79: GSList *tlvlist;
80: guint16 maxmsglen, maxvisiblemsglen;
81:
82: aim_chat_readroominfo(bs, &roominfo);
83:
84: detaillevel = byte_stream_get8(bs);
85:
86: if (detaillevel != 0x02) {
87: purple_debug_misc("oscar", "faim: chat_roomupdateinfo: detail level %d not supported\n", detaillevel);
88: return 1;
89: }
90:
91: byte_stream_get16(bs); /* skip the TLV count */
92:
93: /*
94: * Everything else are TLVs.
95: */
96: tlvlist = aim_tlvlist_read(bs);
97:
98: /*
99: * Type 0x00d1: Maximum Message Length
100: */
101: maxmsglen = aim_tlv_get16(tlvlist, 0x00d1, 1);
102:
103: /*
104: * Type 0x00da: Maximum visible message length
105: */
106: maxvisiblemsglen = aim_tlv_get16(tlvlist, 0x00da, 1);
107:
108: if ((userfunc = aim_callhandler(od, snac->family, snac->subtype))) {
109: ret = userfunc(od, conn, frame, maxmsglen, maxvisiblemsglen);
110: }
111:
112: g_free(roominfo.name);
113:
114: aim_tlvlist_free(tlvlist);
115:
116: return ret;
117: }
118:
119: /* Subtypes 0x0003 and 0x0004 */
120: static int
121: userlistchange(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
122: {
123: aim_userinfo_t *userinfo = NULL;
124: aim_rxcallback_t userfunc;
125: int curcount = 0, ret = 0;
126:
127: while (byte_stream_bytes_left(bs)) {
128: curcount++;
129: userinfo = g_realloc(userinfo, curcount * sizeof(aim_userinfo_t));
130: aim_info_extract(od, bs, &userinfo[curcount-1]);
131: }
132:
133: if ((userfunc = aim_callhandler(od, snac->family, snac->subtype)))
134: ret = userfunc(od, conn, frame, curcount, userinfo);
135:
136: aim_info_free(userinfo);
137: g_free(userinfo);
138:
139: return ret;
140: }
141:
142: /*
143: * Subtype 0x0005 - Send a Chat Message.
144: *
145: * Possible flags:
146: * AIM_CHATFLAGS_NOREFLECT -- Unset the flag that requests messages
147: * should be sent to their sender.
148: * AIM_CHATFLAGS_AWAY -- Mark the message as an autoresponse
149: * (Note that WinAIM does not honor this,
150: * and displays the message as normal.)
151: *
152: * XXX convert this to use tlvchains
153: */
154: int
155: aim_chat_send_im(OscarData *od, FlapConnection *conn, guint16 flags, const gchar *msg, int msglen, const char *encoding, const char *language)
156: {
157: int i;
158: ByteStream bs;
159: IcbmCookie *cookie;
160: aim_snacid_t snacid;
161: guint8 ckstr[8];
162: GSList *tlvlist = NULL, *inner_tlvlist = NULL;
163:
164: if (!od || !conn || !msg || (msglen <= 0))
165: return 0;
166:
167: byte_stream_new(&bs, 1142);
168:
169: snacid = aim_cachesnac(od, SNAC_FAMILY_CHAT, 0x0005, 0x0000, NULL, 0);
170:
171: /*
172: * Cookie
173: *
174: * XXX mkcookie should generate the cookie and cache it in one
175: * operation to preserve uniqueness.
176: */
177: for (i = 0; i < 8; i++)
178: ckstr[i] = (guint8)rand();
179:
180: cookie = aim_mkcookie(ckstr, AIM_COOKIETYPE_CHAT, NULL);
181: cookie->data = NULL; /* XXX store something useful here */
182:
183: aim_cachecookie(od, cookie);
184:
185: /* ICBM Header */
186: byte_stream_putraw(&bs, ckstr, 8); /* Cookie */
187: byte_stream_put16(&bs, 0x0003); /* Channel */
188:
189: /*
190: * Type 1: Flag meaning this message is destined to the room.
191: */
192: aim_tlvlist_add_noval(&tlvlist, 0x0001);
193:
194: /*
195: * Type 6: Reflect
196: */
197: if (!(flags & AIM_CHATFLAGS_NOREFLECT))
198: aim_tlvlist_add_noval(&tlvlist, 0x0006);
199:
200: /*
201: * Type 7: Autoresponse
202: */
203: if (flags & AIM_CHATFLAGS_AWAY)
204: aim_tlvlist_add_noval(&tlvlist, 0x0007);
205:
206: /*
207: * SubTLV: Type 1: Message
208: */
209: aim_tlvlist_add_raw(&inner_tlvlist, 0x0001, msglen, (guchar *)msg);
210:
211: /*
212: * SubTLV: Type 2: Encoding
213: */
214: if (encoding != NULL)
215: aim_tlvlist_add_str(&inner_tlvlist, 0x0002, encoding);
216:
217: /*
218: * SubTLV: Type 3: Language
219: */
220: if (language != NULL)
221: aim_tlvlist_add_str(&inner_tlvlist, 0x0003, language);
222:
223: /*
224: * Type 5: Message block. Contains more TLVs.
225: *
226: * This could include other information... We just
227: * put in a message TLV however.
228: *
229: */
230: aim_tlvlist_add_frozentlvlist(&tlvlist, 0x0005, &inner_tlvlist);
231:
232: aim_tlvlist_write(&bs, &tlvlist);
233:
234: aim_tlvlist_free(inner_tlvlist);
235: aim_tlvlist_free(tlvlist);
236:
237: flap_connection_send_snac(od, conn, SNAC_FAMILY_CHAT, 0x0005, snacid, &bs);
238:
239: byte_stream_destroy(&bs);
240:
241: return 0;
242: }
243:
244: /*
245: * Subtype 0x0006
246: *
247: * We could probably include this in the normal ICBM parsing
248: * code as channel 0x0003, however, since only the start
249: * would be the same, we might as well do it here.
250: *
251: * General outline of this SNAC:
252: * snac
253: * cookie
254: * channel id
255: * tlvlist
256: * unknown
257: * source user info
258: * name
259: * evility
260: * userinfo tlvs
261: * online time
262: * etc
263: * message metatlv
264: * message tlv
265: * message string
266: * possibly others
267: *
268: */
269: static int
270: incomingim_ch3(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
271: {
272: int ret = 0, i;
273: aim_rxcallback_t userfunc;
274: aim_userinfo_t userinfo;
275: guint8 cookie[8];
276: guint16 channel;
277: GSList *tlvlist;
278: char *msg = NULL;
279: int len = 0;
280: char *encoding = NULL, *language = NULL;
281: IcbmCookie *ck;
282: aim_tlv_t *tlv;
283: ByteStream tbs;
284:
285: memset(&userinfo, 0, sizeof(aim_userinfo_t));
286:
287: /*
288: * Read ICBM Cookie.
289: */
290: for (i = 0; i < 8; i++)
291: cookie[i] = byte_stream_get8(bs);
292:
293: if ((ck = aim_uncachecookie(od, cookie, AIM_COOKIETYPE_CHAT))) {
294: g_free(ck->data);
295: g_free(ck);
296: }
297:
298: /*
299: * Channel ID
300: *
301: * Channel 0x0003 is used for chat messages.
302: *
303: */
304: channel = byte_stream_get16(bs);
305:
306: if (channel != 0x0003) {
307: purple_debug_misc("oscar", "faim: chat_incoming: unknown channel! (0x%04x)\n", channel);
308: return 0;
309: }
310:
311: /*
312: * Start parsing TLVs right away.
313: */
314: tlvlist = aim_tlvlist_read(bs);
315:
316: /*
317: * Type 0x0003: Source User Information
318: */
319: tlv = aim_tlv_gettlv(tlvlist, 0x0003, 1);
320: if (tlv != NULL)
321: {
322: byte_stream_init(&tbs, tlv->value, tlv->length);
323: aim_info_extract(od, &tbs, &userinfo);
324: }
325:
326: /*
327: * Type 0x0005: Message Block. Conains more TLVs.
328: */
329: tlv = aim_tlv_gettlv(tlvlist, 0x0005, 1);
330: if (tlv != NULL)
331: {
332: GSList *inner_tlvlist;
333: aim_tlv_t *inner_tlv;
334:
335: byte_stream_init(&tbs, tlv->value, tlv->length);
336: inner_tlvlist = aim_tlvlist_read(&tbs);
337:
338: /*
339: * Type 0x0001: Message.
340: */
341: inner_tlv = aim_tlv_gettlv(inner_tlvlist, 0x0001, 1);
342: if (inner_tlv != NULL)
343: {
344: len = inner_tlv->length;
345: msg = aim_tlv_getvalue_as_string(inner_tlv);
346: }
347:
348: /*
349: * Type 0x0002: Encoding.
350: */
351: encoding = aim_tlv_getstr(inner_tlvlist, 0x0002, 1);
352:
353: /*
354: * Type 0x0003: Language.
355: */
356: language = aim_tlv_getstr(inner_tlvlist, 0x0003, 1);
357:
358: aim_tlvlist_free(inner_tlvlist);
359: }
360:
361: if ((userfunc = aim_callhandler(od, snac->family, snac->subtype)))
362: ret = userfunc(od, conn, frame, &userinfo, len, msg, encoding, language);
363:
364: aim_info_free(&userinfo);
365: g_free(msg);
366: g_free(encoding);
367: g_free(language);
368: aim_tlvlist_free(tlvlist);
369:
370: return ret;
371: }
372:
373: static int
374: snachandler(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
375: {
376: if (snac->subtype == 0x0002)
377: return infoupdate(od, conn, mod, frame, snac, bs);
378: else if ((snac->subtype == 0x0003) || (snac->subtype == 0x0004))
379: return userlistchange(od, conn, mod, frame, snac, bs);
380: else if (snac->subtype == 0x0006)
381: return incomingim_ch3(od, conn, mod, frame, snac, bs);
382:
383: return 0;
384: }
385:
386: int
387: chat_modfirst(OscarData *od, aim_module_t *mod)
388: {
389: mod->family = SNAC_FAMILY_CHAT;
390: mod->version = 0x0001;
391: mod->toolid = 0x0010;
392: mod->toolversion = 0x0629;
393: mod->flags = 0;
394: strncpy(mod->name, "chat", sizeof(mod->name));
395: mod->snachandler = snachandler;
396:
397: return 0;
398: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to family_chat.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / ChivanetAimPidgin / oscarprpl / src / c