/*
Copyright (C) 2006-2007 Scott Ellis
Copyright (C) 2007-2011 Jan Holub

This is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.

This 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
Library General Public License for more details.

You should have received a copy of the GNU Library General Public
License along with this file; see the file license.txt.  If
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.
*/

#include "common.h"
#include "subst.h"
#include "str_utils.h"
#include "popwin.h"


int ProtoServiceExists(const char *szModule, const char *szService)
{
	char str[MAXMODULELABELLENGTH];
	strcpy(str,szModule);
	strcat(str,szService);
	return ServiceExists(str);
}

bool DBGetContactSettingAsString(HANDLE hContact, const char *szModuleName, const char *szSettingName, TCHAR *buff, int bufflen)
{
	DBVARIANT dbv;
	buff[0] = 0;

	if (!szModuleName || !szSettingName)
		return false;

	if (!DBGetContactSetting(hContact, szModuleName, szSettingName, &dbv))
	{
		switch(dbv.type)
		{
		case DBVT_BYTE:
			_itot(dbv.bVal, buff, 10);
			break;
		case DBVT_WORD:
			_ltot(dbv.wVal, buff, 10);
			break;
		case DBVT_DWORD:
			_ltot(dbv.dVal, buff, 10);
			break;
		case DBVT_ASCIIZ:
			if (dbv.pszVal) a2t(dbv.pszVal, buff, bufflen);
			buff[bufflen - 1] = 0;
			break;
		case DBVT_UTF8:
			if (dbv.pszVal) utf2t(dbv.pszVal, buff, bufflen);
			buff[bufflen - 1] = 0;
			break;

		case DBVT_WCHAR:
			if (dbv.pwszVal) wcsncpy(buff, dbv.pwszVal, bufflen);
			buff[bufflen - 1] = 0;
			break;

		}

		DBFreeVariant(&dbv);
	}

	return buff[0] ? true : false;
}

void StripBBCodesInPlace(TCHAR *swzText)
{
	if (!DBGetContactSettingByte(0, MODULE, "StripBBCodes", 1))
		return;

	if (swzText == 0)
		return;

	size_t iRead = 0, iWrite = 0;
	size_t iLen = _tcslen(swzText);

	while(iRead <= iLen)  // copy terminating null too
	{
		while(iRead <= iLen && swzText[iRead] != '[')
		{
			if (swzText[iRead] != swzText[iWrite]) swzText[iWrite] = swzText[iRead];
			iRead++; iWrite++;
		}

		if (iRead > iLen)
			break;

		if (iLen - iRead >= 3 && (_tcsnicmp(swzText + iRead, _T("[b]"), 3) == 0 || _tcsnicmp(swzText + iRead, _T("[i]"), 3) == 0))
			iRead += 3;
		else if (iLen - iRead >= 4 && (_tcsnicmp(swzText + iRead, _T("[/b]"), 4) == 0 || _tcsnicmp(swzText + iRead, _T("[/i]"), 4) == 0))
			iRead += 4;
		else if (iLen - iRead >= 6 && (_tcsnicmp(swzText + iRead, _T("[color"), 6) == 0))
		{
			while(iRead < iLen && swzText[iRead] != ']') iRead++;
			iRead++;// skip the ']'
		}
		else if (iLen - iRead >= 8 && (_tcsnicmp(swzText + iRead, _T("[/color]"), 8) == 0))
			iRead += 8;
		else if (iLen - iRead >= 5 && (_tcsnicmp(swzText + iRead, _T("[size"), 5) == 0))
		{
			while(iRead < iLen && swzText[iRead] != ']') iRead++;
			iRead++;// skip the ']'
		}
		else if (iLen - iRead >= 7 && (_tcsnicmp(swzText + iRead, _T("[/size]"), 7) == 0))
			iRead += 7;
		else
		{
			if (swzText[iRead] != swzText[iWrite]) swzText[iWrite] = swzText[iRead];
			iRead++; iWrite++;
		}
	}
}

