comparison src/protocols/oscar/info.c @ 2086:424a40f12a6c

[gaim-migrate @ 2096] moving protocols from plugins/ to src/protocols. making it so that you can select which protocols are compiled statically. committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Tue, 31 Jul 2001 01:00:39 +0000
parents
children c99c781e5931
comparison
equal deleted inserted replaced
2085:7ebb4322f89b 2086:424a40f12a6c
1 /*
2 * aim_info.c
3 *
4 * The functions here are responsible for requesting and parsing information-
5 * gathering SNACs.
6 *
7 */
8
9 #define FAIM_INTERNAL
10 #include <aim.h>
11
12 struct aim_priv_inforeq {
13 char sn[MAXSNLEN+1];
14 unsigned short infotype;
15 };
16
17 faim_export int aim_getinfo(struct aim_session_t *sess,
18 struct aim_conn_t *conn,
19 const char *sn,
20 unsigned short infotype)
21 {
22 struct command_tx_struct *newpacket;
23 struct aim_priv_inforeq privdata;
24 int i = 0;
25
26 if (!sess || !conn || !sn)
27 return -1;
28
29 if ((infotype != AIM_GETINFO_GENERALINFO) &&
30 (infotype != AIM_GETINFO_AWAYMESSAGE))
31 return -1;
32
33 if (!(newpacket = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 12+1+strlen(sn))))
34 return -1;
35
36 newpacket->lock = 1;
37
38 i = aim_putsnac(newpacket->data, 0x0002, 0x0005, 0x0000, sess->snac_nextid);
39
40 i += aimutil_put16(newpacket->data+i, infotype);
41 i += aimutil_put8(newpacket->data+i, strlen(sn));
42 i += aimutil_putstr(newpacket->data+i, sn, strlen(sn));
43
44 newpacket->lock = 0;
45 aim_tx_enqueue(sess, newpacket);
46
47 strncpy(privdata.sn, sn, sizeof(privdata.sn));
48 privdata.infotype = infotype;
49 aim_cachesnac(sess, 0x0002, 0x0005, 0x0000, &privdata, sizeof(struct aim_priv_inforeq));
50
51 return 0;
52 }
53
54 /*
55 * Capability blocks.
56 */
57 static const struct {
58 unsigned short flag;
59 unsigned char data[16];
60 } aim_caps[] = {
61
62 {AIM_CAPS_BUDDYICON,
63 {0x09, 0x46, 0x13, 0x46, 0x4c, 0x7f, 0x11, 0xd1,
64 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
65
66 {AIM_CAPS_VOICE,
67 {0x09, 0x46, 0x13, 0x41, 0x4c, 0x7f, 0x11, 0xd1,
68 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
69
70 {AIM_CAPS_IMIMAGE,
71 {0x09, 0x46, 0x13, 0x45, 0x4c, 0x7f, 0x11, 0xd1,
72 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
73
74 {AIM_CAPS_CHAT,
75 {0x74, 0x8f, 0x24, 0x20, 0x62, 0x87, 0x11, 0xd1,
76 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
77
78 {AIM_CAPS_GETFILE,
79 {0x09, 0x46, 0x13, 0x48, 0x4c, 0x7f, 0x11, 0xd1,
80 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
81
82 {AIM_CAPS_SENDFILE,
83 {0x09, 0x46, 0x13, 0x43, 0x4c, 0x7f, 0x11, 0xd1,
84 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
85
86 {AIM_CAPS_SAVESTOCKS,
87 {0x09, 0x46, 0x13, 0x47, 0x4c, 0x7f, 0x11, 0xd1,
88 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
89
90 /*
91 * Indeed, there are two of these. The former appears
92 * to be correct, but in some versions of winaim, the
93 * second one is set. Either they forgot to fix endianness,
94 * or they made a typo. It really doesn't matter which.
95 */
96 {AIM_CAPS_GAMES,
97 {0x09, 0x46, 0x13, 0x4a, 0x4c, 0x7f, 0x11, 0xd1,
98 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
99 {AIM_CAPS_GAMES2,
100 {0x09, 0x46, 0x13, 0x4a, 0x4c, 0x7f, 0x11, 0xd1,
101 0x22, 0x82, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
102
103 {AIM_CAPS_SENDBUDDYLIST,
104 {0x09, 0x46, 0x13, 0x4b, 0x4c, 0x7f, 0x11, 0xd1,
105 0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}},
106
107 {AIM_CAPS_LAST}
108 };
109
110 faim_internal unsigned short aim_getcap(struct aim_session_t *sess, unsigned char *capblock, int buflen)
111 {
112 unsigned short flags;
113 int i;
114 int offset = 0;
115 int identified;
116
117 for (offset = 0, flags = 0; offset < buflen; offset += 0x0010) {
118
119 for (i = 0, identified = 0; !(aim_caps[i].flag & AIM_CAPS_LAST); i++) {
120
121 if (memcmp(&aim_caps[i].data, capblock+offset, 0x10) == 0) {
122 flags |= aim_caps[i].flag;
123 identified++;
124 break; /* should only match once... */
125 }
126
127 }
128
129 if (!identified)
130 faimdprintf(sess, 0, "unknown capability!\n");
131
132 }
133
134 return flags;
135 }
136
137 faim_internal int aim_putcap(unsigned char *capblock, int buflen, unsigned short caps)
138 {
139 int offset, i;
140
141 if (!capblock)
142 return 0;
143
144 for (i = 0, offset = 0;
145 !(aim_caps[i].flag & AIM_CAPS_LAST) && (offset < buflen); i++) {
146
147 if (caps & aim_caps[i].flag) {
148 memcpy(capblock+offset, aim_caps[i].data, 16);
149 offset += 16;
150 }
151
152 }
153
154 return offset;
155 }
156
157 /*
158 * AIM is fairly regular about providing user info. This
159 * is a generic routine to extract it in its standard form.
160 */
161 faim_internal int aim_extractuserinfo(struct aim_session_t *sess, unsigned char *buf, struct aim_userinfo_s *outinfo)
162 {
163 int i = 0;
164 int tlvcnt = 0;
165 int curtlv = 0;
166 int tlv1 = 0;
167 u_short curtype;
168 int lastvalid;
169
170
171 if (!buf || !outinfo)
172 return -1;
173
174 /* Clear out old data first */
175 memset(outinfo, 0x00, sizeof(struct aim_userinfo_s));
176
177 /*
178 * Screen name. Stored as an unterminated string prepended
179 * with an unsigned byte containing its length.
180 */
181 if (buf[i] < MAXSNLEN) {
182 memcpy(outinfo->sn, &(buf[i+1]), buf[i]);
183 outinfo->sn[(int)buf[i]] = '\0';
184 } else {
185 memcpy(outinfo->sn, &(buf[i+1]), MAXSNLEN-1);
186 outinfo->sn[MAXSNLEN] = '\0';
187 }
188 i = 1 + (int)buf[i];
189
190 /*
191 * Warning Level. Stored as an unsigned short.
192 */
193 outinfo->warnlevel = aimutil_get16(&buf[i]);
194 i += 2;
195
196 /*
197 * TLV Count. Unsigned short representing the number of
198 * Type-Length-Value triples that follow.
199 */
200 tlvcnt = aimutil_get16(&buf[i]);
201 i += 2;
202
203 /*
204 * Parse out the Type-Length-Value triples as they're found.
205 */
206 while (curtlv < tlvcnt) {
207 lastvalid = 1;
208 curtype = aimutil_get16(&buf[i]);
209 switch (curtype) {
210 /*
211 * Type = 0x0000: Invalid
212 *
213 * AOL has been trying to throw these in just to break us.
214 * They're real nice guys over there at AOL.
215 *
216 * Just skip the two zero bytes and continue on. (This doesn't
217 * count towards tlvcnt!)
218 */
219 case 0x0000:
220 lastvalid = 0;
221 i += 2;
222 break;
223
224 /*
225 * Type = 0x0001: User flags
226 *
227 * Specified as any of the following bitwise ORed together:
228 * 0x0001 Trial (user less than 60days)
229 * 0x0002 Unknown bit 2
230 * 0x0004 AOL Main Service user
231 * 0x0008 Unknown bit 4
232 * 0x0010 Free (AIM) user
233 * 0x0020 Away
234 *
235 * In some odd cases, we can end up with more
236 * than one of these. We only want the first,
237 * as the others may not be something we want.
238 *
239 */
240 case 0x0001:
241 if (tlv1) /* use only the first */
242 break;
243 outinfo->flags = aimutil_get16(&buf[i+4]);
244 tlv1++;
245 break;
246
247 /*
248 * Type = 0x0002: Member-Since date.
249 *
250 * The time/date that the user originally
251 * registered for the service, stored in
252 * time_t format
253 */
254 case 0x0002:
255 outinfo->membersince = aimutil_get32(&buf[i+4]);
256 break;
257
258 /*
259 * Type = 0x0003: On-Since date.
260 *
261 * The time/date that the user started
262 * their current session, stored in time_t
263 * format.
264 */
265 case 0x0003:
266 outinfo->onlinesince = aimutil_get32(&buf[i+4]);
267 break;
268
269 /*
270 * Type = 0x0004: Idle time.
271 *
272 * Number of seconds since the user
273 * actively used the service.
274 */
275 case 0x0004:
276 outinfo->idletime = aimutil_get16(&buf[i+4]);
277 break;
278
279 /*
280 * Type = 0x0006: ICQ Online Status
281 *
282 * ICQ's Away/DND/etc "enriched" status
283 * Some decoding of values done by Scott <darkagl@pcnet.com>
284 */
285 case 0x0006:
286 outinfo->icqinfo.status = aimutil_get16(buf+i+2+2+2);
287 break;
288
289
290 /*
291 * Type = 0x000a
292 *
293 * ICQ User IP Address.
294 * Ahh, the joy of ICQ security.
295 */
296 case 0x000a:
297 outinfo->icqinfo.ipaddr = aimutil_get32(&buf[i+4]);
298 break;
299
300 /* Type = 0x000c
301 *
302 * random crap containing the IP address,
303 * apparently a port number, and some Other Stuff.
304 *
305 */
306 case 0x000c:
307 memcpy(outinfo->icqinfo.crap, &buf[i+4], 0x25);
308 break;
309
310 /*
311 * Type = 0x000d
312 *
313 * Capability information. Not real sure of
314 * actual decoding. See comment on aim_bos_setprofile()
315 * in aim_misc.c about the capability block, its the same.
316 *
317 */
318 case 0x000d:
319 {
320 int len;
321 len = aimutil_get16(buf+i+2);
322 if (!len)
323 break;
324
325 outinfo->capabilities = aim_getcap(sess, buf+i+4, len);
326 }
327 break;
328
329 /*
330 * Type = 0x000e
331 *
332 * Unknown. Always of zero length, and always only
333 * on AOL users.
334 *
335 * Ignore.
336 *
337 */
338 case 0x000e:
339 break;
340
341 /*
342 * Type = 0x000f: Session Length. (AIM)
343 * Type = 0x0010: Session Length. (AOL)
344 *
345 * The duration, in seconds, of the user's
346 * current session.
347 *
348 * Which TLV type this comes in depends
349 * on the service the user is using (AIM or AOL).
350 *
351 */
352 case 0x000f:
353 case 0x0010:
354 outinfo->sessionlen = aimutil_get32(&buf[i+4]);
355 break;
356
357 /*
358 * Reaching here indicates that either AOL has
359 * added yet another TLV for us to deal with,
360 * or the parsing has gone Terribly Wrong.
361 *
362 * Either way, inform the owner and attempt
363 * recovery.
364 *
365 */
366 default:
367 {
368 int len,z = 0, y = 0, x = 0;
369 char tmpstr[160];
370
371 faimdprintf(sess, 0, "userinfo: **warning: unexpected TLV:\n");
372 faimdprintf(sess, 0, "userinfo: sn =%s\n", outinfo->sn);
373 faimdprintf(sess, 0, "userinfo: curtlv=0x%04x\n", curtlv);
374 faimdprintf(sess, 0, "userinfo: type =0x%04x\n",aimutil_get16(&buf[i]));
375 faimdprintf(sess, 0, "userinfo: length=0x%04x\n", len = aimutil_get16(&buf[i+2]));
376 faimdprintf(sess, 0, "userinfo: data: \n");
377 while (z<len)
378 {
379 x = snprintf(tmpstr, sizeof(tmpstr), "userinfo: ");
380 for (y = 0; y < 8; y++)
381 {
382 if (z<len)
383 {
384 snprintf(tmpstr+x, sizeof(tmpstr)-x, "%02x ", buf[i+4+z]);
385 z++;
386 x += 3;
387 }
388 else
389 break;
390 }
391 faimdprintf(sess, 0, "%s\n", tmpstr);
392 }
393 }
394 break;
395 }
396 /*
397 * No matter what, TLV triplets should always look like this:
398 *
399 * u_short type;
400 * u_short length;
401 * u_char data[length];
402 *
403 */
404 if (lastvalid) {
405 i += (2 + 2 + aimutil_get16(&buf[i+2]));
406 curtlv++;
407 }
408 }
409
410 return i;
411 }
412
413 /*
414 * Inverse of aim_extractuserinfo()
415 */
416 faim_internal int aim_putuserinfo(u_char *buf, int buflen, struct aim_userinfo_s *info)
417 {
418 int i = 0, numtlv = 0;
419 struct aim_tlvlist_t *tlvlist = NULL;
420
421 if (!buf || !info)
422 return 0;
423
424 i += aimutil_put8(buf+i, strlen(info->sn));
425 i += aimutil_putstr(buf+i, info->sn, strlen(info->sn));
426
427 i += aimutil_put16(buf+i, info->warnlevel);
428
429
430 aim_addtlvtochain16(&tlvlist, 0x0001, info->flags);
431 numtlv++;
432
433 aim_addtlvtochain32(&tlvlist, 0x0002, info->membersince);
434 numtlv++;
435
436 aim_addtlvtochain32(&tlvlist, 0x0003, info->onlinesince);
437 numtlv++;
438
439 aim_addtlvtochain16(&tlvlist, 0x0004, info->idletime);
440 numtlv++;
441
442 #if ICQ_OSCAR_SUPPORT
443 if(atoi(info->sn) != 0) {
444 aim_addtlvtochain16(&tlvlist, 0x0006, info->icqinfo.status);
445 aim_addtlvtochain32(&tlvlist, 0x000a, info->icqinfo.ipaddr);
446 }
447 #endif
448
449 aim_addtlvtochain_caps(&tlvlist, 0x000d, info->capabilities);
450 numtlv++;
451
452 aim_addtlvtochain32(&tlvlist, (unsigned short)((info->flags)&AIM_FLAG_AOL?0x0010:0x000f), info->sessionlen);
453 numtlv++;
454
455 i += aimutil_put16(buf+i, numtlv); /* tlvcount */
456 i += aim_writetlvchain(buf+i, buflen-i, &tlvlist); /* tlvs */
457 aim_freetlvchain(&tlvlist);
458
459 return i;
460 }
461
462 faim_export int aim_sendbuddyoncoming(struct aim_session_t *sess, struct aim_conn_t *conn, struct aim_userinfo_s *info)
463 {
464 struct command_tx_struct *tx;
465 int i = 0;
466
467 if (!sess || !conn || !info)
468 return 0;
469
470 if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 1152)))
471 return -1;
472
473 tx->lock = 1;
474
475 i += aimutil_put16(tx->data+i, 0x0003);
476 i += aimutil_put16(tx->data+i, 0x000b);
477 i += aimutil_put16(tx->data+i, 0x0000);
478 i += aimutil_put16(tx->data+i, 0x0000);
479 i += aimutil_put16(tx->data+i, 0x0000);
480
481 i += aim_putuserinfo(tx->data+i, tx->commandlen-i, info);
482
483 tx->commandlen = i;
484 tx->lock = 0;
485 aim_tx_enqueue(sess, tx);
486
487 return 0;
488 }
489
490 faim_export int aim_sendbuddyoffgoing(struct aim_session_t *sess, struct aim_conn_t *conn, char *sn)
491 {
492 struct command_tx_struct *tx;
493 int i = 0;
494
495 if (!sess || !conn || !sn)
496 return 0;
497
498 if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 10+1+strlen(sn))))
499 return -1;
500
501 tx->lock = 1;
502
503 i += aimutil_put16(tx->data+i, 0x0003);
504 i += aimutil_put16(tx->data+i, 0x000c);
505 i += aimutil_put16(tx->data+i, 0x0000);
506 i += aimutil_put16(tx->data+i, 0x0000);
507 i += aimutil_put16(tx->data+i, 0x0000);
508
509 i += aimutil_put8(tx->data+i, strlen(sn));
510 i += aimutil_putstr(tx->data+i, sn, strlen(sn));
511
512 tx->lock = 0;
513 aim_tx_enqueue(sess, tx);
514
515 return 0;
516 }
517
518 faim_export int aim_0002_000b(struct aim_session_t *sess, struct aim_conn_t *conn, const char *sn)
519 {
520 struct command_tx_struct *tx;
521 int i = 0;
522
523 if (!sess || !conn || !sn)
524 return 0;
525
526 if (!(tx = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 10+1+strlen(sn))))
527 return -1;
528
529 tx->lock = 1;
530
531 i = aim_putsnac(tx->data, 0x0002, 0x000b, 0x0000, sess->snac_nextid);
532 i += aimutil_put8(tx->data+i, strlen(sn));
533 i += aimutil_putstr(tx->data+i, sn, strlen(sn));
534
535 tx->commandlen = i;
536 tx->lock = 0;
537 aim_tx_enqueue(sess, tx);
538
539 return 0;
540 }
541
542 static int rights(struct aim_session_t *sess, aim_module_t *mod, struct command_rx_struct *rx, aim_modsnac_t *snac, unsigned char *data, int datalen)
543 {
544 struct aim_tlvlist_t *tlvlist;
545 aim_rxcallback_t userfunc;
546 int ret = 0;
547
548 tlvlist = aim_readtlvchain(data, datalen);
549
550 if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
551 ret = userfunc(sess, rx);
552
553 aim_freetlvchain(&tlvlist);
554
555 return ret;
556 }
557
558 static int userinfo(struct aim_session_t *sess, aim_module_t *mod, struct command_rx_struct *rx, aim_modsnac_t *snac, unsigned char *data, int datalen)
559 {
560 struct aim_userinfo_s userinfo;
561 char *text_encoding = NULL;
562 char *text = NULL;
563 int i = 0;
564 aim_rxcallback_t userfunc;
565 struct aim_tlvlist_t *tlvlist;
566 struct aim_snac_t *origsnac = NULL;
567 struct aim_priv_inforeq *inforeq;
568 int ret = 0;
569
570 origsnac = aim_remsnac(sess, snac->id);
571
572 if (!origsnac || !origsnac->data) {
573 faimdprintf(sess, 0, "parse_userinfo_middle: major problem: no snac stored!\n");
574 return 0;
575 }
576
577 inforeq = (struct aim_priv_inforeq *)origsnac->data;
578
579 if ((inforeq->infotype != AIM_GETINFO_GENERALINFO) &&
580 (inforeq->infotype != AIM_GETINFO_AWAYMESSAGE)) {
581 faimdprintf(sess, 0, "parse_userinfo_middle: unknown infotype in request! (0x%04x)\n", inforeq->infotype);
582 return 0;
583 }
584
585 i = aim_extractuserinfo(sess, data, &userinfo);
586
587 tlvlist = aim_readtlvchain(data+i, datalen-i);
588
589 /*
590 * Depending on what informational text was requested, different
591 * TLVs will appear here.
592 *
593 * Profile will be 1 and 2, away message will be 3 and 4.
594 */
595 if (aim_gettlv(tlvlist, 0x0001, 1)) {
596 text_encoding = aim_gettlv_str(tlvlist, 0x0001, 1);
597 text = aim_gettlv_str(tlvlist, 0x0002, 1);
598 } else if (aim_gettlv(tlvlist, 0x0003, 1)) {
599 text_encoding = aim_gettlv_str(tlvlist, 0x0003, 1);
600 text = aim_gettlv_str(tlvlist, 0x0004, 1);
601 }
602
603 if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
604 ret = userfunc(sess, rx, &userinfo, text_encoding, text, inforeq->infotype);
605
606 free(text_encoding);
607 free(text);
608
609 aim_freetlvchain(&tlvlist);
610
611 if (origsnac) {
612 if (origsnac->data)
613 free(origsnac->data);
614 free(origsnac);
615 }
616
617 return ret;
618 }
619
620 static int snachandler(struct aim_session_t *sess, aim_module_t *mod, struct command_rx_struct *rx, aim_modsnac_t *snac, unsigned char *data, int datalen)
621 {
622
623 if (snac->subtype == 0x0003)
624 return rights(sess, mod, rx, snac, data, datalen);
625 else if (snac->subtype == 0x0006)
626 return userinfo(sess, mod, rx, snac, data, datalen);
627
628 return 0;
629 }
630
631 faim_internal int locate_modfirst(struct aim_session_t *sess, aim_module_t *mod)
632 {
633
634 mod->family = 0x0002;
635 mod->version = 0x0000;
636 mod->flags = 0;
637 strncpy(mod->name, "locate", sizeof(mod->name));
638 mod->snachandler = snachandler;
639
640 return 0;
641 }