// ---------------------------------------------------------------------------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: 51 $
// Last change on : $Date: 2007-08-30 23:46:51 +0300 (Чт, 30 авг 2007) $
// Last change by : $Author: sss123next $
//
// DESCRIPTION:
//
//  Describe me here please...
//
// -----------------------------------------------------------------------------

#include "icqoscar.h"



extern int gbIdleAllow;
extern WORD wListenPort;
extern HANDLE hsmsgrequest;
extern const int moodXStatus[];

static DWORD sendTLVSearchPacket(BYTE bType, char *pSearchDataBuf, WORD wSearchType, WORD wInfoLen, BOOL bOnlineUsersOnly);



/*****************************************************************************
 *
 *   Some handy extra pack functions for basic message type headers
 *
 */



// This is the part of the message header that is common for all message channels
void packServMsgSendHeader(icq_packet *p, DWORD dwSequence, DWORD dwID1, DWORD dwID2, DWORD dwUin, char *szUID, WORD wFmt, WORD wLen)
{
  unsigned char nUinLen;

  nUinLen = getUIDLen(dwUin, szUID);

  serverPacketInit(p, (WORD)(21 + nUinLen + wLen));
  packFNACHeaderFull(p, ICQ_MSG_FAMILY, ICQ_MSG_SRV_SEND, 0, dwSequence | ICQ_MSG_SRV_SEND<<0x10);
  packLEDWord(p, dwID1);         // Msg ID part 1
  packLEDWord(p, dwID2);         // Msg ID part 2
  packWord(p, wFmt);             // Message channel
  packUID(p, dwUin, szUID);      // User ID
}



static void packServIcqExtensionHeader(icq_packet *p, WORD wLen, WORD wType, WORD wSeq)
{
  serverPacketInit(p, (WORD)(24 + wLen));
  packFNACHeaderFull(p, ICQ_EXTENSIONS_FAMILY, ICQ_META_CLI_REQ, 0, wSeq | ICQ_META_CLI_REQ<<0x10);
  packWord(p, 0x01);                // TLV type 1
  packWord(p, (WORD)(10 + wLen));   // TLV len
  packLEWord(p, (WORD)(8 + wLen));  // Data chunk size (TLV.Length-2)
  packLEDWord(p, dwLocalUIN);       // My UIN
  packLEWord(p, wType);             // Request type
  packWord(p, wSeq);
}



static void packServTLV5HeaderBasic(icq_packet *p, WORD wLen, DWORD ID1, DWORD ID2, WORD wCommand, plugin_guid pGuid)
{
  // TLV(5) header
  packWord(p, 0x05);                // Type
  packWord(p, (WORD)(26 + wLen));   // Len
  // TLV(5) data
  packWord(p, wCommand);            // Command
  packLEDWord(p, ID1);              // msgid1
  packLEDWord(p, ID2);              // msgid2
  packGUID(p, pGuid);               // capabilities (4 dwords)
}



static void packServTLV5HeaderMsg(icq_packet *p, WORD wLen, DWORD ID1, DWORD ID2, WORD wAckType)
{
  packServTLV5HeaderBasic(p, (WORD)(wLen + 10), ID1, ID2, 0, MCAP_SRV_RELAY_FMT);

  packTLVWord(p, 0x0A, wAckType);   // TLV: 0x0A Acktype: 1 for normal, 2 for ack
  packDWord(p, 0x000F0000);         // TLV: 0x0F empty
}



static void packServTLV2711Header(icq_packet *packet, WORD wCookie, WORD wVersion, BYTE bMsgType, BYTE bMsgFlags, WORD X1, WORD X2, int nLen)
{
  packWord(packet, 0x2711);            // Type
  packWord(packet, (WORD)(51 + nLen)); // Len
  // TLV(0x2711) data
  packLEWord(packet, 0x1B);            // Unknown
  packByte(packet, (BYTE)wVersion);    // Client (message) version
  packGUID(packet, PSIG_MESSAGE);
  packDWord(packet, CLIENTFEATURES);
  packDWord(packet, DC_TYPE);
  packLEWord(packet, wCookie);         // Reference cookie
  packLEWord(packet, 0x0E);            // Unknown
  packLEWord(packet, wCookie);         // Reference cookie again
  packDWord(packet, 0);                // Unknown (12 bytes)
  packDWord(packet, 0);                //  -
  packDWord(packet, 0);                //  -
  packByte(packet, bMsgType);          // Message type
  packByte(packet, bMsgFlags);         // Flags
  packLEWord(packet, X1);              // Accepted
  packWord(packet, X2);                // Unknown, priority?
}



static void packServDCInfo(icq_packet *p, BOOL bEmpty)
{
  packTLVDWord(p, 0x03, bEmpty ? 0 : ICQGetContactSettingDword(NULL, "RealIP", 0)); // TLV: 0x03 DWORD IP
  packTLVWord(p, 0x05, (WORD)(bEmpty ? 0 : wListenPort));                           // TLV: 0x05 Listen port
}



static void packServChannel2Header(icq_packet *p, DWORD dwUin, WORD wLen, DWORD dwID1, DWORD dwID2, DWORD dwCookie, WORD wVersion, BYTE bMsgType, BYTE bMsgFlags, WORD wPriority, int isAck, int includeDcInfo, BYTE bRequestServerAck)
{
  packServMsgSendHeader(p, dwCookie, dwID1, dwID2, dwUin, NULL, 0x0002,
    (WORD)(wLen + 95 + (bRequestServerAck?4:0) + (includeDcInfo?14:0)));

  packWord(p, 0x05);            // TLV type
  packWord(p, (WORD)(wLen + 91 + (includeDcInfo?14:0)));  /* TLV len */
  packWord(p, (WORD)(isAck ? 2: 0));     /* not aborting anything */
  packLEDWord(p, dwID1);        // Msg ID part 1
  packLEDWord(p, dwID2);        // Msg ID part 2
  packGUID(p, MCAP_SRV_RELAY_FMT); /* capability (4 dwords) */
  packDWord(p, 0x000A0002);     // TLV: 0x0A WORD: 1 for normal, 2 for ack
  packWord(p, (WORD)(isAck ? 2 : 1));

  if (includeDcInfo)
  {
    packServDCInfo(p, FALSE);
  }

  packDWord(p, 0x000F0000);  // TLV: 0x0F empty

  packServTLV2711Header(p, (WORD)dwCookie, wVersion, bMsgType, bMsgFlags, (WORD)MirandaStatusToIcq(gnCurrentStatus), wPriority, wLen);
}



static void packServAdvancedReply(icq_packet *p, DWORD dwUin, char* szUid, DWORD dwID1, DWORD dwID2, WORD wCookie, WORD wLen)
{
  unsigned char nUidLen = getUIDLen(dwUin, szUid);

  serverPacketInit(p, (WORD)(nUidLen + 23 + wLen));
  packFNACHeaderFull(p, ICQ_MSG_FAMILY, ICQ_MSG_RESPONSE, 0, ICQ_MSG_RESPONSE<<0x10 | (wCookie & 0x7FFF));
  packLEDWord(p, dwID1);        // Msg ID part 1
  packLEDWord(p, dwID2);        // Msg ID part 2
  packWord(p, 0x02);            // Channel
  packUIN(p, dwUin);            // Contact UID
  packWord(p, 0x03);            // Msg specific formating
}



static void packServAdvancedMsgReply(icq_packet *p, DWORD dwUin, DWORD dwID1, DWORD dwID2, WORD wCookie, WORD wVersion, BYTE bMsgType, BYTE bMsgFlags, WORD wLen)
{
  packServAdvancedReply(p, dwUin, NULL, dwID1, dwID2, wCookie, (WORD)(wLen + 51));

  packLEWord(p, 0x1B);          // Unknown
  packByte(p, (BYTE)wVersion);  // Protocol version
  packGUID(p, PSIG_MESSAGE);
  packDWord(p, CLIENTFEATURES);
  packDWord(p, DC_TYPE);
  packLEWord(p, wCookie);  // Reference
  packLEWord(p, 0x0E);     // Unknown
  packLEWord(p, wCookie);  // Reference
  packDWord(p, 0);         // Unknown
  packDWord(p, 0);         // Unknown
  packDWord(p, 0);         // Unknown
  packByte(p, bMsgType);   // Message type
  packByte(p, bMsgFlags);  // Message flags
  packLEWord(p, 0);        // Ack status code ( 0 = accepted, this is hardcoded because
                           //                   it is only used this way yet)
  packLEWord(p, 0);        // Unused priority field
}



void packMsgColorInfo(icq_packet *packet)
{ // TODO: make configurable
  packLEDWord(packet, 0x00000000);   // Foreground colour
  packLEDWord(packet, 0x00FFFFFF);   // Background colour
}