DWORD LastMessageTimestamp(HANDLE hContact)
{
	DBEVENTINFO dbei = {0};
	dbei.cbSize = sizeof(dbei);
	HANDLE hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDLAST, (WPARAM)hContact, 0);
	while (hDbEvent)
	{
		dbei.cbBlob = 0;
		CallService(MS_DB_EVENT_GET, (WPARAM)hDbEvent, (LPARAM)&dbei);
		if (dbei.eventType == EVENTTYPE_MESSAGE && !(dbei.flags & DBEF_SENT))
			break;

		hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDPREV, (WPARAM)hDbEvent, 0);
	}

	if (hDbEvent)
		return dbei.timestamp;

	return 0;
}

void FormatTimestamp(DWORD ts, char *szFormat, TCHAR *buff, int bufflen)
{
	TCHAR swzForm[16];
	DBTIMETOSTRINGT dbt = {0};
	dbt.cbDest = bufflen;
	dbt.szDest = buff;
	a2t(szFormat, swzForm, 16);
	dbt.szFormat = swzForm;
	CallService(MS_DB_TIME_TIMESTAMPTOSTRINGT, (WPARAM)ts, (LPARAM)&dbt);
}

bool Uid(HANDLE hContact, char *szProto, TCHAR *buff, int bufflen)
{
	char *tmpProto = NULL;

	if (hContact) tmpProto = GetContactProto(hContact);
	else tmpProto = szProto;

	if (tmpProto)
	{
		char *szUid = ( char* )CallProtoService(tmpProto, PS_GETCAPS, PFLAG_UNIQUEIDSETTING, 0);
		if (szUid && (INT_PTR)szUid != CALLSERVICE_NOTFOUND)
			return DBGetContactSettingAsString(hContact, tmpProto, szUid, buff, bufflen);
	}

	return false;
}

bool UidName(char *szProto, TCHAR *buff, int bufflen)
{
	if (szProto)
	{
		char *szUidName = ( char* )CallProtoService(szProto, PS_GETCAPS, PFLAG_UNIQUEIDTEXT, 0);
		if (szUidName && (INT_PTR)szUidName != CALLSERVICE_NOTFOUND)
		{
			a2t(szUidName, buff, bufflen);
			return true;
		}
	}
	return false;
}

TCHAR *GetLastMessageText(HANDLE hContact)
{
	DBEVENTINFO dbei = {0};
	dbei.cbSize = sizeof(dbei);

	HANDLE hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDLAST, (WPARAM)hContact, 0);
	while (hDbEvent)
	{
		dbei.cbBlob = 0;
		CallService(MS_DB_EVENT_GET, (WPARAM)hDbEvent, (LPARAM)&dbei);
		if (dbei.eventType == EVENTTYPE_MESSAGE && !(dbei.flags & DBEF_SENT))
			break;

		hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDPREV, (WPARAM)hDbEvent, 0);
	}

	if (hDbEvent)
	{
		dbei.pBlob = (BYTE *)alloca(dbei.cbBlob);
		CallService(MS_DB_EVENT_GET, (WPARAM)hDbEvent, (LPARAM)&dbei);

		if (dbei.cbBlob == 0 || dbei.pBlob == 0)
			return 0;

		TCHAR *buff = DbGetEventTextT( &dbei, CP_ACP );
		TCHAR *swzMsg = mir_tstrdup(buff);
		mir_free(buff);

		StripBBCodesInPlace(swzMsg);
		return swzMsg;
	}

	return 0;
}

bool CanRetrieveStatusMsg(HANDLE hContact, char *szProto)
{
	if (opt.bGetNewStatusMsg)
	{
		int iFlags = CallProtoService(szProto, PS_GETCAPS, PFLAGNUM_3, 0);
		WORD wStatus = DBGetContactSettingWord(hContact, szProto, "Status", ID_STATUS_OFFLINE);
		if ((CallProtoService(szProto, PS_GETCAPS, PFLAGNUM_1, 0) & PF1_MODEMSGSEND) && (iFlags & Proto_Status2Flag(wStatus)))
		{
			iFlags = CallProtoService(szProto, PS_GETCAPS, PFLAGNUM_1, 0) & (PF1_VISLIST | PF1_INVISLIST);
			if (opt.bDisableIfInvisible && iFlags)
			{
				int iVisMode = DBGetContactSettingWord(hContact, szProto, "ApparentMode", 0);
				int wProtoStatus = CallProtoService(szProto, PS_GETSTATUS, 0, 0);
				if ((iVisMode == ID_STATUS_OFFLINE) || (wProtoStatus == ID_STATUS_INVISIBLE && iVisMode != ID_STATUS_ONLINE))
					return false;
				else
					return true;
			}
			else
			{
				return true;
			}
		}
		else
		{
			return false;
		}
	}

	return false;
}

