[libfaim.git] / aim_info.c

/*
 * aim_info.c
 *
 * The functions here are responsible for requesting and parsing information-
 * gathering SNACs.  
 *
 */


#include <faim/aim.h>

struct aim_priv_inforeq {
  char sn[MAXSNLEN];
  unsigned short infotype;
};

faim_export unsigned long aim_getinfo(struct aim_session_t *sess,
				      struct aim_conn_t *conn, 
				      const char *sn,
				      unsigned short infotype)
{
  struct command_tx_struct *newpacket;
  int i = 0;

  if (!sess || !conn || !sn)
    return 0;

  if (!(newpacket = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 12+1+strlen(sn))))
    return -1;

  newpacket->lock = 1;

  i = aim_putsnac(newpacket->data, 0x0002, 0x0005, 0x0000, sess->snac_nextid);

  i += aimutil_put16(newpacket->data+i, infotype);
  i += aimutil_put8(newpacket->data+i, strlen(sn));
  i += aimutil_putstr(newpacket->data+i, sn, strlen(sn));

  newpacket->lock = 0;
  aim_tx_enqueue(sess, newpacket);

  {
    struct aim_snac_t snac;
    
    snac.id = sess->snac_nextid;
    snac.family = 0x0002;
    snac.type = 0x0005;
    snac.flags = 0x0000;

    snac.data = malloc(sizeof(struct aim_priv_inforeq));
    strcpy(((struct aim_priv_inforeq *)snac.data)->sn, sn);
    ((struct aim_priv_inforeq *)snac.data)->infotype = infotype;

    aim_newsnac(sess, &snac);
  }

  return (sess->snac_nextid++);
}

faim_internal int aim_parse_locateerr(struct aim_session_t *sess,
				      struct command_rx_struct *command)
{
  u_long snacid = 0x000000000;
  struct aim_snac_t *snac = NULL;
  int ret = 0;
  rxcallback_t userfunc = NULL;
  char *dest;
  unsigned short reason = 0;

  /*
   * Get SNAC from packet and look it up 
   * the list of unrepliedto/outstanding
   * SNACs.
   *
   */
  snacid = aimutil_get32(command->data+6);
  snac = aim_remsnac(sess, snacid);

  if (!snac) {
    printf("faim: locerr: got an locate-failed error on an unknown SNAC ID! (%08lx)\n", snacid);
    dest = NULL;
  } else
    dest = snac->data;

  reason = aimutil_get16(command->data+10);

  /*
   * Call client.
   */
  userfunc = aim_callhandler(command->conn, 0x0002, 0x0001);
  if (userfunc)
    ret =  userfunc(sess, command, dest, reason);
  else
    ret = 0;
  
  if (snac) {
    free(snac->data);
    free(snac);
  }

  return ret;
}

/*
 * Capability blocks.  
 */