void packEmptyMsg(icq_packet *packet)
{
  packLEWord(packet, 1);
  packByte(packet, 0);
}


/*****************************************************************************
 *
 *   Functions to actually send the stuff
 *
 */

void icq_sendCloseConnection()
{
  icq_packet packet;

  packet.wLen = 0;
  write_flap(&packet, ICQ_CLOSE_CHAN);
  sendServPacket(&packet);
}



void icq_requestnewfamily(WORD wFamily, void (*familyhandler)(HANDLE hConn, char* cookie, WORD cookieLen))
{
  icq_packet packet;
  DWORD dwIdent;
  familyrequest_rec* request;

  request = (familyrequest_rec*)SAFE_MALLOC(sizeof(familyrequest_rec));
  request->wFamily = wFamily;
  request->familyhandler = familyhandler;

  dwIdent = AllocateCookie(CKT_SERVICEREQUEST, ICQ_CLIENT_NEW_SERVICE, 0, request); // generate and alloc cookie

  serverPacketInit(&packet, 12);
  packFNACHeaderFull(&packet, ICQ_SERVICE_FAMILY, ICQ_CLIENT_NEW_SERVICE, 0, dwIdent);
  packWord(&packet, wFamily);

  sendServPacket(&packet);
}



void icq_setidle(int bAllow)
{
  icq_packet packet;

  if (bAllow!=gbIdleAllow)
  {
    /* SNAC 1,11 */
    serverPacketInit(&packet, 14);
    packFNACHeader(&packet, ICQ_SERVICE_FAMILY, ICQ_CLIENT_SET_IDLE);
    if (bAllow==1)
    {
      packDWord(&packet, 0x0000003C);
    }
    else
    {
      packDWord(&packet, 0x00000000);
    }

    sendServPacket(&packet);
    gbIdleAllow = bAllow;
  }
}



void icq_setstatus(WORD wStatus, int bSetMood)
{
  icq_packet packet;
  BYTE bXStatus = ICQGetContactXStatus(NULL);
  char szMoodId[32];
  WORD cbMoodId = 0;
  WORD cbMoodData = 0;

  if (bSetMood)
  { // update mood
    cbMoodData = 8;

    if (bXStatus && moodXStatus[bXStatus-1] != -1)
    { // prepare mood id
      null_snprintf(szMoodId, SIZEOF(szMoodId), "icqmood%d", moodXStatus[bXStatus-1]);
      cbMoodId = strlennull(szMoodId);
    }
  }
  // Pack data in packet
  serverPacketInit(&packet, (WORD)(18 + cbMoodId + cbMoodData));
  packFNACHeader(&packet, ICQ_SERVICE_FAMILY, ICQ_CLIENT_SET_STATUS);
  packWord(&packet, 0x06);                // TLV 6
  packWord(&packet, 0x04);                // TLV length
  packWord(&packet, GetMyStatusFlags());  // Status flags
  packWord(&packet, wStatus);             // Status
  if (bSetMood)
  { // Pack mood data
    packWord(&packet, 0x1D);              // TLV 1D
    packWord(&packet, (WORD)(cbMoodId + 4)); // TLV length
    packWord(&packet, 0x0E);              // Item Type
    packWord(&packet, cbMoodId);          // Flags + Item Length
    if (cbMoodId)
      packBuffer(&packet, szMoodId, cbMoodId); // Mood
  }

  // Send packet
  sendServPacket(&packet);
}



