// ---------------------------------------------------------------------------80
//                ICQ plugin for Miranda Instant Messenger
//                ________________________________________
// 
// Copyright © 2000,2001 Richard Hughes, Roland Rabien, Tristan Van de Vreede
// Copyright © 2001,2002 Jon Keating, Richard Hughes
// Copyright © 2002,2003,2004 Martin Öberg, Sam Kothari, Robert Rainwater
// Copyright © 2004,2005,2006,2007 Joe Kucera
// Copyright © 2006,2007 [sss], chaos.persei, [sin], Faith Healer, Theif, nullbie
// 
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
// 
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
// 
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
//
// -----------------------------------------------------------------------------
//
// File name      : $Source$
// Revision       : $Revision: 37 $
// Last change on : $Date: 2007-08-07 04:37:56 +0300 (Вт, 07 авг 2007) $
// Last change by : $Author: sss123next $
//
// DESCRIPTION:
//
//  Describe me here please...
//
// -----------------------------------------------------------------------------

#include "icqoscar.h"



static void handleExtensionError(unsigned char *buf, WORD wPackLen);
static void handleExtensionServerInfo(unsigned char *buf, WORD wPackLen, WORD wFlags);
static void handleExtensionMetaResponse(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wFlags);
static void parseSearchReplies(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wReplySubtype, BYTE bResultCode);
static void parseUserInfoRequestReplies(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wFlags, WORD wReplySubtype, BYTE bResultCode);
static void parseUserInfoUpdateAck(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wReplySubtype, BYTE bResultCode);



void handleIcqExtensionsFam(unsigned char *pBuffer, WORD wBufferLength, snac_header* pSnacHeader)
{
  switch (pSnacHeader->wSubtype)
  {

  case ICQ_META_ERROR:
    handleExtensionError(pBuffer, wBufferLength);
    break;

  case ICQ_META_SRV_REPLY:
    handleExtensionServerInfo(pBuffer, wBufferLength, pSnacHeader->wFlags);
    break;

  default:
    NetLog_Server("Warning: Ignoring SNAC(x%02x,x%02x) - Unknown SNAC (Flags: %u, Ref: %u)", ICQ_EXTENSIONS_FAMILY, pSnacHeader->wSubtype, pSnacHeader->wFlags, pSnacHeader->dwRef);
    break;
  }
}



static void handleExtensionError(unsigned char *buf, WORD wPackLen)
{
  WORD wErrorCode;

  if (wPackLen < 2)
  {
    wErrorCode = 0;
  }
  if (wPackLen >= 2 && wPackLen <= 6)
  {
    unpackWord(&buf, &wErrorCode);
  }
  else
  { // TODO: cookies need to be handled and freed here on error
    oscar_tlv_chain *chain = NULL;

    unpackWord(&buf, &wErrorCode);
    wPackLen -= 2;
    chain = readIntoTLVChain(&buf, wPackLen, 0);
    if (chain)
    {
      oscar_tlv* pTLV;

      pTLV = getTLV(chain, 0x21, 1); // get meta error data
      if (pTLV && pTLV->wLen >= 8)
      {
        unsigned char* pBuffer = pTLV->pData;
        WORD wData;
        pBuffer += 6;
        unpackLEWord(&pBuffer, &wData); // get request type
        switch (wData)
        {
        case CLI_META_INFO_REQ:
          if (pTLV->wLen >= 12)
          {
            WORD wSubType;
            WORD wCookie;

            unpackWord(&pBuffer, &wCookie);
            unpackLEWord(&pBuffer, &wSubType);
            // more sofisticated detection, send ack
            if (wSubType == META_REQUEST_FULL_INFO)
            {
              HANDLE hContact;
              fam15_cookie_data* pCookieData = NULL;
              int foundCookie;

              foundCookie = FindCookie(wCookie, &hContact, (void**)&pCookieData);
              if (foundCookie && pCookieData)
              {
                ICQBroadcastAck(hContact,  ACKTYPE_GETINFO, ACKRESULT_FAILED, (HANDLE)1 ,0);

                ReleaseCookie(wCookie);  // we do not leak cookie and memory
              }

              NetLog_Server("Full info request error 0x%02x received", wErrorCode);
            }
          }
          else 
            NetLog_Server("Meta request error 0x%02x received", wErrorCode);

          break;

        default:
          NetLog_Server("Unknown request 0x%02x error 0x%02x received", wData, wErrorCode);
        }
        disposeChain(&chain);
        return;
      }
      disposeChain(&chain);
    }
  }
  LogFamilyError(ICQ_EXTENSIONS_FAMILY, wErrorCode);
}



