GTalkExt, ICQ, IRC, Jabber: folders restructurization

git-svn-id: http://svn.miranda-ng.org/main/trunk@1890 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 312 insertions, 0 deletions

diff --git a/protocols/IcqOscarJ/src/fam_02location.cpp b/protocols/IcqOscarJ/src/fam_02location.cpp
new file mode 100644
index 0000000000..2398cf18c6
--- /dev/null
+++ b/protocols/IcqOscarJ/src/fam_02location.cpp
@@ -0,0 +1,312 @@
+// ---------------------------------------------------------------------------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-2004 Martin Öberg, Sam Kothari, Robert Rainwater

+// Copyright © 2004-2010 Joe Kucera

+// 

+// 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

+//

+// -----------------------------------------------------------------------------

+//  DESCRIPTION:

+//

+//  Handles packets from Location family

+//

+// -----------------------------------------------------------------------------

+#include "icqoscar.h"

+

+

+extern const char* cliSpamBot;

+

+void CIcqProto::handleLocationFam(BYTE *pBuffer, WORD wBufferLength, snac_header *pSnacHeader)

+{

+	switch (pSnacHeader->wSubtype) {

+

+	case ICQ_LOCATION_RIGHTS_REPLY: // Reply to CLI_REQLOCATION

+		NetLog_Server("Server sent SNAC(x02,x03) - SRV_LOCATION_RIGHTS_REPLY");

+		break;

+

+	case ICQ_LOCATION_USR_INFO_REPLY: // AIM user info reply

+		handleLocationUserInfoReply(pBuffer, wBufferLength, pSnacHeader->dwRef);

+		break;

+

+	case ICQ_ERROR:

+		{ 

+			WORD wError;

+			HANDLE hCookieContact;

+			cookie_fam15_data *pCookieData;

+

+

+			if (wBufferLength >= 2)

+				unpackWord(&pBuffer, &wError);

+			else 

+				wError = 0;

+

+			if (wError == 4)

+			{

+				if (FindCookie(pSnacHeader->dwRef, &hCookieContact, (void**)&pCookieData) && !getContactUin(hCookieContact) && pCookieData->bRequestType == REQUESTTYPE_PROFILE)

+				{

+					BroadcastAck(hCookieContact, ACKTYPE_GETINFO, ACKRESULT_FAILED, (HANDLE)1 ,0);

+

+					ReleaseCookie(pSnacHeader->dwRef);

+				}

+			}

+

+			LogFamilyError(ICQ_LOCATION_FAMILY, wError);

+			break;

+		}

+

+	default:

+		NetLog_Server("Warning: Ignoring SNAC(x%02x,x%02x) - Unknown SNAC (Flags: %u, Ref: %u)", ICQ_LOCATION_FAMILY, pSnacHeader->wSubtype, pSnacHeader->wFlags, pSnacHeader->dwRef);

+		break;

+	}

+}

+

+static char* AimApplyEncoding(char* pszStr, const char* pszEncoding)

+{ // decode encoding to ANSI only

+	if (pszStr && pszEncoding)

+	{

+		const char *szEnc = strstrnull(pszEncoding, "charset=");

+

+		if (szEnc)

+		{ // decode custom encoding to Utf-8

+			char *szStr = ApplyEncoding(pszStr, szEnc + 9);

+			// decode utf-8 to ansi

+			char *szRes = NULL;

+

+			SAFE_FREE((void**)&pszStr);

+			utf8_decode(szStr, &szRes);

+			SAFE_FREE((void**)&szStr);

+

+			return szRes;

+		}

+	}

+	return pszStr;

+}

+

+void CIcqProto::handleLocationUserInfoReply(BYTE* buf, WORD wLen, DWORD dwCookie)