TCHAR *GetStatusMessageText(HANDLE hContact)
{
	TCHAR *swzMsg = 0;
	DBVARIANT dbv;

	char *szProto = GetContactProto(hContact);
	if (szProto)
	{
		if (!strcmp(szProto, szMetaModuleName))
		{
			hContact = (HANDLE)CallService(MS_MC_GETMOSTONLINECONTACT, (WPARAM)hContact, 0);
		}
		else
		{
			WORD wStatus = (int)CallProtoService(szProto, PS_GETSTATUS, 0, 0);
			if (wStatus == ID_STATUS_OFFLINE)
				return NULL;

			if (!DBGetContactSettingTString(hContact, MODULE, "TempStatusMsg", &dbv))
			{
				if (_tcslen(dbv.ptszVal) != 0)
					swzMsg = mir_tstrdup(dbv.ptszVal);
				DBFreeVariant(&dbv);
			}
		}

		if (!swzMsg)
		{
			if (CanRetrieveStatusMsg(hContact, szProto))
			{
				if (CallContactService(hContact, PSS_GETAWAYMSG, 0, 0))
					return NULL;
			}

			if (!DBGetContactSettingTString(hContact, "CList", "StatusMsg", &dbv))
			{
				if (dbv.ptszVal && _tcslen(dbv.ptszVal) != 0)
					swzMsg = mir_tstrdup(dbv.ptszVal);
				DBFreeVariant(&dbv);
			}
		}
	}

	if (swzMsg)
		StripBBCodesInPlace(swzMsg);

	return swzMsg;
}

