source: libfaim/search.c @ 440ce01

barnowl_perlaimdebianowlrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 440ce01 was 5e53c4a, checked in by James M. Kretchmar <kretch@mit.edu>, 22 years ago
*** empty log message ***
  • Property mode set to 100644
File size: 2.7 KB
Line 
1
2/*
3 * aim_search.c
4 *
5 * TODO: Add aim_usersearch_name()
6 *
7 */
8
9#define FAIM_INTERNAL
10#include <aim.h>
11
12faim_export int aim_usersearch_address(aim_session_t *sess, aim_conn_t *conn, const char *address)
13{
14        aim_frame_t *fr;
15        aim_snacid_t snacid;
16
17        if (!sess || !conn || !address)
18                return -EINVAL;
19
20        if (!(fr = aim_tx_new(sess, conn, AIM_FRAMETYPE_FLAP, 0x02, 10+strlen(address))))
21                return -ENOMEM;
22
23        snacid = aim_cachesnac(sess, 0x000a, 0x0002, 0x0000, strdup(address), strlen(address)+1);
24        aim_putsnac(&fr->data, 0x000a, 0x0002, 0x0000, snacid);
25       
26        aimbs_putraw(&fr->data, address, strlen(address)); 
27
28        aim_tx_enqueue(sess, fr);
29
30        return 0;
31}
32
33/* XXX can this be integrated with the rest of the error handling? */
34static int error(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
35{
36        int ret = 0;
37        aim_rxcallback_t userfunc;
38        aim_snac_t *snac2;
39
40        /* XXX the modules interface should have already retrieved this for us */
41        if (!(snac2 = aim_remsnac(sess, snac->id))) {
42                faimdprintf(sess, 2, "search error: couldn't get a snac for 0x%08lx\n", snac->id);
43                return 0;
44        }
45
46        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
47                ret = userfunc(sess, rx, snac2->data /* address */);
48
49        /* XXX freesnac()? */
50        if (snac2)
51                free(snac2->data);
52        free(snac2);
53
54        return ret;
55}
56
57static int reply(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
58{
59        int j = 0, m, ret = 0;
60        aim_tlvlist_t *tlvlist;
61        char *cur = NULL, *buf = NULL;
62        aim_rxcallback_t userfunc;
63        aim_snac_t *snac2;
64        char *searchaddr = NULL;
65
66        if ((snac2 = aim_remsnac(sess, snac->id)))
67                searchaddr = (char *)snac2->data;
68
69        tlvlist = aim_readtlvchain(bs);
70        m = aim_counttlvchain(&tlvlist);
71
72        /* XXX uhm. */
73        while ((cur = aim_gettlv_str(tlvlist, 0x0001, j+1)) && j < m) {
74                buf = realloc(buf, (j+1) * (MAXSNLEN+1));
75
76                strncpy(&buf[j * (MAXSNLEN+1)], cur, MAXSNLEN);
77                free(cur);
78
79                j++; 
80        }
81
82        aim_freetlvchain(&tlvlist);
83
84        if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
85                ret = userfunc(sess, rx, searchaddr, j, buf);
86
87        /* XXX freesnac()? */
88        if (snac2)
89                free(snac2->data);
90        free(snac2);
91
92        free(buf);
93
94        return ret;
95}
96
97static int snachandler(aim_session_t *sess, aim_module_t *mod, aim_frame_t *rx, aim_modsnac_t *snac, aim_bstream_t *bs)
98{
99
100        if (snac->subtype == 0x0001)
101                return error(sess, mod, rx, snac, bs);
102        else if (snac->subtype == 0x0003)
103                return reply(sess, mod, rx, snac, bs);
104
105        return 0;
106}
107
108faim_internal int search_modfirst(aim_session_t *sess, aim_module_t *mod)
109{
110
111        mod->family = 0x000a;
112        mod->version = 0x0001;
113        mod->toolid = 0x0110;
114        mod->toolversion = 0x047b;
115        mod->flags = 0;
116        strncpy(mod->name, "search", sizeof(mod->name));
117        mod->snachandler = snachandler;
118
119        return 0;
120}
121
122
Note: See TracBrowser for help on using the repository browser.