?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Remove useless comparison
[pidgin-git.git] / libpurple / protocols / oscar / family_icq.c
blobdac6b10b546dbfa5d53042d4f875a491c5e7b690
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 0x0015 - Encapsulated ICQ.
23 *
24 */
25
26 #include "encoding.h"
27 #include "oscar.h"
28
29 #define AIM_ICQ_INFO_REQUEST 0x04b2
30 #define AIM_ICQ_ALIAS_REQUEST 0x04ba
31
32 static
33 int compare_icq_infos(gconstpointer a, gconstpointer b)
34 {
35 const struct aim_icq_info* aa = a;
36 const guint16* bb = b;
37 return aa->reqid - *bb;
38 }
39
40 static void aim_icq_freeinfo(struct aim_icq_info *info) {
41 int i;
42
43 if (!info)
44 return;
45 g_free(info->nick);
46 g_free(info->first);
47 g_free(info->last);
48 g_free(info->email);
49 g_free(info->homecity);
50 g_free(info->homestate);
51 g_free(info->homephone);
52 g_free(info->homefax);
53 g_free(info->homeaddr);
54 g_free(info->mobile);
55 g_free(info->homezip);
56 g_free(info->personalwebpage);
57 if (info->email2)
58 for (i = 0; i < info->numaddresses; i++)
59 g_free(info->email2[i]);
60 g_free(info->email2);
61 g_free(info->workcity);
62 g_free(info->workstate);
63 g_free(info->workphone);
64 g_free(info->workfax);
65 g_free(info->workaddr);
66 g_free(info->workzip);
67 g_free(info->workcompany);
68 g_free(info->workdivision);
69 g_free(info->workposition);
70 g_free(info->workwebpage);
71 g_free(info->info);
72 g_free(info->status_note_title);
73 g_free(info->auth_request_reason);
74 }
75
76 static
77 int error(OscarData *od, aim_modsnac_t *error_snac, ByteStream *bs)
78 {
79 aim_snac_t *original_snac = aim_remsnac(od, error_snac->id);
80 guint16 *request_type;
81 GSList *original_info_ptr;
82 struct aim_icq_info *original_info;
83 guint16 reason;
84 gchar *uin;
85
86 if (!original_snac || (original_snac->family != SNAC_FAMILY_ICQ) || !original_snac->data) {
87 purple_debug_misc("oscar", "icq: the original snac for the error packet was not found");
88 g_free(original_snac);
89 return 0;
90 }
91
92 request_type = original_snac->data;
93 original_info_ptr = g_slist_find_custom(od->icq_info, &original_snac->id, compare_icq_infos);
94
95 if (!original_info_ptr) {
96 purple_debug_misc("oscar", "icq: the request info for the error packet was not found");
97 g_free(original_snac);
98 return 0;
99 }
100
101 original_info = original_info_ptr->data;
102
103 reason = byte_stream_get16(bs);
104 uin = g_strdup_printf("%u", original_info->uin);
105 switch (*request_type) {
106 case AIM_ICQ_INFO_REQUEST:
107 oscar_user_info_display_error(od, reason, uin);
108 break;
109 case AIM_ICQ_ALIAS_REQUEST:
110 /* Couldn't retrieve an alias for the buddy requesting authorization; have to make do with UIN only. */
111 if (original_info->for_auth_request)
112 oscar_auth_recvrequest(od->gc, uin, NULL, original_info->auth_request_reason);
113 break;
114 default:
115 purple_debug_misc("oscar", "icq: got an error packet with unknown request type %u", *request_type);
116 break;
117 }
118
119 aim_icq_freeinfo(original_info);
120 od->icq_info = g_slist_remove(od->icq_info, original_info_ptr);
121 g_free(original_snac->data);
122 g_free(original_snac);
123 return 1;
124 }
125
126 int
127 aim_icq_setsecurity(OscarData *od, gboolean auth_required, gboolean webaware)
128 {
129 FlapConnection *conn;
130 ByteStream bs;
131 aim_snacid_t snacid;
132 int bslen;
133
134 if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_ICQ)))
135 return -EINVAL;
136
137 bslen = 2+4+2+2+2+2+2+1+1+1+1+1+1;
138
139 byte_stream_new(&bs, 4 + bslen);
140
141 snacid = aim_cachesnac(od, SNAC_FAMILY_ICQ, 0x0002, 0x0000, NULL, 0);
142
143 /* For simplicity, don't bother using a tlvlist */
144 byte_stream_put16(&bs, 0x0001);
145 byte_stream_put16(&bs, bslen);
146
147 byte_stream_putle16(&bs, bslen - 2);
148 byte_stream_putuid(&bs, od);
149 byte_stream_putle16(&bs, 0x07d0); /* I command thee. */
150 byte_stream_putle16(&bs, snacid); /* eh. */
151 byte_stream_putle16(&bs, 0x0c3a); /* shrug. */
152 byte_stream_putle16(&bs, 0x030c);
153 byte_stream_putle16(&bs, 0x0001);
154 byte_stream_putle8(&bs, webaware);
155 byte_stream_putle8(&bs, 0xf8);
156 byte_stream_putle8(&bs, 0x02);
157 byte_stream_putle8(&bs, 0x01);
158 byte_stream_putle8(&bs, 0x00);
159 byte_stream_putle8(&bs, !auth_required);
160
161 flap_connection_send_snac(od, conn, SNAC_FAMILY_ICQ, 0x0002, snacid, &bs);
162
163 byte_stream_destroy(&bs);
164
165 return 0;
166 }
167
168 /**
169 * Change your ICQ password.
170 *
171 * @param od The oscar session
172 * @param passwd The new password. If this is longer than 8 characters it
173 * will be truncated.
174 * @return Return 0 if no errors, otherwise return the error number.
175 */
176 int aim_icq_changepasswd(OscarData *od, const char *passwd)
177 {
178 FlapConnection *conn;
179 ByteStream bs;
180 aim_snacid_t snacid;
181 int bslen, passwdlen;
182
183 if (!passwd)
184 return -EINVAL;
185
186 if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_ICQ)))
187 return -EINVAL;
188
189 passwdlen = strlen(passwd);
190 if (passwdlen > MAXICQPASSLEN)
191 passwdlen = MAXICQPASSLEN;
192 bslen = 2+4+2+2+2+2+passwdlen+1;
193
194 byte_stream_new(&bs, 4 + bslen);
195
196 snacid = aim_cachesnac(od, SNAC_FAMILY_ICQ, 0x0002, 0x0000, NULL, 0);
197
198 /* For simplicity, don't bother using a tlvlist */
199 byte_stream_put16(&bs, 0x0001);
200 byte_stream_put16(&bs, bslen);
201
202 byte_stream_putle16(&bs, bslen - 2);
203 byte_stream_putuid(&bs, od);
204 byte_stream_putle16(&bs, 0x07d0); /* I command thee. */
205 byte_stream_putle16(&bs, snacid); /* eh. */
206 byte_stream_putle16(&bs, 0x042e); /* shrug. */
207 byte_stream_putle16(&bs, passwdlen+1);
208 byte_stream_putraw(&bs, (const guint8 *)passwd, passwdlen);
209 byte_stream_putle8(&bs, '\0');
210
211 flap_connection_send_snac(od, conn, SNAC_FAMILY_ICQ, 0x0002, snacid, &bs);
212
213 byte_stream_destroy(&bs);
214
215 return 0;
216 }
217
218 int aim_icq_getallinfo(OscarData *od, const char *uin)
219 {
220 FlapConnection *conn;
221 ByteStream bs;
222 aim_snacid_t snacid;
223 int bslen;
224 struct aim_icq_info *info;
225 guint16 request_type = AIM_ICQ_INFO_REQUEST;
226
227 if (!uin || uin[0] < '0' || uin[0] > '9')
228 return -EINVAL;
229
230 if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_ICQ)))
231 return -EINVAL;
232
233 bslen = 2 + 4 + 2 + 2 + 2 + 4;
234
235 byte_stream_new(&bs, 4 + bslen);
236
237 snacid = aim_cachesnac(od, SNAC_FAMILY_ICQ, 0x0002, 0x0000, &request_type, sizeof(request_type));
238
239 /* For simplicity, don't bother using a tlvlist */
240 byte_stream_put16(&bs, 0x0001);
241 byte_stream_put16(&bs, bslen);
242
243 byte_stream_putle16(&bs, bslen - 2);
244 byte_stream_putuid(&bs, od);
245 byte_stream_putle16(&bs, 0x07d0); /* I command thee. */
246 byte_stream_putle16(&bs, snacid); /* eh. */
247 byte_stream_putle16(&bs, request_type); /* shrug. */
248 byte_stream_putle32(&bs, atoi(uin));
249
250 flap_connection_send_snac_with_priority(od, conn, SNAC_FAMILY_ICQ, 0x0002, snacid, &bs, FALSE);
251
252 byte_stream_destroy(&bs);
253
254 /* Keep track of this request and the ICQ number and request ID */
255 info = (struct aim_icq_info *)g_new0(struct aim_icq_info, 1);
256 info->reqid = snacid;
257 info->uin = atoi(uin);
258 od->icq_info = g_slist_prepend(od->icq_info, info);
259
260 return 0;
261 }
262
263 int aim_icq_getalias(OscarData *od, const char *uin, gboolean for_auth_request, char *auth_request_reason)
264 {
265 FlapConnection *conn;
266 ByteStream bs;
267 aim_snacid_t snacid;
268 int bslen;
269 struct aim_icq_info *info;
270 guint16 request_type = AIM_ICQ_ALIAS_REQUEST;
271
272 if (!uin || uin[0] < '0' || uin[0] > '9')
273 return -EINVAL;
274
275 if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_ICQ)))
276 return -EINVAL;
277
278 purple_debug_info("oscar", "Requesting ICQ alias for %s\n", uin);
279
280 bslen = 2 + 4 + 2 + 2 + 2 + 4;
281
282 byte_stream_new(&bs, 4 + bslen);
283
284 snacid = aim_cachesnac(od, SNAC_FAMILY_ICQ, 0x0002, 0x0000, &request_type, sizeof(request_type));
285
286 /* For simplicity, don't bother using a tlvlist */
287 byte_stream_put16(&bs, 0x0001);
288 byte_stream_put16(&bs, bslen);
289
290 byte_stream_putle16(&bs, bslen - 2);
291 byte_stream_putuid(&bs, od);
292 byte_stream_putle16(&bs, 0x07d0); /* I command thee. */
293 byte_stream_putle16(&bs, snacid); /* eh. */
294 byte_stream_putle16(&bs, request_type); /* shrug. */
295 byte_stream_putle32(&bs, atoi(uin));
296
297 flap_connection_send_snac_with_priority(od, conn, SNAC_FAMILY_ICQ, 0x0002, snacid, &bs, FALSE);
298
299 byte_stream_destroy(&bs);
300
301 /* Keep track of this request and the ICQ number and request ID */
302 info = (struct aim_icq_info *)g_new0(struct aim_icq_info, 1);
303 info->reqid = snacid;
304 info->uin = atoi(uin);
305 info->for_auth_request = for_auth_request;
306 info->auth_request_reason = g_strdup(auth_request_reason);
307 od->icq_info = g_slist_prepend(od->icq_info, info);
308
309 return 0;
310 }
311
312 /*
313 * Send an SMS message. This is the non-US way. The US-way is to IM
314 * their cell phone number (+19195551234).
315 *
316 * We basically construct and send an XML message. The format is:
317 * <icq_sms_message>
318 * <destination>full_phone_without_leading_+</destination>
319 * <text>message</text>
320 * <codepage>1252</codepage>
321 * <senders_UIN>self_uin</senders_UIN>
322 * <senders_name>self_name</senders_name>
323 * <delivery_receipt>Yes|No</delivery_receipt>
324 * <time>Wkd, DD Mmm YYYY HH:MM:SS TMZ</time>
325 * </icq_sms_message>
326 *
327 * Yeah hi Peter, whaaaat's happening. If there's any way to use
328 * a codepage other than 1252 that would be great. Thaaaanks.
329 */
330 int aim_icq_sendsms(OscarData *od, const char *name, const char *msg, const char *alias)
331 {
332 FlapConnection *conn;
333 PurpleAccount *account;
334 ByteStream bs;
335 aim_snacid_t snacid;
336 int bslen, xmllen;
337 char *xml;
338 const char *timestr, *username;
339 time_t t;
340 struct tm *tm;
341 gchar *stripped;
342
343 if (!od || !(conn = flap_connection_findbygroup(od, SNAC_FAMILY_ICQ)))
344 return -EINVAL;
345
346 if (!name || !msg || !alias)
347 return -EINVAL;
348
349 account = purple_connection_get_account(od->gc);
350 username = purple_account_get_username(account);
351
352 time(&t);
353 tm = gmtime(&t);
354 timestr = purple_utf8_strftime("%a, %d %b %Y %T %Z", tm);
355
356 stripped = purple_markup_strip_html(msg);
357
358 /* The length of xml included the null terminating character */
359 xmllen = 209 + strlen(name) + strlen(stripped) + strlen(username) + strlen(alias) + strlen(timestr) + 1;
360
361 xml = g_new(char, xmllen);
362 snprintf(xml, xmllen, "<icq_sms_message>"
363 "<destination>%s</destination>"
364 "<text>%s</text>"
365 "<codepage>1252</codepage>"
366 "<senders_UIN>%s</senders_UIN>"
367 "<senders_name>%s</senders_name>"
368 "<delivery_receipt>Yes</delivery_receipt>"
369 "<time>%s</time>"
370 "</icq_sms_message>",
371 name, stripped, username, alias, timestr);
372
373 bslen = 36 + xmllen;
374
375 byte_stream_new(&bs, 4 + bslen);
376
377 snacid = aim_cachesnac(od, SNAC_FAMILY_ICQ, 0x0002, 0x0000, NULL, 0);
378
379 /* For simplicity, don't bother using a tlvlist */
380 byte_stream_put16(&bs, 0x0001);
381 byte_stream_put16(&bs, bslen);
382
383 byte_stream_putle16(&bs, bslen - 2);
384 byte_stream_putuid(&bs, od);
385 byte_stream_putle16(&bs, 0x07d0); /* I command thee. */
386 byte_stream_putle16(&bs, snacid); /* eh. */
387
388 /* From libicq200-0.3.2/src/SNAC-SRV.cpp */
389 byte_stream_putle16(&bs, 0x1482);
390 byte_stream_put16(&bs, 0x0001);
391 byte_stream_put16(&bs, 0x0016);
392 byte_stream_put32(&bs, 0x00000000);
393 byte_stream_put32(&bs, 0x00000000);
394 byte_stream_put32(&bs, 0x00000000);
395 byte_stream_put32(&bs, 0x00000000);
396
397 byte_stream_put16(&bs, 0x0000);
398 byte_stream_put16(&bs, xmllen);
399 byte_stream_putstr(&bs, xml);
400 byte_stream_put8(&bs, 0x00);
401
402 flap_connection_send_snac(od, conn, SNAC_FAMILY_ICQ, 0x0002, snacid, &bs);
403
404 byte_stream_destroy(&bs);
405
406 g_free(xml);
407 g_free(stripped);
408
409 return 0;
410 }
411
412 static void
413 gotalias(OscarData *od, struct aim_icq_info *info)
414 {
415 PurpleConnection *gc = od->gc;
416 PurpleAccount *account = purple_connection_get_account(gc);
417 PurpleBuddy *b;
418 gchar *utf8 = oscar_utf8_try_convert(account, od, info->nick);
419
420 if (info->for_auth_request) {
421 oscar_auth_recvrequest(gc, g_strdup_printf("%u", info->uin), utf8, info->auth_request_reason);
422 } else {
423 if (utf8 && *utf8) {
424 gchar who[16];
425 g_snprintf(who, sizeof(who), "%u", info->uin);
426 serv_got_alias(gc, who, utf8);
427 if ((b = purple_find_buddy(account, who))) {
428 purple_blist_node_set_string((PurpleBlistNode*)b, "servernick", utf8);
429 }
430 }
431 g_free(utf8);
432 }
433 }
434
435 /**
436 * Subtype 0x0003 - Response to SNAC_FAMILY_ICQ/0x002, contains an ICQesque packet.
437 */
438 static int
439 icqresponse(OscarData *od, aim_modsnac_t *snac, ByteStream *bs)
440 {
441 GSList *tlvlist;
442 aim_tlv_t *datatlv;
443 ByteStream qbs;
444 guint32 ouruin;
445 guint16 cmdlen, cmd, reqid;
446
447 if (!(tlvlist = aim_tlvlist_read(bs)) || !(datatlv = aim_tlv_gettlv(tlvlist, 0x0001, 1))) {
448 aim_tlvlist_free(tlvlist);
449 purple_debug_misc("oscar", "corrupt ICQ response\n");
450 return 0;
451 }
452
453 byte_stream_init(&qbs, datatlv->value, datatlv->length);
454
455 cmdlen = byte_stream_getle16(&qbs);
456 ouruin = byte_stream_getle32(&qbs);
457 cmd = byte_stream_getle16(&qbs);
458 reqid = byte_stream_getle16(&qbs);
459
460 purple_debug_misc("oscar", "icq response: %d bytes, %u, 0x%04x, 0x%04x\n", cmdlen, ouruin, cmd, reqid);
461
462 if (cmd == 0x07da) { /* information */
463 guint16 subtype;
464 GSList *info_ptr;
465 struct aim_icq_info *info;
466
467 subtype = byte_stream_getle16(&qbs);
468 byte_stream_advance(&qbs, 1); /* 0x0a */
469
470 /* find other data from the same request */
471 info_ptr = g_slist_find_custom(od->icq_info, &reqid, compare_icq_infos);
472 if (!info_ptr) {
473 struct aim_icq_info *new_info = (struct aim_icq_info *)g_new0(struct aim_icq_info, 1);
474 new_info->reqid = reqid;
475 info_ptr = od->icq_info = g_slist_prepend(od->icq_info, new_info);
476 }
477
478 info = info_ptr->data;
479 switch (subtype) {
480 case 0x00a0: { /* hide ip status */
481 /* nothing */
482 } break;
483
484 case 0x00aa: { /* password change status */
485 /* nothing */
486 } break;
487
488 case 0x00c8: { /* general and "home" information */
489 info->nick = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
490 info->first = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
491 info->last = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
492 info->email = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
493 info->homecity = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
494 info->homestate = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
495 info->homephone = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
496 info->homefax = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
497 info->homeaddr = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
498 info->mobile = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
499 info->homezip = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
500 info->homecountry = byte_stream_getle16(&qbs);
501 /* 0x0a 00 02 00 */
502 /* 1 byte timezone? */
503 /* 1 byte hide email flag? */
504 } break;
505
506 case 0x00dc: { /* personal information */
507 info->age = byte_stream_getle8(&qbs);
508 info->unknown = byte_stream_getle8(&qbs);
509 info->gender = byte_stream_getle8(&qbs); /* Not specified=0x00, Female=0x01, Male=0x02 */
510 info->personalwebpage = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
511 info->birthyear = byte_stream_getle16(&qbs);
512 info->birthmonth = byte_stream_getle8(&qbs);
513 info->birthday = byte_stream_getle8(&qbs);
514 info->language1 = byte_stream_getle8(&qbs);
515 info->language2 = byte_stream_getle8(&qbs);
516 info->language3 = byte_stream_getle8(&qbs);
517 /* 0x00 00 01 00 00 01 00 00 00 00 00 */
518 } break;
519
520 case 0x00d2: { /* work information */
521 info->workcity = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
522 info->workstate = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
523 info->workphone = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
524 info->workfax = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
525 info->workaddr = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
526 info->workzip = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
527 info->workcountry = byte_stream_getle16(&qbs);
528 info->workcompany = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
529 info->workdivision = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
530 info->workposition = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
531 byte_stream_advance(&qbs, 2); /* 0x01 00 */
532 info->workwebpage = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
533 } break;
534
535 case 0x00e6: { /* additional personal information */
536 info->info = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs)-1);
537 } break;
538
539 case 0x00eb: { /* email address(es) */
540 int i;
541 info->numaddresses = byte_stream_getle16(&qbs);
542 info->email2 = (char **)g_new0(char *, info->numaddresses);
543 for (i = 0; i < info->numaddresses; i++) {
544 info->email2[i] = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
545 if (i+1 != info->numaddresses)
546 byte_stream_advance(&qbs, 1); /* 0x00 */
547 }
548 } break;
549
550 case 0x00f0: { /* personal interests */
551 } break;
552
553 case 0x00fa: { /* past background and current organizations */
554 } break;
555
556 case 0x0104: { /* alias info */
557 info->nick = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
558 info->first = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
559 info->last = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
560 byte_stream_advance(&qbs, byte_stream_getle16(&qbs)); /* email address? */
561 /* Then 0x00 02 00 */
562 } break;
563
564 case 0x010e: { /* unknown */
565 /* 0x00 00 */
566 } break;
567
568 case 0x019a: { /* simple info */
569 byte_stream_advance(&qbs, 2);
570 info->uin = byte_stream_getle32(&qbs);
571 info->nick = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
572 info->first = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
573 info->last = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
574 info->email = byte_stream_getstr(&qbs, byte_stream_getle16(&qbs));
575 /* Then 0x00 02 00 00 00 00 00 */
576 } break;
577
578 /* status note title and send request for status note text */
579 case 0x0fb4: {
580 GSList *tlvlist;
581 aim_tlv_t *tlv;
582 FlapConnection *conn;
583 char *uin = NULL;
584 char *status_note_title = NULL;
585
586 conn = flap_connection_findbygroup(od, 0x0004);
587 if (conn == NULL)
588 {
589 purple_debug_misc("oscar", "icq/0x0fb4: flap connection was not found.\n");
590 break;
591 }
592
593 byte_stream_advance(&qbs, 0x02); /* length */
594 byte_stream_advance(&qbs, 0x2f); /* unknown stuff */
595
596 tlvlist = aim_tlvlist_read(&qbs);
597
598 tlv = aim_tlv_gettlv(tlvlist, 0x0032, 1);
599 if (tlv != NULL)
600 /* Get user number */
601 uin = aim_tlv_getvalue_as_string(tlv);
602
603 tlv = aim_tlv_gettlv(tlvlist, 0x0226, 1);
604 if (tlv != NULL)
605 /* Get status note title */
606 status_note_title = aim_tlv_getvalue_as_string(tlv);
607
608 aim_tlvlist_free(tlvlist);
609
610 if (uin == NULL || status_note_title == NULL)
611 {
612 purple_debug_misc("oscar", "icq/0x0fb4: uin or "
613 "status_note_title was not found\n");
614 g_free(uin);
615 g_free(status_note_title);
616 break;
617 }
618
619 if (status_note_title[0] == '\0')
620 {
621 PurpleAccount *account;
622 PurpleBuddy *buddy;
623 PurplePresence *presence;
624 PurpleStatus *status;
625
626 account = purple_connection_get_account(od->gc);
627 buddy = purple_find_buddy(account, uin);
628 presence = purple_buddy_get_presence(buddy);
629 status = purple_presence_get_active_status(presence);
630
631 purple_prpl_got_user_status(account, uin,
632 purple_status_get_id(status),
633 "message", NULL, NULL);
634
635 g_free(status_note_title);
636 }
637 else
638 {
639 struct aim_icq_info *info;
640 ByteStream bs;
641 guint32 bslen;
642 aim_snacid_t snacid;
643 guchar cookie[8];
644
645 info = g_new0(struct aim_icq_info, 1);
646
647 bslen = 13 + strlen(uin) + 30 + 6 + 4 + 55 + 85 + 4;
648 byte_stream_new(&bs, 4 + bslen);
649
650 snacid = aim_cachesnac(od, 0x0004, 0x0006, 0x0000, NULL, 0);
651
652 aim_icbm_makecookie(cookie);
653
654 byte_stream_putraw(&bs, cookie, 8); /* ICBM cookie */
655 byte_stream_put16(&bs, 0x0002); /* message channel */
656 byte_stream_put8(&bs, strlen(uin)); /* uin */
657 byte_stream_putstr(&bs, uin);
658
659 byte_stream_put16(&bs, 0x0005); /* rendez vous data */
660 byte_stream_put16(&bs, 0x00b2);
661 byte_stream_put16(&bs, 0x0000); /* request */
662 byte_stream_putraw(&bs, cookie, 8); /* ICBM cookie */
663 byte_stream_put32(&bs, 0x09461349); /* ICQ server relaying */
664 byte_stream_put16(&bs, 0x4c7f);
665 byte_stream_put16(&bs, 0x11d1);
666 byte_stream_put32(&bs, 0x82224445);
667 byte_stream_put32(&bs, 0x53540000);
668
669 byte_stream_put16(&bs, 0x000a); /* unknown TLV */
670 byte_stream_put16(&bs, 0x0002);
671 byte_stream_put16(&bs, 0x0001);
672
673 byte_stream_put16(&bs, 0x000f); /* unknown TLV */
674 byte_stream_put16(&bs, 0x0000);
675
676 byte_stream_put16(&bs, 0x2711); /* extended data */
677 byte_stream_put16(&bs, 0x008a);
678 byte_stream_putle16(&bs, 0x001b); /* length */
679 byte_stream_putle16(&bs, 0x0009); /* version */
680 byte_stream_putle32(&bs, 0x00000000); /* plugin: none */
681 byte_stream_putle32(&bs, 0x00000000);
682 byte_stream_putle32(&bs, 0x00000000);
683 byte_stream_putle32(&bs, 0x00000000);
684 byte_stream_putle16(&bs, 0x0000); /* unknown */
685 byte_stream_putle32(&bs, 0x00000000); /* client capabilities flags */
686 byte_stream_put8(&bs, 0x00); /* unknown */
687 byte_stream_putle16(&bs, 0x0064); /* downcounter? */
688 byte_stream_putle16(&bs, 0x000e); /* length */
689 byte_stream_putle16(&bs, 0x0064); /* downcounter? */
690 byte_stream_putle32(&bs, 0x00000000); /* unknown */
691 byte_stream_putle32(&bs, 0x00000000);
692 byte_stream_putle32(&bs, 0x00000000);
693 byte_stream_put8(&bs, 0x1a); /* message type: plugin message descibed by text string */
694 byte_stream_put8(&bs, 0x00); /* message flags */
695 byte_stream_putle16(&bs, 0x0000); /* status code */
696 byte_stream_putle16(&bs, 0x0001); /* priority code */
697 byte_stream_putle16(&bs, 0x0000); /* text length */
698
699 byte_stream_put8(&bs, 0x3a); /* message dump */
700 byte_stream_put32(&bs, 0x00811a18);
701 byte_stream_put32(&bs, 0xbc0e6c18);
702 byte_stream_put32(&bs, 0x47a5916f);
703 byte_stream_put32(&bs, 0x18dcc76f);
704 byte_stream_put32(&bs, 0x1a010013);
705 byte_stream_put32(&bs, 0x00000041);
706 byte_stream_put32(&bs, 0x77617920);
707 byte_stream_put32(&bs, 0x53746174);
708 byte_stream_put32(&bs, 0x7573204d);
709 byte_stream_put32(&bs, 0x65737361);
710 byte_stream_put32(&bs, 0x67650100);
711 byte_stream_put32(&bs, 0x00000000);
712 byte_stream_put32(&bs, 0x00000000);
713 byte_stream_put32(&bs, 0x00000000);
714 byte_stream_put32(&bs, 0x00000015);
715 byte_stream_put32(&bs, 0x00000000);
716 byte_stream_put32(&bs, 0x0000000d);
717 byte_stream_put32(&bs, 0x00000074);
718 byte_stream_put32(&bs, 0x6578742f);
719 byte_stream_put32(&bs, 0x782d616f);
720 byte_stream_put32(&bs, 0x6c727466);
721
722 byte_stream_put16(&bs, 0x0003); /* server ACK requested */
723 byte_stream_put16(&bs, 0x0000);
724
725 info->uin = atoi(uin);
726 info->status_note_title = status_note_title;
727
728 memcpy(&info->icbm_cookie, cookie, 8);
729
730 od->icq_info = g_slist_prepend(od->icq_info, info);
731
732 flap_connection_send_snac_with_priority(od, conn, 0x0004, 0x0006, snacid, &bs, FALSE);
733
734 byte_stream_destroy(&bs);
735 }
736
737 g_free(uin);
738
739 } break;
740
741 } /* End switch statement */
742
743 if (!(snac->flags & 0x0001)) {
744 if (subtype != 0x0104)
745 oscar_user_info_display_icq(od, info);
746
747 if (info->uin && info->nick)
748 gotalias(od, info);
749
750 aim_icq_freeinfo(info);
751 od->icq_info = g_slist_remove(od->icq_info, info);
752 }
753 }
754
755 aim_tlvlist_free(tlvlist);
756
757 return 1;
758 }
759
760 static int
761 snachandler(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
762 {
763 if (snac->subtype == 0x0001)
764 return error(od, snac, bs);
765 else if (snac->subtype == 0x0003)
766 return icqresponse(od, snac, bs);
767
768 return 0;
769 }
770
771 static void
772 icq_shutdown(OscarData *od, aim_module_t *mod)
773 {
774 GSList *cur;
775 for (cur = od->icq_info; cur; cur = cur->next)
776 aim_icq_freeinfo(cur->data);
777 g_slist_free(od->icq_info);
778 }
779
780 int
781 icq_modfirst(OscarData *od, aim_module_t *mod)
782 {
783 mod->family = SNAC_FAMILY_ICQ;
784 mod->version = 0x0001;
785 mod->toolid = 0x0110;
786 mod->toolversion = 0x047c;
787 mod->flags = 0;
788 strncpy(mod->name, "icq", sizeof(mod->name));
789 mod->snachandler = snachandler;
790 mod->shutdown = icq_shutdown;
791
792 return 0;
793 }
Git mirror of Pidgin's Mercurial repository