bool GetSysSubstText(HANDLE hContact, TCHAR *swzRawSpec, TCHAR *buff, int bufflen)
{
	if (!_tcscmp(swzRawSpec, _T("uid")))
	{
		return Uid(hContact, 0, buff, bufflen);
	}
	else if (!_tcscmp(swzRawSpec, _T("proto")))
	{
		char *szProto = GetContactProto(hContact);
		if (szProto)
		{
			a2t(szProto, buff, bufflen);
			return true;
		}
	}
	else if (!_tcscmp(swzRawSpec, _T("account")))
	{
		char *szProto = ( char* )CallService(MS_PROTO_GETCONTACTBASEACCOUNT, (WPARAM)hContact, 0);
		if ((INT_PTR)szProto == CALLSERVICE_NOTFOUND)
		{
			return GetSysSubstText(hContact, _T("proto"), buff, bufflen);
		}
		else if (szProto)
		{
			PROTOACCOUNT *pa = ProtoGetAccount(szProto);
			if (pa && pa->tszAccountName)
			{
				_tcsncpy(buff, pa->tszAccountName, bufflen);
				return true;
			}
			else
				return GetSysSubstText(hContact, _T("proto"), buff, bufflen);
		}
	}
	else if (!_tcscmp(swzRawSpec, _T("time")))
	{
		if (tmi.printDateTime && !tmi.printDateTimeByContact(hContact, _T("t"), buff, bufflen, TZF_KNOWNONLY))
			return true;
	}
	else if (!_tcscmp(swzRawSpec, _T("uidname")))
	{
		char *szProto = GetContactProto(hContact);
		return UidName(szProto, buff, bufflen);
	}
	else if (!_tcscmp(swzRawSpec, _T("status_msg")))
	{
		TCHAR *swzMsg = GetStatusMessageText(hContact);
		if (swzMsg)
		{
			_tcsncpy(buff, swzMsg, bufflen);
			mir_free(swzMsg);
			return true;
		}
	}
	else if (!_tcscmp(swzRawSpec, _T("last_msg")))
	{
		TCHAR *swzMsg = GetLastMessageText(hContact);
		if (swzMsg)
		{
			_tcsncpy(buff, swzMsg, bufflen);
			mir_free(swzMsg);
			return true;
		}
	}
	else if (!_tcscmp(swzRawSpec, _T("meta_subname")))
	{
		// get contact list name of active subcontact
		HANDLE hSubContact = (HANDLE)CallService(MS_MC_GETMOSTONLINECONTACT, (WPARAM)hContact, 0);
		if (!hSubContact || (INT_PTR)hSubContact == CALLSERVICE_NOTFOUND) return false;
		TCHAR *swzNick = (TCHAR *) CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)hSubContact, GCDNF_TCHAR);
		if (swzNick) _tcsncpy(buff, swzNick, bufflen);
		return true;
	}
	else if (!_tcscmp(swzRawSpec, _T("meta_subuid")))
	{
		HANDLE hSubContact = (HANDLE)CallService(MS_MC_GETMOSTONLINECONTACT, (WPARAM)hContact, 0);
		if (!hSubContact || (INT_PTR)hSubContact == CALLSERVICE_NOTFOUND) return false;
		return Uid(hSubContact, 0, buff, bufflen);
	}
	else if (!_tcscmp(swzRawSpec, _T("meta_subproto")))
	{
		// get protocol of active subcontact
		HANDLE hSubContact = (HANDLE)CallService(MS_MC_GETMOSTONLINECONTACT, (WPARAM)hContact, 0);
		if (!hSubContact || (INT_PTR)hSubContact == CALLSERVICE_NOTFOUND)
			return false;
		return GetSysSubstText(hSubContact, _T("account"), buff, bufflen);
	}
	else if (!_tcscmp(swzRawSpec, _T("last_msg_time")))
	{
		DWORD ts = LastMessageTimestamp(hContact);
		if (ts == 0) return false;
		FormatTimestamp(ts, "t", buff, bufflen);
		return true;
	}
	else if (!_tcscmp(swzRawSpec, _T("last_msg_date")))
	{
		DWORD ts = LastMessageTimestamp(hContact);
		if (ts == 0) return false;
		FormatTimestamp(ts, "d", buff, bufflen);
		return true;
	}
	else if (!_tcscmp(swzRawSpec, _T("last_msg_reltime")))
	{
		DWORD ts = LastMessageTimestamp(hContact);
		if (ts == 0) return false;
		DWORD t = (DWORD)time(0);
		DWORD diff = (t - ts);
		int d = (diff / 60 / 60 / 24);
		int h = (diff - d * 60 * 60 * 24) / 60 / 60;
		int m = (diff  - d * 60 * 60 * 24 - h * 60 * 60) / 60;
		if (d > 0) mir_sntprintf(buff, bufflen, TranslateT("%dd %dh %dm"), d, h, m);
		else if (h > 0) mir_sntprintf(buff, bufflen, TranslateT("%dh %dm"), h, m);
		else mir_sntprintf(buff, bufflen, TranslateT("%dm"), m);
		return true;
	}
	else if (!_tcscmp(swzRawSpec, _T("msg_count_all")) || !_tcscmp(swzRawSpec, _T("msg_count_out")) || !_tcscmp(swzRawSpec, _T("msg_count_in")))
	{
		DWORD dwCountOut, dwCountIn;
		DWORD dwMetaCountOut = 0, dwMetaCountIn = 0;
		DWORD dwLastTs, dwNewTs, dwRecountTs;
		DWORD dwTime, dwDiff;
		int iNumber = 1;
		HANDLE hTmpContact = hContact;

		char *szProto = GetContactProto(hContact);
		if (szProto && !strcmp(szProto, szMetaModuleName))
		{
			iNumber = CallService(MS_MC_GETNUMCONTACTS, (WPARAM)hContact, 0);
			hTmpContact = (HANDLE)CallService(MS_MC_GETSUBCONTACT, (WPARAM)hContact, 0);
		}

		for (int i = 0; i < iNumber; i++)
		{
			if (i > 0) hTmpContact = (HANDLE)CallService(MS_MC_GETSUBCONTACT, (WPARAM)hContact, i);
			dwRecountTs = DBGetContactSettingDword(hTmpContact, MODULE, "LastCountTS", 0);
			dwTime = (DWORD)time(0);
			dwDiff = (dwTime - dwRecountTs);
			if (dwDiff > (60 * 60 * 24 * 3))
			{
				DBWriteContactSettingDword(hTmpContact, MODULE, "LastCountTS", dwTime);
				dwCountOut = dwCountIn = dwLastTs = 0;
			}
			else
			{
				dwCountOut = DBGetContactSettingDword(hTmpContact, MODULE, "MsgCountOut", 0);
				dwCountIn = DBGetContactSettingDword(hTmpContact, MODULE, "MsgCountIn", 0);
				dwLastTs = DBGetContactSettingDword(hTmpContact, MODULE, "LastMsgTS", 0);
			}

			dwNewTs = dwLastTs;

			HANDLE dbe = (HANDLE)CallService(MS_DB_EVENT_FINDLAST, (WPARAM)hTmpContact, 0);
			while (dbe != NULL)
			{
				DBEVENTINFO dbei = {0};
				dbei.cbSize = sizeof(dbei);
				if (!CallService(MS_DB_EVENT_GET, (WPARAM)dbe, (LPARAM)&dbei))
				{
					if (dbei.eventType == EVENTTYPE_MESSAGE)
					{
						dwNewTs = max(dwNewTs, dbei.timestamp);
						if (dbei.timestamp > dwLastTs)
						{
							if (dbei.flags & DBEF_SENT) dwCountOut++;
							else dwCountIn++;
						}
						else
							break;
					}
				}
				dbe = (HANDLE)CallService(MS_DB_EVENT_FINDPREV, (WPARAM)dbe, 0);
			}

			if (dwNewTs > dwLastTs)
			{
				DBWriteContactSettingDword(hTmpContact, MODULE, "MsgCountOut", dwCountOut);
				DBWriteContactSettingDword(hTmpContact, MODULE, "MsgCountIn", dwCountIn);
				DBWriteContactSettingDword(hTmpContact, MODULE, "LastMsgTS", dwNewTs);
			}

			dwMetaCountOut += dwCountOut;
			dwMetaCountIn += dwCountIn;
		}

		if (!_tcscmp(swzRawSpec, _T("msg_count_out")))
			mir_sntprintf(buff, bufflen, _T("%d"), dwMetaCountOut);
		else if (!_tcscmp(swzRawSpec, _T("msg_count_in")))
			mir_sntprintf(buff, bufflen, _T("%d"), dwMetaCountIn);
		else
			mir_sntprintf(buff, bufflen, _T("%d"), dwMetaCountOut + dwMetaCountIn);
		return true;
	}

	return false;
}

