4 * The functions here are responsible for requesting and parsing information-
5 * gathering SNACs. Or something like that.
12 struct aim_priv_inforeq {
17 faim_export int aim_getinfo(aim_session_t *sess, aim_conn_t *conn, const char *sn, fu16_t infotype)
19 struct aim_priv_inforeq privdata;
23 if (!sess || !conn || !sn)
26 if ((infotype != AIM_GETINFO_GENERALINFO) && (infotype != AIM_GETINFO_AWAYMESSAGE))
29 if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 12+1+strlen(sn))))
32 strncpy(privdata.sn, sn, sizeof(privdata.sn));
33 privdata.infotype = infotype;
34 snacid = aim_cachesnac(sess, 0x0002, 0x0005, 0x0000, &privdata, sizeof(struct aim_priv_inforeq));
36 aim_putsnac(&fr->data, 0x0002, 0x0005, 0x0000, snacid);
37 aimbs_put16(&fr->data, infotype);
38 aimbs_put8(&fr->data, strlen(sn));
39 aimbs_putraw(&fr->data, sn, strlen(sn));
41 aim_tx_enqueue(sess, fr);
51 unsigned char data[16];
55 {0x09, 0x46, 0x13, 0x46, 0x4c, 0x7f, 0x11, 0xd1,
56 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
59 {0x09, 0x46, 0x13, 0x41, 0x4c, 0x7f, 0x11, 0xd1,
60 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
63 {0x09, 0x46, 0x13, 0x45, 0x4c, 0x7f, 0x11, 0xd1,
64 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
67 {0x74, 0x8f, 0x24, 0x20, 0x62, 0x87, 0x11, 0xd1,
68 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
71 {0x09, 0x46, 0x13, 0x48, 0x4c, 0x7f, 0x11, 0xd1,
72 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
75 {0x09, 0x46, 0x13, 0x43, 0x4c, 0x7f, 0x11, 0xd1,
76 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
79 {0x09, 0x46, 0x13, 0x47, 0x4c, 0x7f, 0x11, 0xd1,
80 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
83 * Indeed, there are two of these. The former appears to be correct,
84 * but in some versions of winaim, the second one is set. Either they
85 * forgot to fix endianness, or they made a typo. It really doesn't
89 {0x09, 0x46, 0x13, 0x4a, 0x4c, 0x7f, 0x11, 0xd1,
90 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
92 {0x09, 0x46, 0x13, 0x4a, 0x4c, 0x7f, 0x11, 0xd1,
93 0x22, 0x82, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
95 {AIM_CAPS_SENDBUDDYLIST,
96 {0x09, 0x46, 0x13, 0x4b, 0x4c, 0x7f, 0x11, 0xd1,
97 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
103 * This still takes a length parameter even with a bstream because capabilities
104 * are not naturally bounded.
107 faim_internal fu16_t aim_getcap(aim_session_t *sess, aim_bstream_t *bs, int len)
112 for (offset = 0; aim_bstream_empty(bs) && (offset < len); offset += 0x10) {
116 cap = aimbs_getraw(bs, 0x10);
118 for (i = 0, identified = 0; !(aim_caps[i].flag & AIM_CAPS_LAST); i++) {
120 if (memcmp(&aim_caps[i].data, cap, 0x10) == 0) {
121 flags |= aim_caps[i].flag;
123 break; /* should only match once... */
129 faimdprintf(sess, 0, "unknown capability!\n");
137 faim_internal int aim_putcap(aim_bstream_t *bs, fu16_t caps)
144 for (i = 0; aim_bstream_empty(bs); i++) {
146 if (aim_caps[i].flag == AIM_CAPS_LAST)
149 if (caps & aim_caps[i].flag)
150 aimbs_putraw(bs, aim_caps[i].data, 0x10);
158 * AIM is fairly regular about providing user info. This is a generic
159 * routine to extract it in its standard form.
161 faim_internal int aim_extractuserinfo(aim_session_t *sess, aim_bstream_t *bs, struct aim_userinfo_s *outinfo)
169 /* Clear out old data first */
170 memset(outinfo, 0x00, sizeof(struct aim_userinfo_s));
173 * Screen name. Stored as an unterminated string prepended with a
174 * byte containing its length.
176 snlen = aimbs_get8(bs);
177 aimbs_getrawbuf(bs, outinfo->sn, snlen);
180 * Warning Level. Stored as an unsigned short.
182 outinfo->warnlevel = aimbs_get16(bs);
185 * TLV Count. Unsigned short representing the number of
186 * Type-Length-Value triples that follow.
188 tlvcnt = aimbs_get16(bs);
191 * Parse out the Type-Length-Value triples as they're found.
193 for (curtlv = 0; curtlv < tlvcnt; curtlv++) {
197 type = aimbs_get16(bs);
198 length = aimbs_get16(bs);
200 endpos = aim_bstream_curpos(bs) + length;
202 if (type == 0x0001) {
204 * Type = 0x0001: User flags
206 * Specified as any of the following ORed together:
207 * 0x0001 Trial (user less than 60days)
208 * 0x0002 Unknown bit 2
209 * 0x0004 AOL Main Service user
210 * 0x0008 Unknown bit 4
211 * 0x0010 Free (AIM) user
215 outinfo->flags = aimbs_get16(bs);
217 } else if (type == 0x0002) {
219 * Type = 0x0002: Member-Since date.
221 * The time/date that the user originally registered for
222 * the service, stored in time_t format.
224 outinfo->membersince = aimbs_get32(bs);
226 } else if (type == 0x0003) {
228 * Type = 0x0003: On-Since date.
230 * The time/date that the user started their current
231 * session, stored in time_t format.
233 outinfo->onlinesince = aimbs_get32(bs);
235 } else if (type == 0x0004) {
237 * Type = 0x0004: Idle time.
239 * Number of seconds since the user actively used the
242 * Note that the client tells the server when to start
243 * counting idle times, so this may or may not be
244 * related to reality.
246 outinfo->idletime = aimbs_get16(bs);
248 } else if (type == 0x0006) {
250 * Type = 0x0006: ICQ Online Status
252 * ICQ's Away/DND/etc "enriched" status. Some decoding
253 * of values done by Scott <darkagl@pcnet.com>
256 outinfo->icqinfo.status = aimbs_get16(bs);
258 } else if (type == 0x000a) {
262 * ICQ User IP Address.
263 * Ahh, the joy of ICQ security.
265 outinfo->icqinfo.ipaddr = aimbs_get32(bs);
267 } else if (type == 0x000c) {
271 * random crap containing the IP address,
272 * apparently a port number, and some Other Stuff.
275 aimbs_getrawbuf(bs, outinfo->icqinfo.crap, 0x25);
277 } else if (type == 0x000d) {
281 * Capability information.
284 outinfo->capabilities = aim_getcap(sess, bs, length);
286 } else if (type == 0x000e) {
290 * Unknown. Always of zero length, and always only
297 } else if ((type == 0x000f) || (type == 0x0010)) {
299 * Type = 0x000f: Session Length. (AIM)
300 * Type = 0x0010: Session Length. (AOL)
302 * The duration, in seconds, of the user's current
305 * Which TLV type this comes in depends on the
306 * service the user is using (AIM or AOL).
309 outinfo->sessionlen = aimbs_get32(bs);
314 * Reaching here indicates that either AOL has
315 * added yet another TLV for us to deal with,
316 * or the parsing has gone Terribly Wrong.
318 * Either way, inform the owner and attempt
322 faimdprintf(sess, 0, "userinfo: **warning: unexpected TLV:\n");
323 faimdprintf(sess, 0, "userinfo: sn =%s\n", outinfo->sn);
324 faimdprintf(sess, 0, "userinfo: type =0x%04x\n",type);
325 faimdprintf(sess, 0, "userinfo: length=0x%04x\n", length);
329 /* Save ourselves. */
330 aim_bstream_setpos(bs, endpos);
337 * Inverse of aim_extractuserinfo()
339 faim_internal int aim_putuserinfo(aim_bstream_t *bs, struct aim_userinfo_s *info)
341 aim_tlvlist_t *tlvlist = NULL;
346 aimbs_put8(bs, strlen(info->sn));
347 aimbs_putraw(bs, info->sn, strlen(info->sn));
349 aimbs_put16(bs, info->warnlevel);
352 aim_addtlvtochain16(&tlvlist, 0x0001, info->flags);
353 aim_addtlvtochain32(&tlvlist, 0x0002, info->membersince);
354 aim_addtlvtochain32(&tlvlist, 0x0003, info->onlinesince);
355 aim_addtlvtochain16(&tlvlist, 0x0004, info->idletime);
357 #if ICQ_OSCAR_SUPPORT
358 if (atoi(info->sn) != 0) {
359 aim_addtlvtochain16(&tlvlist, 0x0006, info->icqinfo.status);
360 aim_addtlvtochain32(&tlvlist, 0x000a, info->icqinfo.ipaddr);
364 aim_addtlvtochain_caps(&tlvlist, 0x000d, info->capabilities);
366 aim_addtlvtochain32(&tlvlist, (fu16_t)((info->flags & AIM_FLAG_AOL) ? 0x0010 : 0x000f), info->sessionlen);
368 aimbs_put16(bs, aim_counttlvchain(&tlvlist));
369 aim_writetlvchain(bs, &tlvlist);
370 aim_freetlvchain(&tlvlist);
375 faim_export int aim_sendbuddyoncoming(aim_session_t *sess, aim_conn_t *conn, struct aim_userinfo_s *info)
380 if (!sess || !conn || !info)
383 if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1152)))
386 snacid = aim_cachesnac(sess, 0x0003, 0x000b, 0x0000, NULL, 0);
388 aim_putsnac(&fr->data, 0x0003, 0x000b, 0x0000, snacid);
389 aim_putuserinfo(&fr->data, info);
391 aim_tx_enqueue(sess, fr);
396 faim_export int aim_sendbuddyoffgoing(aim_session_t *sess, aim_conn_t *conn, const char *sn)
401 if (!sess || !conn || !sn)
404 if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+1+strlen(sn))))
407 snacid = aim_cachesnac(sess, 0x0003, 0x000c, 0x0000, NULL, 0);
409 aim_putsnac(&fr->data, 0x0003, 0x000c, 0x0000, snacid);
410 aimbs_put8(&fr->data, strlen(sn));
411 aimbs_putraw(&fr->data, sn, strlen(sn));
413 aim_tx_enqueue(sess, fr);
421 faim_export int aim_0002_000b(aim_session_t *sess, aim_conn_t *conn, const char *sn)
426 if (!sess || !conn || !sn)
429 if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+1+strlen(sn))))
432 snacid = aim_cachesnac(sess, 0x0002, 0x000b, 0x0000, NULL, 0);
434 aim_putsnac(&fr->data, 0x0002, 0x000b, 0x0000, snacid);
435 aimbs_put8(&fr->data, strlen(sn));
436 aimbs_putraw(&fr->data, sn, strlen(sn));
438 aim_tx_enqueue(sess, fr);
445 * t(0001) - short containing max profile length (value = 1024)
446 * t(0002) - short - unknown (value = 16) [max MIME type length?]
447 * t(0003) - short - unknown (value = 7)
449 static int rights(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
451 aim_tlvlist_t *tlvlist;
452 aim_rxcallback_t userfunc;
454 fu16_t maxsiglen = 0;
456 tlvlist = aim_readtlvchain(bs);
458 if (aim_gettlv(tlvlist, 0x0001, 1))
459 maxsiglen = aim_gettlv16(tlvlist, 0x0001, 1);
461 if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
462 ret = userfunc(sess, rx, maxsiglen);
464 aim_freetlvchain(&tlvlist);
469 static int userinfo(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
471 struct aim_userinfo_s userinfo;
472 char *text_encoding = NULL, *text = NULL;
473 aim_rxcallback_t userfunc;
474 aim_tlvlist_t *tlvlist;
475 aim_snac_t *origsnac = NULL;
476 struct aim_priv_inforeq *inforeq;
479 origsnac = aim_remsnac(sess, snac->id);
481 if (!origsnac || !origsnac->data) {
482 faimdprintf(sess, 0, "parse_userinfo_middle: major problem: no snac stored!\n");
486 inforeq = (struct aim_priv_inforeq *)origsnac->data;
488 if ((inforeq->infotype != AIM_GETINFO_GENERALINFO) &&
489 (inforeq->infotype != AIM_GETINFO_AWAYMESSAGE)) {
490 faimdprintf(sess, 0, "parse_userinfo_middle: unknown infotype in request! (0x%04x)\n", inforeq->infotype);
494 aim_extractuserinfo(sess, bs, &userinfo);
496 tlvlist = aim_readtlvchain(bs);
499 * Depending on what informational text was requested, different
500 * TLVs will appear here.
502 * Profile will be 1 and 2, away message will be 3 and 4.
504 if (aim_gettlv(tlvlist, 0x0001, 1)) {
505 text_encoding = aim_gettlv_str(tlvlist, 0x0001, 1);
506 text = aim_gettlv_str(tlvlist, 0x0002, 1);
507 } else if (aim_gettlv(tlvlist, 0x0003, 1)) {
508 text_encoding = aim_gettlv_str(tlvlist, 0x0003, 1);
509 text = aim_gettlv_str(tlvlist, 0x0004, 1);
512 if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
513 ret = userfunc(sess, rx, &userinfo, text_encoding, text, inforeq->infotype);
518 aim_freetlvchain(&tlvlist);
521 free(origsnac->data);
527 static int snachandler(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
530 if (snac->subtype == 0x0003)
531 return rights(sess, mod, rx, snac, bs);
532 else if (snac->subtype == 0x0006)
533 return userinfo(sess, mod, rx, snac, bs);
538 faim_internal int locate_modfirst(aim_session_t *sess, aim_module_t *mod)
541 mod->family = 0x0002;
542 mod->version = 0x0000;
544 strncpy(mod->name, "locate", sizeof(mod->name));
545 mod->snachandler = snachandler;