static void handleExtensionServerInfo(unsigned char *buf, WORD wPackLen, WORD wFlags)
{
  WORD wBytesRemaining;
  WORD wRequestType;
  WORD wCookie;
  DWORD dwMyUin;
  oscar_tlv_chain* chain;
  oscar_tlv* dataTlv;
  unsigned char* databuf;
  
  
  // The entire packet is encapsulated in a TLV type 1
  chain = readIntoTLVChain(&buf, wPackLen, 0);
  if (chain == NULL)
  {
    NetLog_Server("Error: Broken snac 15/3 %d", 1);
    return;
  }

  dataTlv = getTLV(chain, 0x0001, 1);
  if (dataTlv == NULL)
  {
    disposeChain(&chain);
    NetLog_Server("Error: Broken snac 15/3 %d", 2);
    return;
  }
  databuf = dataTlv->pData;
  wPackLen -= 4;
  
  _ASSERTE(dataTlv->wLen == wPackLen);
  _ASSERTE(wPackLen >= 10);

  if ((dataTlv->wLen == wPackLen) && (wPackLen >= 10))
  {
    unpackLEWord(&databuf, &wBytesRemaining);
    unpackLEDWord(&databuf, &dwMyUin);
    unpackLEWord(&databuf, &wRequestType);
    unpackWord(&databuf, &wCookie);
    
    _ASSERTE(wBytesRemaining == (wPackLen - 2));
    if (wBytesRemaining == (wPackLen - 2))
    {
      wPackLen -= 10;      
      switch (wRequestType)
      {
      case SRV_META_INFO_REPLY:     // SRV_META request replies
        handleExtensionMetaResponse(databuf, wPackLen, wCookie, wFlags);
        break;

      default:
        NetLog_Server("Warning: Ignoring Meta response - Unknown type %d", wRequestType);
        break;
      }
    }
  }
  else
  {
    NetLog_Server("Error: Broken snac 15/3 %d", 3);
  }

  if (chain)
    disposeChain(&chain);
}