bool GetSubstText(HANDLE hContact, const DISPLAYSUBST &ds, TCHAR *buff, int bufflen)
{
	TranslateFunc *transFunc = 0;
	for (int i = 0; i < iTransFuncsCount; i++)
	{
		if (translations[i].id == (DWORD)ds.iTranslateFuncId)
		{
			transFunc = translations[i].transFunc;
			break;
		}
	}

	if (!transFunc)
		return false;

	switch (ds.type)
	{
		case DVT_DB:
			return transFunc(hContact, ds.szModuleName, ds.szSettingName, buff, bufflen) != 0;
		case DVT_PROTODB:
		{
			char *szProto = GetContactProto(hContact);
			if (szProto)
			{
				if (transFunc(hContact, szProto, ds.szSettingName, buff, bufflen) != 0)
					return true;
				else
					return transFunc(hContact, "UserInfo", ds.szSettingName, buff, bufflen) != 0;
			}
			break;
		}
	}
	return false;
}

bool GetRawSubstText(HANDLE hContact, char *szRawSpec, TCHAR *buff, int bufflen)
{
	size_t lenght = strlen(szRawSpec);
	for (size_t i = 0; i < lenght; i++)
	{
		if (szRawSpec[i] == '/')
		{
			szRawSpec[i] = 0;
			if (strlen(szRawSpec) == 0)
			{
				char *szProto = GetContactProto(hContact);
				if (szProto)
				{
					if (translations[0].transFunc(hContact, szProto, &szRawSpec[i + 1], buff, bufflen) != 0)
						return true;
					else
						return translations[0].transFunc(hContact, "UserInfo", &szRawSpec[i + 1], buff, bufflen) != 0;
				}
				else
				{
					return false;
				}
			}
			else
			{
				return translations[0].transFunc(hContact, szRawSpec, &szRawSpec[i + 1], buff, bufflen) != 0;
			}
		}
	}
	return false;
}

