src/admin.c

   1
   2 #define FAIM_INTERNAL
   3 #include <aim.h>
   4
   5 /* called for both reply and change-reply */
   6 static int infochange(struct aim_session_t *sess, aim_module_t *mod, struct command_rx_struct *rx, aim_modsnac_t *snac, unsigned char *data, int datalen)
   7 {
   8   int i;
   9
  10   /*
  11    * struct {
  12    *    unsigned short perms;
  13    *    unsigned short tlvcount;
  14    *    aim_tlv_t tlvs[tlvcount];
  15    *  } admin_info[n];
  16    */
  17   for (i = 0; i < datalen; ) {
  18     int perms, tlvcount;
  19
  20     perms = aimutil_get16(data+i);
  21     i += 2;
  22
  23     tlvcount = aimutil_get16(data+i);
  24     i += 2;
  25
  26     while (tlvcount) {
  27       rxcallback_t userfunc;
  28       struct aim_tlv_t *tlv;
  29       int str = 0;
  30
  31       if ((aimutil_get16(data+i) == 0x0011) ||
  32           (aimutil_get16(data+i) == 0x0004))
  33         str = 1;
  34
  35       if (str)
  36         tlv = aim_grabtlvstr(data+i);
  37       else
  38         tlv = aim_grabtlv(data+i);
  39
  40       /* XXX fix so its only called once for the entire packet */
  41       if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
  42         userfunc(sess, rx, perms, tlv->type, tlv->length, tlv->value, str);
  43
  44       if (tlv)
  45         i += 2+2+tlv->length;
  46
  47       if (tlv && tlv->value)
  48         free(tlv->value);
  49       if (tlv)
  50         free(tlv);
  51
  52       tlvcount--;
  53     }
  54   }
  55
  56   return 1;
  57 }
  58
  59 static int accountconfirm(struct aim_session_t *sess, aim_module_t *mod, struct command_rx_struct *rx, aim_modsnac_t *snac, unsigned char *data, int datalen)
  60 {
  61   rxcallback_t userfunc;
  62   int status;
  63
  64   status = aimutil_get16(data);
  65
  66   if ((userfunc = aim_callhandler(sess, rx->conn, snac->family, snac->subtype)))
  67     return userfunc(sess, rx, status);
  68
  69   return 0;
  70 }
  71
  72 static int snachandler(struct aim_session_t *sess, aim_module_t *mod, struct command_rx_struct *rx, aim_modsnac_t *snac, unsigned char *data, int datalen)
  73 {
  74
  75   faimdprintf(sess, 0, "%s: snachandler: got %x/%x\n", mod->name, snac->family, snac->subtype);
  76
  77   if (snac->family != mod->family)
  78     return 0;
  79
  80   if (snac->subtype == 0x0001)
  81     ;
  82   else if ((snac->subtype == 0x0003) || (snac->subtype == 0x0005))
  83     return infochange(sess, mod, rx, snac, data, datalen);
  84   else if (snac->subtype == 0x0007)
  85     return accountconfirm(sess, mod, rx, snac, data, datalen);
  86
  87   return 0;
  88 }
  89
  90 faim_internal int admin_modfirst(struct aim_session_t *sess, aim_module_t *mod)
  91 {
  92
  93   mod->family = 0x0007;
  94   mod->version = 0x0000;
  95   mod->flags = 0;
  96   strncpy(mod->name, "admin", sizeof(mod->name));
  97   mod->snachandler = snachandler;
  98
  99   return 0;
 100 }
 101
 102 faim_export unsigned long aim_auth_clientready(struct aim_session_t *sess,
 103                                                struct aim_conn_t *conn)
 104 {
 105   struct aim_tool_version tools[] = {
 106     {0x0001, 0x0003,    AIM_TOOL_NEWWIN, 0x0361},
 107     {0x0007, 0x0001,    AIM_TOOL_NEWWIN, 0x0361},
 108   };
 109   int i,j;
 110   struct command_tx_struct *newpacket;
 111   int toolcount = sizeof(tools)/sizeof(struct aim_tool_version);
 112
 113   if (!(newpacket = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 1152)))
 114     return -1;
 115
 116   newpacket->lock = 1;
 117
 118   i = aim_putsnac(newpacket->data, 0x0001, 0x0002, 0x0000, sess->snac_nextid);
 119   aim_cachesnac(sess, 0x0001, 0x0002, 0x0000, NULL, 0);
 120
 121   for (j = 0; j < toolcount; j++) {
 122     i += aimutil_put16(newpacket->data+i, tools[j].group);
 123     i += aimutil_put16(newpacket->data+i, tools[j].version);
 124     i += aimutil_put16(newpacket->data+i, tools[j].tool);
 125     i += aimutil_put16(newpacket->data+i, tools[j].toolversion);
 126   }
 127
 128   newpacket->commandlen = i;
 129   newpacket->lock = 0;
 130
 131   aim_tx_enqueue(sess, newpacket);
 132
 133   return sess->snac_nextid;
 134 }
 135
 136 faim_export unsigned long aim_auth_changepasswd(struct aim_session_t *sess,
 137                                                 struct aim_conn_t *conn,
 138                                                 char *new, char *current)
 139 {
 140   struct command_tx_struct *newpacket;
 141   int i;
 142
 143   if (!(newpacket = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 10+4+strlen(current)+4+strlen(new))))
 144     return -1;
 145
 146   newpacket->lock = 1;
 147
 148   i = aim_putsnac(newpacket->data, 0x0007, 0x0004, 0x0000, sess->snac_nextid);
 149   aim_cachesnac(sess, 0x0007, 0x0004, 0x0000, NULL, 0);
 150
 151   /* new password TLV t(0002) */
 152   i += aim_puttlv_str(newpacket->data+i, 0x0002, strlen(new), new);
 153
 154   /* current password TLV t(0012) */
 155   i += aim_puttlv_str(newpacket->data+i, 0x0012, strlen(current), current);
 156
 157   aim_tx_enqueue(sess, newpacket);
 158
 159   return sess->snac_nextid;
 160 }
 161
 162 faim_export unsigned long aim_auth_setversions(struct aim_session_t *sess,
 163                                                struct aim_conn_t *conn)
 164 {
 165   struct command_tx_struct *newpacket;
 166   int i;
 167
 168   if (!(newpacket = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 10 + (4*2))))
 169     return -1;
 170
 171   newpacket->lock = 1;
 172
 173   i = aim_putsnac(newpacket->data, 0x0001, 0x0017, 0x0000, sess->snac_nextid);
 174   aim_cachesnac(sess, 0x0001, 0x0017, 0x0000, NULL, 0);
 175
 176   i += aimutil_put16(newpacket->data+i, 0x0001);
 177   i += aimutil_put16(newpacket->data+i, 0x0003);
 178
 179   i += aimutil_put16(newpacket->data+i, 0x0007);
 180   i += aimutil_put16(newpacket->data+i, 0x0001);
 181
 182   newpacket->commandlen = i;
 183   newpacket->lock = 0;
 184   aim_tx_enqueue(sess, newpacket);
 185
 186   return sess->snac_nextid;
 187 }
 188
 189 /*
 190  * Request account confirmation.
 191  *
 192  * This will cause an email to be sent to the address associated with
 193  * the account.  By following the instructions in the mail, you can
 194  * get the TRIAL flag removed from your account.
 195  *
 196  */
 197 faim_export unsigned long aim_auth_reqconfirm(struct aim_session_t *sess,
 198                                               struct aim_conn_t *conn)
 199 {
 200   return aim_genericreq_n(sess, conn, 0x0007, 0x0006);
 201 }
 202
 203 /*
 204  * Request a bit of account info.
 205  *
 206  * The only known valid tag is 0x0011 (email address).
 207  *
 208  */
 209 faim_export unsigned long aim_auth_getinfo(struct aim_session_t *sess,
 210                                            struct aim_conn_t *conn,
 211                                            unsigned short info)
 212 {
 213   struct command_tx_struct *newpacket;
 214   int i;
 215
 216   if (!(newpacket = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 10 + 4)))
 217     return -1;
 218
 219   newpacket->lock = 1;
 220
 221   i = aim_putsnac(newpacket->data, 0x0007, 0x0002, 0x0000, sess->snac_nextid);
 222   aim_cachesnac(sess, 0x0002, 0x0002, 0x0000, NULL, 0);
 223
 224   i += aimutil_put16(newpacket->data+i, info);
 225   i += aimutil_put16(newpacket->data+i, 0x0000);
 226
 227   newpacket->commandlen = i;
 228   newpacket->lock = 0;
 229   aim_tx_enqueue(sess, newpacket);
 230
 231   return sess->snac_nextid;
 232 }
 233
 234 faim_export unsigned long aim_auth_setemail(struct aim_session_t *sess,
 235                                             struct aim_conn_t *conn,
 236                                             char *newemail)
 237 {
 238   struct command_tx_struct *newpacket;
 239   int i;
 240
 241   if (!(newpacket = aim_tx_new(sess, conn, AIM_FRAMETYPE_OSCAR, 0x0002, 10+2+2+strlen(newemail))))
 242     return -1;
 243
 244   newpacket->lock = 1;
 245
 246   i = aim_putsnac(newpacket->data, 0x0007, 0x0004, 0x0000, sess->snac_nextid);
 247   aim_cachesnac(sess, 0x0007, 0x0004, 0x0000, NULL, 0);
 248
 249   i += aim_puttlv_str(newpacket->data+i, 0x0011, strlen(newemail), newemail);
 250
 251   aim_tx_enqueue(sess, newpacket);
 252
 253   return sess->snac_nextid;
 254 }