static void handleExtensionMetaResponse(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wFlags)
{
  WORD wReplySubtype;
  BYTE bResultCode;
  
  _ASSERTE(wPacketLen >= 3);
  if (wPacketLen >= 3)
  {
    // Reply subtype
    unpackLEWord(&databuf, &wReplySubtype);
    wPacketLen -= 2;
    
    // Success byte
    unpackByte(&databuf, &bResultCode);
    wPacketLen -= 1;
    
    switch (wReplySubtype)
    {
    case META_SET_PASSWORD_ACK:
    case META_SET_FULLINFO_ACK:
      parseUserInfoUpdateAck(databuf, wPacketLen, wCookie, wReplySubtype, bResultCode);
      break;
      
    case SRV_RANDOM_FOUND:
    case SRV_USER_FOUND:
    case SRV_LAST_USER_FOUND:
      parseSearchReplies(databuf, wPacketLen, wCookie, wReplySubtype, bResultCode);
      break;
      
    case META_SHORT_USERINFO:
    case META_BASIC_USERINFO:
    case META_WORK_USERINFO:
    case META_MORE_USERINFO:
    case META_NOTES_USERINFO:
    case META_EMAIL_USERINFO:
    case META_INTERESTS_USERINFO:
    case META_AFFILATIONS_USERINFO:
    case META_HPAGECAT_USERINFO:
      parseUserInfoRequestReplies(databuf, wPacketLen, wCookie, wFlags, wReplySubtype, bResultCode);
      break;
      
    case META_PROCESSING_ERROR:  // Meta processing error server reply
      // Todo: We only use this as an SMS ack, that will have to change
      {
        char *pszInfo;
        
        // Terminate buffer
        pszInfo = (char *)_alloca(wPacketLen + 1);
        if (wPacketLen > 0)
          memcpy(pszInfo, databuf, wPacketLen);
        pszInfo[wPacketLen] = 0;
        
        ICQBroadcastAck(NULL, ICQACKTYPE_SMS, ACKRESULT_FAILED, (HANDLE)wCookie, (LPARAM)pszInfo);
        FreeCookie(wCookie);
        break;
      }
      break;
      
    case META_SMS_DELIVERY_RECEIPT:
      // Todo: This overlaps with META_SET_AFFINFO_ACK.
      // Todo: Check what happens if result != A
      if (wPacketLen > 8)
      {
        WORD wNetworkNameLen;
        WORD wAckLen;
        char *pszInfo;
        
        
        databuf += 6;    // Some unknowns
        wPacketLen -= 6;
        
        unpackWord(&databuf, &wNetworkNameLen);
        if (wPacketLen >= (wNetworkNameLen + 2))
        {
          databuf += wNetworkNameLen;
          wPacketLen -= wNetworkNameLen;
          
          unpackWord(&databuf, &wAckLen);
          if (pszInfo = (char *)_alloca(wAckLen + 1))
          {
            // Terminate buffer
            if (wAckLen > 0)
              memcpy(pszInfo, databuf, wAckLen);
            pszInfo[wAckLen] = 0;
            
            ICQBroadcastAck(NULL, ICQACKTYPE_SMS, ACKRESULT_SENTREQUEST, (HANDLE)wCookie, (LPARAM)pszInfo);
            FreeCookie(wCookie);
            
            // Parsing success
            break; 
          }
        }
      }
      
      // Parsing failure
      NetLog_Server("Error: Failure parsing META_SMS_DELIVERY_RECEIPT");
      break;
      
    default:
      NetLog_Server("Warning: Ignored 15/03 replysubtype x%x", wReplySubtype);
//      _ASSERTE(0);
      break;
    }
    
    // Success
    return;
  }

  // Failure
  NetLog_Server("Warning: Broken 15/03 ExtensionMetaResponse");
}



static void ReleaseSearchCookie(DWORD dwCookie, search_cookie *pCookie)
{
  if (pCookie)
  {
    FreeCookie(dwCookie);
    if (pCookie->dwMainId)
    {
      if (pCookie->dwStatus)
      {
        SAFE_FREE(&pCookie);
        ICQBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)dwCookie, 0);
      }
      else
        pCookie->dwStatus = 1;
    }
    else
    {
      SAFE_FREE(&pCookie);
      ICQBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)dwCookie, 0);
    }
  }
  else
    ICQBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)dwCookie, 0);
}