u_char aim_caps[6][16] = {
  
  /* Buddy icon */
  {0x09, 0x46, 0x13, 0x46, 0x4c, 0x7f, 0x11, 0xd1, 
   0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
  
  /* Voice */
  {0x09, 0x46, 0x13, 0x41, 0x4c, 0x7f, 0x11, 0xd1, 
   0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
  
  /* IM image */
  {0x09, 0x46, 0x13, 0x45, 0x4c, 0x7f, 0x11, 0xd1, 
   0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
  
  /* Chat */
  {0x74, 0x8f, 0x24, 0x20, 0x62, 0x87, 0x11, 0xd1, 
   0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
  
  /* Get file */
  {0x09, 0x46, 0x13, 0x48, 0x4c, 0x7f, 0x11, 0xd1,
   0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
  
  /* Send file */
  {0x09, 0x46, 0x13, 0x43, 0x4c, 0x7f, 0x11, 0xd1, 
   0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}
};

faim_internal unsigned short aim_getcap(unsigned char *capblock, int buflen)
{
  u_short ret = 0;
  int y;
  int offset = 0;

  while (offset < buflen) {
    for(y=0; y < (sizeof(aim_caps)/0x10); y++) {
      if (memcmp(&aim_caps[y], capblock+offset, 0x10) == 0) {
	switch(y) {
	case 0: ret |= AIM_CAPS_BUDDYICON; break;
	case 1: ret |= AIM_CAPS_VOICE; break;
	case 2: ret |= AIM_CAPS_IMIMAGE; break;
	case 3: ret |= AIM_CAPS_CHAT; break;
	case 4: ret |= AIM_CAPS_GETFILE; break;
	case 5: ret |= AIM_CAPS_SENDFILE; break;
	default: ret |= 0xff00; break;
	}
      }
    }
    offset += 0x10;
  } 
  return ret;
}

faim_internal int aim_putcap(unsigned char *capblock, int buflen, u_short caps)
{
  int offset = 0;

  if (!capblock)
    return -1;

  if ((caps & AIM_CAPS_BUDDYICON) && (offset < buflen)) {
    memcpy(capblock+offset, aim_caps[0], sizeof(aim_caps[0]));
    offset += sizeof(aim_caps[1]);
  }
  if ((caps & AIM_CAPS_VOICE) && (offset < buflen)) {
    memcpy(capblock+offset, aim_caps[1], sizeof(aim_caps[1]));
    offset += sizeof(aim_caps[1]);
  }
  if ((caps & AIM_CAPS_IMIMAGE) && (offset < buflen)) {
    memcpy(capblock+offset, aim_caps[2], sizeof(aim_caps[2]));
    offset += sizeof(aim_caps[2]);
  }
  if ((caps & AIM_CAPS_CHAT) && (offset < buflen)) {
    memcpy(capblock+offset, aim_caps[3], sizeof(aim_caps[3]));
    offset += sizeof(aim_caps[3]);
  }
  if ((caps & AIM_CAPS_GETFILE) && (offset < buflen)) {
    memcpy(capblock+offset, aim_caps[4], sizeof(aim_caps[4]));
    offset += sizeof(aim_caps[4]);
  }
  if ((caps & AIM_CAPS_SENDFILE) && (offset < buflen)) {
    memcpy(capblock+offset, aim_caps[5], sizeof(aim_caps[5]));
    offset += sizeof(aim_caps[5]);
  }

  return offset;
}

/*
 * AIM is fairly regular about providing user info.  This
 * is a generic routine to extract it in its standard form.
 */
faim_internal int aim_extractuserinfo(u_char *buf, struct aim_userinfo_s *outinfo)
{
  int i = 0;
  int tlvcnt = 0;
  int curtlv = 0;
  int tlv1 = 0;
  u_short curtype;
  int lastvalid;


  if (!buf || !outinfo)
    return -1;

  /* Clear out old data first */
  memset(outinfo, 0x00, sizeof(struct aim_userinfo_s));

  /*
   * Screen name.    Stored as an unterminated string prepended
   *                 with an unsigned byte containing its length.
   */
  if (buf[i] < MAXSNLEN) {
    memcpy(outinfo->sn, &(buf[i+1]), buf[i]);
    outinfo->sn[(int)buf[i]] = '\0';
  } else {
    memcpy(outinfo->sn, &(buf[i+1]), MAXSNLEN-1);
    outinfo->sn[MAXSNLEN] = '\0';
  }
  i = 1 + (int)buf[i];

  /*
   * Warning Level.  Stored as an unsigned short.
   */
  outinfo->warnlevel = aimutil_get16(&buf[i]);
  i += 2;

  /*
   * TLV Count.      Unsigned short representing the number of 
   *                 Type-Length-Value triples that follow.
   */
  tlvcnt = aimutil_get16(&buf[i]);
  i += 2;

  /* 
   * Parse out the Type-Length-Value triples as they're found.
   */
  while (curtlv < tlvcnt) {
    lastvalid = 1;
    curtype = aimutil_get16(&buf[i]);
    switch (curtype) {
      /*
       * Type = 0x0000: Invalid
       *
       * AOL has been trying to throw these in just to break us.
       * They're real nice guys over there at AOL.  
       *
       * Just skip the two zero bytes and continue on. (This doesn't
       * count towards tlvcnt!)
       */
    case 0x0000:
      lastvalid = 0;
      i += 2;
      break;

      /*
       * Type = 0x0001: User flags
       * 
       * Specified as any of the following bitwise ORed together:
       *      0x0001  Trial (user less than 60days)
       *      0x0002  Unknown bit 2
       *      0x0004  AOL Main Service user
       *      0x0008  Unknown bit 4
       *      0x0010  Free (AIM) user 
       *      0x0020  Away
       *
       * In some odd cases, we can end up with more
       * than one of these.  We only want the first,
       * as the others may not be something we want.
       *
       */
    case 0x0001:
      if (tlv1) /* use only the first */
	break;
      outinfo->flags = aimutil_get16(&buf[i+4]);
      tlv1++;
      break;
      
      /*
       * Type = 0x0002: Member-Since date. 
       *
       * The time/date that the user originally
       * registered for the service, stored in 
       * time_t format
       */
    case 0x0002: 
      outinfo->membersince = aimutil_get32(&buf[i+4]);
      break;
      
      /*
       * Type = 0x0003: On-Since date.
       *
       * The time/date that the user started 
       * their current session, stored in time_t
       * format.
       */
    case 0x0003:
      outinfo->onlinesince = aimutil_get32(&buf[i+4]);
      break;
      
      /*
       * Type = 0x0004: Idle time.
       *
       * Number of seconds since the user
       * actively used the service.
       */
    case 0x0004:
      outinfo->idletime = aimutil_get16(&buf[i+4]);
      break;
      
      /*
       * Type = 0x0006: ICQ Online Status
       *
       * ICQ's Away/DND/etc "enriched" status
       * Some decoding of values done by Scott <darkagl@pcnet.com>
       */
    case 0x0006:
      outinfo->icqinfo.status = aimutil_get16(buf+i+2+2+2);
      break;


      /*
       * Type = 0x000a
       *
       * ICQ User IP Address.
       * Ahh, the joy of ICQ security.
       */
    case 0x000a:
      outinfo->icqinfo.ipaddr = aimutil_get32(&buf[i+4]);
      break;

      /* Type = 0x000c
       *
       * random crap containing the IP address,
       * apparently a port number, and some Other Stuff.
       *
       */
    case 0x000c:
      memcpy(outinfo->icqinfo.crap, &buf[i+4], 0x25);
      break;

      /*
       * Type = 0x000d
       *
       * Capability information.  Not real sure of
       * actual decoding.  See comment on aim_bos_setprofile()
       * in aim_misc.c about the capability block, its the same.
       *
       */
    case 0x000d:
      {
	int len;
	len = aimutil_get16(buf+i+2);
	if (!len)
	  break;
	
	outinfo->capabilities = aim_getcap(buf+i+4, len);
      }
      break;
      
      /*
       * Type = 0x000e
       *
       * Unknown.  Always of zero length, and always only
       * on AOL users.
       *
       * Ignore.
       *
       */
    case 0x000e:
      break;
      
      /*
       * Type = 0x000f: Session Length. (AIM)
       * Type = 0x0010: Session Length. (AOL)
       *
       * The duration, in seconds, of the user's
       * current session.
       *
       * Which TLV type this comes in depends
       * on the service the user is using (AIM or AOL).
       *
       */
    case 0x000f:
    case 0x0010:
      outinfo->sessionlen = aimutil_get32(&buf[i+4]);
      break;
      
      /*
       * Reaching here indicates that either AOL has
       * added yet another TLV for us to deal with, 
       * or the parsing has gone Terribly Wrong.
       *
       * Either way, inform the owner and attempt
       * recovery.
       *
       */
    default:
      {
	int len,z = 0, y = 0, x = 0;
	char tmpstr[80];
	printf("faim: userinfo: **warning: unexpected TLV:\n");
	printf("faim: userinfo:   sn    =%s\n", outinfo->sn);
	printf("faim: userinfo:   curtlv=0x%04x\n", curtlv);
	printf("faim: userinfo:   type  =0x%04x\n",aimutil_get16(&buf[i]));
	printf("faim: userinfo:   length=0x%04x\n", len = aimutil_get16(&buf[i+2]));
	printf("faim: userinfo:   data: \n");
	while (z<len)
	  {
	    x = sprintf(tmpstr, "faim: userinfo:      ");
	    for (y = 0; y < 8; y++)
	      {
		if (z<len)
		  {
		    sprintf(tmpstr+x, "%02x ", buf[i+4+z]);
		    z++;
		    x += 3;
		  }
		else
		  break;
	      }
	    printf("%s\n", tmpstr);
	  }
      }
      break;
    }  
    /*
     * No matter what, TLV triplets should always look like this:
     *
     *   u_short type;
     *   u_short length;
     *   u_char  data[length];
     *
     */
    if (lastvalid) {
      i += (2 + 2 + aimutil_get16(&buf[i+2])); 	   
      curtlv++;
    }
  }
  
  return i;
}

/*
 * Oncoming Buddy notifications contain a subset of the
 * user information structure.  Its close enough to run
 * through aim_extractuserinfo() however.
 *
 */
faim_internal int aim_parse_oncoming_middle(struct aim_session_t *sess,
					    struct command_rx_struct *command)
{
  struct aim_userinfo_s userinfo;
  u_int i = 0;
  rxcallback_t userfunc=NULL;

  i = 10;
  i += aim_extractuserinfo(command->data+i, &userinfo);

  userfunc = aim_callhandler(command->conn, AIM_CB_FAM_BUD, AIM_CB_BUD_ONCOMING);
  if (userfunc)
    i = userfunc(sess, command, &userinfo);

  return 1;
}

/*
 * Offgoing Buddy notifications contain no useful
 * information other than the name it applies to.
 *
 */
faim_internal int aim_parse_offgoing_middle(struct aim_session_t *sess,
					    struct command_rx_struct *command)
{
  char sn[MAXSNLEN+1];
  u_int i = 0;
  rxcallback_t userfunc=NULL;

  strncpy(sn, (char *)command->data+11, (int)command->data[10]);
  sn[(int)command->data[10]] = '\0';

  userfunc = aim_callhandler(command->conn, AIM_CB_FAM_BUD, AIM_CB_BUD_OFFGOING);
  if (userfunc)
    i = userfunc(sess, command, sn);

  return 1;
}

/*
 * This parses the user info stuff out all nice and pretty then calls 
 * the higher-level callback (in the user app).
 *
 */
faim_internal int aim_parse_userinfo_middle(struct aim_session_t *sess,
					    struct command_rx_struct *command)
{
  struct aim_userinfo_s userinfo;
  char *text_encoding = NULL;
  char *text = NULL;
  u_int i = 0;
  rxcallback_t userfunc=NULL;
  struct aim_tlvlist_t *tlvlist;
  struct aim_snac_t *origsnac = NULL;
  u_long snacid;
  struct aim_priv_inforeq *inforeq;
  
  snacid = aimutil_get32(&command->data[6]);
  origsnac = aim_remsnac(sess, snacid);

  if (!origsnac || !origsnac->data) {
    printf("faim: parse_userinfo_middle: major problem: no snac stored!\n");
    return 1;
  }

  inforeq = (struct aim_priv_inforeq *)origsnac->data;

  switch (inforeq->infotype) {
  case AIM_GETINFO_GENERALINFO:
  case AIM_GETINFO_AWAYMESSAGE:
    i = 10;

    /*
     * extractuserinfo will give us the basic metaTLV information
     */
    i += aim_extractuserinfo(command->data+i, &userinfo);
  
    /*
     * However, in this command, there's usually more TLVs following...
     */ 
    tlvlist = aim_readtlvchain(command->data+i, command->commandlen-i);

    /* 
     * Depending on what informational text was requested, different
     * TLVs will appear here.
     *
     * Profile will be 1 and 2, away message will be 3 and 4.
     */
    if (aim_gettlv(tlvlist, 0x0001, 1)) {
      text_encoding = aim_gettlv_str(tlvlist, 0x0001, 1);
      text = aim_gettlv_str(tlvlist, 0x0002, 1);
    } else if (aim_gettlv(tlvlist, 0x0003, 1)) {
      text_encoding = aim_gettlv_str(tlvlist, 0x0003, 1);
      text = aim_gettlv_str(tlvlist, 0x0004, 1);
    }

    userfunc = aim_callhandler(command->conn, AIM_CB_FAM_LOC, AIM_CB_LOC_USERINFO);
    if (userfunc) {
      i = userfunc(sess,
		   command, 
		   &userinfo, 
		   text_encoding, 
		   text,
		   inforeq->infotype); 
    }
  
    free(text_encoding);
    free(text);
    aim_freetlvchain(&tlvlist);
    break;
  default:
    printf("faim: parse_userinfo_middle: unknown infotype in request! (0x%04x)\n", inforeq->infotype);
    break;
  }

  if (origsnac) {
    if (origsnac->data)
      free(origsnac->data);
    free(origsnac);
  }

  return 1;
}

/*
 * Inverse of aim_extractuserinfo()
 */
faim_internal int aim_putuserinfo(u_char *buf, int buflen, struct aim_userinfo_s *info)
{
  int i = 0, numtlv = 0;
  struct aim_tlvlist_t *tlvlist = NULL;

  if (!buf || !info)
    return 0;

  i += aimutil_put8(buf+i, strlen(info->sn));
  i += aimutil_putstr(buf+i, info->sn, strlen(info->sn));

  i += aimutil_put16(buf+i, info->warnlevel);


  aim_addtlvtochain16(&tlvlist, 0x0001, info->flags);
  numtlv++;

  aim_addtlvtochain32(&tlvlist, 0x0002, info->membersince);
  numtlv++;

  aim_addtlvtochain32(&tlvlist, 0x0003, info->onlinesince);
  numtlv++;

  aim_addtlvtochain16(&tlvlist, 0x0004, info->idletime);
  numtlv++;

#if ICQ_OSCAR_SUPPORT
  if(atoi(info->sn) != 0) {
    aim_addtlvtochain16(&tlvlist, 0x0006, info->icqinfo.status);
    aim_addtlvtochain32(&tlvlist, 0x000a, info->icqinfo.ipaddr);
  }
#endif

  aim_addtlvtochain_caps(&tlvlist, 0x000d, info->capabilities);
  numtlv++;

  aim_addtlvtochain32(&tlvlist, (unsigned short)((info->flags)&AIM_FLAG_AOL?0x0010:0x000f), info->sessionlen);
  numtlv++;

  i += aimutil_put16(buf+i, numtlv); /* tlvcount */
  i += aim_writetlvchain(buf+i, buflen-i, &tlvlist); /* tlvs */
  aim_freetlvchain(&tlvlist);

  return i;
}

faim_export int aim_sendbuddyoncoming(struct aim_session_t *sess, struct aim_conn_t *conn, struct aim_userinfo_s *info)
{
  struct command_tx_struct *tx;
  int i = 0;

  if (!sess || !conn || !info)
    return 0;

  if (!(tx = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 1152)))
    return -1;

  tx->lock = 1;

  i += aimutil_put16(tx->data+i, 0x0003);
  i += aimutil_put16(tx->data+i, 0x000b);
  i += aimutil_put16(tx->data+i, 0x0000);
  i += aimutil_put16(tx->data+i, 0x0000);
  i += aimutil_put16(tx->data+i, 0x0000);

  i += aim_putuserinfo(tx->data+i, tx->commandlen-i, info);

  tx->commandlen = i;
  tx->lock = 0;
  aim_tx_enqueue(sess, tx);

  return 0;
}

faim_export int aim_sendbuddyoffgoing(struct aim_session_t *sess, struct aim_conn_t *conn, char *sn)
{
  struct command_tx_struct *tx;
  int i = 0;

  if (!sess || !conn || !sn)
    return 0;

  if (!(tx = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 10+1+strlen(sn))))
    return -1;

  tx->lock = 1;

  i += aimutil_put16(tx->data+i, 0x0003);
  i += aimutil_put16(tx->data+i, 0x000c);
  i += aimutil_put16(tx->data+i, 0x0000);
  i += aimutil_put16(tx->data+i, 0x0000);
  i += aimutil_put16(tx->data+i, 0x0000);

  i += aimutil_put8(tx->data+i, strlen(sn));
  i += aimutil_putstr(tx->data+i, sn, strlen(sn));
  
  tx->lock = 0;
  aim_tx_enqueue(sess, tx);

  return 0;
}
Commit	Line	Data
9de3ca7e	1	/*
	2	* aim_info.c
	3	*
	4	* The functions here are responsible for requesting and parsing information-
	5	* gathering SNACs.
	6	*
	7	*/
	8
	9
a25832e6	10	#include <faim/aim.h>
9de3ca7e	11
262272cc	12	struct aim_priv_inforeq {
	13	char sn[MAXSNLEN];
	14	unsigned short infotype;
	15	};
	16
78b3fb13	17	faim_export unsigned long aim_getinfo(struct aim_session_t *sess,
	18	struct aim_conn_t *conn,
	19	const char *sn,
	20	unsigned short infotype)
9de3ca7e	21	{
5b79dc93	22	struct command_tx_struct *newpacket;
276495a3	23	int i = 0;
	24
	25	if (!sess \|\| !conn \|\| !sn)
	26	return 0;
9de3ca7e	27
b69540e3	28	if (!(newpacket = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 12+1+strlen(sn))))
5b79dc93	29	return -1;
9de3ca7e	30
5b79dc93	31	newpacket->lock = 1;
9de3ca7e	32
5b79dc93	33	i = aim_putsnac(newpacket->data, 0x0002, 0x0005, 0x0000, sess->snac_nextid);
9de3ca7e	34
262272cc	35	i += aimutil_put16(newpacket->data+i, infotype);
5b79dc93	36	i += aimutil_put8(newpacket->data+i, strlen(sn));
5b79dc93	37	i += aimutil_putstr(newpacket->data+i, sn, strlen(sn));
9de3ca7e	38
5b79dc93	39	newpacket->lock = 0;
5b79dc93	40	aim_tx_enqueue(sess, newpacket);
9de3ca7e	41
	42	{
	43	struct aim_snac_t snac;
	44
a25832e6	45	snac.id = sess->snac_nextid;
9de3ca7e	46	snac.family = 0x0002;
	47	snac.type = 0x0005;
	48	snac.flags = 0x0000;
	49
262272cc	50	snac.data = malloc(sizeof(struct aim_priv_inforeq));
	51	strcpy(((struct aim_priv_inforeq *)snac.data)->sn, sn);
	52	((struct aim_priv_inforeq *)snac.data)->infotype = infotype;
9de3ca7e	53
a25832e6	54	aim_newsnac(sess, &snac);
9de3ca7e	55	}
9de3ca7e	56
a25832e6	57	return (sess->snac_nextid++);
9de3ca7e	58	}
9de3ca7e	59
78b3fb13	60	faim_internal int aim_parse_locateerr(struct aim_session_t *sess,
78b3fb13	61	struct command_rx_struct *command)
96f8b1ed	62	{
	63	u_long snacid = 0x000000000;
	64	struct aim_snac_t *snac = NULL;
	65	int ret = 0;
	66	rxcallback_t userfunc = NULL;
	67	char *dest;
	68	unsigned short reason = 0;
	69
	70	/*
	71	* Get SNAC from packet and look it up
	72	* the list of unrepliedto/outstanding
	73	* SNACs.
	74	*
	75	*/
	76	snacid = aimutil_get32(command->data+6);
	77	snac = aim_remsnac(sess, snacid);
	78
	79	if (!snac) {
	80	printf("faim: locerr: got an locate-failed error on an unknown SNAC ID! (%08lx)\n", snacid);
	81	dest = NULL;
	82	} else
	83	dest = snac->data;
	84
	85	reason = aimutil_get16(command->data+10);
	86
	87	/*
	88	* Call client.
	89	*/
	90	userfunc = aim_callhandler(command->conn, 0x0002, 0x0001);
	91	if (userfunc)
	92	ret = userfunc(sess, command, dest, reason);
	93	else
	94	ret = 0;
	95
	96	if (snac) {
	97	free(snac->data);
	98	free(snac);
	99	}
	100
	101	return ret;
	102	}
5b79dc93	103
	104	/*
	105	* Capability blocks.
	106	*/
	107	u_char aim_caps[6][16] = {
	108
	109	/* Buddy icon */
	110	{0x09, 0x46, 0x13, 0x46, 0x4c, 0x7f, 0x11, 0xd1,
	111	0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
	112
	113	/* Voice */
	114	{0x09, 0x46, 0x13, 0x41, 0x4c, 0x7f, 0x11, 0xd1,
	115	0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
	116
	117	/* IM image */
	118	{0x09, 0x46, 0x13, 0x45, 0x4c, 0x7f, 0x11, 0xd1,
	119	0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
	120
	121	/* Chat */
	122	{0x74, 0x8f, 0x24, 0x20, 0x62, 0x87, 0x11, 0xd1,
	123	0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
	124
	125	/* Get file */
	126	{0x09, 0x46, 0x13, 0x48, 0x4c, 0x7f, 0x11, 0xd1,
	127	0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00},
	128
	129	/* Send file */
	130	{0x09, 0x46, 0x13, 0x43, 0x4c, 0x7f, 0x11, 0xd1,
	131	0x82, 0x22, 0x44, 0x45, 0x53, 0x54, 0x00, 0x00}
	132	};
	133
78b3fb13	134	faim_internal unsigned short aim_getcap(unsigned char *capblock, int buflen)
b69540e3	135	{
	136	u_short ret = 0;
	137	int y;
	138	int offset = 0;
	139
	140	while (offset < buflen) {
	141	for(y=0; y < (sizeof(aim_caps)/0x10); y++) {
	142	if (memcmp(&aim_caps[y], capblock+offset, 0x10) == 0) {
	143	switch(y) {
	144	case 0: ret \|= AIM_CAPS_BUDDYICON; break;
	145	case 1: ret \|= AIM_CAPS_VOICE; break;
	146	case 2: ret \|= AIM_CAPS_IMIMAGE; break;
	147	case 3: ret \|= AIM_CAPS_CHAT; break;
	148	case 4: ret \|= AIM_CAPS_GETFILE; break;
	149	case 5: ret \|= AIM_CAPS_SENDFILE; break;
	150	default: ret \|= 0xff00; break;
	151	}
	152	}
	153	}
	154	offset += 0x10;
	155	}
	156	return ret;
	157	}
	158
78b3fb13	159	faim_internal int aim_putcap(unsigned char *capblock, int buflen, u_short caps)
b69540e3	160	{
	161	int offset = 0;
	162
	163	if (!capblock)
	164	return -1;
	165
	166	if ((caps & AIM_CAPS_BUDDYICON) && (offset < buflen)) {
	167	memcpy(capblock+offset, aim_caps[0], sizeof(aim_caps[0]));
	168	offset += sizeof(aim_caps[1]);
	169	}
	170	if ((caps & AIM_CAPS_VOICE) && (offset < buflen)) {
	171	memcpy(capblock+offset, aim_caps[1], sizeof(aim_caps[1]));
	172	offset += sizeof(aim_caps[1]);
	173	}
	174	if ((caps & AIM_CAPS_IMIMAGE) && (offset < buflen)) {
	175	memcpy(capblock+offset, aim_caps[2], sizeof(aim_caps[2]));
	176	offset += sizeof(aim_caps[2]);
	177	}
	178	if ((caps & AIM_CAPS_CHAT) && (offset < buflen)) {
	179	memcpy(capblock+offset, aim_caps[3], sizeof(aim_caps[3]));
	180	offset += sizeof(aim_caps[3]);
	181	}
	182	if ((caps & AIM_CAPS_GETFILE) && (offset < buflen)) {
	183	memcpy(capblock+offset, aim_caps[4], sizeof(aim_caps[4]));
	184	offset += sizeof(aim_caps[4]);
	185	}
	186	if ((caps & AIM_CAPS_SENDFILE) && (offset < buflen)) {
	187	memcpy(capblock+offset, aim_caps[5], sizeof(aim_caps[5]));
	188	offset += sizeof(aim_caps[5]);
	189	}
	190
	191	return offset;
	192	}
	193
9de3ca7e	194	/*
	195	* AIM is fairly regular about providing user info. This
	196	* is a generic routine to extract it in its standard form.
	197	*/
78b3fb13	198	faim_internal int aim_extractuserinfo(u_char buf, struct aim_userinfo_s outinfo)
9de3ca7e	199	{
	200	int i = 0;
	201	int tlvcnt = 0;
	202	int curtlv = 0;
	203	int tlv1 = 0;
	204	u_short curtype;
68ac63c2	205	int lastvalid;
9de3ca7e	206
	207
	208	if (!buf \|\| !outinfo)
	209	return -1;
	210
	211	/* Clear out old data first */
	212	memset(outinfo, 0x00, sizeof(struct aim_userinfo_s));
	213
	214	/*
	215	* Screen name. Stored as an unterminated string prepended
	216	* with an unsigned byte containing its length.
	217	*/
68ac63c2	218	if (buf[i] < MAXSNLEN) {
	219	memcpy(outinfo->sn, &(buf[i+1]), buf[i]);
	220	outinfo->sn[(int)buf[i]] = '\0';
	221	} else {
	222	memcpy(outinfo->sn, &(buf[i+1]), MAXSNLEN-1);
	223	outinfo->sn[MAXSNLEN] = '\0';
	224	}
9de3ca7e	225	i = 1 + (int)buf[i];
	226
	227	/*
	228	* Warning Level. Stored as an unsigned short.
	229	*/
	230	outinfo->warnlevel = aimutil_get16(&buf[i]);
	231	i += 2;
	232
	233	/*
	234	* TLV Count. Unsigned short representing the number of
	235	* Type-Length-Value triples that follow.
	236	*/
	237	tlvcnt = aimutil_get16(&buf[i]);
	238	i += 2;
	239
	240	/*
	241	* Parse out the Type-Length-Value triples as they're found.
	242	*/
68ac63c2	243	while (curtlv < tlvcnt) {
	244	lastvalid = 1;
	245	curtype = aimutil_get16(&buf[i]);
	246	switch (curtype) {
	247	/*
	248	* Type = 0x0000: Invalid
	249	*
	250	* AOL has been trying to throw these in just to break us.
	251	* They're real nice guys over there at AOL.
	252	*
	253	* Just skip the two zero bytes and continue on. (This doesn't
	254	* count towards tlvcnt!)
	255	*/
	256	case 0x0000:
	257	lastvalid = 0;
	258	i += 2;
	259	break;
0b4acf97	260
68ac63c2	261	/*
a15d82b1	262	* Type = 0x0001: User flags
68ac63c2	263	*
	264	* Specified as any of the following bitwise ORed together:
	265	* 0x0001 Trial (user less than 60days)
	266	* 0x0002 Unknown bit 2
	267	* 0x0004 AOL Main Service user
	268	* 0x0008 Unknown bit 4
	269	* 0x0010 Free (AIM) user
	270	* 0x0020 Away
	271	*
	272	* In some odd cases, we can end up with more
	273	* than one of these. We only want the first,
	274	* as the others may not be something we want.
	275	*
	276	*/
	277	case 0x0001:
	278	if (tlv1) /* use only the first */
	279	break;
a15d82b1	280	outinfo->flags = aimutil_get16(&buf[i+4]);
68ac63c2	281	tlv1++;
	282	break;
	283
	284	/*
	285	* Type = 0x0002: Member-Since date.
	286	*
	287	* The time/date that the user originally
	288	* registered for the service, stored in
	289	* time_t format
	290	*/
	291	case 0x0002:
	292	outinfo->membersince = aimutil_get32(&buf[i+4]);
	293	break;
	294
	295	/*
	296	* Type = 0x0003: On-Since date.
	297	*
	298	* The time/date that the user started
	299	* their current session, stored in time_t
	300	* format.
	301	*/
	302	case 0x0003:
	303	outinfo->onlinesince = aimutil_get32(&buf[i+4]);
	304	break;
	305
	306	/*
	307	* Type = 0x0004: Idle time.
	308	*
	309	* Number of seconds since the user
	310	* actively used the service.
	311	*/
	312	case 0x0004:
	313	outinfo->idletime = aimutil_get16(&buf[i+4]);
	314	break;
	315
f2d214f9	316	/*
	317	* Type = 0x0006: ICQ Online Status
	318	*
	319	* ICQ's Away/DND/etc "enriched" status
	320	* Some decoding of values done by Scott <darkagl@pcnet.com>
	321	*/
	322	case 0x0006:
f2d214f9	323	outinfo->icqinfo.status = aimutil_get16(buf+i+2+2+2);
	324	break;
	325
3b101546	326
	327	/*
	328	* Type = 0x000a
	329	*
	330	* ICQ User IP Address.
	331	* Ahh, the joy of ICQ security.
	332	*/
	333	case 0x000a:
	334	outinfo->icqinfo.ipaddr = aimutil_get32(&buf[i+4]);
	335	break;
	336
	337	/* Type = 0x000c
	338	*
	339	* random crap containing the IP address,
	340	* apparently a port number, and some Other Stuff.
	341	*
	342	*/
	343	case 0x000c:
	344	memcpy(outinfo->icqinfo.crap, &buf[i+4], 0x25);
	345	break;
	346
68ac63c2	347	/*
	348	* Type = 0x000d
	349	*
	350	* Capability information. Not real sure of
	351	* actual decoding. See comment on aim_bos_setprofile()
	352	* in aim_misc.c about the capability block, its the same.
	353	*
	354	*/
	355	case 0x000d:
	356	{
	357	int len;
	358	len = aimutil_get16(buf+i+2);
	359	if (!len)
9de3ca7e	360	break;
68ac63c2	361
	362	outinfo->capabilities = aim_getcap(buf+i+4, len);
	363	}
	364	break;
	365
	366	/*
	367	* Type = 0x000e
	368	*
	369	* Unknown. Always of zero length, and always only
	370	* on AOL users.
	371	*
	372	* Ignore.
	373	*
	374	*/
	375	case 0x000e:
	376	break;
	377
	378	/*
	379	* Type = 0x000f: Session Length. (AIM)
	380	* Type = 0x0010: Session Length. (AOL)
	381	*
	382	* The duration, in seconds, of the user's
	383	* current session.
	384	*
	385	* Which TLV type this comes in depends
	386	* on the service the user is using (AIM or AOL).
	387	*
	388	*/
	389	case 0x000f:
	390	case 0x0010:
	391	outinfo->sessionlen = aimutil_get32(&buf[i+4]);
	392	break;
	393
	394	/*
	395	* Reaching here indicates that either AOL has
	396	* added yet another TLV for us to deal with,
	397	* or the parsing has gone Terribly Wrong.
	398	*
	399	* Either way, inform the owner and attempt
	400	* recovery.
	401	*
	402	*/
	403	default:
	404	{
	405	int len,z = 0, y = 0, x = 0;
	406	char tmpstr[80];
	407	printf("faim: userinfo: **warning: unexpected TLV:\n");
	408	printf("faim: userinfo: sn =%s\n", outinfo->sn);
	409	printf("faim: userinfo: curtlv=0x%04x\n", curtlv);
	410	printf("faim: userinfo: type =0x%04x\n",aimutil_get16(&buf[i]));
	411	printf("faim: userinfo: length=0x%04x\n", len = aimutil_get16(&buf[i+2]));
	412	printf("faim: userinfo: data: \n");
	413	while (z<len)
9de3ca7e	414	{
68ac63c2	415	x = sprintf(tmpstr, "faim: userinfo: ");
68ac63c2	416	for (y = 0; y < 8; y++)
9de3ca7e	417	{
68ac63c2	418	if (z<len)
9de3ca7e	419	{
68ac63c2	420	sprintf(tmpstr+x, "%02x ", buf[i+4+z]);
	421	z++;
	422	x += 3;
9de3ca7e	423	}
68ac63c2	424	else
68ac63c2	425	break;
9de3ca7e	426	}
68ac63c2	427	printf("%s\n", tmpstr);
9de3ca7e	428	}
68ac63c2	429	}
	430	break;
	431	}
	432	/*
	433	* No matter what, TLV triplets should always look like this:
	434	*
	435	* u_short type;
	436	* u_short length;
	437	* u_char data[length];
	438	*
	439	*/
	440	if (lastvalid) {
	441	i += (2 + 2 + aimutil_get16(&buf[i+2]));
9de3ca7e	442	curtlv++;
9de3ca7e	443	}
68ac63c2	444	}
9de3ca7e	445
	446	return i;
	447	}
	448
	449	/*
	450	* Oncoming Buddy notifications contain a subset of the
	451	* user information structure. Its close enough to run
	452	* through aim_extractuserinfo() however.
	453	*
	454	*/
78b3fb13	455	faim_internal int aim_parse_oncoming_middle(struct aim_session_t *sess,
78b3fb13	456	struct command_rx_struct *command)
9de3ca7e	457	{
	458	struct aim_userinfo_s userinfo;
	459	u_int i = 0;
	460	rxcallback_t userfunc=NULL;
	461
	462	i = 10;
	463	i += aim_extractuserinfo(command->data+i, &userinfo);
	464
	465	userfunc = aim_callhandler(command->conn, AIM_CB_FAM_BUD, AIM_CB_BUD_ONCOMING);
	466	if (userfunc)
a25832e6	467	i = userfunc(sess, command, &userinfo);
9de3ca7e	468
	469	return 1;
	470	}
	471
a25832e6	472	/*
	473	* Offgoing Buddy notifications contain no useful
	474	* information other than the name it applies to.
	475	*
	476	*/
78b3fb13	477	faim_internal int aim_parse_offgoing_middle(struct aim_session_t *sess,
78b3fb13	478	struct command_rx_struct *command)
a25832e6	479	{
	480	char sn[MAXSNLEN+1];
	481	u_int i = 0;
	482	rxcallback_t userfunc=NULL;
	483
78b3fb13	484	strncpy(sn, (char *)command->data+11, (int)command->data[10]);
1a7c2214	485	sn[(int)command->data[10]] = '\0';
a25832e6	486
	487	userfunc = aim_callhandler(command->conn, AIM_CB_FAM_BUD, AIM_CB_BUD_OFFGOING);
	488	if (userfunc)
	489	i = userfunc(sess, command, sn);
	490
	491	return 1;
	492	}
9de3ca7e	493
	494	/*
	495	* This parses the user info stuff out all nice and pretty then calls
	496	* the higher-level callback (in the user app).
	497	*
	498	*/
78b3fb13	499	faim_internal int aim_parse_userinfo_middle(struct aim_session_t *sess,
78b3fb13	500	struct command_rx_struct *command)
9de3ca7e	501	{
9de3ca7e	502	struct aim_userinfo_s userinfo;
262272cc	503	char *text_encoding = NULL;
262272cc	504	char *text = NULL;
9de3ca7e	505	u_int i = 0;
9de3ca7e	506	rxcallback_t userfunc=NULL;
0c20631f	507	struct aim_tlvlist_t *tlvlist;
262272cc	508	struct aim_snac_t *origsnac = NULL;
	509	u_long snacid;
	510	struct aim_priv_inforeq *inforeq;
	511
	512	snacid = aimutil_get32(&command->data[6]);
	513	origsnac = aim_remsnac(sess, snacid);
9de3ca7e	514
262272cc	515	if (!origsnac \|\| !origsnac->data) {
	516	printf("faim: parse_userinfo_middle: major problem: no snac stored!\n");
	517	return 1;
9de3ca7e	518	}
9de3ca7e	519
262272cc	520	inforeq = (struct aim_priv_inforeq *)origsnac->data;
	521
	522	switch (inforeq->infotype) {
	523	case AIM_GETINFO_GENERALINFO:
	524	case AIM_GETINFO_AWAYMESSAGE:
	525	i = 10;
	526
	527	/*
	528	* extractuserinfo will give us the basic metaTLV information
	529	*/
	530	i += aim_extractuserinfo(command->data+i, &userinfo);
0c20631f	531
262272cc	532	/*
	533	* However, in this command, there's usually more TLVs following...
	534	*/
	535	tlvlist = aim_readtlvchain(command->data+i, command->commandlen-i);
	536
	537	/*
	538	* Depending on what informational text was requested, different
	539	* TLVs will appear here.
	540	*
	541	* Profile will be 1 and 2, away message will be 3 and 4.
	542	*/
	543	if (aim_gettlv(tlvlist, 0x0001, 1)) {
	544	text_encoding = aim_gettlv_str(tlvlist, 0x0001, 1);
	545	text = aim_gettlv_str(tlvlist, 0x0002, 1);
	546	} else if (aim_gettlv(tlvlist, 0x0003, 1)) {
	547	text_encoding = aim_gettlv_str(tlvlist, 0x0003, 1);
	548	text = aim_gettlv_str(tlvlist, 0x0004, 1);
	549	}
9de3ca7e	550
262272cc	551	userfunc = aim_callhandler(command->conn, AIM_CB_FAM_LOC, AIM_CB_LOC_USERINFO);
262272cc	552	if (userfunc) {
a25832e6	553	i = userfunc(sess,
a25832e6	554	command,
9de3ca7e	555	&userinfo,
262272cc	556	text_encoding,
	557	text,
	558	inforeq->infotype);
9de3ca7e	559	}
0c20631f	560
262272cc	561	free(text_encoding);
	562	free(text);
	563	aim_freetlvchain(&tlvlist);
	564	break;
	565	default:
	566	printf("faim: parse_userinfo_middle: unknown infotype in request! (0x%04x)\n", inforeq->infotype);
	567	break;
	568	}
	569
	570	if (origsnac) {
	571	if (origsnac->data)
	572	free(origsnac->data);
	573	free(origsnac);
	574	}
9de3ca7e	575
	576	return 1;
	577	}
50443ea0	578
	579	/*
	580	* Inverse of aim_extractuserinfo()
	581	*/
78b3fb13	582	faim_internal int aim_putuserinfo(u_char buf, int buflen, struct aim_userinfo_s info)
50443ea0	583	{
9c38f1a7	584	int i = 0, numtlv = 0;
50443ea0	585	struct aim_tlvlist_t *tlvlist = NULL;
	586
	587	if (!buf \|\| !info)
	588	return 0;
	589
	590	i += aimutil_put8(buf+i, strlen(info->sn));
	591	i += aimutil_putstr(buf+i, info->sn, strlen(info->sn));
	592
	593	i += aimutil_put16(buf+i, info->warnlevel);
	594
9c38f1a7	595
a15d82b1	596	aim_addtlvtochain16(&tlvlist, 0x0001, info->flags);
9c38f1a7	597	numtlv++;
9c38f1a7	598
50443ea0	599	aim_addtlvtochain32(&tlvlist, 0x0002, info->membersince);
9c38f1a7	600	numtlv++;
9c38f1a7	601
50443ea0	602	aim_addtlvtochain32(&tlvlist, 0x0003, info->onlinesince);
9c38f1a7	603	numtlv++;
9c38f1a7	604
50443ea0	605	aim_addtlvtochain16(&tlvlist, 0x0004, info->idletime);
9c38f1a7	606	numtlv++;
3b101546	607
	608	#if ICQ_OSCAR_SUPPORT
	609	if(atoi(info->sn) != 0) {
	610	aim_addtlvtochain16(&tlvlist, 0x0006, info->icqinfo.status);
	611	aim_addtlvtochain32(&tlvlist, 0x000a, info->icqinfo.ipaddr);
	612	}
	613	#endif
	614
	615	aim_addtlvtochain_caps(&tlvlist, 0x000d, info->capabilities);
9c38f1a7	616	numtlv++;
3b101546	617
a15d82b1	618	aim_addtlvtochain32(&tlvlist, (unsigned short)((info->flags)&AIM_FLAG_AOL?0x0010:0x000f), info->sessionlen);
9c38f1a7	619	numtlv++;
3b101546	620
9c38f1a7	621	i += aimutil_put16(buf+i, numtlv); /* tlvcount */
9c38f1a7	622	i += aim_writetlvchain(buf+i, buflen-i, &tlvlist); /* tlvs */
50443ea0	623	aim_freetlvchain(&tlvlist);
3b101546	624
50443ea0	625	return i;
	626	}
	627
78b3fb13	628	faim_export int aim_sendbuddyoncoming(struct aim_session_t sess, struct aim_conn_t conn, struct aim_userinfo_s *info)
50443ea0	629	{
5b79dc93	630	struct command_tx_struct *tx;
50443ea0	631	int i = 0;
	632
	633	if (!sess \|\| !conn \|\| !info)
	634	return 0;
	635
b69540e3	636	if (!(tx = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 1152)))
5b79dc93	637	return -1;
50443ea0	638
5b79dc93	639	tx->lock = 1;
50443ea0	640
5b79dc93	641	i += aimutil_put16(tx->data+i, 0x0003);
	642	i += aimutil_put16(tx->data+i, 0x000b);
	643	i += aimutil_put16(tx->data+i, 0x0000);
	644	i += aimutil_put16(tx->data+i, 0x0000);
	645	i += aimutil_put16(tx->data+i, 0x0000);
50443ea0	646
5b79dc93	647	i += aim_putuserinfo(tx->data+i, tx->commandlen-i, info);
50443ea0	648
5b79dc93	649	tx->commandlen = i;
	650	tx->lock = 0;
	651	aim_tx_enqueue(sess, tx);
50443ea0	652
	653	return 0;
	654	}
	655
78b3fb13	656	faim_export int aim_sendbuddyoffgoing(struct aim_session_t sess, struct aim_conn_t conn, char *sn)
50443ea0	657	{
5b79dc93	658	struct command_tx_struct *tx;
50443ea0	659	int i = 0;
	660
	661	if (!sess \|\| !conn \|\| !sn)
	662	return 0;
	663
b69540e3	664	if (!(tx = aim_tx_new(AIM_FRAMETYPE_OSCAR, 0x0002, conn, 10+1+strlen(sn))))
5b79dc93	665	return -1;
50443ea0	666
5b79dc93	667	tx->lock = 1;
50443ea0	668
5b79dc93	669	i += aimutil_put16(tx->data+i, 0x0003);
	670	i += aimutil_put16(tx->data+i, 0x000c);
	671	i += aimutil_put16(tx->data+i, 0x0000);
	672	i += aimutil_put16(tx->data+i, 0x0000);
	673	i += aimutil_put16(tx->data+i, 0x0000);
50443ea0	674
5b79dc93	675	i += aimutil_put8(tx->data+i, strlen(sn));
5b79dc93	676	i += aimutil_putstr(tx->data+i, sn, strlen(sn));
50443ea0	677
5b79dc93	678	tx->lock = 0;
5b79dc93	679	aim_tx_enqueue(sess, tx);
50443ea0	680
	681	return 0;
	682	}
262272cc	683