source: libfaim/service.c @ 601733d

barnowl_perlaimdebianowlrelease-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 601733d was cf02dd6, checked in by James M. Kretchmar <kretch@mit.edu>, 17 years ago
*** empty log message ***
  • Property mode set to 100644
File size: 29.6 KB
Line 
1/*
2 * Family 0x0001 - This is a very special group.  All connections support
3 * this group, as it does some particularly good things (like rate limiting).
4 */
5
6#define FAIM_INTERNAL
7#define FAIM_NEED_CONN_INTERNAL
8#include <aim.h>
9
10#include "md5.h"
11
12/* Subtype 0x0002 - Client Online */
13faim_export int aim_clientready(aim_session_t *sess, aim_conn_t *conn)
14{
15        aim_conn_inside_t *ins = (aim_conn_inside_t *)conn->inside;
16        struct snacgroup *sg;
17        aim_frame_t *fr;
18        aim_snacid_t snacid;
19
20        if (!ins)
21                return -EINVAL;
22
23        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1152)))
24                return -ENOMEM;
25
26        snacid = aim_cachesnac(sess, 0x0001, 0x0002, 0x0000, NULL, 0);
27        aim_putsnac(&fr->data, 0x0001, 0x0002, 0x0000, snacid);
28
29        /*
30         * Send only the tool versions that the server cares about (that it
31         * marked as supporting in the server ready SNAC). 
32         */
33        for (sg = ins->groups; sg; sg = sg->next) {
34                aim_module_t *mod;
35
36                if ((mod = aim__findmodulebygroup(sess, sg->group))) {
37                        aimbs_put16(&fr->data, mod->family);
38                        aimbs_put16(&fr->data, mod->version);
39                        aimbs_put16(&fr->data, mod->toolid);
40                        aimbs_put16(&fr->data, mod->toolversion);
41                } else
42                        faimdprintf(sess, 1, "aim_clientready: server supports group 0x%04x but we don't!\n", sg->group);
43        }
44
45        aim_tx_enqueue(sess, fr);
46
47        return 0;
48}
49
50/*
51 * Subtype 0x0003 - Host Online
52 *
53 * See comments in conn.c about how the group associations are supposed
54 * to work, and how they really work.
55 *
56 * This info probably doesn't even need to make it to the client.
57 *
58 * We don't actually call the client here.  This starts off the connection
59 * initialization routine required by all AIM connections.  The next time
60 * the client is called is the CONNINITDONE callback, which should be
61 * shortly after the rate information is acknowledged.
62 *
63 */
64static int hostonline(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
65{
66        fu16_t *families;
67        int famcount;
68
69
70        if (!(families = malloc(aim_bstream_empty(bs))))
71                return 0;
72
73        for (famcount = 0; aim_bstream_empty(bs); famcount++) {
74                families[famcount] = aimbs_get16(bs);
75                aim_conn_addgroup(rx->conn, families[famcount]);
76        }
77
78        free(families);
79
80
81        /*
82         * Next step is in the Host Versions handler.
83         *
84         * Note that we must send this before we request rates, since
85         * the format of the rate information depends on the versions we
86         * give it.
87         *
88         */
89        aim_setversions(sess, rx->conn);
90
91        return 1; 
92}
93
94/* Subtype 0x0004 - Service request */
95faim_export int aim_reqservice(aim_session_t *sess, aim_conn_t *conn, fu16_t serviceid)
96{
97        return aim_genericreq_s(sess, conn, 0x0001, 0x0004, &serviceid);
98}
99
100/* Subtype 0x0005 - Redirect */
101static int redirect(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
102{
103        struct aim_redirect_data redir;
104        aim_rxcallback_t userfunc;
105        aim_tlvlist_t *tlvlist;
106        aim_snac_t *origsnac = NULL;
107        int ret = 0;
108
109        memset(&redir, 0, sizeof(redir));
110
111        tlvlist = aim_tlvlist_read(bs);
112
113        if (!aim_tlv_gettlv(tlvlist, 0x000d, 1) ||
114                        !aim_tlv_gettlv(tlvlist, 0x0005, 1) ||
115                        !aim_tlv_gettlv(tlvlist, 0x0006, 1)) {
116                aim_tlvlist_free(&tlvlist);
117                return 0;
118        }
119
120        redir.group = aim_tlv_get16(tlvlist, 0x000d, 1);
121        redir.ip = aim_tlv_getstr(tlvlist, 0x0005, 1);
122        redir.cookielen = aim_tlv_gettlv(tlvlist, 0x0006, 1)->length;
123        redir.cookie = aim_tlv_getstr(tlvlist, 0x0006, 1);
124
125        /* Fetch original SNAC so we can get csi if needed */
126        origsnac = aim_remsnac(sess, snac->id);
127
128        if ((redir.group == AIM_CONN_TYPE_CHAT) && origsnac) {
129                struct chatsnacinfo *csi = (struct chatsnacinfo *)origsnac->data;
130
131                redir.chat.exchange = csi->exchange;
132                redir.chat.room = csi->name;
133                redir.chat.instance = csi->instance;
134        }
135
136        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
137                ret = userfunc(sess, rx, &redir);
138
139        free((void *)redir.ip);
140        free((void *)redir.cookie);
141
142        if (origsnac)
143                free(origsnac->data);
144        free(origsnac);
145
146        aim_tlvlist_free(&tlvlist);
147
148        return ret;
149}
150
151/* Subtype 0x0006 - Request Rate Information. */
152faim_internal int aim_reqrates(aim_session_t *sess, aim_conn_t *conn)
153{
154        return aim_genericreq_n_snacid(sess, conn, 0x0001, 0x0006);
155}
156
157/*
158 * OSCAR defines several 'rate classes'.  Each class has seperate
159 * rate limiting properties (limit level, alert level, disconnect
160 * level, etc), and a set of SNAC family/type pairs associated with
161 * it.  The rate classes, their limiting properties, and the definitions
162 * of which SNACs are belong to which class, are defined in the
163 * Rate Response packet at login to each host. 
164 *
165 * Logically, all rate offenses within one class count against further
166 * offenses for other SNACs in the same class (ie, sending messages
167 * too fast will limit the number of user info requests you can send,
168 * since those two SNACs are in the same rate class).
169 *
170 * Since the rate classes are defined dynamically at login, the values
171 * below may change. But they seem to be fairly constant.
172 *
173 * Currently, BOS defines five rate classes, with the commonly used
174 * members as follows...
175 *
176 *  Rate class 0x0001:
177 *      - Everything thats not in any of the other classes
178 *
179 *  Rate class 0x0002:
180 *      - Buddy list add/remove
181 *      - Permit list add/remove
182 *      - Deny list add/remove
183 *
184 *  Rate class 0x0003:
185 *      - User information requests
186 *      - Outgoing ICBMs
187 *
188 *  Rate class 0x0004:
189 *      - A few unknowns: 2/9, 2/b, and f/2
190 *
191 *  Rate class 0x0005:
192 *      - Chat room create
193 *      - Outgoing chat ICBMs
194 *
195 * The only other thing of note is that class 5 (chat) has slightly looser
196 * limiting properties than class 3 (normal messages).  But thats just a
197 * small bit of trivia for you.
198 *
199 * The last thing that needs to be learned about the rate limiting
200 * system is how the actual numbers relate to the passing of time.  This
201 * seems to be a big mystery.
202 *
203 */
204
205static void rc_addclass(struct rateclass **head, struct rateclass *inrc)
206{
207        struct rateclass *rc, *rc2;
208
209        if (!(rc = malloc(sizeof(struct rateclass))))
210                return;
211
212        memcpy(rc, inrc, sizeof(struct rateclass));
213        rc->next = NULL;
214
215        for (rc2 = *head; rc2 && rc2->next; rc2 = rc2->next)
216                ;
217
218        if (!rc2)
219                *head = rc;
220        else
221                rc2->next = rc;
222
223        return;
224}
225
226static struct rateclass *rc_findclass(struct rateclass **head, fu16_t id)
227{
228        struct rateclass *rc;
229
230        for (rc = *head; rc; rc = rc->next) {
231                if (rc->classid == id)
232                        return rc;
233        }
234
235        return NULL;
236}
237
238static void rc_addpair(struct rateclass *rc, fu16_t group, fu16_t type)
239{
240        struct snacpair *sp, *sp2;
241
242        if (!(sp = malloc(sizeof(struct snacpair))))
243                return;
244        memset(sp, 0, sizeof(struct snacpair));
245
246        sp->group = group;
247        sp->subtype = type;
248        sp->next = NULL;
249
250        for (sp2 = rc->members; sp2 && sp2->next; sp2 = sp2->next)
251                ;
252
253        if (!sp2)
254                rc->members = sp;
255        else
256                sp2->next = sp;
257
258        return;
259}
260
261/* Subtype 0x0007 - Rate Parameters */
262static int rateresp(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
263{
264        aim_conn_inside_t *ins = (aim_conn_inside_t *)rx->conn->inside;
265        fu16_t numclasses, i;
266        aim_rxcallback_t userfunc;
267
268
269        /*
270         * First are the parameters for each rate class.
271         */
272        numclasses = aimbs_get16(bs);
273        for (i = 0; i < numclasses; i++) {
274                struct rateclass rc;
275
276                memset(&rc, 0, sizeof(struct rateclass));
277
278                rc.classid = aimbs_get16(bs);
279                rc.windowsize = aimbs_get32(bs);
280                rc.clear = aimbs_get32(bs);
281                rc.alert = aimbs_get32(bs);
282                rc.limit = aimbs_get32(bs);
283                rc.disconnect = aimbs_get32(bs);
284                rc.current = aimbs_get32(bs);
285                rc.max = aimbs_get32(bs);
286
287                /*
288                 * The server will send an extra five bytes of parameters
289                 * depending on the version we advertised in 1/17.  If we
290                 * didn't send 1/17 (evil!), then this will crash and you
291                 * die, as it will default to the old version but we have
292                 * the new version hardcoded here.
293                 */
294                if (mod->version >= 3)
295                        aimbs_getrawbuf(bs, rc.unknown, sizeof(rc.unknown));
296
297                faimdprintf(sess, 1, "--- Adding rate class %d to connection type %d: window size = %ld, clear = %ld, alert = %ld, limit = %ld, disconnect = %ld, current = %ld, max = %ld\n", rx->conn->type, rc.classid, rc.windowsize, rc.clear, rc.alert, rc.limit, rc.disconnect, rc.current, rc.max);
298
299                rc_addclass(&ins->rates, &rc);
300        }
301
302        /*
303         * Then the members of each class.
304         */
305        for (i = 0; i < numclasses; i++) {
306                fu16_t classid, count;
307                struct rateclass *rc;
308                int j;
309
310                classid = aimbs_get16(bs);
311                count = aimbs_get16(bs);
312
313                rc = rc_findclass(&ins->rates, classid);
314
315                for (j = 0; j < count; j++) {
316                        fu16_t group, subtype;
317
318                        group = aimbs_get16(bs);
319                        subtype = aimbs_get16(bs);
320
321                        if (rc)
322                                rc_addpair(rc, group, subtype);
323                }
324        }
325
326        /*
327         * We don't pass the rate information up to the client, as it really
328         * doesn't care.  The information is stored in the connection, however
329         * so that we can do more fun stuff later (not really).
330         */
331
332        /*
333         * Last step in the conn init procedure is to acknowledge that we
334         * agree to these draconian limitations.
335         */
336        aim_rates_addparam(sess, rx->conn);
337
338        /*
339         * Finally, tell the client it's ready to go...
340         */
341        if ((userfunc = aim_callhandler(sess, rx->conn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE)))
342                userfunc(sess, rx);
343
344
345        return 1;
346}
347
348/* Subtype 0x0008 - Add Rate Parameter */
349faim_internal int aim_rates_addparam(aim_session_t *sess, aim_conn_t *conn)
350{
351        aim_conn_inside_t *ins = (aim_conn_inside_t *)conn->inside;
352        aim_frame_t *fr;       
353        aim_snacid_t snacid;
354        struct rateclass *rc;
355
356        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 512)))
357                return -ENOMEM; 
358
359        snacid = aim_cachesnac(sess, 0x0001, 0x0008, 0x0000, NULL, 0);
360        aim_putsnac(&fr->data, 0x0001, 0x0008, 0x0000, snacid);
361
362        for (rc = ins->rates; rc; rc = rc->next)
363                aimbs_put16(&fr->data, rc->classid);
364
365        aim_tx_enqueue(sess, fr);
366
367        return 0;
368}
369
370/* Subtype 0x0009 - Delete Rate Parameter */
371faim_internal int aim_rates_delparam(aim_session_t *sess, aim_conn_t *conn)
372{
373        aim_conn_inside_t *ins = (aim_conn_inside_t *)conn->inside;
374        aim_frame_t *fr;       
375        aim_snacid_t snacid;
376        struct rateclass *rc;
377
378        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 512)))
379                return -ENOMEM; 
380
381        snacid = aim_cachesnac(sess, 0x0001, 0x0009, 0x0000, NULL, 0);
382        aim_putsnac(&fr->data, 0x0001, 0x0009, 0x0000, snacid);
383
384        for (rc = ins->rates; rc; rc = rc->next)
385                aimbs_put16(&fr->data, rc->classid);
386
387        aim_tx_enqueue(sess, fr);
388
389        return 0;
390}
391
392/* Subtype 0x000a - Rate Change */
393static int ratechange(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
394{
395        int ret = 0;
396        aim_rxcallback_t userfunc;
397        fu16_t code, rateclass;
398        fu32_t currentavg, maxavg, windowsize, clear, alert, limit, disconnect;
399
400        code = aimbs_get16(bs);
401        rateclass = aimbs_get16(bs);
402       
403        windowsize = aimbs_get32(bs);
404        clear = aimbs_get32(bs);
405        alert = aimbs_get32(bs);
406        limit = aimbs_get32(bs);
407        disconnect = aimbs_get32(bs);
408        currentavg = aimbs_get32(bs);
409        maxavg = aimbs_get32(bs);
410
411        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
412                ret = userfunc(sess, rx, code, rateclass, windowsize, clear, alert, limit, disconnect, currentavg, maxavg);
413
414        return ret;
415}
416
417/*
418 * How Migrations work.
419 *
420 * The server sends a Server Pause message, which the client should respond to
421 * with a Server Pause Ack, which contains the families it needs on this
422 * connection. The server will send a Migration Notice with an IP address, and
423 * then disconnect. Next the client should open the connection and send the
424 * cookie.  Repeat the normal login process and pretend this never happened.
425 *
426 * The Server Pause contains no data.
427 *
428 */
429
430/* Subtype 0x000b - Service Pause */
431static int serverpause(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
432{
433        int ret = 0;
434        aim_rxcallback_t userfunc;
435
436        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
437                ret = userfunc(sess, rx);
438
439        return ret;
440}
441
442/*
443 * Subtype 0x000c - Service Pause Acknowledgement
444 *
445 * It is rather important that aim_sendpauseack() gets called for the exact
446 * same connection that the Server Pause callback was called for, since
447 * libfaim extracts the data for the SNAC from the connection structure.
448 *
449 * Of course, if you don't do that, more bad things happen than just what
450 * libfaim can cause.
451 *
452 */
453faim_export int aim_sendpauseack(aim_session_t *sess, aim_conn_t *conn)
454{
455        aim_frame_t *fr;
456        aim_snacid_t snacid;
457        aim_conn_inside_t *ins = (aim_conn_inside_t *)conn->inside;
458        struct snacgroup *sg;
459
460        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1024)))
461                return -ENOMEM;
462
463        snacid = aim_cachesnac(sess, 0x0001, 0x000c, 0x0000, NULL, 0);
464        aim_putsnac(&fr->data, 0x0001, 0x000c, 0x0000, snacid);
465
466        /*
467         * This list should have all the groups that the original
468         * Host Online / Server Ready said this host supports.  And
469         * we want them all back after the migration.
470         */
471        for (sg = ins->groups; sg; sg = sg->next)
472                aimbs_put16(&fr->data, sg->group);
473
474        aim_tx_enqueue(sess, fr);
475
476        return 0;
477}
478
479/* Subtype 0x000d - Service Resume */
480static int serverresume(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
481{
482        int ret = 0;
483        aim_rxcallback_t userfunc;
484
485        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
486                ret = userfunc(sess, rx);
487
488        return ret;
489}
490
491/* Subtype 0x000e - Request self-info */
492faim_export int aim_reqpersonalinfo(aim_session_t *sess, aim_conn_t *conn)
493{
494        return aim_genericreq_n_snacid(sess, conn, 0x0001, 0x000e);
495}
496
497/* Subtype 0x000f - Self User Info */
498static int selfinfo(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
499{
500        int ret = 0;
501        aim_rxcallback_t userfunc;
502        aim_userinfo_t userinfo;
503
504        aim_info_extract(sess, bs, &userinfo);
505
506        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
507                ret = userfunc(sess, rx, &userinfo);
508
509        aim_info_free(&userinfo);
510
511        return ret;
512}
513
514/* Subtype 0x0010 - Evil Notification */
515static int evilnotify(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
516{
517        int ret = 0;
518        aim_rxcallback_t userfunc;
519        fu16_t newevil;
520        aim_userinfo_t userinfo;
521
522        memset(&userinfo, 0, sizeof(aim_userinfo_t));
523       
524        newevil = aimbs_get16(bs);
525
526        if (aim_bstream_empty(bs))
527                aim_info_extract(sess, bs, &userinfo);
528
529        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
530                ret = userfunc(sess, rx, newevil, &userinfo);
531
532        aim_info_free(&userinfo);
533
534        return ret;
535}
536
537/*
538 * Subtype 0x0011 - Idle Notification
539 *
540 * Should set your current idle time in seconds.  Note that this should
541 * never be called consecutively with a non-zero idle time.  That makes
542 * OSCAR do funny things.  Instead, just set it once you go idle, and then
543 * call it again with zero when you're back.
544 *
545 */
546faim_export int aim_srv_setidle(aim_session_t *sess, fu32_t idletime)
547{
548        aim_conn_t *conn;
549
550        if (!sess || !(conn = aim_conn_findbygroup(sess, AIM_CB_FAM_BOS)))
551                return -EINVAL;
552
553        return aim_genericreq_l(sess, conn, 0x0001, 0x0011, &idletime);
554}
555
556/*
557 * Subtype 0x0012 - Service Migrate
558 *
559 * This is the final SNAC sent on the original connection during a migration.
560 * It contains the IP and cookie used to connect to the new server, and
561 * optionally a list of the SNAC groups being migrated.
562 *
563 */
564static int migrate(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
565{
566        aim_rxcallback_t userfunc;
567        int ret = 0;
568        fu16_t groupcount, i;
569        aim_tlvlist_t *tl;
570        char *ip = NULL;
571        aim_tlv_t *cktlv;
572
573        /*
574         * Apparently there's some fun stuff that can happen right here. The
575         * migration can actually be quite selective about what groups it
576         * moves to the new server.  When not all the groups for a connection
577         * are migrated, or they are all migrated but some groups are moved
578         * to a different server than others, it is called a bifurcated
579         * migration.
580         *
581         * Let's play dumb and not support that.
582         *
583         */
584        groupcount = aimbs_get16(bs);
585        for (i = 0; i < groupcount; i++) {
586                fu16_t group;
587
588                group = aimbs_get16(bs);
589
590                faimdprintf(sess, 0, "bifurcated migration unsupported -- group 0x%04x\n", group);
591        }
592
593        tl = aim_tlvlist_read(bs);
594
595        if (aim_tlv_gettlv(tl, 0x0005, 1))
596                ip = aim_tlv_getstr(tl, 0x0005, 1);
597
598        cktlv = aim_tlv_gettlv(tl, 0x0006, 1);
599
600        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
601                ret = userfunc(sess, rx, ip, cktlv ? cktlv->value : NULL);
602
603        aim_tlvlist_free(&tl);
604        free(ip);
605
606        return ret;
607}
608
609/* Subtype 0x0013 - Message of the Day */
610static int motd(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
611{
612        aim_rxcallback_t userfunc;
613        char *msg = NULL;
614        int ret = 0;
615        aim_tlvlist_t *tlvlist;
616        fu16_t id;
617
618        /*
619         * Code.
620         *
621         * Valid values:
622         *   1 Mandatory upgrade
623         *   2 Advisory upgrade
624         *   3 System bulletin
625         *   4 Nothing's wrong ("top o the world" -- normal)
626         *   5 Lets-break-something.
627         *
628         */
629        id = aimbs_get16(bs);
630
631        /*
632         * TLVs follow
633         */
634        tlvlist = aim_tlvlist_read(bs);
635
636        msg = aim_tlv_getstr(tlvlist, 0x000b, 1);
637
638        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
639                ret = userfunc(sess, rx, id, msg);
640
641        free(msg);
642
643        aim_tlvlist_free(&tlvlist);
644
645        return ret;
646}
647
648/*
649 * Subtype 0x0014 - Set privacy flags
650 *
651 * Normally 0x03.
652 *
653 *  Bit 1:  Allows other AIM users to see how long you've been idle.
654 *  Bit 2:  Allows other AIM users to see how long you've been a member.
655 *
656 */
657faim_export int aim_bos_setprivacyflags(aim_session_t *sess, aim_conn_t *conn, fu32_t flags)
658{
659        return aim_genericreq_l(sess, conn, 0x0001, 0x0014, &flags);
660}
661
662/*
663 * Subtype 0x0016 - No-op
664 *
665 * WinAIM sends these every 4min or so to keep the connection alive.  Its not
666 * really necessary.
667 *
668 * Wha?  No?  Since when?  I think WinAIM sends an empty channel 3
669 * SNAC as a no-op...
670 */
671faim_export int aim_nop(aim_session_t *sess, aim_conn_t *conn)
672{
673        return aim_genericreq_n(sess, conn, 0x0001, 0x0016);
674}
675
676/*
677 * Subtype 0x0017 - Set client versions
678 *
679 * If you've seen the clientonline/clientready SNAC you're probably
680 * wondering what the point of this one is.  And that point seems to be
681 * that the versions in the client online SNAC are sent too late for the
682 * server to be able to use them to change the protocol for the earlier
683 * login packets (client versions are sent right after Host Online is
684 * received, but client online versions aren't sent until quite a bit later).
685 * We can see them already making use of this by changing the format of
686 * the rate information based on what version of group 1 we advertise here.
687 *
688 */
689faim_internal int aim_setversions(aim_session_t *sess, aim_conn_t *conn)
690{
691        aim_conn_inside_t *ins = (aim_conn_inside_t *)conn->inside;
692        struct snacgroup *sg;
693        aim_frame_t *fr;
694        aim_snacid_t snacid;
695
696        if (!ins)
697                return -EINVAL;
698
699        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 1152)))
700                return -ENOMEM;
701
702        snacid = aim_cachesnac(sess, 0x0001, 0x0017, 0x0000, NULL, 0);
703        aim_putsnac(&fr->data, 0x0001, 0x0017, 0x0000, snacid);
704
705        /*
706         * Send only the versions that the server cares about (that it
707         * marked as supporting in the server ready SNAC). 
708         */
709        for (sg = ins->groups; sg; sg = sg->next) {
710                aim_module_t *mod;
711
712                if ((mod = aim__findmodulebygroup(sess, sg->group))) {
713                        aimbs_put16(&fr->data, mod->family);
714                        aimbs_put16(&fr->data, mod->version);
715                } else
716                        faimdprintf(sess, 1, "aim_setversions: server supports group 0x%04x but we don't!\n", sg->group);
717        }
718
719        aim_tx_enqueue(sess, fr);
720
721        return 0;
722}
723
724/* Subtype 0x0018 - Host versions */
725static int hostversions(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
726{
727        int vercount;
728        fu8_t *versions;
729
730        /* This is frivolous. (Thank you SmarterChild.) */
731        vercount = aim_bstream_empty(bs)/4;
732        versions = aimbs_getraw(bs, aim_bstream_empty(bs));
733        free(versions);
734
735        /*
736         * Now request rates.
737         */
738        aim_reqrates(sess, rx->conn);
739
740        return 1;
741}
742
743/*
744 * Subtype 0x001e - Extended Status
745 *
746 * Sets your ICQ status (available, away, do not disturb, etc.)
747 *
748 * These are the same TLVs seen in user info.  You can
749 * also set 0x0008 and 0x000c.
750 */
751faim_export int aim_setextstatus(aim_session_t *sess, fu32_t status)
752{
753        aim_conn_t *conn;
754        aim_frame_t *fr;
755        aim_snacid_t snacid;
756        aim_tlvlist_t *tl = NULL;
757        fu32_t data;
758
759        if (!sess || !(conn = aim_conn_findbygroup(sess, 0x0004)))
760                return -EINVAL;
761
762        data = AIM_ICQ_STATE_HIDEIP | AIM_ICQ_STATE_WEBAWARE | status; /* yay for error checking ;^) */
763
764        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10 + 8)))
765                return -ENOMEM;
766
767        snacid = aim_cachesnac(sess, 0x0001, 0x001e, 0x0000, NULL, 0);
768        aim_putsnac(&fr->data, 0x0001, 0x001e, 0x0000, snacid);
769       
770        aim_tlvlist_add_32(&tl, 0x0006, data);
771        aim_tlvlist_write(&fr->data, &tl);
772        aim_tlvlist_free(&tl);
773       
774        aim_tx_enqueue(sess, fr);
775
776        return 0;
777}
778
779/*
780 * Subtype 0x001e - Extended Status.
781 *
782 * Sets your "available" message.  This is currently only supported by iChat
783 * and Gaim.
784 *
785 * These are the same TLVs seen in user info.  You can
786 * also set 0x0008 and 0x000c.
787 */
788faim_export int aim_srv_setavailmsg(aim_session_t *sess, char *msg)
789{
790        aim_conn_t *conn;
791        aim_frame_t *fr;
792        aim_snacid_t snacid;
793
794        if (!sess || !(conn = aim_conn_findbygroup(sess, 0x0001)))
795                return -EINVAL;
796
797        if (msg != NULL) {
798                if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10 + 4 + strlen(msg) + 8)))
799                        return -ENOMEM;
800
801                snacid = aim_cachesnac(sess, 0x0001, 0x001e, 0x0000, NULL, 0);
802                aim_putsnac(&fr->data, 0x0001, 0x001e, 0x0000, snacid);
803
804                aimbs_put16(&fr->data, 0x001d); /* userinfo TLV type */
805                aimbs_put16(&fr->data, strlen(msg)+8); /* total length of userinfo TLV data */
806                aimbs_put16(&fr->data, 0x0002);
807                aimbs_put8(&fr->data, 0x04);
808                aimbs_put8(&fr->data, strlen(msg)+4);
809                aimbs_put16(&fr->data, strlen(msg));
810                aimbs_putraw(&fr->data, msg, strlen(msg));
811                aimbs_put16(&fr->data, 0x0000);
812        } else {
813                if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10 + 4 + 8)))
814                        return -ENOMEM;
815
816                snacid = aim_cachesnac(sess, 0x0001, 0x001e, 0x0000, NULL, 0);
817                aim_putsnac(&fr->data, 0x0001, 0x001e, 0x0000, snacid);
818
819                aimbs_put16(&fr->data, 0x001d);
820                aimbs_put16(&fr->data, 0x0008);
821                aimbs_put16(&fr->data, 0x0002);
822                aimbs_put16(&fr->data, 0x0404);
823                aimbs_put16(&fr->data, 0x0000);
824                aimbs_put16(&fr->data, 0x0000);
825        }
826
827        aim_tx_enqueue(sess, fr);
828
829        return 0;
830}
831
832/*
833 * Starting this past week (26 Mar 2001, say), AOL has started sending
834 * this nice little extra SNAC.  AFAIK, it has never been used until now.
835 *
836 * The request contains eight bytes.  The first four are an offset, the
837 * second four are a length.
838 *
839 * The offset is an offset into aim.exe when it is mapped during execution
840 * on Win32.  So far, AOL has only been requesting bytes in static regions
841 * of memory.  (I won't put it past them to start requesting data in
842 * less static regions -- regions that are initialized at run time, but still
843 * before the client recieves this request.)
844 *
845 * When the client recieves the request, it adds it to the current ds
846 * (0x00400000) and dereferences it, copying the data into a buffer which
847 * it then runs directly through the MD5 hasher.  The 16 byte output of
848 * the hash is then sent back to the server.
849 *
850 * If the client does not send any data back, or the data does not match
851 * the data that the specific client should have, the client will get the
852 * following message from "AOL Instant Messenger":
853 *    "You have been disconnected from the AOL Instant Message Service (SM)
854 *     for accessing the AOL network using unauthorized software.  You can
855 *     download a FREE, fully featured, and authorized client, here
856 *     http://www.aol.com/aim/download2.html"
857 * The connection is then closed, recieving disconnect code 1, URL
858 * http://www.aim.aol.com/errors/USER_LOGGED_OFF_NEW_LOGIN.html. 
859 *
860 * Note, however, that numerous inconsistencies can cause the above error,
861 * not just sending back a bad hash.  Do not immediatly suspect this code
862 * if you get disconnected.  AOL and the open/free software community have
863 * played this game for a couple years now, generating the above message
864 * on numerous ocassions.
865 *
866 * Anyway, neener.  We win again.
867 *
868 */
869/* Subtype 0x001f - Client verification */
870static int memrequest(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
871{
872        int ret = 0;
873        aim_rxcallback_t userfunc;
874        fu32_t offset, len;
875        aim_tlvlist_t *list;
876        char *modname;
877
878        offset = aimbs_get32(bs);
879        len = aimbs_get32(bs);
880        list = aim_tlvlist_read(bs);
881
882        modname = aim_tlv_getstr(list, 0x0001, 1);
883
884        faimdprintf(sess, 1, "data at 0x%08lx (%d bytes) of requested\n", offset, len, modname ? modname : "aim.exe");
885
886        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
887                ret = userfunc(sess, rx, offset, len, modname);
888
889        free(modname);
890        aim_tlvlist_free(&list);
891
892        return ret;
893}
894
895#if 0
896static void dumpbox(aim_session_t *sess, unsigned char *buf, int len)
897{
898        int i;
899
900        if (!sess || !buf || !len)
901                return;
902
903        faimdprintf(sess, 1, "\nDump of %d bytes at %p:", len, buf);
904
905        for (i = 0; i < len; i++) {
906                if ((i % 8) == 0)
907                        faimdprintf(sess, 1, "\n\t");
908
909                faimdprintf(sess, 1, "0x%2x ", buf[i]);
910        }
911
912        faimdprintf(sess, 1, "\n\n");
913
914        return;
915}
916#endif
917
918/* Subtype 0x0020 - Client verification reply */
919faim_export int aim_sendmemblock(aim_session_t *sess, aim_conn_t *conn, fu32_t offset, fu32_t len, const fu8_t *buf, fu8_t flag)
920{
921        aim_frame_t *fr;
922        aim_snacid_t snacid;
923
924        if (!sess || !conn)
925                return -EINVAL;
926
927        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+2+16)))
928                return -ENOMEM;
929
930        snacid = aim_cachesnac(sess, 0x0001, 0x0020, 0x0000, NULL, 0);
931
932        aim_putsnac(&fr->data, 0x0001, 0x0020, 0x0000, snacid);
933        aimbs_put16(&fr->data, 0x0010); /* md5 is always 16 bytes */
934
935        if ((flag == AIM_SENDMEMBLOCK_FLAG_ISHASH) && buf && (len == 0x10)) { /* we're getting a hash */
936
937                aimbs_putraw(&fr->data, buf, 0x10); 
938
939        } else if (buf && (len > 0)) { /* use input buffer */
940                md5_state_t state;
941                md5_byte_t digest[0x10];
942
943                md5_init(&state);       
944                md5_append(&state, (const md5_byte_t *)buf, len);
945                md5_finish(&state, digest);
946
947                aimbs_putraw(&fr->data, (fu8_t *)digest, 0x10);
948
949        } else if (len == 0) { /* no length, just hash NULL (buf is optional) */
950                md5_state_t state;
951                fu8_t nil = '\0';
952                md5_byte_t digest[0x10];
953
954                /*
955                 * These MD5 routines are stupid in that you have to have
956                 * at least one append.  So thats why this doesn't look
957                 * real logical.
958                 */
959                md5_init(&state);
960                md5_append(&state, (const md5_byte_t *)&nil, 0);
961                md5_finish(&state, digest);
962
963                aimbs_putraw(&fr->data, (fu8_t *)digest, 0x10);
964
965        } else {
966
967                /*
968                 * This data is correct for AIM 3.5.1670.
969                 *
970                 * Using these blocks is as close to "legal" as you can get
971                 * without using an AIM binary.
972                 *
973                 */
974                if ((offset == 0x03ffffff) && (len == 0x03ffffff)) {
975
976#if 1 /* with "AnrbnrAqhfzcd" */
977                        aimbs_put32(&fr->data, 0x44a95d26);
978                        aimbs_put32(&fr->data, 0xd2490423);
979                        aimbs_put32(&fr->data, 0x93b8821f);
980                        aimbs_put32(&fr->data, 0x51c54b01);
981#else /* no filename */
982                        aimbs_put32(&fr->data, 0x1df8cbae);
983                        aimbs_put32(&fr->data, 0x5523b839);
984                        aimbs_put32(&fr->data, 0xa0e10db3);
985                        aimbs_put32(&fr->data, 0xa46d3b39);
986#endif
987
988                } else if ((offset == 0x00001000) && (len == 0x00000000)) {
989
990                        aimbs_put32(&fr->data, 0xd41d8cd9);
991                        aimbs_put32(&fr->data, 0x8f00b204);
992                        aimbs_put32(&fr->data, 0xe9800998);
993                        aimbs_put32(&fr->data, 0xecf8427e);
994
995                } else
996                        faimdprintf(sess, 0, "sendmemblock: WARNING: unknown hash request\n");
997
998        }
999
1000        aim_tx_enqueue(sess, fr);
1001
1002        return 0;
1003}
1004
1005/*
1006 * Subtype 0x0021 - Receive our extended status
1007 *
1008 * This is used for iChat's "available" messages, and maybe ICQ extended
1009 * status messages?  It's also used to tell the client whether or not it
1010 * needs to upload an SSI buddy icon... who engineers this stuff, anyway?
1011 */
1012static int aim_parse_extstatus(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
1013{
1014        int ret = 0;
1015        aim_rxcallback_t userfunc;
1016        fu16_t type;
1017        fu8_t flags, length;
1018
1019        type = aimbs_get16(bs); 
1020        flags = aimbs_get8(bs);
1021        length = aimbs_get8(bs);
1022
1023        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype))) {
1024                switch (type) {
1025                case 0x0000:
1026                case 0x0001: { /* buddy icon checksum */
1027                        /* not sure what the difference between 1 and 0 is */
1028                        fu8_t *md5 = aimbs_getraw(bs, length);
1029                        ret = userfunc(sess, rx, type, flags, length, md5);
1030                        free(md5);
1031                        } break;
1032                case 0x0002: { /* available message */
1033                        /* there is a second length that is just for the message */
1034                        char *msg = aimbs_getstr(bs, aimbs_get16(bs));
1035                        ret = userfunc(sess, rx, msg);
1036                        free(msg);
1037                        } break;
1038                }
1039        }
1040
1041        return ret;
1042}
1043
1044static int snachandler(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
1045{
1046
1047        if (snac->subtype == 0x0003)
1048                return hostonline(sess, mod, rx, snac, bs);
1049        else if (snac->subtype == 0x0005)
1050                return redirect(sess, mod, rx, snac, bs);
1051        else if (snac->subtype == 0x0007)
1052                return rateresp(sess, mod, rx, snac, bs);
1053        else if (snac->subtype == 0x000a)
1054                return ratechange(sess, mod, rx, snac, bs);
1055        else if (snac->subtype == 0x000b)
1056                return serverpause(sess, mod, rx, snac, bs);
1057        else if (snac->subtype == 0x000d)
1058                return serverresume(sess, mod, rx, snac, bs);
1059        else if (snac->subtype == 0x000f)
1060                return selfinfo(sess, mod, rx, snac, bs);
1061        else if (snac->subtype == 0x0010)
1062                return evilnotify(sess, mod, rx, snac, bs);
1063        else if (snac->subtype == 0x0012)
1064                return migrate(sess, mod, rx, snac, bs);
1065        else if (snac->subtype == 0x0013)
1066                return motd(sess, mod, rx, snac, bs);
1067        else if (snac->subtype == 0x0018)
1068                return hostversions(sess, mod, rx, snac, bs);
1069        else if (snac->subtype == 0x001f)
1070                return memrequest(sess, mod, rx, snac, bs);
1071        else if (snac->subtype == 0x0021)
1072                return aim_parse_extstatus(sess, mod, rx, snac, bs);
1073
1074        return 0;
1075}
1076
1077faim_internal int service_modfirst(aim_session_t *sess, aim_module_t *mod)
1078{
1079
1080        mod->family = 0x0001;
1081        mod->version = 0x0003;
1082        mod->toolid = 0x0110;
1083        mod->toolversion = 0x0629;
1084        mod->flags = 0;
1085        strncpy(mod->name, "service", sizeof(mod->name));
1086        mod->snachandler = snachandler;
1087
1088        return 0;
1089}
Note: See TracBrowser for help on using the repository browser.