source: libfaim/conn.c @ e075479

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since e075479 was 5e53c4a, checked in by James M. Kretchmar <kretch@mit.edu>, 21 years ago
*** empty log message ***
  • Property mode set to 100644
File size: 25.9 KB
Line 
1
2/*
3 * conn.c
4 *
5 * Does all this gloriously nifty connection handling stuff...
6 *
7 */
8
9#define FAIM_INTERNAL
10#define FAIM_NEED_CONN_INTERNAL
11#include <aim.h>
12
13#ifndef _WIN32
14#include <netdb.h>
15#include <sys/socket.h>
16#include <netinet/in.h>
17#endif
18
19/*
20 * In OSCAR, every connection has a set of SNAC groups associated
21 * with it.  These are the groups that you can send over this connection
22 * without being guarenteed a "Not supported" SNAC error. 
23 *
24 * The grand theory of things says that these associations transcend
25 * what libfaim calls "connection types" (conn->type).  You can probably
26 * see the elegance here, but since I want to revel in it for a bit, you
27 * get to hear it all spelled out.
28 *
29 * So let us say that you have your core BOS connection running.  One
30 * of your modules has just given you a SNAC of the group 0x0004 to send
31 * you.  Maybe an IM destined for some twit in Greenland.  So you start
32 * at the top of your connection list, looking for a connection that
33 * claims to support group 0x0004.  You find one.  Why, that neat BOS
34 * connection of yours can do that.  So you send it on its way.
35 *
36 * Now, say, that fellow from Greenland has friends and they all want to
37 * meet up with you in a lame chat room.  This has landed you a SNAC
38 * in the family 0x000e and you have to admit you're a bit lost.  You've
39 * searched your connection list for someone who wants to make your life
40 * easy and deliver this SNAC for you, but there isn't one there.
41 *
42 * Here comes the good bit.  Without even letting anyone know, particularly
43 * the module that decided to send this SNAC, and definitly not that twit
44 * in Greenland, you send out a service request.  In this request, you have
45 * marked the need for a connection supporting group 0x000e.  A few seconds
46 * later, you receive a service redirect with an IP address and a cookie in
47 * it.  Great, you say.  Now I have something to do.  Off you go, making
48 * that connection.  One of the first things you get from this new server
49 * is a message saying that indeed it does support the group you were looking
50 * for.  So you continue and send rate confirmation and all that. 
51 *
52 * Then you remember you had that SNAC to send, and now you have a means to
53 * do it, and you do, and everyone is happy.  Except the Greenlander, who is
54 * still stuck in the bitter cold.
55 *
56 * Oh, and this is useful for building the Migration SNACs, too.  In the
57 * future, this may help convince me to implement rate limit mitigation
58 * for real.  We'll see.
59 *
60 * Just to make me look better, I'll say that I've known about this great
61 * scheme for quite some time now.  But I still haven't convinced myself
62 * to make libfaim work that way.  It would take a fair amount of effort,
63 * and probably some client API changes as well.  (Whenever I don't want
64 * to do something, I just say it would change the client API.  Then I
65 * instantly have a couple of supporters of not doing it.)
66 *
67 * Generally, addgroup is only called by the internal handling of the
68 * server ready SNAC.  So if you want to do something before that, you'll
69 * have to be more creative.  That is done rather early, though, so I don't
70 * think you have to worry about it.  Unless you're me.  I care deeply
71 * about such inane things.
72 *
73 */
74faim_internal void aim_conn_addgroup(aim_conn_t *conn, fu16_t group)
75{
76        aim_conn_inside_t *ins = (aim_conn_inside_t *)conn->inside;
77        struct snacgroup *sg;
78
79        if (!(sg = malloc(sizeof(struct snacgroup))))
80                return;
81
82        faimdprintf(aim_conn_getsess(conn), 1, "adding group 0x%04x\n", group);
83        sg->group = group;
84
85        sg->next = ins->groups;
86        ins->groups = sg;
87
88        return;
89}
90
91faim_export aim_conn_t *aim_conn_findbygroup(aim_session_t *sess, fu16_t group)
92{
93        aim_conn_t *cur;
94
95        for (cur = sess->connlist; cur; cur = cur->next) {
96                aim_conn_inside_t *ins = (aim_conn_inside_t *)cur->inside;
97                struct snacgroup *sg;
98
99                for (sg = ins->groups; sg; sg = sg->next) {
100                        if (sg->group == group)
101                                return cur;
102                }
103        }
104
105        return NULL;
106}
107
108static void connkill_snacgroups(struct snacgroup **head)
109{
110        struct snacgroup *sg;
111
112        for (sg = *head; sg; ) {
113                struct snacgroup *tmp;
114
115                tmp = sg->next;
116                free(sg);
117                sg = tmp;
118        }
119
120        *head = NULL;
121
122        return;
123}
124
125static void connkill_rates(struct rateclass **head)
126{
127        struct rateclass *rc;
128
129        for (rc = *head; rc; ) {
130                struct rateclass *tmp;
131                struct snacpair *sp;
132
133                tmp = rc->next;
134
135                for (sp = rc->members; sp; ) {
136                        struct snacpair *tmpsp;
137
138                        tmpsp = sp->next;
139                        free(sp);
140                        sp = tmpsp;
141                }
142                free(rc);
143
144                rc = tmp;
145        }
146
147        *head = NULL;
148
149        return;
150}
151
152static void connkill_real(aim_session_t *sess, aim_conn_t **deadconn)
153{
154
155        aim_rxqueue_cleanbyconn(sess, *deadconn);
156        aim_tx_cleanqueue(sess, *deadconn);
157
158        if ((*deadconn)->fd != -1) 
159                aim_conn_close(*deadconn);
160
161        /*
162         * XXX ->priv should never be touched by the library. I know
163         * it used to be, but I'm getting rid of all that.  Use
164         * ->internal instead.
165         */
166        if ((*deadconn)->priv)
167                free((*deadconn)->priv);
168
169        /*
170         * This will free ->internal if it necessary...
171         */
172        if ((*deadconn)->type == AIM_CONN_TYPE_RENDEZVOUS)
173                aim_conn_kill_rend(sess, *deadconn);
174        else if ((*deadconn)->type == AIM_CONN_TYPE_CHAT)
175                aim_conn_kill_chat(sess, *deadconn);
176
177        if ((*deadconn)->inside) {
178                aim_conn_inside_t *inside = (aim_conn_inside_t *)(*deadconn)->inside;
179
180                connkill_snacgroups(&inside->groups);
181                connkill_rates(&inside->rates);
182
183                free(inside);
184        }
185
186        free(*deadconn);
187        *deadconn = NULL;
188
189        return;
190}
191
192/**
193 * aim_connrst - Clears out connection list, killing remaining connections.
194 * @sess: Session to be cleared
195 *
196 * Clears out the connection list and kills any connections left.
197 *
198 */
199static void aim_connrst(aim_session_t *sess)
200{
201
202        if (sess->connlist) {
203                aim_conn_t *cur = sess->connlist, *tmp;
204
205                while (cur) {
206                        tmp = cur->next;
207                        aim_conn_close(cur);
208                        connkill_real(sess, &cur);
209                        cur = tmp;
210                }
211        }
212
213        sess->connlist = NULL;
214
215        return;
216}
217
218/**
219 * aim_conn_init - Reset a connection to default values.
220 * @deadconn: Connection to be reset
221 *
222 * Initializes and/or resets a connection structure.
223 *
224 */
225static void aim_conn_init(aim_conn_t *deadconn)
226{
227
228        if (!deadconn)
229                return;
230
231        deadconn->fd = -1;
232        deadconn->subtype = -1;
233        deadconn->type = -1;
234        deadconn->seqnum = 0;
235        deadconn->lastactivity = 0;
236        deadconn->forcedlatency = 0;
237        deadconn->handlerlist = NULL;
238        deadconn->priv = NULL;
239        memset(deadconn->inside, 0, sizeof(aim_conn_inside_t));
240
241        return;
242}
243
244/**
245 * aim_conn_getnext - Gets a new connection structure.
246 * @sess: Session
247 *
248 * Allocate a new empty connection structure.
249 *
250 */
251static aim_conn_t *aim_conn_getnext(aim_session_t *sess)
252{
253        aim_conn_t *newconn;
254
255        if (!(newconn = malloc(sizeof(aim_conn_t))))   
256                return NULL;
257        memset(newconn, 0, sizeof(aim_conn_t));
258
259        if (!(newconn->inside = malloc(sizeof(aim_conn_inside_t)))) {
260                free(newconn);
261                return NULL;
262        }
263        memset(newconn->inside, 0, sizeof(aim_conn_inside_t));
264
265        aim_conn_init(newconn);
266
267        newconn->next = sess->connlist;
268        sess->connlist = newconn;
269
270        return newconn;
271}
272
273/**
274 * aim_conn_kill - Close and free a connection.
275 * @sess: Session for the connection
276 * @deadconn: Connection to be freed
277 *
278 * Close, clear, and free a connection structure. Should never be
279 * called from within libfaim.
280 *
281 */
282faim_export void aim_conn_kill(aim_session_t *sess, aim_conn_t **deadconn)
283{
284        aim_conn_t *cur, **prev;
285
286        if (!deadconn || !*deadconn)   
287                return;
288
289        for (prev = &sess->connlist; (cur = *prev); ) {
290                if (cur == *deadconn) {
291                        *prev = cur->next;
292                        break;
293                }
294                prev = &cur->next;
295        }
296
297        if (!cur)
298                return; /* oops */
299
300        connkill_real(sess, &cur);
301
302        return;
303}
304
305/**
306 * aim_conn_close - Close a connection
307 * @deadconn: Connection to close
308 *
309 * Close (but not free) a connection.
310 *
311 * This leaves everything untouched except for clearing the
312 * handler list and setting the fd to -1 (used to recognize
313 * dead connections).  It will also remove cookies if necessary.
314 *
315 */
316faim_export void aim_conn_close(aim_conn_t *deadconn)
317{
318
319        if (deadconn->fd >= 3)
320                close(deadconn->fd);
321        deadconn->fd = -1;
322        if (deadconn->handlerlist)
323                aim_clearhandlers(deadconn);
324        if (deadconn->type == AIM_CONN_TYPE_RENDEZVOUS)
325                aim_conn_close_rend((aim_session_t *)deadconn->sessv, deadconn);
326
327        return;
328}
329
330/**
331 * aim_getconn_type - Find a connection of a specific type
332 * @sess: Session to search
333 * @type: Type of connection to look for
334 *
335 * Searches for a connection of the specified type in the
336 * specified session.  Returns the first connection of that
337 * type found.
338 *
339 * XXX except for RENDEZVOUS, all uses of this should be removed and
340 * use aim_conn_findbygroup() instead.
341 */
342faim_export aim_conn_t *aim_getconn_type(aim_session_t *sess, int type)
343{
344        aim_conn_t *cur;
345
346        for (cur = sess->connlist; cur; cur = cur->next) {
347                if ((cur->type == type) && 
348                                !(cur->status & AIM_CONN_STATUS_INPROGRESS))
349                        break;
350        }
351
352        return cur;
353}
354
355faim_export aim_conn_t *aim_getconn_type_all(aim_session_t *sess, int type)
356{
357        aim_conn_t *cur;
358
359        for (cur = sess->connlist; cur; cur = cur->next) {
360                if (cur->type == type)
361                        break;
362        }
363
364        return cur;
365}
366
367/* If you pass -1 for the fd, you'll get what you ask for.  Gibberish. */
368faim_export aim_conn_t *aim_getconn_fd(aim_session_t *sess, int fd)
369{
370        aim_conn_t *cur;
371
372        for (cur = sess->connlist; cur; cur = cur->next) {
373                if (cur->fd == fd)
374                        break;
375        }
376
377        return cur;
378}
379
380/**
381 * aim_proxyconnect - An extrememly quick and dirty SOCKS5 interface.
382 * @sess: Session to connect
383 * @host: Host to connect to
384 * @port: Port to connect to
385 * @statusret: Return value of the connection
386 *
387 * Attempts to connect to the specified host via the configured
388 * proxy settings, if present.  If no proxy is configured for
389 * this session, the connection is done directly.
390 *
391 * XXX this is really awful.
392 *
393 */
394static int aim_proxyconnect(aim_session_t *sess, const char *host, fu16_t port, fu32_t *statusret)
395{
396        int fd = -1;
397
398        if (strlen(sess->socksproxy.server)) { /* connecting via proxy */
399                int i;
400                unsigned char buf[512];
401                struct sockaddr_in sa;
402                struct hostent *hp;
403                char *proxy;
404                unsigned short proxyport = 1080;
405
406                for(i=0;i<(int)strlen(sess->socksproxy.server);i++) {
407                        if (sess->socksproxy.server[i] == ':') {
408                                proxyport = atoi(&(sess->socksproxy.server[i+1]));
409                                break;
410                        }
411                }
412
413                proxy = (char *)malloc(i+1);
414                strncpy(proxy, sess->socksproxy.server, i);
415                proxy[i] = '\0';
416
417                if (!(hp = gethostbyname(proxy))) {
418                        faimdprintf(sess, 0, "proxyconnect: unable to resolve proxy name\n");
419                        *statusret = (h_errno | AIM_CONN_STATUS_RESOLVERR);
420                        return -1;
421                }
422                free(proxy);
423
424                memset(&sa.sin_zero, 0, 8);
425                sa.sin_port = htons(proxyport);
426                memcpy(&sa.sin_addr, hp->h_addr, hp->h_length);
427                sa.sin_family = hp->h_addrtype;
428
429                fd = socket(hp->h_addrtype, SOCK_STREAM, 0);
430                if (connect(fd, (struct sockaddr *)&sa, sizeof(struct sockaddr_in)) < 0) {
431                        faimdprintf(sess, 0, "proxyconnect: unable to connect to proxy\n");
432                        close(fd);
433                        return -1;
434                }
435
436                i = 0;
437                buf[0] = 0x05; /* SOCKS version 5 */
438                if (strlen(sess->socksproxy.username)) {
439                        buf[1] = 0x02; /* two methods */
440                        buf[2] = 0x00; /* no authentication */
441                        buf[3] = 0x02; /* username/password authentication */
442                        i = 4;
443                } else {
444                        buf[1] = 0x01;
445                        buf[2] = 0x00;
446                        i = 3;
447                }
448
449                if (write(fd, buf, i) < i) {
450                        *statusret = errno;
451                        close(fd);
452                        return -1;
453                }
454
455                if (read(fd, buf, 2) < 2) {
456                        *statusret = errno;
457                        close(fd);
458                        return -1;
459                }
460
461                if ((buf[0] != 0x05) || (buf[1] == 0xff)) {
462                        *statusret = EINVAL;
463                        close(fd);
464                        return -1;
465                }
466
467                /* check if we're doing username authentication */
468                if (buf[1] == 0x02) {
469                        i  = aimutil_put8(buf, 0x01); /* version 1 */
470                        i += aimutil_put8(buf+i, strlen(sess->socksproxy.username));
471                        i += aimutil_putstr(buf+i, sess->socksproxy.username, strlen(sess->socksproxy.username));
472                        i += aimutil_put8(buf+i, strlen(sess->socksproxy.password));
473                        i += aimutil_putstr(buf+i, sess->socksproxy.password, strlen(sess->socksproxy.password));
474                        if (write(fd, buf, i) < i) {
475                                *statusret = errno;
476                                close(fd);
477                                return -1;
478                        }
479                        if (read(fd, buf, 2) < 2) {
480                                *statusret = errno;
481                                close(fd);
482                                return -1;
483                        }
484                        if ((buf[0] != 0x01) || (buf[1] != 0x00)) {
485                                *statusret = EINVAL;
486                                close(fd);
487                                return -1;
488                        }
489                }
490
491                i  = aimutil_put8(buf, 0x05);
492                i += aimutil_put8(buf+i, 0x01); /* CONNECT */
493                i += aimutil_put8(buf+i, 0x00); /* reserved */
494                i += aimutil_put8(buf+i, 0x03); /* address type: host name */
495                i += aimutil_put8(buf+i, strlen(host));
496                i += aimutil_putstr(buf+i, host, strlen(host));
497                i += aimutil_put16(buf+i, port);
498
499                if (write(fd, buf, i) < i) {
500                        *statusret = errno;
501                        close(fd);
502                        return -1;
503                }
504                if (read(fd, buf, 10) < 10) {
505                        *statusret = errno;
506                        close(fd);
507                        return -1;
508                }
509                if ((buf[0] != 0x05) || (buf[1] != 0x00)) {
510                        *statusret = EINVAL;
511                        close(fd);
512                        return -1;
513                }
514
515        } else { /* connecting directly */
516                struct sockaddr_in sa;
517                struct hostent *hp;
518
519                if (!(hp = gethostbyname(host))) {
520                        *statusret = (h_errno | AIM_CONN_STATUS_RESOLVERR);
521                        return -1;
522                }
523
524                memset(&sa, 0, sizeof(struct sockaddr_in));
525                sa.sin_port = htons(port);
526                memcpy(&sa.sin_addr, hp->h_addr, hp->h_length);
527                sa.sin_family = hp->h_addrtype;
528
529                fd = socket(hp->h_addrtype, SOCK_STREAM, 0);
530
531                if (sess->flags & AIM_SESS_FLAGS_NONBLOCKCONNECT)
532                        fcntl(fd, F_SETFL, O_NONBLOCK); /* XXX save flags */
533
534                if (connect(fd, (struct sockaddr *)&sa, sizeof(struct sockaddr_in)) < 0) {
535                        if (sess->flags & AIM_SESS_FLAGS_NONBLOCKCONNECT) {
536                                if ((errno == EINPROGRESS) || (errno == EINTR)) {
537                                        if (statusret)
538                                                *statusret |= AIM_CONN_STATUS_INPROGRESS;
539                                        return fd;
540                                }
541                        }
542                        close(fd);
543                        fd = -1;
544                }
545        }
546        return fd;
547}
548
549/**
550 * aim_cloneconn - clone an aim_conn_t
551 * @sess: session containing parent
552 * @src: connection to clone
553 *
554 * A new connection is allocated, and the values are filled in
555 * appropriately. Note that this function sets the new connnection's
556 * ->priv pointer to be equal to that of its parent: only the pointer
557 * is copied, not the data it points to.
558 *
559 * This function returns a pointer to the new aim_conn_t, or %NULL on
560 * error
561 */
562faim_internal aim_conn_t *aim_cloneconn(aim_session_t *sess, aim_conn_t *src)
563{
564        aim_conn_t *conn;
565
566        if (!(conn = aim_conn_getnext(sess)))
567                return NULL;
568
569        conn->fd = src->fd;
570        conn->type = src->type;
571        conn->subtype = src->subtype;
572        conn->seqnum = src->seqnum;
573        conn->priv = src->priv;
574        conn->internal = src->internal;
575        conn->lastactivity = src->lastactivity;
576        conn->forcedlatency = src->forcedlatency;
577        conn->sessv = src->sessv;
578        aim_clonehandlers(sess, conn, src);
579
580        if (src->inside) {
581                /*
582                 * XXX should clone this section as well, but since currently
583                 * this function only gets called for some of that rendezvous
584                 * crap, and not on SNAC connections, its probably okay for
585                 * now.
586                 *
587                 */
588        }
589
590        return conn;
591}
592
593/**
594 * aim_newconn - Open a new connection
595 * @sess: Session to create connection in
596 * @type: Type of connection to create
597 * @dest: Host to connect to (in "host:port" syntax)
598 *
599 * Opens a new connection to the specified dest host of specified
600 * type, using the proxy settings if available.  If @host is %NULL,
601 * the connection is allocated and returned, but no connection
602 * is made.
603 *
604 * FIXME: Return errors in a more sane way.
605 *
606 */
607faim_export aim_conn_t *aim_newconn(aim_session_t *sess, int type, const char *dest)
608{
609        aim_conn_t *connstruct;
610        fu16_t port = FAIM_LOGIN_PORT;
611        char *host;
612        int i, ret;
613
614        if (!(connstruct = aim_conn_getnext(sess)))
615                return NULL;
616
617        connstruct->sessv = (void *)sess;
618        connstruct->type = type;
619
620        if (!dest) { /* just allocate a struct */
621                connstruct->fd = -1;
622                connstruct->status = 0;
623                return connstruct;
624        }
625
626        /*
627         * As of 23 Jul 1999, AOL now sends the port number, preceded by a
628         * colon, in the BOS redirect.  This fatally breaks all previous
629         * libfaims.  Bad, bad AOL.
630         *
631         * We put this here to catch every case.
632         *
633         */
634
635        for(i = 0; i < (int)strlen(dest); i++) {
636                if (dest[i] == ':') {
637                        port = atoi(&(dest[i+1]));
638                        break;
639                }
640        }
641
642        host = (char *)malloc(i+1);
643        strncpy(host, dest, i);
644        host[i] = '\0';
645
646        if ((ret = aim_proxyconnect(sess, host, port, &connstruct->status)) < 0) {
647                connstruct->fd = -1;
648                connstruct->status = (errno | AIM_CONN_STATUS_CONNERR);
649                free(host);
650                return connstruct;
651        } else
652                connstruct->fd = ret;
653
654        free(host);
655
656        return connstruct;
657}
658
659/**
660 * aim_conngetmaxfd - Return the highest valued file discriptor in session
661 * @sess: Session to search
662 *
663 * Returns the highest valued filed descriptor of all open
664 * connections in @sess.
665 *
666 */
667faim_export int aim_conngetmaxfd(aim_session_t *sess)
668{
669        int j;
670        aim_conn_t *cur;
671
672        for (cur = sess->connlist, j = 0; cur; cur = cur->next) {
673                if (cur->fd > j)
674                        j = cur->fd;
675        }
676
677        return j;
678}
679
680/**
681 * aim_conn_in_sess - Predicate to test the precense of a connection in a sess
682 * @sess: Session to look in
683 * @conn: Connection to look for
684 *
685 * Searches @sess for the passed connection.  Returns 1 if its present,
686 * zero otherwise.
687 *
688 */
689faim_export int aim_conn_in_sess(aim_session_t *sess, aim_conn_t *conn)
690{
691        aim_conn_t *cur;
692
693        for (cur = sess->connlist; cur; cur = cur->next) {
694                if (cur == conn)
695                        return 1;
696        }
697
698        return 0;
699}
700
701/**
702 * aim_select - Wait for a socket with data or timeout
703 * @sess: Session to wait on
704 * @timeout: How long to wait
705 * @status: Return status
706 *
707 * Waits for a socket with data or for timeout, whichever comes first.
708 * See select(2).
709 *
710 * Return codes in *status:
711 *   -1  error in select() (%NULL returned)
712 *    0  no events pending (%NULL returned)
713 *    1  outgoing data pending (%NULL returned)
714 *    2  incoming data pending (connection with pending data returned)
715 *
716 */ 
717faim_export aim_conn_t *aim_select(aim_session_t *sess, struct timeval *timeout, int *status)
718{
719        aim_conn_t *cur;
720        fd_set fds, wfds;
721        int maxfd, i, haveconnecting = 0;
722
723        if (!sess->connlist) {
724                *status = -1;
725                return NULL;
726        }
727
728        FD_ZERO(&fds);
729        FD_ZERO(&wfds);
730
731        for (cur = sess->connlist, maxfd = 0; cur; cur = cur->next) {
732                if (cur->fd == -1) {
733                        /* don't let invalid/dead connections sit around */
734                        *status = 2;
735                        return cur;
736                } else if (cur->status & AIM_CONN_STATUS_INPROGRESS) {
737                        FD_SET(cur->fd, &wfds);
738
739                        haveconnecting++;
740                }
741                FD_SET(cur->fd, &fds);
742                if (cur->fd > maxfd)
743                        maxfd = cur->fd;
744        }
745
746        /*
747         * If we have data waiting to be sent, return
748         *
749         * We have to not do this if theres at least one
750         * connection thats still connecting, since that connection
751         * may have queued data and this return would prevent
752         * the connection from ever completing!  This is a major
753         * inadequacy of the libfaim way of doing things.  It means
754         * that nothing can transmit as long as there's connecting
755         * sockets. Evil.
756         *
757         * But its still better than having blocking connects.
758         *
759         */
760        if (!haveconnecting && sess->queue_outgoing) {
761                *status = 1;
762                return NULL;
763        } 
764
765        if ((i = select(maxfd+1, &fds, &wfds, NULL, timeout))>=1) {
766                for (cur = sess->connlist; cur; cur = cur->next) {
767                        if ((FD_ISSET(cur->fd, &fds)) || 
768                                        ((cur->status & AIM_CONN_STATUS_INPROGRESS) && 
769                                        FD_ISSET(cur->fd, &wfds))) {
770                                *status = 2;
771                                return cur;
772                        }
773                }
774                *status = 0; /* shouldn't happen */
775        } else if ((i == -1) && (errno == EINTR)) /* treat interrupts as a timeout */
776                *status = 0;
777        else
778                *status = i; /* can be 0 or -1 */
779
780        return NULL;  /* no waiting or error, return */
781}
782
783/**
784 * aim_conn_setlatency - Set a forced latency value for connection
785 * @conn: Conn to set latency for
786 * @newval: Number of seconds to force between transmits
787 *
788 * Causes @newval seconds to be spent between transmits on a connection.
789 *
790 * This is my lame attempt at overcoming not understanding the rate
791 * limiting.
792 *
793 * XXX: This should really be replaced with something that scales and
794 * backs off like the real rate limiting does.
795 *
796 */
797faim_export int aim_conn_setlatency(aim_conn_t *conn, int newval)
798{
799
800        if (!conn)
801                return -1;
802
803        conn->forcedlatency = newval;
804        conn->lastactivity = 0; /* reset this just to make sure */
805
806        return 0;
807}
808
809/**
810 * aim_setupproxy - Configure a proxy for this session
811 * @sess: Session to set proxy for
812 * @server: SOCKS server
813 * @username: SOCKS username
814 * @password: SOCKS password
815 *
816 * Call this with your SOCKS5 proxy server parameters before
817 * the first call to aim_newconn().  If called with all %NULL
818 * args, it will clear out a previously set proxy. 
819 *
820 * Set username and password to %NULL if not applicable.
821 *
822 */
823faim_export void aim_setupproxy(aim_session_t *sess, const char *server, const char *username, const char *password)
824{
825        /* clear out the proxy info */
826        if (!server || !strlen(server)) {
827                memset(sess->socksproxy.server, 0, sizeof(sess->socksproxy.server));
828                memset(sess->socksproxy.username, 0, sizeof(sess->socksproxy.username));
829                memset(sess->socksproxy.password, 0, sizeof(sess->socksproxy.password));
830                return;
831        }
832
833        strncpy(sess->socksproxy.server, server, sizeof(sess->socksproxy.server));
834        if (username && strlen(username)) 
835                strncpy(sess->socksproxy.username, username, sizeof(sess->socksproxy.username));
836        if (password && strlen(password))
837                strncpy(sess->socksproxy.password, password, sizeof(sess->socksproxy.password));
838
839        return;
840}
841
842static void defaultdebugcb(aim_session_t *sess, int level, const char *format, va_list va)
843{
844
845        vfprintf(stderr, format, va);
846
847        return;
848}
849
850/**
851 * aim_session_init - Initializes a session structure
852 * @sess: Session to initialize
853 * @flags: Flags to use. Any of %AIM_SESS_FLAGS %OR'd together.
854 * @debuglevel: Level of debugging output (zero is least)
855 *
856 * Sets up the initial values for a session.
857 *
858 */
859faim_export void aim_session_init(aim_session_t *sess, fu32_t flags, int debuglevel)
860{
861
862        if (!sess)
863                return;
864
865        memset(sess, 0, sizeof(aim_session_t));
866        aim_connrst(sess);
867        sess->queue_outgoing = NULL;
868        sess->queue_incoming = NULL;
869        aim_initsnachash(sess);
870        sess->msgcookies = NULL;
871        sess->snacid_next = 0x00000001;
872
873        sess->flags = 0;
874        sess->debug = debuglevel;
875        sess->debugcb = defaultdebugcb;
876
877        sess->modlistv = NULL;
878
879        /*
880         * Default to SNAC login unless XORLOGIN is explicitly set.
881         */
882        if (!(flags & AIM_SESS_FLAGS_XORLOGIN))
883                sess->flags |= AIM_SESS_FLAGS_SNACLOGIN;
884        sess->flags |= flags;
885
886        /*
887         * This must always be set.  Default to the queue-based
888         * version for back-compatibility. 
889         */
890        aim_tx_setenqueue(sess, AIM_TX_QUEUED, NULL);
891
892
893        /*
894         * Register all the modules for this session...
895         */
896        aim__registermodule(sess, misc_modfirst); /* load the catch-all first */
897        aim__registermodule(sess, general_modfirst);
898        aim__registermodule(sess, locate_modfirst);
899        aim__registermodule(sess, buddylist_modfirst);
900        aim__registermodule(sess, msg_modfirst);
901        aim__registermodule(sess, adverts_modfirst);
902        aim__registermodule(sess, invite_modfirst);
903        aim__registermodule(sess, admin_modfirst);
904        aim__registermodule(sess, popups_modfirst);
905        aim__registermodule(sess, bos_modfirst);
906        aim__registermodule(sess, search_modfirst);
907        aim__registermodule(sess, stats_modfirst);
908        aim__registermodule(sess, translate_modfirst);
909        aim__registermodule(sess, chatnav_modfirst);
910        aim__registermodule(sess, chat_modfirst);
911        /* missing 0x0f - 0x12 */
912        aim__registermodule(sess, ssi_modfirst);
913        /* missing 0x14 */
914        aim__registermodule(sess, icq_modfirst);
915        /* missing 0x16 */
916        aim__registermodule(sess, auth_modfirst);
917
918        return;
919}
920
921/**
922 * aim_session_kill - Deallocate a session
923 * @sess: Session to kill
924 *
925 */
926faim_export void aim_session_kill(aim_session_t *sess)
927{
928        aim_cleansnacs(sess, -1);
929
930        aim_logoff(sess);
931
932        aim__shutdownmodules(sess);
933
934        return;
935}
936
937/**
938 * aim_setdebuggingcb - Set the function to call when outputting debugging info
939 * @sess: Session to change
940 * @cb: Function to call
941 *
942 * The function specified is called whenever faimdprintf() is used within
943 * libfaim, and the session's debugging level is greater tha nor equal to
944 * the value faimdprintf was called with.
945 *
946 */
947faim_export int aim_setdebuggingcb(aim_session_t *sess, faim_debugging_callback_t cb)
948{
949
950        if (!sess)
951                return -1;
952
953        sess->debugcb = cb;
954
955        return 0;
956}
957
958/**
959 * aim_conn_isconnecting - Determine if a connection is connecting
960 * @conn: Connection to examine
961 *
962 * Returns nonzero if the connection is in the process of
963 * connecting (or if it just completed and aim_conn_completeconnect()
964 * has yet to be called on it).
965 *
966 */
967faim_export int aim_conn_isconnecting(aim_conn_t *conn)
968{
969
970        if (!conn)
971                return 0;
972
973        return !!(conn->status & AIM_CONN_STATUS_INPROGRESS);
974}
975
976/*
977 * XXX this is nearly as ugly as proxyconnect().
978 */
979faim_export int aim_conn_completeconnect(aim_session_t *sess, aim_conn_t *conn)
980{
981        fd_set fds, wfds;
982        struct timeval tv;
983        int res, error = ETIMEDOUT;
984        aim_rxcallback_t userfunc;
985
986        if (!conn || (conn->fd == -1))
987                return -1;
988
989        if (!(conn->status & AIM_CONN_STATUS_INPROGRESS))
990                return -1;
991
992        FD_ZERO(&fds);
993        FD_SET(conn->fd, &fds);
994        FD_ZERO(&wfds);
995        FD_SET(conn->fd, &wfds);
996        tv.tv_sec = 0;
997        tv.tv_usec = 0;
998
999        if ((res = select(conn->fd+1, &fds, &wfds, NULL, &tv)) == -1) {
1000                error = errno;
1001                aim_conn_close(conn);
1002                errno = error;
1003                return -1;
1004        } else if (res == 0) {
1005                faimdprintf(sess, 0, "aim_conn_completeconnect: false alarm on %d\n", conn->fd);
1006                return 0; /* hasn't really completed yet... */
1007        } 
1008
1009        if (FD_ISSET(conn->fd, &fds) || FD_ISSET(conn->fd, &wfds)) {
1010                int len = sizeof(error);
1011
1012                if (getsockopt(conn->fd, SOL_SOCKET, SO_ERROR, &error, &len) < 0)
1013                        error = errno;
1014        }
1015
1016        if (error) {
1017                aim_conn_close(conn);
1018                errno = error;
1019                return -1;
1020        }
1021
1022        fcntl(conn->fd, F_SETFL, 0); /* XXX should restore original flags */
1023
1024        conn->status &= ~AIM_CONN_STATUS_INPROGRESS;
1025
1026        if ((userfunc = aim_callhandler(sess, conn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNCOMPLETE)))
1027                userfunc(sess, NULL, conn);
1028
1029        /* Flush out the queues if there was something waiting for this conn  */
1030        aim_tx_flushqueue(sess);
1031
1032        return 0;
1033}
1034
1035faim_export aim_session_t *aim_conn_getsess(aim_conn_t *conn)
1036{
1037
1038        if (!conn)
1039                return NULL;
1040
1041        return (aim_session_t *)conn->sessv;
1042}
1043
1044/*
1045 * aim_logoff()
1046 *
1047 * Closes -ALL- open connections.
1048 *
1049 */
1050faim_export int aim_logoff(aim_session_t *sess)
1051{
1052
1053        aim_connrst(sess);  /* in case we want to connect again */
1054
1055        return 0;
1056
1057}
1058
1059/*
1060 * aim_flap_nop()
1061 *
1062 * No-op.  WinAIM 4.x sends these _every minute_ to keep
1063 * the connection alive. 
1064 */
1065faim_export int aim_flap_nop(aim_session_t *sess, aim_conn_t *conn)
1066{
1067        aim_frame_t *fr;
1068
1069        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x05, 0)))
1070                return -ENOMEM;
1071
1072        aim_tx_enqueue(sess, fr);
1073
1074        return 0;
1075}
1076
1077
Note: See TracBrowser for help on using the repository browser.