+{

+	HANDLE hContact;

+	DWORD dwUIN;

+	uid_str szUID;

+	WORD wTLVCount;

+	WORD wWarningLevel;

+	HANDLE hCookieContact;

+	WORD status;

+	cookie_message_data *pCookieData;

+

+	// Unpack the sender's user ID

+	if (!unpackUID(&buf, &wLen, &dwUIN, &szUID)) return;

+

+	// Syntax check

+	if (wLen < 4)

+		return;

+

+	// Warning level?

+	unpackWord(&buf, &wWarningLevel);

+	wLen -= 2;

+

+	// TLV count

+	unpackWord(&buf, &wTLVCount);

+	wLen -= 2;

+

+	// Determine contact

+	hContact = HContactFromUID(dwUIN, szUID, NULL);

+

+	// Ignore away status if the user is not already on our list

+	if (hContact == INVALID_HANDLE_VALUE)

+	{

+#ifdef _DEBUG

+		NetLog_Server("Ignoring away reply (%s)", strUID(dwUIN, szUID));

+#endif

+		return;

+	}

+

+	if (!FindCookie(dwCookie, &hCookieContact, (void**)&pCookieData))

+	{

+		NetLog_Server("Error: Received unexpected away reply from %s", strUID(dwUIN, szUID));

+		return;

+	}

+

+	if (hContact != hCookieContact)

+	{

+		NetLog_Server("Error: Away reply Contact does not match Cookie Contact(0x%x != 0x%x)", hContact, hCookieContact);

+

+		ReleaseCookie(dwCookie); // This could be a bad idea, but I think it is safe

+		return;

+	}

+

+	switch (GetCookieType(dwCookie))

+	{

+	case CKT_FAMILYSPECIAL:

+		{

+			ReleaseCookie(dwCookie);

+

+			// Read user info TLVs

+			{

+				oscar_tlv_chain* pChain;

+				BYTE *tmp;

+				char *szMsg = NULL;

+

+				// Syntax check

+				if (wLen < 4)

+					return;

+

+				tmp = buf;

+				// Get general chain

+				if (!(pChain = readIntoTLVChain(&buf, wLen, wTLVCount)))

+					return;

+

+				disposeChain(&pChain);

+

+				wLen -= (buf - tmp);

+

+				// Get extra chain

+				if (pChain = readIntoTLVChain(&buf, wLen, 2))

+				{

+					oscar_tlv *pTLV;

+					char *szEncoding = NULL;

+

+					// Get Profile encoding TLV

+					
+					pTLV = pChain->getTLV(0x05, 1);
+					if (pTLV && (pTLV->wLen > 0))
+					{
+						// store client capabilities
+						BYTE* capBuf = pTLV->pData;
+						WORD capLen = pTLV->wLen;
+						DBCONTACTWRITESETTING dbcws;
+						dbcws.value.type = DBVT_BLOB;
+						dbcws.value.cpbVal = capLen;
+						dbcws.value.pbVal = capBuf;
+						dbcws.szModule = m_szModuleName;
+						dbcws.szSetting = "CapBuf";
+						CallService(MS_DB_CONTACT_WRITESETTING, (WPARAM)hContact, (LPARAM)&dbcws);

+					}

+					else

+						deleteSetting(hContact, "CapBuf");

+

+					pTLV = pChain->getTLV(0x01, 1);

+					if (pTLV && (pTLV->wLen >= 1))

+					{

+						szEncoding = (char*)_alloca(pTLV->wLen + 1);

+						memcpy(szEncoding, pTLV->pData, pTLV->wLen);

+						szEncoding[pTLV->wLen] = '\0';

+					}

+					// Get Profile info TLV

+					pTLV = pChain->getTLV(0x02, 1);

+					if (pTLV && (pTLV->wLen >= 1))

+					{

+						szMsg = (char*)SAFE_MALLOC(pTLV->wLen + 2);

+						memcpy(szMsg, pTLV->pData, pTLV->wLen);

+						szMsg[pTLV->wLen] = '\0';

+						szMsg[pTLV->wLen + 1] = '\0';

+						szMsg = AimApplyEncoding(szMsg, szEncoding);

+						szMsg = EliminateHtml(szMsg, pTLV->wLen);

+					}

+					// Free TLV chain

+					disposeChain(&pChain);

+				}

+

+				setSettingString(hContact, "About", szMsg);

+				BroadcastAck(hContact, ACKTYPE_GETINFO, ACKRESULT_SUCCESS, (HANDLE)1 ,0);

+

+				SAFE_FREE((void**)&szMsg);

+			}

+			break;

+		}

+

+	default: // away message

+		{

+			status = AwayMsgTypeToStatus(pCookieData->nAckType);

+			if (status == ID_STATUS_OFFLINE)

+			{

+				NetLog_Server("SNAC(2.6) Ignoring unknown status message from %s", strUID(dwUIN, szUID));

+

+				ReleaseCookie(dwCookie);

+				return;

+			}

+

+			ReleaseCookie(dwCookie);

+

+			// Read user info TLVs

+			{

+				oscar_tlv_chain* pChain;

+				oscar_tlv* pTLV;

+				BYTE *tmp;

+				char *szMsg = NULL;

+				CCSDATA ccs;

+				PROTORECVEVENT pre;

+

+				// Syntax check

+				if (wLen < 4)

+					return;

+

+				tmp = buf;

+				// Get general chain

+				if (!(pChain = readIntoTLVChain(&buf, wLen, wTLVCount)))

+					return;

+

+				disposeChain(&pChain);

+

+				wLen -= (buf - tmp);

+

+				// Get extra chain

+				if (pChain = readIntoTLVChain(&buf, wLen, 2))

+				{

+					char* szEncoding = NULL;

+

+					// Get Away encoding TLV

+					pTLV = pChain->getTLV(0x03, 1);

+					if (pTLV && (pTLV->wLen >= 1))

+					{

+						szEncoding = (char*)_alloca(pTLV->wLen + 1);

+						memcpy(szEncoding, pTLV->pData, pTLV->wLen);

+						szEncoding[pTLV->wLen] = '\0';

+					}

+					// Get Away info TLV

+					pTLV = pChain->getTLV(0x04, 1);

+					if (pTLV && (pTLV->wLen >= 1))

+					{

+						szMsg = (char*)SAFE_MALLOC(pTLV->wLen + 2);

+						memcpy(szMsg, pTLV->pData, pTLV->wLen);

+						szMsg[pTLV->wLen] = '\0';

+						szMsg[pTLV->wLen + 1] = '\0';

+						szMsg = AimApplyEncoding(szMsg, szEncoding);

+						szMsg = EliminateHtml(szMsg, pTLV->wLen);

+					}

+					// Free TLV chain

+					disposeChain(&pChain);

+				}

+

+				ccs.szProtoService = PSR_AWAYMSG;

+				ccs.hContact = hContact;

+				ccs.wParam = status;

+				ccs.lParam = (LPARAM)&pre;

+				pre.flags = 0;

+				pre.szMessage = szMsg?szMsg:(char *)"";

+				pre.timestamp = time(NULL);

+				pre.lParam = dwCookie;

+

+				CallService(MS_PROTO_CHAINRECV,0,(LPARAM)&ccs);

+

+				SAFE_FREE((void**)&szMsg);

+			}

+			break;

+		}

+	}

+}