static void parseSearchReplies(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wReplySubtype, BYTE bResultCode)
{
  BYTE bParsingOK = FALSE; // For debugging purposes only
  BOOL bLastUser = FALSE;
  search_cookie* pCookie;

  if (!FindCookie(wCookie, NULL, &pCookie))
  {
    NetLog_Server("Warning: Received unexpected search reply");
    pCookie = NULL;
  }

  switch (wReplySubtype)
  {
    
  case SRV_LAST_USER_FOUND: // Search: last user found reply
    bLastUser = TRUE;

  case SRV_USER_FOUND:      // Search: user found reply
    if (bLastUser)
      NetLog_Server("SNAC(0x15,0x3): Last search reply");
    else
      NetLog_Server("SNAC(0x15,0x3): Search reply");

    if (bResultCode == 0xA)
    {
      ICQSEARCHRESULT sr = {0};
      DWORD dwUin;
      WORD wLen;

      sr.hdr.cbSize = sizeof(sr);

      // Remaining bytes
      if (wPacketLen < 2)
        break;
      unpackLEWord(&databuf, &wLen);
      wPacketLen -= 2;
      
      _ASSERTE(wLen <= wPacketLen);
      if (wLen > wPacketLen)
        break;
      
      // Uin
      if (wPacketLen < 4)
        break;
      unpackLEDWord(&databuf, &dwUin); // Uin
      wPacketLen -= 4;
      sr.uin = dwUin;
      
      // Nick
      if (wPacketLen < 2)
        break;
      unpackLEWord(&databuf, &wLen);
      wPacketLen -= 2;
      if (wLen > 0)
      {
        if (wPacketLen < wLen || (databuf[wLen-1] != 0))
          break;
        sr.hdr.nick = databuf;
        databuf += wLen;
      }
      else
      {
        sr.hdr.nick = NULL;
      }

      // First name
      if (wPacketLen < 2)
        break;
      unpackLEWord(&databuf, &wLen);
      wPacketLen -= 2;
      if (wLen > 0)
      {
        if (wPacketLen < wLen || (databuf[wLen-1] != 0))
          break;
        sr.hdr.firstName = databuf;
        databuf += wLen;
      }
      else
      {
        sr.hdr.firstName = NULL;
      }

      // Last name
      if (wPacketLen < 2)
        break;
      unpackLEWord(&databuf, &wLen);
      wPacketLen -= 2;
      if (wLen > 0)
      {
        if (wPacketLen < wLen || (databuf[wLen-1] != 0))
          break;
        sr.hdr.lastName = databuf;
        databuf += wLen;
      }
      else
      {
        sr.hdr.lastName = NULL;
      }

      // E-mail name
      if (wPacketLen < 2)
        break;
      unpackLEWord(&databuf, &wLen);
      wPacketLen -= 2;
      if (wLen > 0)
      {
        if (wPacketLen < wLen || (databuf[wLen-1] != 0))
          break;
        sr.hdr.email = databuf;
        databuf += wLen;
      }
      else
      {
        sr.hdr.email = NULL;
      }

      // Authentication needed flag
      if (wPacketLen < 1)
        break;
      unpackByte(&databuf, &sr.auth);

      sr.uid = NULL; // icq contact
      // Finally, broadcast the result
      ICQBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_DATA, (HANDLE)wCookie, (LPARAM)&sr);
      
      // Broadcast "Last result" ack if this was the last user found
      if (wReplySubtype == SRV_LAST_USER_FOUND)
      {
        if (wPacketLen>=10)
        {
          DWORD dwLeft;

          databuf += 5;
          unpackLEDWord(&databuf, &dwLeft);
          if (dwLeft)
            NetLog_Server("Warning: %d search results omitted", dwLeft);
        }
        ReleaseSearchCookie(wCookie, pCookie);
      }

      bParsingOK = TRUE;
    }
    else 
    {
      // Failed search
      NetLog_Server("SNAC(0x15,0x3): Search error %u", bResultCode);

      ReleaseSearchCookie(wCookie, pCookie);

      bParsingOK = TRUE;
    }
    break;

  case SRV_RANDOM_FOUND: // Random search server reply
  default:
    if (pCookie)
    {
      ReleaseCookie(wCookie);
    }
    break;

  }

  // For debugging purposes only
  if (!bParsingOK)
  {
    NetLog_Server("Warning: Parsing error in 15/03 search reply type x%x", wReplySubtype);
    _ASSERTE(!bParsingOK);
  }
}