bool ApplySubst(HANDLE hContact, const TCHAR *swzSource, bool parseTipperVarsFirst, TCHAR *swzDest, int iDestLen)
{
	// hack - allow empty strings before passing to variables (note - zero length strings return false after this)
	if (swzDest && swzSource && _tcslen(swzSource) == 0) {
		swzDest[0] = 0;
		return true;
	}

	// pass to variables plugin if available
	TCHAR *swzVarSrc;
	if (parseTipperVarsFirst == false)
		swzVarSrc = variables_parsedup((TCHAR *)swzSource, 0, hContact);
	else
		swzVarSrc = mir_tstrdup(swzSource);

	size_t iSourceLen = _tcslen(swzVarSrc);
	size_t si = 0, di = 0, v = 0;

	TCHAR swzVName[LABEL_LEN];
	TCHAR swzRep[VALUE_LEN], swzAlt[VALUE_LEN];
	while (si < iSourceLen && di < (size_t)iDestLen - 1)
	{
		if (swzVarSrc[si] == _T('%'))
		{
			si++;
			v = 0;
			while (si < iSourceLen && v < LABEL_LEN)
			{
				if (swzVarSrc[si] == _T('%'))
				{
					// two %'s in a row in variable name disabled: e.g. %a%%b% - this is atbbguous]
					//if (si + 1 < iSourceLen && swzVarSrc[si + 1] == _T('%')) {
					//	si++; // skip first %, allow following code to add the second one to the variable name
					//} else
						break;
				}
				swzVName[v] = swzVarSrc[si];
				v++; si++;
			}

			if (v == 0)  // bSubst len is 0 - just a % symbol
			{
				swzDest[di] = _T('%');
			}
			else if (si < iSourceLen) // we found end %
			{
				swzVName[v] = 0;

				bool bAltSubst = false;
				bool bSubst = false;

				// apply only to specific protocols
				TCHAR *p = _tcsrchr(swzVName, _T('^')); // use last '^', so if you want a ^ in swzAlt text, you can just put a '^' on the end
				if (p)
				{
					*p = 0;
					p++;
					if (*p)
					{
						char *cp = GetContactProto(hContact);
						if (cp != NULL)
						{
							PROTOACCOUNT *acc = ProtoGetAccount(cp);
							if (acc != NULL)
							{
								cp = acc->szProtoName;
							}
						}

						if (cp == NULL)
							goto empty;

						bool negate = false;
						if (*p == _T('!'))
						{
							p++;
							if (*p == 0) goto error;
							negate = true;
						}

						char sproto[256];
						bool spec = false;
						int len;

						TCHAR *last = _tcsrchr(p, _T(','));
						if (!last) last = p;

						while (p <= last + 1)
						{
							len = (int)_tcscspn(p, _T(","));
							t2a(p, sproto, len);
							sproto[len] = 0;
							p += len + 1;

							if (_stricmp(cp, sproto) == 0)
							{
								spec = true;
								break;
							}
						}

						if (negate ? spec : !spec)
							goto empty;
					}
				}

				// get alternate text, if bSubst fails
				swzAlt[0] = 0;
				p = _tcschr(swzVName, _T('|')); // use first '|' - so you can use the '|' symbol in swzAlt text
				if (p)
				{
					*p = 0; // clip swzAlt from swzVName
					p++;
					if (_tcslen(p) > 4 && _tcsncmp(p, _T("raw:"), 4) == 0) // raw db substitution
					{
						char raw_spec[LABEL_LEN];
						p += 4;
						t2a(p, raw_spec, LABEL_LEN);
						GetRawSubstText(hContact, raw_spec, swzAlt, VALUE_LEN);
					}
					else if (_tcslen(p) > 4 && _tcsncmp(p, _T("sys:"), 4) == 0) // 'system' substitution
					{
						p += 4;
						GetSysSubstText(hContact, p, swzAlt, VALUE_LEN);
					}
					else
					{
						// see if we can find the bSubst
						DSListNode *ds_node = opt.dsList;
						while(ds_node)
						{
							if (_tcscmp(ds_node->ds.swzName, p) == 0)
								break;

							ds_node = ds_node->next;
						}

						if (ds_node)
						{
							GetSubstText(hContact, ds_node->ds, swzAlt, VALUE_LEN);
						}
						else
						{
							_tcsncpy(swzAlt, p, VALUE_LEN);
							bAltSubst = true;
						}
					}
					swzAlt[VALUE_LEN - 1] = 0;
					if (_tcslen(swzAlt) != 0)
						bAltSubst = true;
				}

				// get bSubst text
				if (v > 4 && _tcsncmp(swzVName, _T("raw:"), 4) == 0) // raw db substitution
				{
					char raw_spec[LABEL_LEN];
					t2a(&swzVName[4], raw_spec, LABEL_LEN);
					bSubst = GetRawSubstText(hContact, raw_spec, swzRep, VALUE_LEN);
				}
				else if (v > 4 && _tcsncmp(swzVName, _T("sys:"), 4) == 0) // 'system' substitution
				{
					bSubst = GetSysSubstText(hContact, &swzVName[4], swzRep, VALUE_LEN);
				}
				else
				{
					// see if we can find the bSubst
					DSListNode *ds_node = opt.dsList;
					while(ds_node)
					{
						if (_tcscmp(ds_node->ds.swzName, swzVName) == 0)
							break;

						ds_node = ds_node->next;
					}

					if (!ds_node)
						goto error; // no such bSubst

					bSubst = GetSubstText(hContact, ds_node->ds, swzRep, VALUE_LEN);
				}

				if (bSubst)
				{
					size_t rep_len = _tcslen(swzRep);
					_tcsncpy(&swzDest[di], swzRep, min(rep_len, iDestLen - di));
					di += rep_len - 1; // -1 because we inc at bottom of loop
				}
				else if (bAltSubst)
				{
					size_t alt_len = _tcslen(swzAlt);
					_tcsncpy(&swzDest[di], swzAlt, min(alt_len, iDestLen - di));
					di += alt_len - 1; // -1 because we inc at bottom of loop
				}
				else
				{
					goto empty; // empty value
				}

			}
			else // no end % - error
			{
				goto error;
			}
		}
		else
		{
			swzDest[di] = swzVarSrc[si];
		}

		si++;
		di++;
	}

	mir_free(swzVarSrc);
	swzDest[di] = 0;

	if (parseTipperVarsFirst)
	{
		swzVarSrc = variables_parsedup((TCHAR *)swzDest, 0, hContact);
		_tcscpy(swzDest, swzVarSrc);
		mir_free(swzVarSrc);
	}


	// check for a 'blank' string - just spaces etc
	for (si = 0; si <= di; si++)
	{
		if (swzDest[si] != 0 && swzDest[si] != _T(' ') && swzDest[si] != _T('\t') && swzDest[si] != _T('\r') && swzDest[si] != _T('\n'))
			return true;
	}

	return false;

empty:
	mir_free(swzVarSrc);
	return false;

error:
	swzDest[0] = _T('*');
	swzDest[1] = 0;
	mir_free(swzVarSrc);
	return true;
}

