libpurple/protocols/oscar/family_userlookup.c

   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 0x000a - User Search.
  23  *
  24  * TODO: Add aim_usersearch_name()
  25  *
  26  */
  27
  28 #include "oscar.h"
  29
  30 /*
  31  * Subtype 0x0001
  32  *
  33  * XXX can this be integrated with the rest of the error handling?
  34  */
  35 static int error(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
  36 {
  37         int ret = 0;
  38         aim_rxcallback_t userfunc;
  39         aim_snac_t *snac2;
  40
  41         /* XXX the modules interface should have already retrieved this for us */
  42         if (!(snac2 = aim_remsnac(od, snac->id))) {
  43                 purple_debug_misc("oscar", "search error: couldn't get a snac for 0x%08x\n", snac->id);
  44                 return 0;
  45         }
  46
  47         if ((userfunc = aim_callhandler(od, snac->family, snac->subtype)))
  48                 ret = userfunc(od, conn, frame, snac2->data /* address */);
  49
  50         /* XXX freesnac()? */
  51         g_free(snac2->data);
  52         g_free(snac2);
  53
  54         return ret;
  55 }
  56
  57 /*
  58  * Subtype 0x0002
  59  *
  60  */
  61 int aim_search_address(OscarData *od, const char *address)
  62 {
  63         FlapConnection *conn;
  64         ByteStream bs;
  65         aim_snacid_t snacid;
  66
  67         conn = flap_connection_findbygroup(od, SNAC_FAMILY_USERLOOKUP);
  68
  69         if (!conn || !address)
  70                 return -EINVAL;
  71
  72         byte_stream_new(&bs, strlen(address));
  73
  74         byte_stream_putstr(&bs, address);
  75
  76         snacid = aim_cachesnac(od, SNAC_FAMILY_USERLOOKUP, 0x0002, 0x0000, address, strlen(address)+1);
  77         flap_connection_send_snac(od, conn, SNAC_FAMILY_USERLOOKUP, 0x0002, snacid, &bs);
  78
  79         byte_stream_destroy(&bs);
  80
  81         return 0;
  82 }
  83
  84 /*
  85  * Subtype 0x0003
  86  *
  87  */
  88 static int reply(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
  89 {
  90         int j = 0, m, ret = 0;
  91         GSList *tlvlist;
  92         char *cur = NULL, *buf = NULL;
  93         aim_rxcallback_t userfunc;
  94         aim_snac_t *snac2;
  95         const char *searchaddr = NULL;
  96
  97         if ((snac2 = aim_remsnac(od, snac->id)))
  98                 searchaddr = (const char *)snac2->data;
  99
 100         tlvlist = aim_tlvlist_read(bs);
 101         m = aim_tlvlist_count(tlvlist);
 102
 103         /* XXX uhm.
 104          * This is the only place that uses something other than 1 for the 3rd
 105          * parameter to aim_tlv_gettlv_whatever().
 106          */
 107         while ((cur = aim_tlv_getstr(tlvlist, 0x0001, j+1)) && j < m)
 108         {
 109                 buf = g_realloc(buf, (j+1) * (MAXSNLEN+1));
 110
 111                 strncpy(&buf[j * (MAXSNLEN+1)], cur, MAXSNLEN);
 112                 g_free(cur);
 113
 114                 j++;
 115         }
 116         g_free(cur);
 117
 118         aim_tlvlist_free(tlvlist);
 119
 120         if ((userfunc = aim_callhandler(od, snac->family, snac->subtype)))
 121                 ret = userfunc(od, conn, frame, searchaddr, j, buf);
 122
 123         /* XXX freesnac()? */
 124         if (snac2)
 125                 g_free(snac2->data);
 126         g_free(snac2);
 127
 128         g_free(buf);
 129
 130         return ret;
 131 }
 132
 133 static int
 134 snachandler(OscarData *od, FlapConnection *conn, aim_module_t *mod, FlapFrame *frame, aim_modsnac_t *snac, ByteStream *bs)
 135 {
 136         if (snac->subtype == 0x0001)
 137                 return error(od, conn, mod, frame, snac, bs);
 138         else if (snac->subtype == 0x0003)
 139                 return reply(od, conn, mod, frame, snac, bs);
 140
 141         return 0;
 142 }
 143
 144 int
 145 search_modfirst(OscarData *od, aim_module_t *mod)
 146 {
 147         mod->family = SNAC_FAMILY_USERLOOKUP;
 148         mod->version = 0x0001;
 149         mod->toolid = 0x0110;
 150         mod->toolversion = 0x0629;
 151         mod->flags = 0;
 152         strncpy(mod->name, "userlookup", sizeof(mod->name));
 153         mod->snachandler = snachandler;
 154
 155         return 0;
 156 }