static void parseUserInfoRequestReplies(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wFlags, WORD wReplySubtype, BYTE bResultCode)
{
  BOOL bMoreDataFollows;
  fam15_cookie_data* pCookieData = NULL;
  HANDLE hContact = INVALID_HANDLE_VALUE;
  DWORD dwCookieUin;
  int foundCookie;
  BOOL bOK = TRUE;
  

  foundCookie = FindCookie(wCookie, &hContact, (void**)&pCookieData);
  if (foundCookie && pCookieData)
  {
    if (pCookieData->bRequestType == REQUESTTYPE_OWNER)
      hContact = NULL; // this is here for situation when we have own uin in clist
  }
  else
  {
    NetLog_Server("Warning: Ignoring unrequested 15/03 user info reply type 0x%x", wReplySubtype);

    return;
  }
  // obtain contact UIN
  dwCookieUin = ICQGetContactSettingUIN(hContact);

  if (bResultCode != 0x0A)
  {
    NetLog_Server("Warning: Got 15/03 user info failure reply type 0x%x", wReplySubtype);
  }

  // Check if this is the last packet for this request
  bMoreDataFollows = wFlags&0x0001;


  switch (wReplySubtype)
  {

  case META_BASIC_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "BASIC", dwCookieUin);
    if (bResultCode == 0x0A)
    {
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Nick", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "FirstName", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "LastName", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "e-mail", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "City", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "State", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Phone", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Fax", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Street", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Cellular", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "ZIP", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingWord(hContact, "Country", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingByte(hContact, "Timezone", &databuf, &wPacketLen);
      
      if (bOK && (wPacketLen >= 3))
      {
        if (hContact == NULL)
        { // auth flag is the same for normal contacts also
          ICQWriteContactSettingByte(hContact, "Auth", (BYTE)!(*databuf));
          databuf += 1;

          // webaware is also the same, but gives different values
          ICQWriteContactSettingByte(hContact, "WebAware", (*databuf));
          databuf += 1;

          ICQWriteContactSettingByte(hContact, "PublishPrimaryEmail", (BYTE)!(*databuf));
          databuf += 1;
        }
        else 
          databuf += 3;

        wPacketLen -= 3;

        if (wPacketLen >= 1 && (!hContact || dwCookieUin == dwLocalUIN))
        { // owner or owner contact contains one more unknown byte value
          databuf += 1; // OMG!
          wPacketLen -= 1;
        }
      }
      if (bOK) bOK = writeDbInfoSettingString(hContact, "ZIP", &databuf, &wPacketLen);
    }
    break;
    
  case META_WORK_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "WORK", dwCookieUin);
    if (bResultCode == 0x0A)
    {
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyCity", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyState", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyPhone", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyFax", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyStreet", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyZIP", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingWord(hContact, "CompanyCountry", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Company", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyDepartment",&databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyPosition", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingWord(hContact, "CompanyOccupation",&databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyHomepage", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "CompanyZIP", &databuf, &wPacketLen);
    }
    break;

  case META_MORE_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "MORE", dwCookieUin);
    if (bResultCode == 0x0A)
    {
      if (bOK) bOK = writeDbInfoSettingWord(hContact, "Age", &databuf, &wPacketLen);
      if (bOK && (wPacketLen >= 1))
      {
        if (*databuf)
          ICQWriteContactSettingByte(hContact, "Gender", (BYTE)(*databuf == 1 ? 'F' : 'M'));
        else 
          // Undefined gender
          ICQDeleteContactSetting(hContact, "Gender");
        databuf += 1;
        wPacketLen -= 1;
      }
      else
        bOK = FALSE;
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Homepage", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingWord(hContact, "BirthYear", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingByte(hContact, "BirthMonth", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingByte(hContact, "BirthDay", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingByteWithTable(hContact, "Language1", languageField, &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingByteWithTable(hContact, "Language2", languageField, &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingByteWithTable(hContact, "Language3", languageField, &databuf, &wPacketLen);

      if (bOK && (wPacketLen >= 2))
      {
        databuf += 2;
        wPacketLen -= 2;
      }
      if (bOK) bOK = writeDbInfoSettingString(hContact, "OriginCity", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "OriginState", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingWord(hContact, "OriginCountry", &databuf, &wPacketLen);

      if (bOK) bOK = writeDbInfoSettingByte(hContact, "MaritalStatus", &databuf, &wPacketLen);
      
      if (bOK)
      {
        if (hContact == NULL)
          bOK = writeDbInfoSettingByte(hContact, "AllowSpam", &databuf, &wPacketLen);
        else
        {
          databuf++;
          wPacketLen--;
        }
      }
      if (bOK) bOK = writeDbInfoSettingWord(hContact, "InfoCP", &databuf, &wPacketLen);
    }
    break;

  case META_NOTES_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "NOTES", dwCookieUin);
    if (bResultCode == 0x0A)
    {
      if (bOK) bOK = writeDbInfoSettingString(hContact, "About", &databuf, &wPacketLen);
    }
    break;
    
  case META_EMAIL_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "EMAIL", dwCookieUin);
    if (bResultCode == 0x0A)
    {
      int nCount = 0;
      char pszDatabaseKey[33];
      WORD wEmailLength;
      

      // This value used to be a e-mail counter. Either that was wrong or
      // Mirabilis changed the behaviour again. It usually says NULL now so
      // I use the packet byte count to extract the e-mails instead.
      databuf++;
      wPacketLen--;

      while (wPacketLen > 4)
      {

        // Don't publish flag
        databuf += 1;
        wPacketLen -= 1;

        // E-mail length
        unpackLEWord(&databuf, &wEmailLength);
        wPacketLen -= 2;

        // Check for buffer overflows
        if ((wEmailLength > wPacketLen) || (databuf[wEmailLength-1] != 0))
          break;

        // Rewind buffer pointer for writeDbInfoSettingString().
        databuf -= 2;
        wPacketLen += 2;

        if (wEmailLength > 1)
        { 
          null_snprintf(pszDatabaseKey, 33, "e-mail%d", nCount);
          if (bOK) bOK = writeDbInfoSettingString(hContact, pszDatabaseKey, &databuf, &wPacketLen);

          // Stop on parsing errors
          if (!bOK)
            break;

          // Increase counter
          nCount++;
        }
        else
        {
          databuf += wEmailLength;
          wPacketLen -= wEmailLength;
        }
      }

      // Delete the next key (this may not exist but that is OK)
      // :TODO:
      // We should probably continue to enumerate some keys here just in case
      // many e-mails were deleted. But it is not that important.
      if (bOK)
      {
        // We only delete e-mails when the parsing was successful since nCount
        // may be incorrect otherwise
        null_snprintf(pszDatabaseKey, 33, "e-mail%d", nCount);
        ICQDeleteContactSetting(hContact, pszDatabaseKey);
      }
    }
    break;

  case META_INTERESTS_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "INTERESTS", dwCookieUin);
    if (bResultCode == 0x0A)
    {
      int i, count;
      char idstr[33];
      
      wPacketLen--;
      count = *databuf++;
      // 4 is the maximum allowed personal interests, if count is
      // higher it's likely a parsing error
      _ASSERTE(count <= 4);
      for (i = 0; i < 4; i++)
      {
        if (i < count)
        {
          null_snprintf(idstr, 33, "Interest%dCat", i);
          if (bOK) bOK = writeDbInfoSettingWordWithTable(hContact, idstr, interestsField, &databuf, &wPacketLen);

          null_snprintf(idstr, 33, "Interest%dText", i);
          if (bOK) bOK = writeDbInfoSettingString(hContact, idstr, &databuf, &wPacketLen);

          if (!bOK)
            break;
        }
        else
        {
          // Delete older entries if the count has decreased since last update
          null_snprintf(idstr, 33, "Interest%dCat", i);
          ICQDeleteContactSetting(hContact, idstr);

          null_snprintf(idstr, 33, "Interest%dText", i);
          ICQDeleteContactSetting(hContact, idstr);
        }
      }
    }
    break;
    
  case META_AFFILATIONS_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "AFFILATIONS", dwCookieUin);
    if (bResultCode == 0x0A)
    {
      int i;
      int count;
      char idstr[33];

      wPacketLen--;
      count = *databuf++;
      // 3 is the maximum allowed backgrounds, if count is
      // higher it's likely a parsing error
      _ASSERTE(count <= 3);
      for (i = 0; i < 3; i++)
      {
        if (i < count)
        {
          null_snprintf(idstr, 33, "Past%d", i);
          if (bOK) bOK = writeDbInfoSettingWordWithTable(hContact, idstr, pastField, &databuf, &wPacketLen);

          null_snprintf(idstr, 33, "Past%dText", i);
          if (bOK) bOK = writeDbInfoSettingString(hContact, idstr, &databuf, &wPacketLen);

          if (!bOK)
            break;
        }
        else
        {
          // Delete older entries if the count has decreased since last update
          null_snprintf(idstr, 33, "Past%d", i);
          ICQDeleteContactSetting(hContact, idstr);

          null_snprintf(idstr, 33, "Past%dText", i);
          ICQDeleteContactSetting(hContact, idstr);
        }
      }

      wPacketLen--;
      count = *databuf++;
      // 3 is the maximum allowed affiliations, if count is
      // higher it's likely a parsing error
      _ASSERTE(count <= 3);
      for (i = 0; i < 3; i++)
      {
        if (i < count)
        {
          null_snprintf(idstr, 33, "Affiliation%d", i);
          if (bOK) bOK = writeDbInfoSettingWordWithTable(hContact, idstr, affiliationField, &databuf, &wPacketLen);

          null_snprintf(idstr, 33, "Affiliation%dText", i);
          if (bOK) bOK = writeDbInfoSettingString(hContact, idstr, &databuf, &wPacketLen);

          if (!bOK)
            break;
        }
        else 
        {
          // Delete older entries if the count has decreased since last update
          null_snprintf(idstr, 33, "Affiliation%d", i);
          ICQDeleteContactSetting(hContact, idstr);
          
          null_snprintf(idstr, 33, "Affiliation%dText", i);
          ICQDeleteContactSetting(hContact, idstr);
        }
      }
      
    }
    break;

  // This is either a auto update reply or a GetInfo Minimal reply
  case META_SHORT_USERINFO: 
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "SHORT", dwCookieUin);
    if (bResultCode == 0xA)
    {
      if (bOK) bOK = writeDbInfoSettingString(hContact, "Nick", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "FirstName", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "LastName", &databuf, &wPacketLen);
      if (bOK) bOK = writeDbInfoSettingString(hContact, "e-mail", &databuf, &wPacketLen);
    }
    break;
    
  case META_HPAGECAT_USERINFO:
    NetLog_Server("SNAC(0x15,0x3): META_%s_USERINFO for %u", "HPAGECAT", dwCookieUin);
    break;

  default:
    NetLog_Server("Warning: Ignored 15/03 user info reply type x%x", wReplySubtype);