bool GetLabelText(HANDLE hContact, const DISPLAYITEM &di, TCHAR *buff, int bufflen)
{
	return ApplySubst(hContact, di.swzLabel, false, buff, bufflen);
}

bool GetValueText(HANDLE hContact, const DISPLAYITEM &di, TCHAR *buff, int bufflen)
{
	return ApplySubst(hContact, di.swzValue, di.bParseTipperVarsFirst, buff, bufflen);
}

void TruncateString(TCHAR *swzText)
{
	if (swzText && opt.iLimitCharCount > 3)
	{
		if ((int)_tcslen(swzText) > opt.iLimitCharCount)
		{
			swzText[opt.iLimitCharCount - 3] = 0;
			_tcscat(swzText, _T("..."));
		}
	}
}

TCHAR *GetProtoStatusMessage(char *szProto, WORD wStatus)
{
	if (!szProto || wStatus == ID_STATUS_OFFLINE)
		return NULL;

	// check if protocol supports status message for status
	int flags = CallProtoService(szProto, PS_GETCAPS, PFLAGNUM_3, 0);
	if (!(flags & Proto_Status2Flag(wStatus)))
		return NULL;

	TCHAR *swzText = (TCHAR *)CallProtoService(szProto, PS_GETMYAWAYMSG, 0, SGMA_TCHAR);
	if ((INT_PTR)swzText == CALLSERVICE_NOTFOUND)
	{
		swzText = (TCHAR*)CallService(MS_AWAYMSG_GETSTATUSMSGT, wStatus, 0);
	}

	else if (swzText == NULL)
	{
		// try to use service without SGMA_TCHAR
		char *tmpMsg = (char *)CallProtoService(szProto, PS_GETMYAWAYMSG, 0, 0);
		if (tmpMsg && (INT_PTR)tmpMsg != CALLSERVICE_NOTFOUND)
		{
			swzText = mir_a2t(tmpMsg);
			mir_free(tmpMsg);
		}
	}


	if (swzText && !swzText[0])
	{
		mir_free(swzText);
		swzText = NULL;
	}

	if (swzText && opt.bLimitMsg)
		TruncateString(swzText);

	return swzText;
}