DWORD icq_SendChannel1Message(DWORD dwUin, char *szUID, HANDLE hContact, char *pszText, message_cookie_data *pCookieData)
{
  icq_packet packet;
  WORD wMessageLen;
  DWORD dwCookie;
  WORD wPacketLength;


  wMessageLen = strlennull(pszText);
  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

  if (pCookieData->nAckType == ACKTYPE_SERVER)
    wPacketLength = 25;
  else
    wPacketLength = 21;

  // Pack the standard header
  packServMsgSendHeader(&packet, dwCookie, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwUin, szUID, 1, (WORD)(wPacketLength + wMessageLen));

  // Pack first TLV
  packWord(&packet, 0x0002); // TLV(2)
  packWord(&packet, (WORD)(wMessageLen + 13)); // TLV len

  // Pack client features
  packWord(&packet, 0x0501); // TLV(501)
  packWord(&packet, 0x0001); // TLV len
  packByte(&packet, 0x1);    // Features, meaning unknown, duplicated from ICQ Lite

  // Pack text TLV
  packWord(&packet, 0x0101); // TLV(2)
  packWord(&packet, (WORD)(wMessageLen + 4)); // TLV len
  packWord(&packet, 0x0003); // Message charset number, again copied from ICQ Lite
  packWord(&packet, 0x0000); // Message charset subset
  packBuffer(&packet, pszText, (WORD)(wMessageLen)); // Message text

  // Pack request server ack TLV
  if (pCookieData->nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  // Pack store on server TLV
  packDWord(&packet, 0x00060000); // TLV(6)

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_SendChannel1MessageW(DWORD dwUin, char *szUID, HANDLE hContact, wchar_t *pszText, message_cookie_data *pCookieData)
{
  icq_packet packet;
  WORD wMessageLen;
  DWORD dwCookie;
  WORD wPacketLength;
  wchar_t* ppText;
  int i;


  wMessageLen = wcslen(pszText)*sizeof(wchar_t);
  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

  if (pCookieData->nAckType == ACKTYPE_SERVER)
    wPacketLength = 26;
  else
    wPacketLength = 22;

  // Pack the standard header
  packServMsgSendHeader(&packet, dwCookie, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwUin, szUID, 1, (WORD)(wPacketLength + wMessageLen));

  // Pack first TLV
  packWord(&packet, 0x0002); // TLV(2)
  packWord(&packet, (WORD)(wMessageLen + 14)); // TLV len

  // Pack client features
  packWord(&packet, 0x0501); // TLV(501)
  packWord(&packet, 0x0002); // TLV len
  packWord(&packet, 0x0106); // Features, meaning unknown, duplicated from ICQ 2003b

  // Pack text TLV
  packWord(&packet, 0x0101); // TLV(2)
  packWord(&packet, (WORD)(wMessageLen + 4)); // TLV len
  packWord(&packet, 0x0002); // Message charset number, again copied from ICQ 2003b
  packWord(&packet, 0x0000); // Message charset subset
  ppText = pszText;   // we must convert the widestring
  for (i = 0; i<wMessageLen; i+=2, ppText++)
  {
    packWord(&packet, *ppText);
  }

  // Pack request server ack TLV
  if (pCookieData->nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  // Pack store on server TLV
  packDWord(&packet, 0x00060000); // TLV(6)

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_SendChannel2Message(DWORD dwUin, HANDLE hContact, const char *szMessage, int nBodyLen, WORD wPriority, message_cookie_data *pCookieData, char *szCap)
{
  icq_packet packet;
  DWORD dwCookie;


  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

  // Pack the standard header
  packServChannel2Header(&packet, dwUin, (WORD)(nBodyLen + (szCap ? 53:11)), pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwCookie, GetProtoVersion(), (BYTE)pCookieData->bMessageType, 0,
    wPriority, 0, 0, (BYTE)((pCookieData->nAckType == ACKTYPE_SERVER)?1:0));

  packLEWord(&packet, (WORD)(nBodyLen+1));            // Length of message
  packBuffer(&packet, szMessage, (WORD)(nBodyLen+1)); // Message
  packMsgColorInfo(&packet);

  if (szCap)
  {
    packLEDWord(&packet, 0x00000026);                 // length of GUID
    packBuffer(&packet, szCap, 0x26);                 // UTF-8 GUID
  }

  // Pack request server ack TLV
  if (pCookieData->nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_SendChannel2Contacts(DWORD dwUin, char *szUid, HANDLE hContact, const char *pData, WORD wDataLen, const char *pNames, WORD wNamesLen, message_cookie_data *pCookieData)
{
  icq_packet packet;
  WORD wPacketLength;
  DWORD dwCookie;

  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, pCookieData);

  wPacketLength = wDataLen + wNamesLen + 0x12;

  // Pack the standard header
  packServMsgSendHeader(&packet, dwCookie, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwUin, szUid, 2, (WORD)(wPacketLength + ((pCookieData->nAckType == ACKTYPE_SERVER)?0x22:0x1E)));

  packServTLV5HeaderBasic(&packet, wPacketLength, pCookieData->dwMsgID1, pCookieData->dwMsgID2, 0, MCAP_CONTACTS);

  packTLVWord(&packet, 0x0A, 1);              // TLV: 0x0A Acktype: 1 for normal, 2 for ack
  packDWord(&packet, 0x000F0000);             // TLV: 0x0F empty
  packTLV(&packet, 0x2711, wDataLen, pData);  // TLV: 0x2711 Content (Contact UIDs)
  packTLV(&packet, 0x2712, wNamesLen, pNames);// TLV: 0x2712 Extended Content (Contact NickNames)

  // Pack request ack TLV
  if (pCookieData->nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_SendChannel4Message(DWORD dwUin, HANDLE hContact, BYTE bMsgType, WORD wMsgLen, const char *szMsg, message_cookie_data *pCookieData)
{
  icq_packet packet;
  WORD wPacketLength;
  DWORD dwCookie;


  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

  if (pCookieData->nAckType == ACKTYPE_SERVER)
    wPacketLength = 28;
  else
    wPacketLength = 24;

  // Pack the standard header
  packServMsgSendHeader(&packet, dwCookie, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwUin, NULL, 4, (WORD)(wPacketLength + wMsgLen));

  // Pack first TLV
  packWord(&packet, 0x05);                 // TLV(5)
  packWord(&packet, (WORD)(wMsgLen + 16)); // TLV len
  packLEDWord(&packet, dwLocalUIN);        // My UIN
  packByte(&packet, bMsgType);             // Message type
  packByte(&packet, 0);                    // Message flags
  packLEWord(&packet, wMsgLen);            // Message length
  packBuffer(&packet, szMsg, wMsgLen);     // Message text
  packMsgColorInfo(&packet);

  // Pack request ack TLV
  if (pCookieData->nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  // Pack store on server TLV
  packDWord(&packet, 0x00060000); // TLV(6)

  sendServPacket(&packet);

  return dwCookie;
}



void sendOwnerInfoRequest(void)
{
  icq_packet packet;
  DWORD dwCookie;
  fam15_cookie_data *pCookieData = NULL;


  pCookieData = SAFE_MALLOC(sizeof(fam15_cookie_data));
  pCookieData->bRequestType = REQUESTTYPE_OWNER;
  dwCookie = AllocateCookie(CKT_FAMILYSPECIAL, 0, NULL, (void*)pCookieData);

  packServIcqExtensionHeader(&packet, 6, 0x07D0, (WORD)dwCookie);
  packLEWord(&packet, META_REQUEST_SELF_INFO);
  packLEDWord(&packet, dwLocalUIN);

  sendServPacket(&packet);
}



void sendUserInfoAutoRequest(HANDLE hContact, DWORD dwUin)
{
  icq_packet packet;
  DWORD dwCookie;
  fam15_cookie_data *pCookieData = NULL;


  pCookieData = SAFE_MALLOC(sizeof(fam15_cookie_data));
  pCookieData->bRequestType = REQUESTTYPE_USERAUTO;
  dwCookie = AllocateCookie(CKT_FAMILYSPECIAL, 0, hContact, (void*)pCookieData);

  packServIcqExtensionHeader(&packet, 6, 0x07D0, (WORD)dwCookie);
  packLEWord(&packet, META_REQUEST_SHORT_INFO);
  packLEDWord(&packet, dwUin);

  sendServPacket(&packet);
}



DWORD icq_sendGetInfoServ(HANDLE hContact, DWORD dwUin, int bMinimal, int bManual)
{
  icq_packet packet;
  DWORD dwCookie;
  fam15_cookie_data *pCookieData = NULL;

  if (IsServerOverRate(ICQ_EXTENSIONS_FAMILY, ICQ_META_CLI_REQ, bManual ? RML_IDLE_10 : RML_IDLE_50))
    return 0;

  pCookieData = SAFE_MALLOC(sizeof(fam15_cookie_data));
  dwCookie = AllocateCookie(CKT_FAMILYSPECIAL, 0, hContact, (void*)pCookieData);

  packServIcqExtensionHeader(&packet, 6, CLI_META_INFO_REQ, (WORD)dwCookie);
  if (bMinimal)
  {
    pCookieData->bRequestType = REQUESTTYPE_USERMINIMAL;
    packLEWord(&packet, META_REQUEST_SHORT_INFO);
  }
  else
  {
    pCookieData->bRequestType = REQUESTTYPE_USERDETAILED;
    packLEWord(&packet, META_REQUEST_FULL_INFO);
  }
  packLEDWord(&packet, dwUin);

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_sendGetAimProfileServ(HANDLE hContact, char* szUid)
{
  icq_packet packet;
  DWORD dwCookie;
  fam15_cookie_data *pCookieData = NULL;
  BYTE bUIDlen = strlennull(szUid);

  if (IsServerOverRate(ICQ_LOCATION_FAMILY, ICQ_LOCATION_REQ_USER_INFO, RML_IDLE_10))
    return 0;

  pCookieData = SAFE_MALLOC(sizeof(fam15_cookie_data));
  dwCookie = AllocateCookie(CKT_FAMILYSPECIAL, ICQ_LOCATION_REQ_USER_INFO, hContact, (void*)pCookieData);
  pCookieData->bRequestType = REQUESTTYPE_PROFILE;

  serverPacketInit(&packet, (WORD)(13 + bUIDlen));
  packFNACHeaderFull(&packet, ICQ_LOCATION_FAMILY, ICQ_LOCATION_REQ_USER_INFO, 0, dwCookie);
  packWord(&packet, 0x01); // request profile info
  packByte(&packet, bUIDlen);
  packBuffer(&packet, szUid, bUIDlen);

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_sendGetAwayMsgServ(HANDLE hContact, DWORD dwUin, int type, WORD wVersion)
{
  icq_packet packet;
  DWORD dwCookie;
  message_cookie_data *pCookieData = NULL;

  if (IsServerOverRate(ICQ_MSG_FAMILY, ICQ_MSG_SRV_SEND, RML_IDLE_30))
    return 0;

  pCookieData = CreateMessageCookie(MTYPE_AUTOAWAY, (BYTE)type);
  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

  packServChannel2Header(&packet, dwUin, 3, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwCookie, wVersion, (BYTE)type, 3, 1, 0, 0, 0);
  packEmptyMsg(&packet);    // Message
  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_sendGetAwayMsgServExt(HANDLE hContact, DWORD dwUin, int type, WORD wVersion)
{
  icq_packet packet;
  DWORD dwCookie;
  message_cookie_data *pCookieData = NULL;

  if (IsServerOverRate(ICQ_MSG_FAMILY, ICQ_MSG_SRV_SEND, RML_IDLE_30))
    return 0;

  pCookieData = CreateMessageCookie(MTYPE_AUTOAWAY, (BYTE)type);
  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

/*  serverPacketInit(&packet, (WORD)(13 + getUINLen(dwUin)));
  packFNACHeaderFull(&packet, ICQ_LOCATION_FAMILY, ICQ_LOCATION_REQ_USER_INFO, 0, (WORD)dwCookie);
  packWord(&packet, 0x03);
  packUIN(&packet, dwUin); */
  packServMsgSendHeader(&packet, dwCookie, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwUin, NULL, 2, 182);

  // TLV(5) header
  packServTLV5HeaderMsg(&packet, 142, pCookieData->dwMsgID1, pCookieData->dwMsgID2, 1);

  // TLV(0x2711) header
  packServTLV2711Header(&packet, (WORD)dwCookie, wVersion, MTYPE_PLUGIN, 0, 0, 0x100, 87);
  //
  packLEWord(&packet, 0); // Empty msg

  packPluginTypeId(&packet, type);

  packLEDWord(&packet, 0x15);
  packLEDWord(&packet, 0);
  packLEDWord(&packet, 0x0D);
  packBuffer(&packet, "text/x-aolrtf", 0x0D);

  // Send the monster
  sendServPacket(&packet);

  return dwCookie;
}

//away-message request without beeing detected :) by [sin]
DWORD icq_sendGetStealthAwayMsgServ(HANDLE hContact, DWORD dwUin, int type, WORD wVersion)
{
  icq_packet packet;
  DWORD dwCookie;
  message_cookie_data *pCookieData = NULL;

  if (IsServerOverRate(ICQ_MSG_FAMILY, ICQ_MSG_SRV_SEND, RML_IDLE_30))
    return 0;

  pCookieData = CreateMessageCookie(MTYPE_AUTOAWAY, (BYTE)type);
  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

  serverPacketInit(&packet, (WORD)(13 + getUINLen(dwUin)));
  packFNACHeaderFull(&packet, ICQ_LOCATION_FAMILY, ICQ_LOCATION_REQ_USER_INFO, 0, (WORD)dwCookie);
  packWord(&packet, 0x03);
  packUIN(&packet, dwUin);

  sendServPacket(&packet);

  return dwCookie;
}


DWORD icq_sendGetAimAwayMsgServ(HANDLE hContact, char *szUID, int type)
{
  icq_packet packet;
  DWORD dwCookie;
  message_cookie_data *pCookieData = NULL;
  BYTE bUIDlen = strlennull(szUID);

  pCookieData = CreateMessageCookie(MTYPE_AUTOAWAY, (byte)type);
  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);

  serverPacketInit(&packet, (WORD)(13 + bUIDlen));
  packFNACHeaderFull(&packet, ICQ_LOCATION_FAMILY, ICQ_LOCATION_REQ_USER_INFO, 0, dwCookie);
  packWord(&packet, 0x03);
  packUID(&packet, 0, szUID);

  sendServPacket(&packet);

  return dwCookie;
}



void icq_sendSetAimAwayMsgServ(char *szMsg)
{
  icq_packet packet;
  DWORD dwCookie;
  WORD wMsgLen = strlennull(szMsg);

  dwCookie = GenerateCookie(ICQ_LOCATION_SET_USER_INFO);

  if (wMsgLen > 0x1000) wMsgLen = 0x1000; // limit length
  serverPacketInit(&packet, (WORD)(51 + wMsgLen));
  packFNACHeaderFull(&packet, ICQ_LOCATION_FAMILY, ICQ_LOCATION_SET_USER_INFO, 0, dwCookie);
  packTLV(&packet, 0x03, 0x21, "text/x-aolrtf; charset=\"utf-8\"");
  packTLV(&packet, 0x04, wMsgLen, szMsg);

  sendServPacket(&packet);
}



void icq_sendFileSendServv7(filetransfer* ft, const char *szFiles)
{
  icq_packet packet;
  WORD wDescrLen,wFilesLen;

  wDescrLen = strlennull(ft->szDescription);
  wFilesLen = strlennull(szFiles);

  packServChannel2Header(&packet, ft->dwUin, (WORD)(18 + wDescrLen + wFilesLen), ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, ft->dwCookie, ICQ_VERSION, MTYPE_FILEREQ, 0, 1, 0, 1, 1);

  packLEWord(&packet, (WORD)(wDescrLen + 1));
  packBuffer(&packet, ft->szDescription, (WORD)(wDescrLen + 1));
  packLEDWord(&packet, 0);   // unknown
  packLEWord(&packet, (WORD)(wFilesLen + 1));
  packBuffer(&packet, szFiles, (WORD)(wFilesLen + 1));
  packLEDWord(&packet, ft->dwTotalSize);
  packLEDWord(&packet, 0);   // unknown

  sendServPacket(&packet);
}



void icq_sendFileSendServv8(filetransfer* ft, const char *szFiles, int nAckType)
{
  icq_packet packet;
  WORD wFlapLen;
  WORD wDescrLen,wFilesLen;

  wDescrLen = strlennull(ft->szDescription);
  wFilesLen = strlennull(szFiles);

  // 202 + UIN len + file description (no null) + file name (null included)
  // Packet size = Flap length + 4
  wFlapLen = 178 + wDescrLen + wFilesLen + (nAckType == ACKTYPE_SERVER?4:0);
  packServMsgSendHeader(&packet, ft->dwCookie, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, ft->dwUin, NULL, 2, wFlapLen);

  // TLV(5) header
  packServTLV5HeaderMsg(&packet, (WORD)(138 + wDescrLen + wFilesLen), ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, 1);

  // Port & IP information
  packServDCInfo(&packet, FALSE);

  // TLV(0x2711) header
  packServTLV2711Header(&packet, (WORD)ft->dwCookie, ICQ_VERSION, MTYPE_PLUGIN, 0, (WORD)MirandaStatusToIcq(gnCurrentStatus), 0x100, 69 + wDescrLen + wFilesLen);

  packEmptyMsg(&packet);  // Message (unused)

  packPluginTypeId(&packet, MTYPE_FILEREQ);

  packLEDWord(&packet, (WORD)(18 + wDescrLen + wFilesLen + 1)); // Remaining length
  packLEDWord(&packet, wDescrLen);          // Description
  packBuffer(&packet, ft->szDescription, wDescrLen);
  packWord(&packet, 0x8c82); // Unknown (port?), seen 0x80F6
  packWord(&packet, 0x0222); // Unknown, seen 0x2e01
  packLEWord(&packet, (WORD)(wFilesLen + 1));
  packBuffer(&packet, szFiles, (WORD)(wFilesLen + 1));
  packLEDWord(&packet, ft->dwTotalSize);
  packLEDWord(&packet, 0x0008c82); // Unknown, (seen 0xf680 ~33000)

  // Pack request server ack TLV
  if (nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  // Send the monster
  sendServPacket(&packet);
}



/* also sends rejections */
void icq_sendFileAcceptServv8(DWORD dwUin, DWORD TS1, DWORD TS2, DWORD dwCookie, const char *szFiles, const char *szDescr, DWORD dwTotalSize, WORD wPort, BOOL accepted, int nAckType)
{
  icq_packet packet;
  WORD wFlapLen;
  WORD wDescrLen,wFilesLen;

  /* if !accepted, szDescr == szReason, szFiles = "" */

  if (!accepted) szFiles = "";

  wDescrLen = strlennull(szDescr);
  wFilesLen = strlennull(szFiles);

  // 202 + UIN len + file description (no null) + file name (null included)
  // Packet size = Flap length + 4
  wFlapLen = 178 + wDescrLen + wFilesLen + (nAckType == ACKTYPE_SERVER?4:0);
  packServMsgSendHeader(&packet, dwCookie, TS1, TS2, dwUin, NULL, 2, wFlapLen);

  // TLV(5) header
  packServTLV5HeaderMsg(&packet, (WORD)(138 + wDescrLen + wFilesLen), TS1, TS2, 2);

  // Port & IP information
  packServDCInfo(&packet, !accepted);

  // TLV(0x2711) header
  packServTLV2711Header(&packet, (WORD)dwCookie, ICQ_VERSION, MTYPE_PLUGIN, 0, (WORD)(accepted ? 0:1), 0, 69 + wDescrLen + wFilesLen);
  //
  packEmptyMsg(&packet);    // Message (unused)

  packPluginTypeId(&packet, MTYPE_FILEREQ);

  packLEDWord(&packet, (WORD)(18 + wDescrLen + wFilesLen + 1)); // Remaining length
  packLEDWord(&packet, wDescrLen);          // Description
  packBuffer(&packet, szDescr, wDescrLen);
  packWord(&packet, wPort); // Port
  packWord(&packet, 0x00);  // Unknown
  packLEWord(&packet, (WORD)(wFilesLen + 1));
  packBuffer(&packet, szFiles, (WORD)(wFilesLen + 1));
  packLEDWord(&packet, dwTotalSize);
  packLEDWord(&packet, (DWORD)wPort); // Unknown

  // Pack request server ack TLV
  if (nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  // Send the monster
  sendServPacket(&packet);
}



void icq_sendFileAcceptServv7(DWORD dwUin, DWORD TS1, DWORD TS2, DWORD dwCookie, const char* szFiles, const char* szDescr, DWORD dwTotalSize, WORD wPort, BOOL accepted, int nAckType)
{
  icq_packet packet;
  WORD wFlapLen;
  WORD wDescrLen,wFilesLen;

  /* if !accepted, szDescr == szReason, szFiles = "" */

  if (!accepted) szFiles = "";

  wDescrLen = strlennull(szDescr);
  wFilesLen = strlennull(szFiles);

  // 150 + UIN len + file description (with null) + file name (2 nulls)
  // Packet size = Flap length + 4
  wFlapLen = 127 + wDescrLen + 1 + wFilesLen + (nAckType == ACKTYPE_SERVER?4:0);
  packServMsgSendHeader(&packet, dwCookie, TS1, TS2, dwUin, NULL, 2, wFlapLen);

  // TLV(5) header
  packServTLV5HeaderMsg(&packet, (WORD)(88 + wDescrLen + wFilesLen), TS1, TS2, 2);

  // Port & IP information
  packServDCInfo(&packet, !accepted);

  // TLV(0x2711) header
  packServTLV2711Header(&packet, (WORD)dwCookie, ICQ_VERSION, MTYPE_FILEREQ, 0, (WORD)(accepted ? 0:1), 0, 19 + wDescrLen + wFilesLen);
  //
  packLEWord(&packet, (WORD)(wDescrLen + 1));     // Description
  packBuffer(&packet, szDescr, (WORD)(wDescrLen + 1));
  packWord(&packet, wPort);   // Port
  packWord(&packet, 0x00);    // Unknown
  packLEWord(&packet, (WORD)(wFilesLen + 2));
  packBuffer(&packet, szFiles, (WORD)(wFilesLen + 1));
  packByte(&packet, 0);
  packLEDWord(&packet, dwTotalSize);
  packLEDWord(&packet, (DWORD)wPort); // Unknown

  // Pack request server ack TLV
  if (nAckType == ACKTYPE_SERVER)
  {
    packDWord(&packet, 0x00030000); // TLV(3)
  }

  // Send the monster
  sendServPacket(&packet);
}



void icq_sendFileAcceptServ(DWORD dwUin, filetransfer* ft, int nAckType)
{
  char *szDesc = ft->szDescription;

  if (ft->bEmptyDesc) szDesc = ""; // keep empty if it originally was (Trillian workaround)

  if (ft->nVersion >= 8)
  {
    icq_sendFileAcceptServv8(dwUin, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, ft->dwCookie, ft->szFilename, szDesc, ft->dwTotalSize, wListenPort, TRUE, nAckType);
    NetLog_Server("Sent file accept v%u through server, port %u", 8, wListenPort);
  }
  else
  {
    icq_sendFileAcceptServv7(dwUin, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, ft->dwCookie, ft->szFilename, szDesc, ft->dwTotalSize, wListenPort, TRUE, nAckType);
    NetLog_Server("Sent file accept v%u through server, port %u", 7, wListenPort);
  }
}



void icq_sendFileDenyServ(DWORD dwUin, filetransfer* ft, char *szReason, int nAckType)
{
  if (ft->nVersion >= 8)
  {
    icq_sendFileAcceptServv8(dwUin, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, ft->dwCookie, ft->szFilename, szReason, ft->dwTotalSize, wListenPort, FALSE, nAckType);
    NetLog_Server("Sent file deny v%u through server", 8);
  }
  else
  {
    icq_sendFileAcceptServv7(dwUin, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, ft->dwCookie, ft->szFilename, szReason, ft->dwTotalSize, wListenPort, FALSE, nAckType);
    NetLog_Server("Sent file deny v%u through server", 7);
  }
}



void icq_sendAwayMsgReplyServ(DWORD dwUin, DWORD dwMsgID1, DWORD dwMsgID2, WORD wCookie, WORD wVersion, BYTE msgType, const char** szMsg)
{
  icq_packet packet;
  WORD wMsgLen;
  char* pszMsg;
  HANDLE hContact;
  WORD wReplyVersion = GetProtoVersion();


  hContact = HContactFromUIN(dwUin, NULL);

  if (validateStatusMessageRequest(hContact, msgType))
  {
    NotifyEventHooks(hsmsgrequest, (WPARAM)msgType, (LPARAM)dwUin);

    EnterCriticalSection(&modeMsgsMutex);

    if (szMsg && *szMsg)
    {
      char* szAnsiMsg = NULL;

      if (wVersion == 9)
      {
        pszMsg = (char*)*szMsg;
        wReplyVersion = 9;
      }
      else
      { // only v9 protocol supports UTF-8 mode messagees
        wMsgLen = strlennull(*szMsg) + 1;
        szAnsiMsg = (char*)_alloca(wMsgLen);
        utf8_decode_static(*szMsg, szAnsiMsg, wMsgLen);
        pszMsg = szAnsiMsg;
      }

      wMsgLen = strlennull(pszMsg);

      // limit msg len to max snac size - we get disconnected if exceeded
      if (wMsgLen > MAX_MESSAGESNACSIZE)
        wMsgLen = MAX_MESSAGESNACSIZE;

      packServAdvancedMsgReply(&packet, dwUin, dwMsgID1, dwMsgID2, wCookie, wReplyVersion, msgType, 3, (WORD)(wMsgLen + 3));
      packLEWord(&packet, (WORD)(wMsgLen + 1));
      packBuffer(&packet, pszMsg, wMsgLen);
      packByte(&packet, 0);

      sendServPacket(&packet);
    }

    LeaveCriticalSection(&modeMsgsMutex);
  }
}



void icq_sendAdvancedMsgAck(DWORD dwUin, DWORD dwTimestamp, DWORD dwTimestamp2, WORD wCookie, BYTE bMsgType, BYTE bMsgFlags)
{
  icq_packet packet;

  packServAdvancedMsgReply(&packet, dwUin, dwTimestamp, dwTimestamp2, wCookie, ICQ_VERSION, bMsgType, bMsgFlags, 11);
  packEmptyMsg(&packet);       // Status message
  packMsgColorInfo(&packet);

  sendServPacket(&packet);
}



void icq_sendContactsAck(DWORD dwUin, char *szUid, DWORD dwMsgID1, DWORD dwMsgID2)
{
  icq_packet packet;

  packServMsgSendHeader(&packet, 0, dwMsgID1, dwMsgID2, dwUin, szUid, 2, 0x1E);
  packServTLV5HeaderBasic(&packet, 0, dwMsgID1, dwMsgID2, 2, MCAP_CONTACTS);

  sendServPacket(&packet);
}



// Searches

DWORD SearchByUin(DWORD dwUin)
{
  DWORD dwCookie;
  WORD wInfoLen;
  icq_packet pBuffer; // I reuse the ICQ packet type as a generic buffer
                      // I should be ashamed! ;)

  // Calculate data size
  wInfoLen = 8;

  // Initialize our handy data buffer
  pBuffer.wPlace = 0;
  pBuffer.pData = (BYTE *)_alloca(wInfoLen);
  pBuffer.wLen = wInfoLen;

  // Initialize our handy data buffer
  packLEWord(&pBuffer, TLV_UIN);
  packLEWord(&pBuffer, 0x0004);
  packLEDWord(&pBuffer, dwUin);

  // Send it off for further packing
  dwCookie = sendTLVSearchPacket(SEARCHTYPE_UID, pBuffer.pData, META_SEARCH_UIN, wInfoLen, FALSE);

  return dwCookie;
}



DWORD SearchByNames(char* pszNick, char* pszFirstName, char* pszLastName)
{ // use generic TLV search like icq5 does
  DWORD dwCookie;
  WORD wInfoLen = 0;
  WORD wNickLen,wFirstLen,wLastLen;
  BYTE *pBuffer;
  int pBufferPos;

  wNickLen = strlennull(pszNick);
  wFirstLen = strlennull(pszFirstName);
  wLastLen = strlennull(pszLastName);

  _ASSERTE(wFirstLen || wLastLen || wNickLen);


  // Calculate data size
  if (wFirstLen > 0)
    wInfoLen = wFirstLen + 7;
  if (wLastLen > 0)
    wInfoLen += wLastLen + 7;
  if (wNickLen > 0)
    wInfoLen += wNickLen + 7;

  // Initialize our handy data buffer
  pBuffer = (BYTE*)_alloca(wInfoLen);
  pBufferPos = 0;

  // Pack the search details
  if (wFirstLen > 0)
  {
    packTLVLNTS(&pBuffer, &pBufferPos, pszFirstName, TLV_FIRSTNAME);
  }

  if (wLastLen > 0)
  {
    packTLVLNTS(&pBuffer, &pBufferPos, pszLastName, TLV_LASTNAME);
  }

  if (wNickLen > 0)
  {
    packTLVLNTS(&pBuffer, &pBufferPos, pszNick, TLV_NICKNAME);
  }

  // Send it off for further packing
  dwCookie = sendTLVSearchPacket(SEARCHTYPE_NAMES, pBuffer, META_SEARCH_GENERIC, wInfoLen, FALSE);

  return dwCookie;
}



DWORD SearchByEmail(char* pszEmail)
{
  DWORD dwCookie;
  WORD wInfoLen = 0;
  WORD wEmailLen;
  BYTE *pBuffer;
  int pBufferPos;

  wEmailLen = strlennull(pszEmail);

  _ASSERTE(wEmailLen);

  if (wEmailLen > 0)
  {
    // Calculate data size
    wInfoLen = wEmailLen + 7;

    // Initialize our handy data buffer
    pBuffer = (BYTE *)_alloca(wInfoLen);
    pBufferPos = 0;

    // Pack the search details
    packTLVLNTS(&pBuffer, &pBufferPos, pszEmail, TLV_EMAIL);

    // Send it off for further packing
    dwCookie = sendTLVSearchPacket(SEARCHTYPE_EMAIL, pBuffer, META_SEARCH_EMAIL, wInfoLen, FALSE);
  }

  return dwCookie;
}



DWORD sendTLVSearchPacket(BYTE bType, char* pSearchDataBuf, WORD wSearchType, WORD wInfoLen, BOOL bOnlineUsersOnly)
{
  icq_packet packet;
  DWORD dwCookie;
  search_cookie* pCookie;

  _ASSERTE(pSearchDataBuf);
  _ASSERTE(wInfoLen >= 4);

  pCookie = (search_cookie*)SAFE_MALLOC(sizeof(search_cookie));
  if (pCookie)
  {
    pCookie->bSearchType = bType;
    dwCookie = AllocateCookie(CKT_SEARCH, 0, 0, pCookie);
  }
  else
    return 0;

  // Pack headers
  packServIcqExtensionHeader(&packet, (WORD)(wInfoLen + (wSearchType==META_SEARCH_GENERIC?7:2)), CLI_META_INFO_REQ, (WORD)dwCookie);

  // Pack search type
  packLEWord(&packet, wSearchType);

  // Pack search data
  packBuffer(&packet, pSearchDataBuf, wInfoLen);

  if (wSearchType == META_SEARCH_GENERIC && bOnlineUsersOnly)
  { // Pack "Online users only" flag - only for generic search
    BYTE bData = 1;
    packTLV(&packet, TLV_ONLINEONLY, 1, &bData);
  }

  // Go!
  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_sendAdvancedSearchServ(BYTE* fieldsBuffer,int bufferLen)
{
  icq_packet packet;
  DWORD dwCookie;
  search_cookie* pCookie;

  pCookie = (search_cookie*)SAFE_MALLOC(sizeof(search_cookie));
  if (pCookie)
  {
    pCookie->bSearchType = SEARCHTYPE_DETAILS;
    dwCookie = AllocateCookie(CKT_SEARCH, 0, 0, pCookie);
  }
  else
    return 0;

  packServIcqExtensionHeader(&packet, (WORD)(2 + bufferLen), CLI_META_INFO_REQ, (WORD)dwCookie);
  packBuffer(&packet, (const char*)fieldsBuffer, (WORD)bufferLen);

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_searchAimByEmail(char* pszEmail, DWORD dwSearchId)
{
  icq_packet packet;
  DWORD dwCookie;
  search_cookie* pCookie;
  search_cookie* pMainCookie = NULL;
  WORD wEmailLen;

  if (!FindCookie(dwSearchId, NULL, &pCookie))
  {
    dwSearchId = 0;
    pCookie = (search_cookie*)SAFE_MALLOC(sizeof(search_cookie));
    pCookie->bSearchType = SEARCHTYPE_EMAIL;
  }

  if (pCookie)
  {
    pCookie->dwMainId = dwSearchId;
    pCookie->szObject = null_strdup(pszEmail);
    dwCookie = AllocateCookie(CKT_SEARCH, ICQ_LOOKUP_REQUEST, 0, pCookie);
  }
  else
    return 0;

  wEmailLen = strlennull(pszEmail);
  serverPacketInit(&packet, (WORD)(10 + wEmailLen));
  packFNACHeaderFull(&packet, ICQ_LOOKUP_FAMILY, ICQ_LOOKUP_REQUEST, 0, dwCookie);
  packBuffer(&packet, pszEmail, wEmailLen);

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_changeUserDetailsServ(WORD type, const unsigned char *pData, WORD wDataLen)
{
  icq_packet packet;
  DWORD dwCookie;

  dwCookie = GenerateCookie(0);

  packServIcqExtensionHeader(&packet, (WORD)(wDataLen + 2), CLI_META_INFO_REQ, (WORD)dwCookie);
  packLEWord(&packet, type);
  packBuffer(&packet, pData, wDataLen);

  sendServPacket(&packet);

  return dwCookie;
}



DWORD icq_sendSMSServ(const char *szPhoneNumber, const char *szMsg)
{
  icq_packet packet;
  DWORD dwCookie;
  WORD wBufferLen;
  char* szBuffer = NULL;
  char* szMyNick = NULL;
  char szTime[30];
  time_t now;
  int nBufferSize;


  now = time(NULL);
  strftime(szTime, sizeof(szTime), "%a, %d %b %Y %H:%M:%S GMT", gmtime(&now));
                              /* Sun, 00 Jan 0000 00:00:00 GMT */

  szMyNick = null_strdup((char *)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)(HANDLE)NULL, 0));
  nBufferSize = 1 + strlennull(szMyNick) + strlennull(szPhoneNumber) + strlennull(szMsg) + sizeof("<icq_sms_message><destination></destination><text></text><codepage>1252</codepage><encoding>utf8</encoding><senders_UIN>0000000000</senders_UIN><senders_name></senders_name><delivery_receipt>Yes</delivery_receipt><time>Sun, 00 Jan 0000 00:00:00 GMT</time></icq_sms_message>");

  if (szBuffer = (char *)_alloca(nBufferSize))
  {

    wBufferLen = null_snprintf(szBuffer, nBufferSize,
      "<icq_sms_message>"
      "<destination>"
            "%s"   /* phone number */
      "</destination>"
      "<text>"
            "%s"   /* body */
      "</text>"
      "<codepage>"
            "1252"
      "</codepage>"
      "<encoding>"
            "utf8"
      "</encoding>"
      "<senders_UIN>"
            "%u"  /* my UIN */
      "</senders_UIN>"
      "<senders_name>"
            "%s"  /* my nick */
      "</senders_name>"
      "<delivery_receipt>"
            "Yes"
      "</delivery_receipt>"
      "<time>"
            "%s"  /* time */
      "</time>"
      "</icq_sms_message>",
      szPhoneNumber, szMsg, dwLocalUIN, szMyNick, szTime);

    dwCookie = GenerateCookie(0);

    packServIcqExtensionHeader(&packet, (WORD)(wBufferLen + 27), CLI_META_INFO_REQ, (WORD)dwCookie);
    packWord(&packet, 0x8214);     /* send sms */
    packWord(&packet, 1);
    packWord(&packet, 0x16);
    packDWord(&packet, 0);
    packDWord(&packet, 0);
    packDWord(&packet, 0);
    packDWord(&packet, 0);
    packWord(&packet, 0);
    packWord(&packet, (WORD)(wBufferLen + 1));
    packBuffer(&packet, szBuffer, (WORD)(1 + wBufferLen));

    sendServPacket(&packet);
  }
  else
  {
    dwCookie = 0;
  }

  SAFE_FREE(&szMyNick);


  return dwCookie;
}



void icq_sendGenericContact(DWORD dwUin, char* szUid, WORD wFamily, WORD wSubType)
{
  icq_packet packet;
  int nUinLen;

  nUinLen = getUIDLen(dwUin, szUid);

  serverPacketInit(&packet, (WORD)(nUinLen + 11));
  packFNACHeader(&packet, wFamily, wSubType);
  packUID(&packet, dwUin, szUid);

  sendServPacket(&packet);
}



void icq_sendNewContact(DWORD dwUin, char* szUid)
{
  icq_sendGenericContact(dwUin, szUid, ICQ_BUDDY_FAMILY, ICQ_USER_ADDTOLIST);
}



/*void icq_sendRemoveContact(DWORD dwUin, char* szUid)
{
  icq_sendGenericContact(dwUin, szUid, ICQ_BUDDY_FAMILY, ICQ_USER_REMOVEFROMLIST);
}*/


// list==0: visible list
// list==1: invisible list
void icq_sendChangeVisInvis(HANDLE hContact, DWORD dwUin, char* szUID, int list, int add)
{ // TODO: This needs grouping & rate management
  // Tell server to change our server-side contact visbility list
  if (gbSsiEnabled)
  {
    WORD wContactId;
    char* szSetting;
    WORD wType;

    if (list == 0)
    {
      wType = SSI_ITEM_PERMIT;
      szSetting = "SrvPermitId";
    }
    else
    {
      wType = SSI_ITEM_DENY;
      szSetting = "SrvDenyId";
    }

    if (add)
    {
      // check if we should make the changes, this is 2nd level check
      if (ICQGetContactSettingWord(hContact, szSetting, 0) != 0)
        return;

      // Add
      wContactId = GenerateServerId(SSIT_ITEM);

      icq_addServerPrivacyItem(hContact, dwUin, szUID, wContactId, wType);

      ICQWriteContactSettingWord(hContact, szSetting, wContactId);
    }
    else
    {
      // Remove
      wContactId = ICQGetContactSettingWord(hContact, szSetting, 0);

      if (wContactId)
      {
        icq_removeServerPrivacyItem(hContact, dwUin, szUID, wContactId, wType);

        ICQDeleteContactSetting(hContact, szSetting);
      }
    }
  }

  // Notify server that we have changed
  // our client side visibility list
  {
    int nUinLen;
    icq_packet packet;
    WORD wSnac;

    if (list && gnCurrentStatus == ID_STATUS_INVISIBLE)
      return;

    if (!list && gnCurrentStatus != ID_STATUS_INVISIBLE)
      return;


    if (list && add)
      wSnac = ICQ_CLI_ADDINVISIBLE;
    else if (list && !add)
      wSnac = ICQ_CLI_REMOVEINVISIBLE;
    else if (!list && add)
      wSnac = ICQ_CLI_ADDVISIBLE;
    else if (!list && !add)
      wSnac = ICQ_CLI_REMOVEVISIBLE;

    nUinLen = getUIDLen(dwUin, szUID);

    serverPacketInit(&packet, (WORD)(nUinLen + 11));
    packFNACHeader(&packet, ICQ_BOS_FAMILY, wSnac);
    packUID(&packet, dwUin, szUID);

    sendServPacket(&packet);
  }
}



void icq_sendEntireVisInvisList(int list)
{
  if (list)
    sendEntireListServ(ICQ_BOS_FAMILY, ICQ_CLI_ADDINVISIBLE, BUL_INVISIBLE);
  else
    sendEntireListServ(ICQ_BOS_FAMILY, ICQ_CLI_ADDVISIBLE, BUL_VISIBLE);
}



void icq_sendRevokeAuthServ(DWORD dwUin, char *szUid)
{
  icq_sendGenericContact(dwUin, szUid, ICQ_LISTS_FAMILY, ICQ_LISTS_REVOKEAUTH);
}



void icq_sendGrantAuthServ(DWORD dwUin, char *szUid, char *szMsg)
{
  icq_packet packet;
  unsigned char nUinlen;
  char* szUtfMsg = NULL;
  WORD nMsglen;

  nUinlen = getUIDLen(dwUin, szUid);

  // Prepare custom utf-8 message
  szUtfMsg = ansi_to_utf8(szMsg);
  nMsglen = strlennull(szUtfMsg);

  serverPacketInit(&packet, (WORD)(15 + nUinlen + nMsglen));
  packFNACHeader(&packet, ICQ_LISTS_FAMILY, ICQ_LISTS_GRANTAUTH);
  packUID(&packet, dwUin, szUid);
  packWord(&packet, (WORD)nMsglen);
  packBuffer(&packet, szUtfMsg, nMsglen);
  packWord(&packet, 0);

  SAFE_FREE(&szUtfMsg);

  sendServPacket(&packet);
}



void icq_sendAuthReqServ(DWORD dwUin, char *szUid, char *szMsg)
{
  icq_packet packet;
  unsigned char nUinlen;
  WORD nMsglen;

  nUinlen = getUIDLen(dwUin, szUid);
  nMsglen = strlennull(szMsg);

  serverPacketInit(&packet, (WORD)(15 + nUinlen + nMsglen));
  packFNACHeader(&packet, ICQ_LISTS_FAMILY, ICQ_LISTS_REQUESTAUTH);
  packUID(&packet, dwUin, szUid);
  packWord(&packet, (WORD)nMsglen);
  packBuffer(&packet, szMsg, nMsglen);
  packWord(&packet, 0);

  sendServPacket(&packet);
}



void icq_sendAuthResponseServ(DWORD dwUin, char* szUid, int auth, char *szReason)
{
  icq_packet p;
  WORD nReasonlen;
  unsigned char nUinlen;
  char* szUtfReason = NULL;

  nUinlen = getUIDLen(dwUin, szUid);

  // Prepare custom utf-8 reason
  szUtfReason = ansi_to_utf8(szReason);
  nReasonlen = strlennull(szUtfReason);

  serverPacketInit(&p, (WORD)(16 + nUinlen + nReasonlen));
  packFNACHeader(&p, ICQ_LISTS_FAMILY, ICQ_LISTS_CLI_AUTHRESPONSE);
  packUID(&p, dwUin, szUid);
  packByte(&p, (BYTE)auth);
  packWord(&p, nReasonlen);
  packBuffer(&p, szUtfReason, nReasonlen);
  packWord(&p, 0);

  SAFE_FREE(&szUtfReason);

  sendServPacket(&p);
}



void icq_sendYouWereAddedServ(DWORD dwUin, DWORD dwMyUin)
{
  icq_packet packet;
  DWORD dwID1;
  DWORD dwID2;

  dwID1 = time(NULL);
  dwID2 = RandRange(0, 0x00FF);

  packServMsgSendHeader(&packet, 0, dwID1, dwID2, dwUin, NULL, 0x0004, 17);
  packWord(&packet, 0x0005);      // TLV(5)
  packWord(&packet, 0x0009);
  packLEDWord(&packet, dwMyUin);
  packByte(&packet, MTYPE_ADDED);
  packByte(&packet, 0);           // msg-flags
  packEmptyMsg(&packet);          // NTS
  packDWord(&packet, 0x00060000); // TLV(6)

  sendServPacket(&packet);
}



void icq_sendXtrazRequestServ(DWORD dwUin, DWORD dwCookie, char* szBody, int nBodyLen, message_cookie_data *pCookieData)
{
  icq_packet packet;
  WORD wCoreLen;

  wCoreLen = 11 + getPluginTypeIdLen(pCookieData->bMessageType) + nBodyLen;
  packServMsgSendHeader(&packet, dwCookie, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwUin, NULL, 2, (WORD)(99 + wCoreLen));

  // TLV(5) header
  packServTLV5HeaderMsg(&packet, (WORD)(55 + wCoreLen), pCookieData->dwMsgID1, pCookieData->dwMsgID2, 1);

  // TLV(0x2711) header
  packServTLV2711Header(&packet, (WORD)dwCookie, ICQ_VERSION, MTYPE_PLUGIN, 0, 0, 0x100, wCoreLen);
  //
  packEmptyMsg(&packet);

  packPluginTypeId(&packet, pCookieData->bMessageType);

  packLEDWord(&packet, nBodyLen + 4);
  packLEDWord(&packet, nBodyLen);
  packBuffer(&packet, szBody, (WORD)nBodyLen);

  // Pack request server ack TLV
  packDWord(&packet, 0x00030000); // TLV(3)

  // Send the monster
  sendServPacket(&packet);
}



void icq_sendXtrazResponseServ(DWORD dwUin, DWORD dwMID, DWORD dwMID2, WORD wCookie, char* szBody, int nBodyLen, int nType)
{
  icq_packet packet;

  packServAdvancedMsgReply(&packet, dwUin, dwMID, dwMID2, wCookie, GetProtoVersion(), MTYPE_PLUGIN, 0, (WORD)(getPluginTypeIdLen(nType) + 11 + nBodyLen));
  //
  packEmptyMsg(&packet);

  packPluginTypeId(&packet, nType);

  packLEDWord(&packet, nBodyLen + 4);
  packLEDWord(&packet, nBodyLen);
  packBuffer(&packet, szBody, (WORD)nBodyLen);

  // Send the monster
  sendServPacket(&packet);
}



void icq_sendReverseReq(directconnect *dc, DWORD dwCookie, message_cookie_data *pCookie)
{
  icq_packet packet;

  packServMsgSendHeader(&packet, dwCookie, pCookie->dwMsgID1, pCookie->dwMsgID2, dc->dwRemoteUin, NULL, 2, 0x47);

  packServTLV5HeaderBasic(&packet, 0x29, pCookie->dwMsgID1, pCookie->dwMsgID2, 0, MCAP_REVERSE_DC_REQ);

  packTLVWord(&packet, 0x0A, 1);            // TLV: 0x0A Acktype: 1 for normal, 2 for ack
  packDWord(&packet, 0x000F0000);           // TLV: 0x0F empty
  packDWord(&packet, 0x2711001B);           // TLV: 0x2711 Content
  // TLV(0x2711) data
  packLEDWord(&packet, dwLocalUIN);         // Our UIN
  packDWord(&packet, dc->dwLocalExternalIP);// IP to connect to
  packLEDWord(&packet, wListenPort);        // Port to connect to
  packByte(&packet, DC_NORMAL);             // generic DC type
  packDWord(&packet, dc->dwRemotePort);     // unknown
  packDWord(&packet, wListenPort);          // port again ?
  packLEWord(&packet, ICQ_VERSION);         // DC Version
  packLEDWord(&packet, dwCookie);           // Req Cookie

  // Send the monster
  sendServPacket(&packet);
}



void icq_sendReverseFailed(directconnect* dc, DWORD dwMsgID1, DWORD dwMsgID2, DWORD dwCookie)
{
  icq_packet packet;
  int nUinLen = getUINLen(dc->dwRemoteUin);

  serverPacketInit(&packet, (WORD)(nUinLen + 74));
  packFNACHeaderFull(&packet, ICQ_MSG_FAMILY, ICQ_MSG_RESPONSE, 0, ICQ_MSG_RESPONSE<<0x10 | (dwCookie & 0x7FFF));
  packLEDWord(&packet, dwMsgID1);   // Msg ID part 1
  packLEDWord(&packet, dwMsgID2);   // Msg ID part 2
  packWord(&packet, 0x02);
  packUIN(&packet, dc->dwRemoteUin);
  packWord(&packet, 0x03);
  packLEDWord(&packet, dc->dwRemoteUin);
  packLEDWord(&packet, dc->dwRemotePort);
  packLEDWord(&packet, wListenPort);
  packLEWord(&packet, ICQ_VERSION);
  packLEDWord(&packet, dwCookie);

  sendServPacket(&packet);
}


// OSCAR file-transfer packets starts here
//
void oft_sendFileRequest(DWORD dwUin, char *szUid, oscar_filetransfer* ft, char* pszFiles, DWORD dwLocalInternalIP)
{
  icq_packet packet;
  char *szCoolStr;
  WORD wDataLen;

  szCoolStr = (char*)_alloca(strlennull(ft->szDescription)+strlennull(pszFiles) + 160);
  sprintf(szCoolStr, "<ICQ_COOL_FT><FS>%s</FS><S>%I64u</S><SID>1</SID><DESC>%s</DESC></ICQ_COOL_FT>", pszFiles, ft->qwTotalSize, ft->szDescription);
  szCoolStr = MangleXml(szCoolStr, strlennull(szCoolStr));

  wDataLen = 93 + strlennull(szCoolStr) + strlennull(pszFiles);
  if (ft->bUseProxy) wDataLen += 4;

  packServMsgSendHeader(&packet, ft->dwCookie, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, dwUin, szUid, 2, (WORD)(wDataLen + 0x1E));
  packServTLV5HeaderBasic(&packet, wDataLen, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, 0, MCAP_FILE_TRANSFER);

  packTLVWord(&packet, 0x0A, ++ft->wReqNum);        // Request sequence
  packDWord(&packet, 0x000F0000);                   // Unknown
  packTLV(&packet, 0x0D, 5, "utf-8");               // Charset
  packTLV(&packet, 0x0C, (WORD)strlennull(szCoolStr), szCoolStr); // User message (CoolData XML)
  SAFE_FREE(&szCoolStr);
  if (ft->bUseProxy)
  {
    packTLVDWord(&packet, 0x02, ft->dwProxyIP);     // Proxy IP
    packTLVDWord(&packet, 0x16, ft->dwProxyIP ^ 0x0FFFFFFFF);    // Proxy IP check
  }
  else
  {
    packTLVDWord(&packet, 0x02, dwLocalInternalIP);
    packTLVDWord(&packet, 0x16, dwLocalInternalIP ^ 0x0FFFFFFFF);
  }
  packTLVDWord(&packet, 0x03, dwLocalInternalIP);   // Client IP
  if (ft->bUseProxy)
  {
    packTLVWord(&packet, 0x05, ft->wRemotePort);
    packTLVWord(&packet, 0x17, (WORD)(ft->wRemotePort ^ 0x0FFFF));
    packDWord(&packet, 0x00100000);                 // Proxy flag
  }
  else
  {
    oscar_listener *pListener = (oscar_listener*)ft->listener;

    packTLVWord(&packet, 0x05, pListener->wPort);
    packTLVWord(&packet, 0x15, (WORD)((pListener->wPort) ^ 0x0FFFF));
  }
  { // TLV(0x2711)
    packWord(&packet, 0x2711);
    packWord(&packet, (WORD)(9 + strlennull(pszFiles)));
    packWord(&packet, (WORD)(ft->wFilesCount == 1 ? 1 : 2));
    packWord(&packet, ft->wFilesCount);
    packDWord(&packet, (DWORD)ft->qwTotalSize);
    packBuffer(&packet, pszFiles, (WORD)(strlennull(pszFiles) + 1));
  }
  packTLV(&packet, 0x2712, 5, "utf-8");
  { // TLV(0x2713)
    packWord(&packet, 0x2713);
    packWord(&packet, 8);
    packQWord(&packet, ft->qwTotalSize);
  }

  sendServPacket(&packet);                          // Send the monster
}



static void oft_sendFileReply(DWORD dwUin, char *szUid, oscar_filetransfer* ft, WORD wResult)
{
  icq_packet packet;

  packServMsgSendHeader(&packet, 0, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, dwUin, szUid, 2, 0x1E);
  packServTLV5HeaderBasic(&packet, 0, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, wResult, MCAP_FILE_TRANSFER);

  sendServPacket(&packet);
}



void oft_sendFileAccept(DWORD dwUin, char *szUid, oscar_filetransfer* ft)
{
  oft_sendFileReply(dwUin, szUid, ft, 0x02);
}



void oft_sendFileResponse(DWORD dwUin, char *szUid, oscar_filetransfer* ft, WORD wResponse)
{
  icq_packet packet;

  packServAdvancedReply(&packet, dwUin, szUid, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, 0, 4);
  packWord(&packet, 0x02);      // Length of following data
  packWord(&packet, wResponse); // Response code

  sendServPacket(&packet);
}



void oft_sendFileDeny(DWORD dwUin, char *szUid, oscar_filetransfer* ft)
{
  if (dwUin)
  { // ICQ clients uses special deny file transfer
    oft_sendFileResponse(dwUin, szUid, ft, 0x01);
  }
  else
    oft_sendFileReply(dwUin, szUid, ft, 0x01);
}



void oft_sendFileCancel(DWORD dwUin, char *szUid, oscar_filetransfer* ft)
{
  oft_sendFileReply(dwUin, szUid, ft, 0x01);
}



void oft_sendFileRedirect(DWORD dwUin, char *szUid, oscar_filetransfer* ft, DWORD dwIP, WORD wPort, int bProxy)
{
  icq_packet packet;

  packServMsgSendHeader(&packet, 0, ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, dwUin, szUid, 2, (WORD)(bProxy ? 0x4a : 0x4e));
  packServTLV5HeaderBasic(&packet, (WORD)(bProxy ? 0x2C : 0x30), ft->pMessage.dwMsgID1, ft->pMessage.dwMsgID2, 0, MCAP_FILE_TRANSFER);
  // Connection point data
  packTLVWord(&packet, 0x0A, ++ft->wReqNum);                // Ack Type
  packTLVWord(&packet, 0x14, 0x0A);                         // Unknown ?
  packTLVDWord(&packet, 0x02, dwIP);                        // Internal IP / Proxy IP
  packTLVDWord(&packet, 0x16, dwIP ^ 0x0FFFFFFFF);          // IP Check ?
  if (!bProxy)
    packTLVDWord(&packet, 0x03, dwIP);
  packTLVWord(&packet, 0x05, wPort);                        // Listening Port
  packTLVWord(&packet, 0x17, (WORD)(wPort ^ 0x0FFFF));      // Port Check ?
  if (bProxy)
    packDWord(&packet, 0x00100000);                         // Proxy Flag

  sendServPacket(&packet);
}

void SendtZer(HANDLE hContact, DWORD dwUin, char * sztZId, char * sztZName, char * sztZUrl) {
  icq_packet packet;
  WORD wCoreLen;
  DWORD dwCookie;
  
  int nBodyLen;
  message_cookie_data* pCookieData;

  char * szBody = (char *) malloc(66 + strlen(sztZId) + strlen(sztZName) + strlen(sztZUrl) + getUINLen(dwUin) + 1);
  sprintf(szBody, "<tzer id=\"%s\" name=\"%s\" url=\"%s\" preview=\"0\" freeData=\"preview=0;uin=%lu\"/>", sztZId, sztZName, sztZUrl, dwUin);
  nBodyLen = strlen(szBody);

  pCookieData = CreateMessageCookie(MTYPE_TZER_MESSAGE, ACKTYPE_CLIENT);
  dwCookie = AllocateCookie(CKT_MESSAGE, 0, hContact, (void*)pCookieData);


  wCoreLen = 11 + getPluginTypeIdLen(pCookieData->bMessageType) + nBodyLen;


  packServMsgSendHeader(&packet, dwCookie, pCookieData->dwMsgID1, pCookieData->dwMsgID2, dwUin, NULL, 2, (WORD)(/*99*/99 + wCoreLen));

  packServTLV5HeaderMsg(&packet, (WORD)(55 + wCoreLen), pCookieData->dwMsgID1, pCookieData->dwMsgID2, 1); //36

  packServTLV2711Header(&packet, (WORD)dwCookie, ICQ_VERSION, MTYPE_PLUGIN, 0, 0, 0x100, wCoreLen); //55

  packEmptyMsg(&packet); //3

  packPluginTypeId(&packet, pCookieData->bMessageType);

  packLEDWord(&packet, nBodyLen + 4); //4
  packLEDWord(&packet, nBodyLen); //4
  packBuffer(&packet, szBody, (WORD)nBodyLen);

  packDWord(&packet, 0x00030000); // TLV(3)

  sendServPacket(&packet);

}

DWORD icq_sendGetLocationInfo(HANDLE hContact, DWORD dwUIN, char *szUID)
{
  icq_packet packet;
  DWORD dwCookie;
  BYTE bUIDlen = getUIDLen(dwUIN, szUID);

  dwCookie = AllocateCookie(CKT_CHECKSPAMBOT, ICQ_LOCATION_QRY_USER_INFO, hContact, NULL);

  serverPacketInit(&packet, (WORD)(15 + bUIDlen));
  packFNACHeaderFull(&packet, ICQ_LOCATION_FAMILY, ICQ_LOCATION_QRY_USER_INFO, 0, dwCookie);
  packDWord(&packet, 0x04);
  packUID(&packet, dwUIN, szUID);

  sendServPacket(&packet);

  return dwCookie;
}