//    _ASSERTE(0);
    break;
  }

  if (!bOK)
  {
    NetLog_Server("Error: Failed parsing 15/03 user info reply type x%x", wReplySubtype);
  }

  // :TRICKY:  * Dont change the following section unless you really understand it *
  // I have now switched to only send one GETINFO ack instead of 8. The multiple ack
  // sending originated in a incorrect assumption in the old code and that is long
  // gone now. The ack will be sent when the last packet has arrived
  // or when an error has occured. I'm not sure if a error packet will be marked
  // as the last one but it probably is. Doesn't matter anyway.
  // The cookie will be freed for all "last packets" but the ack will only be sent if the
  // request originated from a PS_GETINFO call
  if (((pCookieData->bRequestType == REQUESTTYPE_USERDETAILED) ||
    (pCookieData->bRequestType == REQUESTTYPE_USERMINIMAL))
    &&
    ((bResultCode != 0x0A) || !bMoreDataFollows))
  {
    ICQBroadcastAck(hContact, ACKTYPE_GETINFO, ACKRESULT_SUCCESS, (HANDLE)1 ,0);
  }

  // Free cookie
  if (!bMoreDataFollows || bResultCode != 0x0A)
  {
    ReleaseCookie(wCookie);

    // Remove user from info update queue. Removing is fast so we always call this
    // even if it is likely that the user is not queued at all.
    ICQWriteContactSettingDword(hContact, "InfoTS", time(NULL));
    icq_DequeueUser(dwCookieUin);
  }

  // :NOTE:
  // bResultcode can be xA (success), x14 or x32 (failure). I dont know the difference
  // between the two failures.
}



static void parseUserInfoUpdateAck(unsigned char *databuf, WORD wPacketLen, WORD wCookie, WORD wReplySubtype, BYTE bResultCode)
{
  switch (wReplySubtype)
  {
  case META_SET_PASSWORD_ACK:  // Set user password server ack
  case META_SET_FULLINFO_ACK:  // Server ack for set fullinfo command

    if (bResultCode == 0xA)
      ICQBroadcastAck(NULL, ACKTYPE_SETINFO, ACKRESULT_SUCCESS, (HANDLE)wCookie, 0);
    else
      ICQBroadcastAck(NULL, ACKTYPE_SETINFO, ACKRESULT_FAILED, (HANDLE)wCookie, 0);

    FreeCookie(wCookie);
    break;

  default:
    NetLog_Server("Warning: Ignored 15/03 user info update ack type x%x", wReplySubtype);
    break;
  }
}