TCHAR *GetProtoExtraStatusTitle(char *szProto)
{
	DBVARIANT dbv;
	TCHAR *swzText = NULL;

	if (!szProto)
		return NULL;

	if (!DBGetContactSettingTString(0, szProto, "XStatusName", &dbv))
	{
		if (_tcslen(dbv.ptszVal) != 0)
			swzText = mir_tstrdup(dbv.ptszVal);
		DBFreeVariant(&dbv);
	}

	if (!swzText)
	{
		TCHAR buff[256];
		if (EmptyXStatusToDefaultName(0, szProto, 0, buff, 256))
			swzText = mir_tstrdup(buff);
	}

	if (opt.bLimitMsg)
		TruncateString(swzText);

	return swzText;
}

TCHAR *GetProtoExtraStatusMessage(char *szProto)
{
	DBVARIANT dbv;
	TCHAR *swzText = NULL;

	if (!szProto)
		return NULL;

	if (!DBGetContactSettingTString(0, szProto, "XStatusMsg", &dbv))
	{
		if (_tcslen(dbv.ptszVal) != 0)
			swzText = mir_tstrdup(dbv.ptszVal);
		DBFreeVariant(&dbv);

		if (ServiceExists(MS_VARS_FORMATSTRING))
		{
			HANDLE hContact = db_find_first();
			char *proto = GetContactProto(hContact);
			while(!proto)
			{
				hContact = db_find_next(hContact);
				if (hContact)
				{
					proto = GetContactProto(hContact);
				}
				else
				{
					hContact = NULL;
					break;
				}
			}

			TCHAR *tszParsed = (TCHAR *)variables_parse(swzText, NULL, hContact);
			if (tszParsed)
				replaceStrT(swzText, tszParsed);
		}
	}

	if (opt.bLimitMsg)
		TruncateString(swzText);

	return swzText;
}

TCHAR *GetListeningTo(char *szProto)
{
	DBVARIANT dbv;
	TCHAR *swzText = NULL;

	if (!szProto)
		return NULL;

	if (!DBGetContactSettingTString(0, szProto, "ListeningTo", &dbv))
	{
		if (_tcslen(dbv.ptszVal) != 0)
			swzText = mir_tstrdup(dbv.ptszVal);
		DBFreeVariant(&dbv);
	}

	if (opt.bLimitMsg)
		TruncateString(swzText);

	return swzText;
}

TCHAR *GetJabberAdvStatusText(char *szProto, const char *szSlot, const char *szValue)
{
	DBVARIANT dbv;
	TCHAR *swzText = NULL;
	char szSetting[128];

	if (!szProto)
		return NULL;

	mir_snprintf(szSetting, SIZEOF(szSetting), "%s/%s/%s", szProto, szSlot, szValue);
	if (!DBGetContactSettingTString(0, "AdvStatus", szSetting, &dbv))
	{
		if (_tcslen(dbv.ptszVal) != 0)
			swzText = mir_tstrdup(dbv.ptszVal);
		DBFreeVariant(&dbv);
	}

	if (opt.bLimitMsg)
		TruncateString(swzText);

	return swzText;
}

HICON GetJabberActivityIcon(HANDLE hContact, char *szProto)
{
	DBVARIANT dbv;
	HICON hIcon = NULL;
	char szSetting[128];

	if (!szProto)
		return NULL;

	mir_snprintf(szSetting, SIZEOF(szSetting), "%s/%s/%s", szProto, "activity", "icon");
	if (!DBGetContactSettingString(hContact, "AdvStatus", szSetting, &dbv))
	{
		hIcon = Skin_GetIcon(dbv.pszVal);
		DBFreeVariant(&dbv);
	}

	return hIcon;
}