jabber code clean up

req code review



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

2 files changed, 1619 insertions, 1610 deletions

diff --git a/protocols/JabberG/src/jabber_search.cpp b/protocols/JabberG/src/jabber_search.cpp
index 78e2feaabb..b63f8e4672 100644
--- a/protocols/JabberG/src/jabber_search.cpp
+++ b/protocols/JabberG/src/jabber_search.cpp
@@ -1,763 +1,769 @@
-/*

-

-Jabber Protocol Plugin for Miranda NG

-

-Copyright (c) 2002-04  Santithorn Bunchua

-Copyright (c) 2005-12  George Hazan

-Copyright (c) 2007     Artem Shpynov

-Copyright (c) 2012-14  Miranda NG project

-

-Module implements a search according to XEP-0055: Jabber Search

-http://www.xmpp.org/extensions/xep-0055.html

-

-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.

-

-*/

-

-#include "jabber.h"

-#include <CommCtrl.h>

-#include "jabber_iq.h"

-#include "jabber_caps.h"

-

-///////////////////////////////////////////////////////////////////////////////

-// Subclassing of IDC_FRAME to implement more user-friendly fields scrolling

-//

-static int JabberSearchFrameProc(HWND hwnd, int msg, WPARAM wParam, LPARAM lParam)

-{

-	if (msg == WM_COMMAND && lParam != 0) {

-		HWND hwndDlg=GetParent(hwnd);

-		JabberSearchData * dat=(JabberSearchData *)GetWindowLongPtr(hwndDlg,GWLP_USERDATA);

-		if (dat && lParam) {

-			int pos=dat->curPos;

-			RECT MineRect;

-			RECT FrameRect;

-			GetWindowRect(GetDlgItem(hwndDlg, IDC_FRAME),&FrameRect);

-			GetWindowRect((HWND)lParam, &MineRect);

-			if (MineRect.top-10 < FrameRect.top) {

-				pos=dat->curPos+(MineRect.top-14-FrameRect.top);

-				if (pos<0) pos=0;

-			}

-			else if (MineRect.bottom > FrameRect.bottom) {

-				pos=dat->curPos+(MineRect.bottom-FrameRect.bottom);

-				if (dat->frameHeight+pos>dat->CurrentHeight)

-					pos=dat->CurrentHeight-dat->frameHeight;

-			}

-			if (pos != dat->curPos) {

-				ScrollWindow(GetDlgItem(hwndDlg, IDC_FRAME), 0, dat->curPos - pos, NULL,  &(dat->frameRect));

-				SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, pos, TRUE);

-				RECT Invalid=dat->frameRect;

-				if (dat->curPos - pos >0)

-					Invalid.bottom=Invalid.top+(dat->curPos - pos);

-				else

-					Invalid.top=Invalid.bottom+(dat->curPos - pos);

-

-				RedrawWindow(GetDlgItem(hwndDlg, IDC_FRAME), NULL, NULL, RDW_ERASE|RDW_INVALIDATE|RDW_UPDATENOW |RDW_ALLCHILDREN);

-				dat->curPos = pos;

-			}

-		}

-		if (HIWORD(wParam)==EN_SETFOCUS) { //Transmit focus set notification to parent window

-			PostMessage(GetParent(hwndDlg),WM_COMMAND, MAKEWPARAM(0,EN_SETFOCUS), (LPARAM)hwndDlg);

-		}

-	}

-

-	if (msg == WM_PAINT) {

-		PAINTSTRUCT ps;

-		HDC hdc=BeginPaint(hwnd, &ps);

-		FillRect(hdc,&(ps.rcPaint),GetSysColorBrush(COLOR_BTNFACE));

-		EndPaint(hwnd, &ps);

-	}

-

-	return DefWindowProc(hwnd,msg,wParam,lParam);

-}

-

-///////////////////////////////////////////////////////////////////////////////

-//  Add Search field to form

-//

-static int JabberSearchAddField(HWND hwndDlg, Data* FieldDat)

-{

-	if (!FieldDat || !FieldDat->Label || !FieldDat->Var)

-		return FALSE;

-

-	HFONT hFont = (HFONT)SendMessage(hwndDlg, WM_GETFONT, 0, 0);

-	HWND hwndParent=GetDlgItem(hwndDlg,IDC_FRAME);

-	LONG_PTR frameExStyle = GetWindowLongPtr(hwndParent, GWL_EXSTYLE);

-	frameExStyle |= WS_EX_CONTROLPARENT;

-	SetWindowLongPtr(hwndParent, GWL_EXSTYLE, frameExStyle);

-	SetWindowLongPtr(GetDlgItem(hwndDlg,IDC_FRAME),GWLP_WNDPROC,(LONG_PTR)JabberSearchFrameProc);

-

-	int CornerX=1;

-	int CornerY=1;

-	RECT rect;

-	GetClientRect(hwndParent,&rect);

-	int width=rect.right-5-CornerX;

-

-	int Order=(FieldDat->bHidden) ? -1 : FieldDat->Order;

-

-	HWND hwndLabel=CreateWindowEx(0,_T("STATIC"),(LPCTSTR)TranslateTS(FieldDat->Label),WS_CHILD, CornerX, CornerY + Order*40, width, 13,hwndParent,NULL,hInst,0);

-	HWND hwndVar=CreateWindowEx(0|WS_EX_CLIENTEDGE,_T("EDIT"),(LPCTSTR)FieldDat->defValue,WS_CHILD|WS_TABSTOP, CornerX+5, CornerY + Order*40+14, width ,20,hwndParent,NULL,hInst,0);

-	SendMessage(hwndLabel, WM_SETFONT, (WPARAM)hFont,0);

-	SendMessage(hwndVar, WM_SETFONT, (WPARAM)hFont,0);

-	if (!FieldDat->bHidden) {

-		ShowWindow(hwndLabel,SW_SHOW);

-		ShowWindow(hwndVar,SW_SHOW);

-		EnableWindow(hwndLabel,!FieldDat->bReadOnly);

-		SendMessage(hwndVar, EM_SETREADONLY, (WPARAM)FieldDat->bReadOnly,0);

-	}

-	//remade list

-	//reallocation

-	JabberSearchData *dat=(JabberSearchData *)GetWindowLongPtr(hwndDlg,GWLP_USERDATA);

-	if (dat) {

-		dat->pJSInf=(JabberSearchFieldsInfo*)realloc(dat->pJSInf, sizeof(JabberSearchFieldsInfo)*(dat->nJSInfCount+1));

-		dat->pJSInf[dat->nJSInfCount].hwndCaptionItem=hwndLabel;

-		dat->pJSInf[dat->nJSInfCount].hwndValueItem=hwndVar;

-		dat->pJSInf[dat->nJSInfCount].szFieldCaption=_tcsdup(FieldDat->Label);

-		dat->pJSInf[dat->nJSInfCount].szFieldName=_tcsdup(FieldDat->Var);

-		dat->nJSInfCount++;

-	}

-	return CornerY + Order*40+14 +20;

-}

-

-////////////////////////////////////////////////////////////////////////////////

-// Available search field request result handler  (XEP-0055. Examples 2, 7)

-

-void CJabberProto::OnIqResultGetSearchFields(HXML iqNode, CJabberIqInfo *pInfo)

-{

-	if (!searchHandleDlg)

-		return;

-

-	LPCTSTR type = xmlGetAttrValue(iqNode, _T("type"));

-	if (type == NULL)

-		return;

-

-	if (!lstrcmp(type, _T("result"))) {

-		HXML queryNode = xmlGetNthChild(iqNode, _T("query"), 1);

-		HXML xNode = xmlGetChildByTag(queryNode, "x", "xmlns", JABBER_FEAT_DATA_FORMS);

-

-		ShowWindow(searchHandleDlg,SW_HIDE);

-		if (xNode) {

-			//1. Form

-			PostMessage(searchHandleDlg, WM_USER+11, (WPARAM)xi.copyNode(xNode), 0);

-			HXML xcNode = xmlGetNthChild(xNode, _T("instructions"), 1);

-			if (xcNode)

-				SetDlgItemText(searchHandleDlg, IDC_INSTRUCTIONS, xmlGetText(xcNode));

-		}

-		else {

-			int Order=0;

-			for (int i=0; ; i++) {

-				HXML chNode = xmlGetChild(queryNode, i);

-				if (!chNode)

-					break;

-

-				if (!_tcsicmp(xmlGetName(chNode), _T("instructions")) && xmlGetText(chNode))

-					SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,TranslateTS(xmlGetText(chNode)));

-				else if (xmlGetName(chNode)) {

-					Data *MyData=(Data*)malloc(sizeof(Data));

-					memset(MyData,0,sizeof(Data));

-

-					MyData->Label = mir_tstrdup(xmlGetName(chNode));

-					MyData->Var = mir_tstrdup(xmlGetName(chNode));

-					MyData->defValue = mir_tstrdup(xmlGetText(chNode));

-					MyData->Order = Order;

-					if (MyData->defValue) MyData->bReadOnly = TRUE;

-					PostMessage(searchHandleDlg,WM_USER+10,FALSE,(LPARAM)MyData);

-					Order++;

-				}

-			}

-		}

-

-		const TCHAR *szFrom = xmlGetAttrValue(iqNode, _T("from"));

-		if (szFrom)

-			SearchAddToRecent(szFrom,searchHandleDlg);

-		PostMessage(searchHandleDlg,WM_USER+10,0,0);

-		ShowWindow(searchHandleDlg,SW_SHOW);

-	}

-	else if (!lstrcmp(type, _T("error"))) {

-		const TCHAR *code=NULL;

-		const TCHAR *description=NULL;

-		TCHAR buff[255];

-		HXML errorNode = xmlGetChild(iqNode, "error");

-		if (errorNode) {

-			code = xmlGetAttrValue(errorNode, _T("code"));

-			description = xmlGetText(errorNode);

-		}

-		mir_sntprintf(buff, SIZEOF(buff), TranslateT("Error %s %s\r\nPlease select other server"), code ? code : _T(""), description ? description : _T(""));

-		SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,buff);

-	}

-	else SetDlgItemText(searchHandleDlg, IDC_INSTRUCTIONS, TranslateT("Error: unknown reply received\r\nPlease select other server"));

-}

-

-//////////////////////////////////////////////////////////////////////////////////////////

-//  Return results to search dialog

-//  The	pmFields is the pointer to map of <field Name, field Label> Not unical but ordered

-//	This can help to made result parser routines more simple

-

-void CJabberProto::SearchReturnResults(HANDLE  id, void * pvUsersInfo, U_TCHAR_MAP * pmAllFields)

-{

-	LIST<TCHAR> ListOfNonEmptyFields(20,(LIST<TCHAR>::FTSortFunc)TCharKeyCmp);

-	LIST<TCHAR> ListOfFields(20);

-	LIST<void>* plUsersInfo = (LIST<void>*)pvUsersInfo;

-	int i, nUsersFound = plUsersInfo->getCount();

-

-	// lets fill the ListOfNonEmptyFields but in users order

-	for (i=0; i < nUsersFound; i++) {

-		U_TCHAR_MAP* pmUserData = (U_TCHAR_MAP*)plUsersInfo->operator [](i);

-		int nUserFields = pmUserData->getCount();

-		for (int j=0; j < nUserFields; j++) {

-			TCHAR *var = pmUserData->getKeyName(j);

-			if (var && ListOfNonEmptyFields.getIndex(var) < 0)

-					ListOfNonEmptyFields.insert(var);

-	}	}

-

-	// now fill the ListOfFields but order is from pmAllFields

-	int nAllCount = pmAllFields->getCount();

-	for (i=0; i < nAllCount; i++) {

-		TCHAR * var=pmAllFields->getUnOrderedKeyName(i);

-		if (var && ListOfNonEmptyFields.getIndex(var) < 0)

-			continue;

-		ListOfFields.insert(var);

-	}

-

-	// now lets transfer field names

-	int nFieldCount = ListOfFields.getCount();

-

-	JABBER_CUSTOMSEARCHRESULTS Results={0};

-	Results.nSize=sizeof(Results);

-	Results.pszFields=(TCHAR**)mir_alloc(sizeof(TCHAR*)*nFieldCount);

-	Results.nFieldCount=nFieldCount;

-

-	/* Sending Columns Titles */

-	for (i=0; i < nFieldCount; i++) {

-		TCHAR *var = ListOfFields[i];

-		if (var)

-			Results.pszFields[i] = pmAllFields->operator [](var);

-	}

-

-	Results.jsr.hdr.cbSize = 0; // sending column names

-	ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SEARCHRESULT, id, (LPARAM) &Results);

-

-	/* Sending Users Data */

-	Results.jsr.hdr.cbSize = sizeof(Results.jsr); // sending user data

-

-	for (i=0; i < nUsersFound; i++) {

-		TCHAR buff[200]; buff[0] = 0;

-	   Results.jsr.jid[0]=0;

-	   U_TCHAR_MAP * pmUserData = (U_TCHAR_MAP *) plUsersInfo->operator [](i);

-	   for (int j=0; j < nFieldCount; j++) {

-		   TCHAR* var = ListOfFields[j];

-		   TCHAR* value = pmUserData->operator [](var);

-		   Results.pszFields[j] = value ? value : (TCHAR *)_T(" ");

-		   if (!_tcsicmp(var,_T("jid")) && value)

-				_tcsncpy_s(Results.jsr.jid, value, _TRUNCATE);

-	   }

-	   {

-		   TCHAR * nickfields[]={ _T("nick"),		_T("nickname"),

-								  _T("fullname"),	_T("name"),

-								  _T("given"),		_T("first"),

-								  _T("jid"), NULL };

-		   TCHAR * nick=NULL;

-		   int k=0;

-		   while (nickfields[k] && !nick)   nick=pmUserData->operator [](nickfields[k++]);

-		   if (_tcsicmp(nick, Results.jsr.jid))

-			   mir_sntprintf(buff, SIZEOF(buff), _T("%s (%s)"), nick, Results.jsr.jid);

-		   else

-				_tcsncpy_s(buff, nick, _TRUNCATE);

-		   Results.jsr.hdr.nick = nick ? buff : NULL;

-		   Results.jsr.hdr.flags = PSR_TCHAR;

-	   }

-	   ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SEARCHRESULT, id, (LPARAM) &Results);

-	   Results.jsr.hdr.nick=NULL;

-

-	}

-	mir_free(Results.pszFields);

-}

-

-void DestroyKey(TCHAR* key)

-{

-	mir_free(key);

-}

-

-TCHAR* CopyKey(TCHAR* key)

-{

-	return mir_tstrdup(key);

-}

-

-////////////////////////////////////////////////////////////////////////////////

-// Search field request result handler  (XEP-0055. Examples 3, 8)

-

-void CJabberProto::OnIqResultAdvancedSearch(HXML iqNode, CJabberIqInfo *pInfo)

-{

-	const TCHAR *type;

-	int    id;

-

-	U_TCHAR_MAP mColumnsNames(10);

-	LIST<void>  SearchResults(2);

-

-	if (((id = JabberGetPacketID(iqNode)) == -1) || ((type = xmlGetAttrValue(iqNode, _T("type"))) == NULL)) {

-		ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)id, 0);

-		return;

-	}

-

-	if (!lstrcmp(type, _T("result"))) {

-		HXML queryNode = xmlGetNthChild(iqNode, _T("query"), 1);

-		HXML xNode = xmlGetChildByTag(queryNode, "x", "xmlns", JABBER_FEAT_DATA_FORMS);

-		if (xNode) {

-			//1. Form search results info

-			HXML reportNode = xmlGetNthChild(xNode, _T("reported"), 1);

-			if (reportNode) {

-				int i = 1;

-				while (HXML fieldNode = xmlGetNthChild(reportNode, _T("field"), i++)) {

-					TCHAR *var = (TCHAR*)xmlGetAttrValue(fieldNode, _T("var"));

-					if (var) {

-						TCHAR *Label = (TCHAR*)xmlGetAttrValue(fieldNode, _T("label"));

-						mColumnsNames.insert(var, (Label != NULL) ? Label : var);

-			}	}	}

-

-			int i=1;

-			HXML itemNode;

-			while (itemNode = xmlGetNthChild(xNode, _T("item"), i++)) {

-				U_TCHAR_MAP *pUserColumn = new U_TCHAR_MAP(10);

-				int j = 1;

-				while (HXML fieldNode = xmlGetNthChild(itemNode, _T("field"), j++)) {

-					if (TCHAR* var = (TCHAR*)xmlGetAttrValue(fieldNode, _T("var"))) {

-						if (TCHAR* Text = (TCHAR*)xmlGetText(xmlGetChild(fieldNode, _T("value")))) {

-							if (!mColumnsNames[var])

-								mColumnsNames.insert(var,var);

-							pUserColumn->insert(var,Text);

-				}	}	}

-

-				SearchResults.insert((void*)pUserColumn);

-			}

-		}

-		else {

-			//2. Field list search results info

-			int i=1;

-			while (HXML itemNode = xmlGetNthChild(queryNode, _T("item"), i++)) {

-				U_TCHAR_MAP *pUserColumn=new U_TCHAR_MAP(10);

-

-				TCHAR *jid = (TCHAR*)xmlGetAttrValue(itemNode, _T("jid"));

-				TCHAR *keyReturned;

-				mColumnsNames.insertCopyKey(_T("jid"),_T("jid"),&keyReturned, CopyKey, DestroyKey);

-				mColumnsNames.insert(_T("jid"), keyReturned);

-				pUserColumn->insertCopyKey(_T("jid"), jid, NULL, CopyKey, DestroyKey);

-

-				for (int j=0; ; j++) {

-					HXML child = xmlGetChild(itemNode, j);

-					if (!child)

-						break;

-

-					const TCHAR *szColumnName = xmlGetName(child);

-					if (szColumnName) {

-						LPCTSTR ptszChild = xmlGetText(child);

-						if (ptszChild && *ptszChild) {

-							mColumnsNames.insertCopyKey((TCHAR*)szColumnName,_T(""),&keyReturned, CopyKey, DestroyKey);

-							mColumnsNames.insert((TCHAR*)szColumnName,keyReturned);

-							pUserColumn->insertCopyKey((TCHAR*)szColumnName, (TCHAR*)ptszChild, NULL, CopyKey, DestroyKey);

-				}	}	}

-

-				SearchResults.insert((void*)pUserColumn);

-		}	}

-	}

-	else if (!lstrcmp(type, _T("error"))) {

-		const TCHAR *code = NULL;

-		const TCHAR *description = NULL;

-		TCHAR buff[255];

-		HXML errorNode = xmlGetChild(iqNode , "error");

-		if (errorNode) {

-			code = xmlGetAttrValue(errorNode, _T("code"));

-			description = xmlGetText(errorNode);

-		}

-

-		mir_sntprintf(buff, SIZEOF(buff), TranslateT("Error %s %s\r\nTry to specify more detailed"), code ? code : _T(""), description ? description : _T(""));

-		ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)id, 0);

-		if (searchHandleDlg)

-			SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,buff);

-		else

-			MessageBox(NULL, buff, TranslateT("Search error"), MB_OK|MB_ICONSTOP);

-		return;

-	}

-

-	SearchReturnResults((HANDLE)id, (void*)&SearchResults, (U_TCHAR_MAP *)&mColumnsNames);

-

-	for (int i=0; i < SearchResults.getCount(); i++)

-		delete ((U_TCHAR_MAP *)SearchResults[i]);

-

-	//send success to finish searching

-	ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)id, 0);

-}

-

-static BOOL CALLBACK DeleteChildWindowsProc(HWND hwnd, LPARAM)

-{

-	DestroyWindow(hwnd);

-	return TRUE;

-}

-

-static void JabberSearchFreeData(HWND hwndDlg, JabberSearchData * dat)

-{

-	//lock

-	if (!dat->fSearchRequestIsXForm && dat->nJSInfCount && dat->pJSInf) {

-		for (int i=0; i < dat->nJSInfCount; i++) {

-			if (dat->pJSInf[i].hwndValueItem)

-				DestroyWindow(dat->pJSInf[i].hwndValueItem);

-			if (dat->pJSInf[i].hwndCaptionItem)

-				DestroyWindow(dat->pJSInf[i].hwndCaptionItem);

-			if (dat->pJSInf[i].szFieldCaption)

-				free(dat->pJSInf[i].szFieldCaption);

-			if (dat->pJSInf[i].szFieldName)

-				free(dat->pJSInf[i].szFieldName);

-		}

-		free(dat->pJSInf);

-		dat->pJSInf=NULL;

-	}

-	else EnumChildWindows(GetDlgItem(hwndDlg,IDC_FRAME),DeleteChildWindowsProc,0);

-

-	if (dat->xNode)

-		xi.destroyNode(dat->xNode);

-

-	SendMessage(GetDlgItem(hwndDlg,IDC_FRAME), WM_SETFONT, (WPARAM)SendMessage(hwndDlg, WM_GETFONT, 0, 0),0);

-	dat->nJSInfCount=0;

-	ShowWindow(GetDlgItem(hwndDlg,IDC_VSCROLL),SW_HIDE);

-	SetDlgItemText(hwndDlg,IDC_INSTRUCTIONS,TranslateT("Select/type search service URL above and press <Go>"));

-	//unlock

-}

-

-static void JabberSearchRefreshFrameScroll(HWND hwndDlg, JabberSearchData * dat)

-{

-	HWND hFrame = GetDlgItem(hwndDlg, IDC_FRAME);

-	HWND hwndScroll = GetDlgItem(hwndDlg, IDC_VSCROLL);

-	RECT rc;

-	GetClientRect(hFrame, &rc);

-	GetClientRect(hFrame, &dat->frameRect);

-	dat->frameHeight = rc.bottom-rc.top;

-	if (dat->frameHeight < dat->CurrentHeight) {

-		ShowWindow(hwndScroll, SW_SHOW);

-		EnableWindow(hwndScroll, TRUE);

-	}

-	else ShowWindow(hwndScroll, SW_HIDE);

-

-	SetScrollRange(hwndScroll, SB_CTL, 0, dat->CurrentHeight-dat->frameHeight, FALSE);

-}

-

-int CJabberProto::SearchRenewFields(HWND hwndDlg, JabberSearchData * dat)

-{

-	TCHAR szServerName[100];

-	EnableWindow(GetDlgItem(hwndDlg, IDC_GO),FALSE);

-	GetDlgItemText(hwndDlg,IDC_SERVER,szServerName,SIZEOF(szServerName));

-	dat->CurrentHeight = 0;

-	dat->curPos = 0;

-	SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, 0, FALSE);

-

-	JabberSearchFreeData(hwndDlg, dat);

-	JabberSearchRefreshFrameScroll(hwndDlg, dat);

-

-	SetDlgItemText(hwndDlg,IDC_INSTRUCTIONS,m_bJabberOnline ? TranslateT("Please wait...\r\nConnecting search server...") : TranslateT("You have to be connected to server"));

-

-	if (!m_bJabberOnline)

-		return 0;

-

-	searchHandleDlg = hwndDlg;

-

-	CJabberIqInfo *pInfo = AddIQ(&CJabberProto::OnIqResultGetSearchFields, JABBER_IQ_TYPE_GET, szServerName);

-	m_ThreadInfo->send( XmlNodeIq(pInfo) << XQUERY(_T("jabber:iq:search")));

-	return pInfo->GetIqId();

-}

-

-static void JabberSearchAddUrlToRecentCombo(HWND hwndDlg, const TCHAR *szAddr)

-{

-	int lResult = SendMessage(GetDlgItem(hwndDlg,IDC_SERVER), (UINT) CB_FINDSTRING, 0, (LPARAM)szAddr);

-	if (lResult == -1)

-		SendDlgItemMessage(hwndDlg, IDC_SERVER, CB_ADDSTRING, 0, (LPARAM)szAddr);

-}

-

-void CJabberProto::SearchDeleteFromRecent(const TCHAR *szAddr, BOOL deleteLastFromDB)

-{

-	//search in recent

-	for (int i=0; i<10; i++) {

-		char key[30];

-		mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", i);

-		ptrT szValue( getTStringA(key));

-		if (szValue == NULL || _tcsicmp(szAddr, szValue))

-			continue;

-

-		for (int j=i; j < 10; j++) {

-			mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j + 1);

-			szValue = getTStringA(key);

-			if (szValue != NULL) {

-				mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j);

-				setTString(NULL, key, szValue);

-			}

-			else {

-				if (deleteLastFromDB) {

-					mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j);

-					delSetting(NULL,key);

-				}

-				break;

-		}	}

-		break;

-}	}

-

-void CJabberProto::SearchAddToRecent(const TCHAR *szAddr, HWND hwndDialog)

-{

-	char key[30];

-	SearchDeleteFromRecent(szAddr);

-

-	for (int j=9; j > 0; j--) {

-		mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j - 1);

-		ptrT szValue( getTStringA(key));

-		if (szValue != NULL) {

-			mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j);

-			setTString(NULL, key, szValue);

-	}	}

-

-	mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", 0);

-	setTString(key, szAddr);

-	if (hwndDialog)

-		JabberSearchAddUrlToRecentCombo(hwndDialog, szAddr);

-}

-

-static INT_PTR CALLBACK JabberSearchAdvancedDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)

-{

-	JabberSearchData* dat = (JabberSearchData*)GetWindowLongPtr(hwndDlg, GWLP_USERDATA);

-	switch (msg) {

-	case WM_INITDIALOG:

-		TranslateDialogDefault(hwndDlg);

-		{

-			dat = (JabberSearchData *)mir_calloc(sizeof(JabberSearchData));

-			dat->ppro = (CJabberProto*)lParam;

-			SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR)dat);

-

-			/* Server Combo box */

-			ptrA jud(dat->ppro->getStringA("Jud"));

-			char *szServerName = (jud == NULL) ? "users.jabber.org": jud;

-			SetDlgItemTextA(hwndDlg,IDC_SERVER,szServerName);

-			SendDlgItemMessageA(hwndDlg,IDC_SERVER,CB_ADDSTRING,0,(LPARAM)szServerName);

-			//TO DO: Add Transports here

-			int i, transpCount = dat->ppro->m_lstTransports.getCount();

-			for (i=0; i < transpCount; i++) {

-				TCHAR *szTransp = dat->ppro->m_lstTransports[i];

-				if (szTransp)

-					JabberSearchAddUrlToRecentCombo(hwndDlg, szTransp);

-			}

-

-			for (i=0; i < 10; i++) {

-				char key[30];

-				mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", i);

-				ptrT szValue( dat->ppro->getTStringA(key));

-				if (szValue != NULL)

-					JabberSearchAddUrlToRecentCombo(hwndDlg, szValue);

-			}

-

-			//TO DO: Add 4 recently used

-			dat->lastRequestIq = dat->ppro->SearchRenewFields(hwndDlg,dat);

-		}

-		return TRUE;

-

-	case WM_COMMAND:

-		if (LOWORD(wParam) == IDC_SERVER) {

-			switch (HIWORD(wParam)) {

-			case CBN_SETFOCUS:

-				PostMessage(GetParent(hwndDlg),WM_COMMAND, MAKEWPARAM(0,EN_SETFOCUS), (LPARAM)hwndDlg);

-				return TRUE;

-

-			case CBN_EDITCHANGE:

-				EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);

-				return TRUE;

-

-			case CBN_EDITUPDATE:

-				JabberSearchFreeData(hwndDlg, dat);

-				EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);

-				return TRUE;

-

-			case CBN_SELENDOK:

-				EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);

-				PostMessage(hwndDlg,WM_COMMAND,MAKEWPARAM(IDC_GO,BN_CLICKED),0);

-				return TRUE;

-			}

-		}

-		else if (LOWORD(wParam) == IDC_GO && HIWORD(wParam) == BN_CLICKED) {

-			dat->ppro->SearchRenewFields(hwndDlg, dat);

-			return TRUE;

-		}

-		break;

-

-	case WM_SIZE:

-		{

-			//Resize IDC_FRAME to take full size

-			RECT rcForm;

-			GetWindowRect(hwndDlg,  &rcForm);

-			RECT rcFrame;

-			GetWindowRect(GetDlgItem(hwndDlg, IDC_FRAME), &rcFrame);

-			rcFrame.bottom = rcForm.bottom;

-			SetWindowPos(GetDlgItem(hwndDlg,IDC_FRAME),NULL,0,0,rcFrame.right-rcFrame.left,rcFrame.bottom-rcFrame.top,SWP_NOZORDER|SWP_NOMOVE);

-			GetWindowRect(GetDlgItem(hwndDlg,IDC_VSCROLL), &rcForm);

-			SetWindowPos(GetDlgItem(hwndDlg,IDC_VSCROLL),NULL,0,0,rcForm.right-rcForm.left,rcFrame.bottom-rcFrame.top,SWP_NOZORDER|SWP_NOMOVE);

-			JabberSearchRefreshFrameScroll(hwndDlg, dat);

-		}

-		return TRUE;

-

-	case WM_USER+11:

-		{

-			dat->fSearchRequestIsXForm=TRUE;

-			dat->xNode = (HXML)wParam;

-			JabberFormCreateUI(GetDlgItem(hwndDlg, IDC_FRAME), dat->xNode, &dat->CurrentHeight,TRUE);

-			ShowWindow(GetDlgItem(hwndDlg, IDC_FRAME), SW_SHOW);

-			dat->nJSInfCount=1;

-			return TRUE;

-		}

-	case WM_USER+10:

-		{

-			Data* MyDat = (Data*)lParam;

-			if (MyDat) {

-				dat->fSearchRequestIsXForm = (BOOL)wParam;

-				dat->CurrentHeight = JabberSearchAddField(hwndDlg,MyDat);

-				mir_free(MyDat->Label);

-				mir_free(MyDat->Var);

-				mir_free(MyDat->defValue);

-				free(MyDat);

-			}

-			else

-			{

-				JabberSearchRefreshFrameScroll(hwndDlg,dat);

-				ScrollWindow(GetDlgItem(hwndDlg, IDC_FRAME), 0, dat->curPos - 0, NULL,  &(dat->frameRect));

-				SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, 0, FALSE);

-				dat->curPos=0;

-			}

-			return TRUE;

-		}

-	case WM_MOUSEWHEEL:

-		{

-			int zDelta = GET_WHEEL_DELTA_WPARAM(wParam);

-			if (zDelta) {

-				int nScrollLines=0;

-				SystemParametersInfo(SPI_GETWHEELSCROLLLINES,0,(void*)&nScrollLines,0);

-				for (int i=0; i<(nScrollLines+1)/2; i++)

-					SendMessage(hwndDlg,WM_VSCROLL, (zDelta<0)?SB_LINEDOWN:SB_LINEUP,0);

-		}	}

-		return TRUE;

-

-	case WM_VSCROLL:

-		{

-			int pos;

-			if (dat != NULL) {

-				pos = dat->curPos;

-				switch (LOWORD(wParam)) {

-				case SB_LINEDOWN:

-					pos += 10;

-					break;

-				case SB_LINEUP:

-					pos -= 10;

-					break;

-				case SB_PAGEDOWN:

-					pos += (dat->CurrentHeight - 10);

-					break;

-				case SB_PAGEUP:

-					pos -= (dat->CurrentHeight - 10);

-					break;

-				case SB_THUMBTRACK:

-					pos = HIWORD(wParam);

-					break;

-				}

-				if (pos > (dat->CurrentHeight - dat->frameHeight))

-					pos = dat->CurrentHeight - dat->frameHeight;

-				if (pos < 0)

-					pos = 0;

-				if (dat->curPos != pos) {

-					ScrollWindow(GetDlgItem(hwndDlg, IDC_FRAME), 0, dat->curPos - pos, NULL ,  &(dat->frameRect));

-					SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, pos, TRUE);

-					RECT Invalid=dat->frameRect;

-					if (dat->curPos - pos >0)

-						Invalid.bottom=Invalid.top+(dat->curPos - pos);

-					else

-						Invalid.top=Invalid.bottom+(dat->curPos - pos);

-

-					RedrawWindow(GetDlgItem(hwndDlg, IDC_FRAME), NULL, NULL, RDW_UPDATENOW |RDW_ALLCHILDREN);

-					dat->curPos = pos;

-		}	}	}

-		return TRUE;

-

-	case WM_DESTROY:

-		JabberSearchFreeData(hwndDlg, dat);

-		JabberFormDestroyUI(GetDlgItem(hwndDlg, IDC_FRAME));

-		mir_free(dat);

-		SetWindowLongPtr(hwndDlg, GWLP_USERDATA, 0);

-		return TRUE;

-	}

-	return FALSE;

-}

-

-HWND __cdecl CJabberProto::CreateExtendedSearchUI(HWND parent)

-{

-	if (parent && hInst) {

-		ptrT szServer( getTStringA("LoginServer"));

-		if (szServer == NULL || _tcsicmp(szServer, _T("S.ms")))

-			return CreateDialogParam(hInst, MAKEINTRESOURCE(IDD_SEARCHUSER), parent, JabberSearchAdvancedDlgProc, (LPARAM)this);

-	}

-

-	return 0; // Failure

-}

-

-//////////////////////////////////////////////////////////////////////////

-// The function formats request to server

-

-HWND __cdecl CJabberProto::SearchAdvanced(HWND hwndDlg)

-{

-	if (!m_bJabberOnline || !hwndDlg)

-		return 0;	//error

-

-	JabberSearchData * dat=(JabberSearchData *)GetWindowLongPtr(hwndDlg,GWLP_USERDATA);

-	if (!dat)

-		return 0; //error

-

-	// check if server connected (at least one field exists)

-	if (dat->nJSInfCount == 0)

-		return 0;

-

-	// formating request

-	BOOL fRequestNotEmpty=FALSE;

-

-	// get server name

-	TCHAR szServerName[100];

-	GetDlgItemText(hwndDlg, IDC_SERVER, szServerName, SIZEOF(szServerName));

-

-	// formating query

-	CJabberIqInfo *pInfo = AddIQ(&CJabberProto::OnIqResultAdvancedSearch, JABBER_IQ_TYPE_SET, szServerName);

-	XmlNodeIq iq(pInfo);

-	HXML query = iq << XQUERY(_T("jabber:iq:search"));

-

-	if (m_tszSelectedLang)

-		iq << XATTR(_T("xml:lang"), m_tszSelectedLang); // i'm sure :)

-

-	// next can be 2 cases:

-	// Forms: XEP-0055 Example 7

-	if (dat->fSearchRequestIsXForm) {

-		fRequestNotEmpty=TRUE;

-		HXML n = JabberFormGetData(GetDlgItem(hwndDlg, IDC_FRAME), dat->xNode);

-		xmlAddChild(query, n);

-		xi.destroyNode(n);

-    }

-	else { //and Simple fields: XEP-0055 Example 3

-		for (int i=0; i<dat->nJSInfCount; i++) {

-			TCHAR szFieldValue[100];

-			GetWindowText(dat->pJSInf[i].hwndValueItem, szFieldValue, SIZEOF(szFieldValue));

-			if (szFieldValue[0] != 0) {

-				xmlAddChild(query, dat->pJSInf[i].szFieldName, szFieldValue);

-				fRequestNotEmpty=TRUE;

-	}	}	}

-

-	if (fRequestNotEmpty) {

-		m_ThreadInfo->send(iq);

-		return (HWND)pInfo->GetIqId();

-	}

-	return 0;

-}

+/*
+
+Jabber Protocol Plugin for Miranda NG
+
+Copyright (c) 2002-04  Santithorn Bunchua
+Copyright (c) 2005-12  George Hazan
+Copyright (c) 2007     Artem Shpynov
+Copyright (c) 2012-14  Miranda NG project
+
+Module implements a search according to XEP-0055: Jabber Search
+http://www.xmpp.org/extensions/xep-0055.html
+
+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.
+
+*/
+
+#include "jabber.h"
+#include <CommCtrl.h>
+#include "jabber_iq.h"
+#include "jabber_caps.h"
+
+///////////////////////////////////////////////////////////////////////////////
+// Subclassing of IDC_FRAME to implement more user-friendly fields scrolling
+//
+static int JabberSearchFrameProc(HWND hwnd, int msg, WPARAM wParam, LPARAM lParam)
+{
+	if (msg == WM_COMMAND && lParam != 0) {
+		HWND hwndDlg=GetParent(hwnd);
+		JabberSearchData * dat=(JabberSearchData *)GetWindowLongPtr(hwndDlg,GWLP_USERDATA);
+		if (dat && lParam) {
+			int pos=dat->curPos;
+			RECT MineRect;
+			RECT FrameRect;
+			GetWindowRect(GetDlgItem(hwndDlg, IDC_FRAME),&FrameRect);
+			GetWindowRect((HWND)lParam, &MineRect);
+			if (MineRect.top-10 < FrameRect.top) {
+				pos=dat->curPos+(MineRect.top-14-FrameRect.top);
+				if (pos<0) pos=0;
+			}
+			else if (MineRect.bottom > FrameRect.bottom) {
+				pos=dat->curPos+(MineRect.bottom-FrameRect.bottom);
+				if (dat->frameHeight+pos>dat->CurrentHeight)
+					pos=dat->CurrentHeight-dat->frameHeight;
+			}
+			if (pos != dat->curPos) {
+				ScrollWindow(GetDlgItem(hwndDlg, IDC_FRAME), 0, dat->curPos - pos, NULL,  &(dat->frameRect));
+				SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, pos, TRUE);
+				RECT Invalid=dat->frameRect;
+				if (dat->curPos - pos >0)
+					Invalid.bottom=Invalid.top+(dat->curPos - pos);
+				else
+					Invalid.top=Invalid.bottom+(dat->curPos - pos);
+
+				RedrawWindow(GetDlgItem(hwndDlg, IDC_FRAME), NULL, NULL, RDW_ERASE|RDW_INVALIDATE|RDW_UPDATENOW |RDW_ALLCHILDREN);
+				dat->curPos = pos;
+			}
+		}
+		if (HIWORD(wParam)==EN_SETFOCUS) { //Transmit focus set notification to parent window
+			PostMessage(GetParent(hwndDlg),WM_COMMAND, MAKEWPARAM(0,EN_SETFOCUS), (LPARAM)hwndDlg);
+		}
+	}
+
+	if (msg == WM_PAINT) {
+		PAINTSTRUCT ps;
+		HDC hdc=BeginPaint(hwnd, &ps);
+		FillRect(hdc,&(ps.rcPaint),GetSysColorBrush(COLOR_BTNFACE));
+		EndPaint(hwnd, &ps);
+	}
+
+	return DefWindowProc(hwnd,msg,wParam,lParam);
+}
+
+///////////////////////////////////////////////////////////////////////////////
+//  Add Search field to form
+//
+static int JabberSearchAddField(HWND hwndDlg, Data* FieldDat)
+{
+	if (!FieldDat || !FieldDat->Label || !FieldDat->Var)
+		return FALSE;
+
+	HFONT hFont = (HFONT)SendMessage(hwndDlg, WM_GETFONT, 0, 0);
+	HWND hwndParent=GetDlgItem(hwndDlg,IDC_FRAME);
+	LONG_PTR frameExStyle = GetWindowLongPtr(hwndParent, GWL_EXSTYLE);
+	frameExStyle |= WS_EX_CONTROLPARENT;
+	SetWindowLongPtr(hwndParent, GWL_EXSTYLE, frameExStyle);
+	SetWindowLongPtr(GetDlgItem(hwndDlg,IDC_FRAME),GWLP_WNDPROC,(LONG_PTR)JabberSearchFrameProc);
+
+	int CornerX=1;
+	int CornerY=1;
+	RECT rect;
+	GetClientRect(hwndParent,&rect);
+	int width=rect.right-5-CornerX;
+
+	int Order=(FieldDat->bHidden) ? -1 : FieldDat->Order;
+
+	HWND hwndLabel=CreateWindowEx(0,_T("STATIC"),(LPCTSTR)TranslateTS(FieldDat->Label),WS_CHILD, CornerX, CornerY + Order*40, width, 13,hwndParent,NULL,hInst,0);
+	HWND hwndVar=CreateWindowEx(0|WS_EX_CLIENTEDGE,_T("EDIT"),(LPCTSTR)FieldDat->defValue,WS_CHILD|WS_TABSTOP, CornerX+5, CornerY + Order*40+14, width ,20,hwndParent,NULL,hInst,0);
+	SendMessage(hwndLabel, WM_SETFONT, (WPARAM)hFont,0);
+	SendMessage(hwndVar, WM_SETFONT, (WPARAM)hFont,0);
+	if (!FieldDat->bHidden) {
+		ShowWindow(hwndLabel,SW_SHOW);
+		ShowWindow(hwndVar,SW_SHOW);
+		EnableWindow(hwndLabel,!FieldDat->bReadOnly);
+		SendMessage(hwndVar, EM_SETREADONLY, (WPARAM)FieldDat->bReadOnly,0);
+	}
+	//remade list
+	//reallocation
+	JabberSearchData *dat=(JabberSearchData *)GetWindowLongPtr(hwndDlg,GWLP_USERDATA);
+	if (dat) {
+		dat->pJSInf=(JabberSearchFieldsInfo*)realloc(dat->pJSInf, sizeof(JabberSearchFieldsInfo)*(dat->nJSInfCount+1));
+		dat->pJSInf[dat->nJSInfCount].hwndCaptionItem=hwndLabel;
+		dat->pJSInf[dat->nJSInfCount].hwndValueItem=hwndVar;
+		dat->pJSInf[dat->nJSInfCount].szFieldCaption=_tcsdup(FieldDat->Label);
+		dat->pJSInf[dat->nJSInfCount].szFieldName=_tcsdup(FieldDat->Var);
+		dat->nJSInfCount++;
+	}
+	return CornerY + Order*40+14 +20;
+}
+
+////////////////////////////////////////////////////////////////////////////////
+// Available search field request result handler  (XEP-0055. Examples 2, 7)
+
+void CJabberProto::OnIqResultGetSearchFields(HXML iqNode, CJabberIqInfo *pInfo)
+{
+	if (!searchHandleDlg)
+		return;
+
+	LPCTSTR type = xmlGetAttrValue(iqNode, _T("type"));
+	if (type == NULL)
+		return;
+
+	if (!lstrcmp(type, _T("result"))) {
+		HXML queryNode = xmlGetNthChild(iqNode, _T("query"), 1);
+		HXML xNode = xmlGetChildByTag(queryNode, "x", "xmlns", JABBER_FEAT_DATA_FORMS);
+
+		ShowWindow(searchHandleDlg,SW_HIDE);
+		if (xNode) {
+			//1. Form
+			PostMessage(searchHandleDlg, WM_USER+11, (WPARAM)xi.copyNode(xNode), 0);
+			HXML xcNode = xmlGetNthChild(xNode, _T("instructions"), 1);
+			if (xcNode)
+				SetDlgItemText(searchHandleDlg, IDC_INSTRUCTIONS, xmlGetText(xcNode));
+		}
+		else {
+			int Order=0;
+			for (int i=0; ; i++) {
+				HXML chNode = xmlGetChild(queryNode, i);
+				if (!chNode)
+					break;
+
+				if (!_tcsicmp(xmlGetName(chNode), _T("instructions")) && xmlGetText(chNode))
+					SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,TranslateTS(xmlGetText(chNode)));
+				else if (xmlGetName(chNode)) {
+					Data *MyData=(Data*)malloc(sizeof(Data));
+					memset(MyData,0,sizeof(Data));
+
+					MyData->Label = mir_tstrdup(xmlGetName(chNode));
+					MyData->Var = mir_tstrdup(xmlGetName(chNode));
+					MyData->defValue = mir_tstrdup(xmlGetText(chNode));
+					MyData->Order = Order;
+					if (MyData->defValue) MyData->bReadOnly = TRUE;
+					PostMessage(searchHandleDlg,WM_USER+10,FALSE,(LPARAM)MyData);
+					Order++;
+				}
+			}
+		}
+
+		const TCHAR *szFrom = xmlGetAttrValue(iqNode, _T("from"));
+		if (szFrom)
+			SearchAddToRecent(szFrom,searchHandleDlg);
+		PostMessage(searchHandleDlg,WM_USER+10,0,0);
+		ShowWindow(searchHandleDlg,SW_SHOW);
+	}
+	else if (!lstrcmp(type, _T("error"))) {
+		const TCHAR *code=NULL;
+		const TCHAR *description=NULL;
+		TCHAR buff[255];
+		HXML errorNode = xmlGetChild(iqNode, "error");
+		if (errorNode) {
+			code = xmlGetAttrValue(errorNode, _T("code"));
+			description = xmlGetText(errorNode);
+		}
+		mir_sntprintf(buff, SIZEOF(buff), TranslateT("Error %s %s\r\nPlease select other server"), code ? code : _T(""), description ? description : _T(""));
+		SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,buff);
+	}
+	else SetDlgItemText(searchHandleDlg, IDC_INSTRUCTIONS, TranslateT("Error: unknown reply received\r\nPlease select other server"));
+}
+
+//////////////////////////////////////////////////////////////////////////////////////////
+//  Return results to search dialog
+//  The	pmFields is the pointer to map of <field Name, field Label> Not unical but ordered
+//	This can help to made result parser routines more simple
+
+void CJabberProto::SearchReturnResults(HANDLE  id, void * pvUsersInfo, U_TCHAR_MAP * pmAllFields)
+{
+	LIST<TCHAR> ListOfNonEmptyFields(20,(LIST<TCHAR>::FTSortFunc)TCharKeyCmp);
+	LIST<TCHAR> ListOfFields(20);
+	LIST<void>* plUsersInfo = (LIST<void>*)pvUsersInfo;
+	int i, nUsersFound = plUsersInfo->getCount();
+
+	// lets fill the ListOfNonEmptyFields but in users order
+	for (i=0; i < nUsersFound; i++) {
+		U_TCHAR_MAP* pmUserData = (U_TCHAR_MAP*)plUsersInfo->operator [](i);
+		int nUserFields = pmUserData->getCount();
+		for (int j=0; j < nUserFields; j++) {
+			TCHAR *var = pmUserData->getKeyName(j);
+			if (var && ListOfNonEmptyFields.getIndex(var) < 0)
+					ListOfNonEmptyFields.insert(var);
+	}	}
+
+	// now fill the ListOfFields but order is from pmAllFields
+	int nAllCount = pmAllFields->getCount();
+	for (i=0; i < nAllCount; i++) {
+		TCHAR * var=pmAllFields->getUnOrderedKeyName(i);
+		if (var && ListOfNonEmptyFields.getIndex(var) < 0)
+			continue;
+		ListOfFields.insert(var);
+	}
+
+	// now lets transfer field names
+	int nFieldCount = ListOfFields.getCount();
+
+	JABBER_CUSTOMSEARCHRESULTS Results={0};
+	Results.nSize=sizeof(Results);
+	Results.pszFields=(TCHAR**)mir_alloc(sizeof(TCHAR*)*nFieldCount);
+	Results.nFieldCount=nFieldCount;
+
+	/* Sending Columns Titles */
+	for (i=0; i < nFieldCount; i++) {
+		TCHAR *var = ListOfFields[i];
+		if (var)
+			Results.pszFields[i] = pmAllFields->operator [](var);
+	}
+
+	Results.jsr.hdr.cbSize = 0; // sending column names
+	ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SEARCHRESULT, id, (LPARAM) &Results);
+
+	/* Sending Users Data */
+	Results.jsr.hdr.cbSize = sizeof(Results.jsr); // sending user data
+
+	for (i=0; i < nUsersFound; i++) {
+		TCHAR buff[200];
+		buff[0] = 0;
+		Results.jsr.jid[0] = 0;
+		U_TCHAR_MAP * pmUserData = (U_TCHAR_MAP *) plUsersInfo->operator [](i);
+		for (int j=0; j < nFieldCount; j++) {
+			TCHAR* var = ListOfFields[j];
+			TCHAR* value = pmUserData->operator [](var);
+			Results.pszFields[j] = value ? value : (TCHAR *)_T(" ");
+			if (!_tcsicmp(var,_T("jid")) && value)
+				_tcsncpy_s(Results.jsr.jid, value, _TRUNCATE);
+		}
+		{
+			TCHAR * nickfields[]={	_T("nick"), 	_T("nickname"),
+						_T("fullname"),	_T("name"),
+						_T("given"),	_T("first"),
+						_T("jid"), 	NULL };
+			TCHAR * nick = NULL;
+			int k = 0;
+			while (nickfields[k] && !nick) {
+				nick = pmUserData->operator [](nickfields[k++]);
+			}
+			if (nick) {
+				if (_tcsicmp(nick, Results.jsr.jid)) {
+					mir_sntprintf(buff, SIZEOF(buff), _T("%s (%s)"), nick, Results.jsr.jid);
+				} else {
+					_tcsncpy_s(buff, nick, _TRUNCATE);
+				}
+				nick = buff;
+			}
+			Results.jsr.hdr.nick = nick;
+			Results.jsr.hdr.flags = PSR_TCHAR;
+		}
+		ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SEARCHRESULT, id, (LPARAM) &Results);
+		Results.jsr.hdr.nick=NULL;
+	}
+	mir_free(Results.pszFields);
+}
+
+void DestroyKey(TCHAR* key)
+{
+	mir_free(key);
+}
+
+TCHAR* CopyKey(TCHAR* key)
+{
+	return mir_tstrdup(key);
+}
+
+////////////////////////////////////////////////////////////////////////////////
+// Search field request result handler  (XEP-0055. Examples 3, 8)
+
+void CJabberProto::OnIqResultAdvancedSearch(HXML iqNode, CJabberIqInfo *pInfo)
+{
+	const TCHAR *type;
+	int id;
+
+	U_TCHAR_MAP mColumnsNames(10);
+	LIST<void>  SearchResults(2);
+
+	if (((id = JabberGetPacketID(iqNode)) == -1) || ((type = xmlGetAttrValue(iqNode, _T("type"))) == NULL)) {
+		ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)id, 0);
+		return;
+	}
+
+	if (!lstrcmp(type, _T("result"))) {
+		HXML queryNode = xmlGetNthChild(iqNode, _T("query"), 1);
+		HXML xNode = xmlGetChildByTag(queryNode, "x", "xmlns", JABBER_FEAT_DATA_FORMS);
+		if (xNode) {
+			//1. Form search results info
+			HXML reportNode = xmlGetNthChild(xNode, _T("reported"), 1);
+			if (reportNode) {
+				int i = 1;
+				while (HXML fieldNode = xmlGetNthChild(reportNode, _T("field"), i++)) {
+					TCHAR *var = (TCHAR*)xmlGetAttrValue(fieldNode, _T("var"));
+					if (var) {
+						TCHAR *Label = (TCHAR*)xmlGetAttrValue(fieldNode, _T("label"));
+						mColumnsNames.insert(var, (Label != NULL) ? Label : var);
+			}	}	}
+
+			int i=1;
+			HXML itemNode;
+			while (itemNode = xmlGetNthChild(xNode, _T("item"), i++)) {
+				U_TCHAR_MAP *pUserColumn = new U_TCHAR_MAP(10);
+				int j = 1;
+				while (HXML fieldNode = xmlGetNthChild(itemNode, _T("field"), j++)) {
+					if (TCHAR* var = (TCHAR*)xmlGetAttrValue(fieldNode, _T("var"))) {
+						if (TCHAR* Text = (TCHAR*)xmlGetText(xmlGetChild(fieldNode, _T("value")))) {
+							if (!mColumnsNames[var])
+								mColumnsNames.insert(var,var);
+							pUserColumn->insert(var,Text);
+				}	}	}
+
+				SearchResults.insert((void*)pUserColumn);
+			}
+		}
+		else {
+			//2. Field list search results info
+			int i=1;
+			while (HXML itemNode = xmlGetNthChild(queryNode, _T("item"), i++)) {
+				U_TCHAR_MAP *pUserColumn=new U_TCHAR_MAP(10);
+
+				TCHAR *jid = (TCHAR*)xmlGetAttrValue(itemNode, _T("jid"));
+				TCHAR *keyReturned;
+				mColumnsNames.insertCopyKey(_T("jid"),_T("jid"),&keyReturned, CopyKey, DestroyKey);
+				mColumnsNames.insert(_T("jid"), keyReturned);
+				pUserColumn->insertCopyKey(_T("jid"), jid, NULL, CopyKey, DestroyKey);
+
+				for (int j=0; ; j++) {
+					HXML child = xmlGetChild(itemNode, j);
+					if (!child)
+						break;
+
+					const TCHAR *szColumnName = xmlGetName(child);
+					if (szColumnName) {
+						LPCTSTR ptszChild = xmlGetText(child);
+						if (ptszChild && *ptszChild) {
+							mColumnsNames.insertCopyKey((TCHAR*)szColumnName,_T(""),&keyReturned, CopyKey, DestroyKey);
+							mColumnsNames.insert((TCHAR*)szColumnName,keyReturned);
+							pUserColumn->insertCopyKey((TCHAR*)szColumnName, (TCHAR*)ptszChild, NULL, CopyKey, DestroyKey);
+				}	}	}
+
+				SearchResults.insert((void*)pUserColumn);
+		}	}
+	}
+	else if (!lstrcmp(type, _T("error"))) {
+		const TCHAR *code = NULL;
+		const TCHAR *description = NULL;
+		TCHAR buff[255];
+		HXML errorNode = xmlGetChild(iqNode , "error");
+		if (errorNode) {
+			code = xmlGetAttrValue(errorNode, _T("code"));
+			description = xmlGetText(errorNode);
+		}
+
+		mir_sntprintf(buff, SIZEOF(buff), TranslateT("Error %s %s\r\nTry to specify more detailed"), code ? code : _T(""), description ? description : _T(""));
+		ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)id, 0);
+		if (searchHandleDlg)
+			SetDlgItemText(searchHandleDlg,IDC_INSTRUCTIONS,buff);
+		else
+			MessageBox(NULL, buff, TranslateT("Search error"), MB_OK|MB_ICONSTOP);
+		return;
+	}
+
+	SearchReturnResults((HANDLE)id, (void*)&SearchResults, (U_TCHAR_MAP *)&mColumnsNames);
+
+	for (int i=0; i < SearchResults.getCount(); i++)
+		delete ((U_TCHAR_MAP *)SearchResults[i]);
+
+	//send success to finish searching
+	ProtoBroadcastAck(NULL, ACKTYPE_SEARCH, ACKRESULT_SUCCESS, (HANDLE)id, 0);
+}
+
+static BOOL CALLBACK DeleteChildWindowsProc(HWND hwnd, LPARAM)
+{
+	DestroyWindow(hwnd);
+	return TRUE;
+}
+
+static void JabberSearchFreeData(HWND hwndDlg, JabberSearchData * dat)
+{
+	//lock
+	if (!dat->fSearchRequestIsXForm && dat->nJSInfCount && dat->pJSInf) {
+		for (int i=0; i < dat->nJSInfCount; i++) {
+			if (dat->pJSInf[i].hwndValueItem)
+				DestroyWindow(dat->pJSInf[i].hwndValueItem);
+			if (dat->pJSInf[i].hwndCaptionItem)
+				DestroyWindow(dat->pJSInf[i].hwndCaptionItem);
+			if (dat->pJSInf[i].szFieldCaption)
+				free(dat->pJSInf[i].szFieldCaption);
+			if (dat->pJSInf[i].szFieldName)
+				free(dat->pJSInf[i].szFieldName);
+		}
+		free(dat->pJSInf);
+		dat->pJSInf=NULL;
+	}
+	else EnumChildWindows(GetDlgItem(hwndDlg,IDC_FRAME),DeleteChildWindowsProc,0);
+
+	if (dat->xNode)
+		xi.destroyNode(dat->xNode);
+
+	SendMessage(GetDlgItem(hwndDlg,IDC_FRAME), WM_SETFONT, (WPARAM)SendMessage(hwndDlg, WM_GETFONT, 0, 0),0);
+	dat->nJSInfCount=0;
+	ShowWindow(GetDlgItem(hwndDlg,IDC_VSCROLL),SW_HIDE);
+	SetDlgItemText(hwndDlg,IDC_INSTRUCTIONS,TranslateT("Select/type search service URL above and press <Go>"));
+	//unlock
+}
+
+static void JabberSearchRefreshFrameScroll(HWND hwndDlg, JabberSearchData * dat)
+{
+	HWND hFrame = GetDlgItem(hwndDlg, IDC_FRAME);
+	HWND hwndScroll = GetDlgItem(hwndDlg, IDC_VSCROLL);
+	RECT rc;
+	GetClientRect(hFrame, &rc);
+	GetClientRect(hFrame, &dat->frameRect);
+	dat->frameHeight = rc.bottom-rc.top;
+	if (dat->frameHeight < dat->CurrentHeight) {
+		ShowWindow(hwndScroll, SW_SHOW);
+		EnableWindow(hwndScroll, TRUE);
+	}
+	else ShowWindow(hwndScroll, SW_HIDE);
+
+	SetScrollRange(hwndScroll, SB_CTL, 0, dat->CurrentHeight-dat->frameHeight, FALSE);
+}
+
+int CJabberProto::SearchRenewFields(HWND hwndDlg, JabberSearchData * dat)
+{
+	TCHAR szServerName[100];
+	EnableWindow(GetDlgItem(hwndDlg, IDC_GO),FALSE);
+	GetDlgItemText(hwndDlg,IDC_SERVER,szServerName,SIZEOF(szServerName));
+	dat->CurrentHeight = 0;
+	dat->curPos = 0;
+	SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, 0, FALSE);
+
+	JabberSearchFreeData(hwndDlg, dat);
+	JabberSearchRefreshFrameScroll(hwndDlg, dat);
+
+	SetDlgItemText(hwndDlg,IDC_INSTRUCTIONS,m_bJabberOnline ? TranslateT("Please wait...\r\nConnecting search server...") : TranslateT("You have to be connected to server"));
+
+	if (!m_bJabberOnline)
+		return 0;
+
+	searchHandleDlg = hwndDlg;
+
+	CJabberIqInfo *pInfo = AddIQ(&CJabberProto::OnIqResultGetSearchFields, JABBER_IQ_TYPE_GET, szServerName);
+	m_ThreadInfo->send( XmlNodeIq(pInfo) << XQUERY(_T("jabber:iq:search")));
+	return pInfo->GetIqId();
+}
+
+static void JabberSearchAddUrlToRecentCombo(HWND hwndDlg, const TCHAR *szAddr)
+{
+	int lResult = SendMessage(GetDlgItem(hwndDlg,IDC_SERVER), (UINT) CB_FINDSTRING, 0, (LPARAM)szAddr);
+	if (lResult == -1)
+		SendDlgItemMessage(hwndDlg, IDC_SERVER, CB_ADDSTRING, 0, (LPARAM)szAddr);
+}
+
+void CJabberProto::SearchDeleteFromRecent(const TCHAR *szAddr, BOOL deleteLastFromDB)
+{
+	//search in recent
+	for (int i=0; i<10; i++) {
+		char key[30];
+		mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", i);
+		ptrT szValue( getTStringA(key));
+		if (szValue == NULL || _tcsicmp(szAddr, szValue))
+			continue;
+
+		for (int j=i; j < 10; j++) {
+			mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j + 1);
+			szValue = getTStringA(key);
+			if (szValue != NULL) {
+				mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j);
+				setTString(NULL, key, szValue);
+			}
+			else {
+				if (deleteLastFromDB) {
+					mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j);
+					delSetting(NULL,key);
+				}
+				break;
+		}	}
+		break;
+}	}
+
+void CJabberProto::SearchAddToRecent(const TCHAR *szAddr, HWND hwndDialog)
+{
+	char key[30];
+	SearchDeleteFromRecent(szAddr);
+
+	for (int j=9; j > 0; j--) {
+		mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j - 1);
+		ptrT szValue( getTStringA(key));
+		if (szValue != NULL) {
+			mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", j);
+			setTString(NULL, key, szValue);
+	}	}
+
+	mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", 0);
+	setTString(key, szAddr);
+	if (hwndDialog)
+		JabberSearchAddUrlToRecentCombo(hwndDialog, szAddr);
+}
+
+static INT_PTR CALLBACK JabberSearchAdvancedDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
+{
+	JabberSearchData* dat = (JabberSearchData*)GetWindowLongPtr(hwndDlg, GWLP_USERDATA);
+	switch (msg) {
+	case WM_INITDIALOG:
+		TranslateDialogDefault(hwndDlg);
+		{
+			dat = (JabberSearchData *)mir_calloc(sizeof(JabberSearchData));
+			dat->ppro = (CJabberProto*)lParam;
+			SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR)dat);
+
+			/* Server Combo box */
+			ptrA jud(dat->ppro->getStringA("Jud"));
+			char *szServerName = (jud == NULL) ? "users.jabber.org": jud;
+			SetDlgItemTextA(hwndDlg,IDC_SERVER,szServerName);
+			SendDlgItemMessageA(hwndDlg,IDC_SERVER,CB_ADDSTRING,0,(LPARAM)szServerName);
+			//TO DO: Add Transports here
+			int i, transpCount = dat->ppro->m_lstTransports.getCount();
+			for (i=0; i < transpCount; i++) {
+				TCHAR *szTransp = dat->ppro->m_lstTransports[i];
+				if (szTransp)
+					JabberSearchAddUrlToRecentCombo(hwndDlg, szTransp);
+			}
+
+			for (i=0; i < 10; i++) {
+				char key[30];
+				mir_snprintf(key, SIZEOF(key), "RecentlySearched_%d", i);
+				ptrT szValue( dat->ppro->getTStringA(key));
+				if (szValue != NULL)
+					JabberSearchAddUrlToRecentCombo(hwndDlg, szValue);
+			}
+
+			//TO DO: Add 4 recently used
+			dat->lastRequestIq = dat->ppro->SearchRenewFields(hwndDlg,dat);
+		}
+		return TRUE;
+
+	case WM_COMMAND:
+		if (LOWORD(wParam) == IDC_SERVER) {
+			switch (HIWORD(wParam)) {
+			case CBN_SETFOCUS:
+				PostMessage(GetParent(hwndDlg),WM_COMMAND, MAKEWPARAM(0,EN_SETFOCUS), (LPARAM)hwndDlg);
+				return TRUE;
+
+			case CBN_EDITCHANGE:
+				EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);
+				return TRUE;
+
+			case CBN_EDITUPDATE:
+				JabberSearchFreeData(hwndDlg, dat);
+				EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);
+				return TRUE;
+
+			case CBN_SELENDOK:
+				EnableWindow(GetDlgItem(hwndDlg, IDC_GO),TRUE);
+				PostMessage(hwndDlg,WM_COMMAND,MAKEWPARAM(IDC_GO,BN_CLICKED),0);
+				return TRUE;
+			}
+		}
+		else if (LOWORD(wParam) == IDC_GO && HIWORD(wParam) == BN_CLICKED) {
+			dat->ppro->SearchRenewFields(hwndDlg, dat);
+			return TRUE;
+		}
+		break;
+
+	case WM_SIZE:
+		{
+			//Resize IDC_FRAME to take full size
+			RECT rcForm;
+			GetWindowRect(hwndDlg,  &rcForm);
+			RECT rcFrame;
+			GetWindowRect(GetDlgItem(hwndDlg, IDC_FRAME), &rcFrame);
+			rcFrame.bottom = rcForm.bottom;
+			SetWindowPos(GetDlgItem(hwndDlg,IDC_FRAME),NULL,0,0,rcFrame.right-rcFrame.left,rcFrame.bottom-rcFrame.top,SWP_NOZORDER|SWP_NOMOVE);
+			GetWindowRect(GetDlgItem(hwndDlg,IDC_VSCROLL), &rcForm);
+			SetWindowPos(GetDlgItem(hwndDlg,IDC_VSCROLL),NULL,0,0,rcForm.right-rcForm.left,rcFrame.bottom-rcFrame.top,SWP_NOZORDER|SWP_NOMOVE);
+			JabberSearchRefreshFrameScroll(hwndDlg, dat);
+		}
+		return TRUE;
+
+	case WM_USER+11:
+		{
+			dat->fSearchRequestIsXForm=TRUE;
+			dat->xNode = (HXML)wParam;
+			JabberFormCreateUI(GetDlgItem(hwndDlg, IDC_FRAME), dat->xNode, &dat->CurrentHeight,TRUE);
+			ShowWindow(GetDlgItem(hwndDlg, IDC_FRAME), SW_SHOW);
+			dat->nJSInfCount=1;
+			return TRUE;
+		}
+	case WM_USER+10:
+		{
+			Data* MyDat = (Data*)lParam;
+			if (MyDat) {
+				dat->fSearchRequestIsXForm = (BOOL)wParam;
+				dat->CurrentHeight = JabberSearchAddField(hwndDlg,MyDat);
+				mir_free(MyDat->Label);
+				mir_free(MyDat->Var);
+				mir_free(MyDat->defValue);
+				free(MyDat);
+			}
+			else
+			{
+				JabberSearchRefreshFrameScroll(hwndDlg,dat);
+				ScrollWindow(GetDlgItem(hwndDlg, IDC_FRAME), 0, dat->curPos - 0, NULL,  &(dat->frameRect));
+				SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, 0, FALSE);
+				dat->curPos=0;
+			}
+			return TRUE;
+		}
+	case WM_MOUSEWHEEL:
+		{
+			int zDelta = GET_WHEEL_DELTA_WPARAM(wParam);
+			if (zDelta) {
+				int nScrollLines=0;
+				SystemParametersInfo(SPI_GETWHEELSCROLLLINES,0,(void*)&nScrollLines,0);
+				for (int i=0; i<(nScrollLines+1)/2; i++)
+					SendMessage(hwndDlg,WM_VSCROLL, (zDelta<0)?SB_LINEDOWN:SB_LINEUP,0);
+		}	}
+		return TRUE;
+
+	case WM_VSCROLL:
+		{
+			int pos;
+			if (dat != NULL) {
+				pos = dat->curPos;
+				switch (LOWORD(wParam)) {
+				case SB_LINEDOWN:
+					pos += 10;
+					break;
+				case SB_LINEUP:
+					pos -= 10;
+					break;
+				case SB_PAGEDOWN:
+					pos += (dat->CurrentHeight - 10);
+					break;
+				case SB_PAGEUP:
+					pos -= (dat->CurrentHeight - 10);
+					break;
+				case SB_THUMBTRACK:
+					pos = HIWORD(wParam);
+					break;
+				}
+				if (pos > (dat->CurrentHeight - dat->frameHeight))
+					pos = dat->CurrentHeight - dat->frameHeight;
+				if (pos < 0)
+					pos = 0;
+				if (dat->curPos != pos) {
+					ScrollWindow(GetDlgItem(hwndDlg, IDC_FRAME), 0, dat->curPos - pos, NULL ,  &(dat->frameRect));
+					SetScrollPos(GetDlgItem(hwndDlg, IDC_VSCROLL), SB_CTL, pos, TRUE);
+					RECT Invalid=dat->frameRect;
+					if (dat->curPos - pos >0)
+						Invalid.bottom=Invalid.top+(dat->curPos - pos);
+					else
+						Invalid.top=Invalid.bottom+(dat->curPos - pos);
+
+					RedrawWindow(GetDlgItem(hwndDlg, IDC_FRAME), NULL, NULL, RDW_UPDATENOW |RDW_ALLCHILDREN);
+					dat->curPos = pos;
+		}	}	}
+		return TRUE;
+
+	case WM_DESTROY:
+		JabberSearchFreeData(hwndDlg, dat);
+		JabberFormDestroyUI(GetDlgItem(hwndDlg, IDC_FRAME));
+		mir_free(dat);
+		SetWindowLongPtr(hwndDlg, GWLP_USERDATA, 0);
+		return TRUE;
+	}
+	return FALSE;
+}
+
+HWND __cdecl CJabberProto::CreateExtendedSearchUI(HWND parent)
+{
+	if (parent && hInst) {
+		ptrT szServer( getTStringA("LoginServer"));
+		if (szServer == NULL || _tcsicmp(szServer, _T("S.ms")))
+			return CreateDialogParam(hInst, MAKEINTRESOURCE(IDD_SEARCHUSER), parent, JabberSearchAdvancedDlgProc, (LPARAM)this);
+	}
+
+	return 0; // Failure
+}
+
+//////////////////////////////////////////////////////////////////////////
+// The function formats request to server
+
+HWND __cdecl CJabberProto::SearchAdvanced(HWND hwndDlg)
+{
+	if (!m_bJabberOnline || !hwndDlg)
+		return 0;	//error
+
+	JabberSearchData * dat=(JabberSearchData *)GetWindowLongPtr(hwndDlg,GWLP_USERDATA);
+	if (!dat)
+		return 0; //error
+
+	// check if server connected (at least one field exists)
+	if (dat->nJSInfCount == 0)
+		return 0;
+
+	// formating request
+	BOOL fRequestNotEmpty=FALSE;
+
+	// get server name
+	TCHAR szServerName[100];
+	GetDlgItemText(hwndDlg, IDC_SERVER, szServerName, SIZEOF(szServerName));
+
+	// formating query
+	CJabberIqInfo *pInfo = AddIQ(&CJabberProto::OnIqResultAdvancedSearch, JABBER_IQ_TYPE_SET, szServerName);
+	XmlNodeIq iq(pInfo);
+	HXML query = iq << XQUERY(_T("jabber:iq:search"));
+
+	if (m_tszSelectedLang)
+		iq << XATTR(_T("xml:lang"), m_tszSelectedLang); // i'm sure :)
+
+	// next can be 2 cases:
+	// Forms: XEP-0055 Example 7
+	if (dat->fSearchRequestIsXForm) {
+		fRequestNotEmpty=TRUE;
+		HXML n = JabberFormGetData(GetDlgItem(hwndDlg, IDC_FRAME), dat->xNode);
+		xmlAddChild(query, n);
+		xi.destroyNode(n);
+	}
+	else { //and Simple fields: XEP-0055 Example 3
+		for (int i=0; i<dat->nJSInfCount; i++) {
+			TCHAR szFieldValue[100];
+			GetWindowText(dat->pJSInf[i].hwndValueItem, szFieldValue, SIZEOF(szFieldValue));
+			if (szFieldValue[0] != 0) {
+				xmlAddChild(query, dat->pJSInf[i].szFieldName, szFieldValue);
+				fRequestNotEmpty=TRUE;
+	}	}	}
+
+	if (fRequestNotEmpty) {
+		m_ThreadInfo->send(iq);
+		return (HWND)pInfo->GetIqId();
+	}
+	return 0;
+}
diff --git a/protocols/JabberG/src/jabber_userinfo.cpp b/protocols/JabberG/src/jabber_userinfo.cpp
index 785b6c6a66..cc320b01c0 100644
--- a/protocols/JabberG/src/jabber_userinfo.cpp
+++ b/protocols/JabberG/src/jabber_userinfo.cpp
@@ -1,847 +1,850 @@
-/*

-

-Jabber Protocol Plugin for Miranda NG

-

-Copyright (c) 2002-04  Santithorn Bunchua

-Copyright (c) 2005-12  George Hazan

-Copyright (c) 2007     Maxim Mluhov

-Copyright (c) 2012-14  Miranda NG project

-

-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.

-

-*/

-

-#include "jabber.h"

-

-#include <fcntl.h>

-#include <io.h>

-#include <sys/stat.h>

-

-#include "jabber_list.h"

-

-static HANDLE hUserInfoList = NULL;

-

-struct UserInfoStringBuf

-{

-	enum { STRINGBUF_INCREMENT = 1024 };

-

-	TCHAR *buf;

-	int size;

-	int offset;

-

-	UserInfoStringBuf() { buf = 0; size = 0; offset = 0; }

-	~UserInfoStringBuf() { mir_free(buf); }

-

-	void append(TCHAR *str) {

-		if (!str) return;

-

-		int length = lstrlen(str);

-		if (size - offset < length + 1) {

-			size += (length + STRINGBUF_INCREMENT);

-			buf = (TCHAR *)mir_realloc(buf, size * sizeof(TCHAR));

-		}

-		lstrcpy(buf + offset, str);

-		offset += length;

-	}

-

-	TCHAR *allocate(int length) {

-		if (size - offset < length) {

-			size += (length + STRINGBUF_INCREMENT);

-			buf = (TCHAR *)mir_realloc(buf, size * sizeof(TCHAR));

-		}

-		return buf + offset;

-	}

-

-	void actualize() {

-		if (buf) offset = lstrlen(buf);

-	}

-};

-

-/////////////////////////////////////////////////////////////////////////////////////////

-// JabberUserInfoDlgProc - main user info dialog

-

-struct JabberUserInfoDlgData

-{

-	MCONTACT hContact;

-	CJabberProto *ppro;

-	JABBER_LIST_ITEM *item;

-	int resourcesCount;

-};

-

-enum

-{

-	INFOLINE_DELETE	= 0x80000000,

-	INFOLINE_MASK	= 0x7fffffff,

-	INFOLINE_BAD_ID	= 0x7fffffff,

-

-	INFOLINE_NAME	= 1,

-	INFOLINE_MOOD,

-	INFOLINE_ACTIVITY,

-	INFOLINE_TUNE,

-	INFOLINE_OFFLINE,

-	INFOLINE_MESSAGE,

-	INFOLINE_SOFTWARE,

-	INFOLINE_VERSION,

-	INFOLINE_SYSTEM,

-	INFOLINE_PRIORITY,

-	INFOLINE_IDLE,

-	INFOLINE_CAPS,

-	INFOLINE_SOFTWARE_INFORMATION,

-	INFOLINE_SUBSCRIPTION,

-	INFOLINE_LOGOFF,

-	INFOLINE_LOGOFF_MSG,

-	INFOLINE_LASTACTIVE,

-};

-

-__forceinline DWORD sttInfoLineId(DWORD res, DWORD type, DWORD line=0)

-{

-	return

-		(type << 24) & 0x7f000000 |

-		(res  << 12) & 0x00fff000 |

-		(line      ) & 0x00000fff;

-}

-

-static HTREEITEM sttFindInfoLine(HWND hwndTree, HTREEITEM htiRoot, LPARAM id=INFOLINE_BAD_ID)

-{

-	if (id == INFOLINE_BAD_ID) return NULL;

-	for (HTREEITEM hti = TreeView_GetChild(hwndTree, htiRoot); hti; hti = TreeView_GetNextSibling(hwndTree, hti))

-	{

-		TVITEMEX tvi = {0};

-		tvi.mask = TVIF_HANDLE|TVIF_PARAM;

-		tvi.hItem = hti;

-		TreeView_GetItem(hwndTree, &tvi);

-		if ((tvi.lParam&INFOLINE_MASK) == (id&INFOLINE_MASK))

-			return hti;

-	}

-	return NULL;

-}

-

-void sttCleanupInfo(HWND hwndTree, int stage)

-{

-	HTREEITEM hItem = TreeView_GetRoot(hwndTree);

-	while (hItem) {

-		TVITEMEX tvi = {0};

-		tvi.mask = TVIF_HANDLE|TVIF_PARAM;

-		tvi.hItem = hItem;

-		TreeView_GetItem(hwndTree, &tvi);

-

-		switch (stage) {

-		case 0:

-			tvi.lParam |= INFOLINE_DELETE;

-			TreeView_SetItem(hwndTree, &tvi);

-			break;

-

-		case 1:

-			if (tvi.lParam & INFOLINE_DELETE) {

-				hItem = TreeView_GetNextSibling(hwndTree, hItem);

-				TreeView_DeleteItem(hwndTree, tvi.hItem);

-				continue;

-			}

-			break;

-		}

-

-		HTREEITEM hItemTmp = 0;

-		if (hItemTmp = TreeView_GetChild(hwndTree, hItem))

-			hItem = hItemTmp;

-		else if (hItemTmp = TreeView_GetNextSibling(hwndTree, hItem))

-			hItem = hItemTmp;

-		else {

-			while (1) {

-				if (!(hItem = TreeView_GetParent(hwndTree, hItem))) break;

-				if (hItemTmp = TreeView_GetNextSibling(hwndTree, hItem)) {

-					hItem = hItemTmp;

-					break;

-				}

-			}

-		}

-	}

-}

-

-static HTREEITEM sttFillInfoLine(HWND hwndTree, HTREEITEM htiRoot, HICON hIcon, TCHAR *title, TCHAR *value, LPARAM id=INFOLINE_BAD_ID, bool expand=false)

-{

-	HTREEITEM hti = sttFindInfoLine(hwndTree, htiRoot, id);

-

-	TCHAR buf[256];

-	if (title)

-		mir_sntprintf(buf, SIZEOF(buf), _T("%s: %s"), title, value);

-	else

-		lstrcpyn(buf, value, SIZEOF(buf));

-

-	TVINSERTSTRUCT tvis = {0};

-	tvis.hParent = htiRoot;

-	tvis.hInsertAfter = TVI_LAST;

-	tvis.itemex.mask = TVIF_TEXT|TVIF_PARAM;

-	tvis.itemex.pszText = buf;

-	tvis.itemex.lParam = id;

-

-	if (hIcon) {

-		HIMAGELIST himl = TreeView_GetImageList(hwndTree, TVSIL_NORMAL);

-		tvis.itemex.mask |= TVIF_IMAGE|TVIF_SELECTEDIMAGE;

-		tvis.itemex.iImage =

-		tvis.itemex.iSelectedImage = ImageList_AddIcon(himl, hIcon);

-		g_ReleaseIcon(hIcon);

-	}

-

-	if (hti) {

-		tvis.itemex.mask |= TVIF_HANDLE;

-		tvis.itemex.hItem = hti;

-		TreeView_SetItem(hwndTree, &tvis.itemex);

-	}

-	else {

-		tvis.itemex.mask |= TVIF_STATE;

-		tvis.itemex.stateMask = TVIS_EXPANDED;

-		tvis.itemex.state = expand ? TVIS_EXPANDED : 0;

-		hti = TreeView_InsertItem(hwndTree, &tvis);

-	}

-

-	return hti;

-}

-

-static void sttFillResourceInfo(CJabberProto *ppro, HWND hwndTree, HTREEITEM htiRoot, JABBER_LIST_ITEM *item, int resource)

-{

-	TCHAR buf[256];

-	HTREEITEM htiResource = htiRoot;

-	pResourceStatus r = resource ? item->arResources[resource-1] : item->getTemp();

-

-	if (r->m_tszResourceName && *r->m_tszResourceName)

-		htiResource = sttFillInfoLine(hwndTree, htiRoot, LoadSkinnedProtoIcon(ppro->m_szModuleName, r->m_iStatus),

-			TranslateT("Resource"), r->m_tszResourceName, sttInfoLineId(resource, INFOLINE_NAME), true);

-

-	// StatusMsg

-	sttFillInfoLine(hwndTree, htiResource, NULL /*LoadSkinnedIcon(SKINICON_EVENT_MESSAGE)*/,

-		TranslateT("Message"), r->m_tszStatusMessage ? r->m_tszStatusMessage : TranslateT("<not specified>"),

-		sttInfoLineId(resource, INFOLINE_MESSAGE));

-

-	// Software

-	HICON hIcon = NULL;

-	if ( ServiceExists(MS_FP_GETCLIENTICONT)) {

-		if (r->m_tszSoftware != NULL) {

-			mir_sntprintf(buf, SIZEOF(buf), _T("%s %s"), r->m_tszSoftware, r->m_tszSoftwareVersion);

-			hIcon = Finger_GetClientIcon(buf, 0);

-		}

-	}

-

-	sttFillInfoLine(hwndTree, htiResource, hIcon, TranslateT("Software"),

-		r->m_tszSoftware ? r->m_tszSoftware : TranslateT("<not specified>"),

-		sttInfoLineId(resource, INFOLINE_SOFTWARE));

-

-	if (hIcon)

-		DestroyIcon(hIcon);

-

-	// Version

-	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Version"),

-		r->m_tszSoftwareVersion ? r->m_tszSoftwareVersion : TranslateT("<not specified>"),

-		sttInfoLineId(resource, INFOLINE_VERSION));

-

-	// System

-	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("System"),

-		r->m_tszOs ? r->m_tszOs : TranslateT("<not specified>"),

-		sttInfoLineId(resource, INFOLINE_SYSTEM));

-

-	// Resource priority

-	TCHAR szPriority[128];

-	mir_sntprintf(szPriority, SIZEOF(szPriority), _T("%d"), (int)r->m_iPriority);

-	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Resource priority"), szPriority, sttInfoLineId(resource, INFOLINE_PRIORITY));

-

-	// Idle

-	if (r->m_dwIdleStartTime > 0) {

-		lstrcpyn(buf, _tctime(&r->m_dwIdleStartTime), SIZEOF(buf));

-		int len = lstrlen(buf);

-		if (len > 0) buf[len-1] = 0;

-	}

-	else if (!r->m_dwIdleStartTime)

-		lstrcpyn(buf, TranslateT("unknown"), SIZEOF(buf));

-	else

-		lstrcpyn(buf, TranslateT("<not specified>"), SIZEOF(buf));

-

-	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Idle since"), buf, sttInfoLineId(resource, INFOLINE_IDLE));

-

-	// caps

-	mir_sntprintf(buf, SIZEOF(buf), _T("%s/%s"), item->jid, r->m_tszResourceName);

-	JabberCapsBits jcb = ppro->GetResourceCapabilites(buf, TRUE);

-

-	if (!(jcb & JABBER_RESOURCE_CAPS_ERROR)) {

-		HTREEITEM htiCaps = sttFillInfoLine(hwndTree, htiResource, ppro->LoadIconEx("main"), NULL, TranslateT("Client capabilities"), sttInfoLineId(resource, INFOLINE_CAPS));

-		int i;

-		for (i=0; g_JabberFeatCapPairs[i].szFeature; i++)

-			if (jcb & g_JabberFeatCapPairs[i].jcbCap) {

-				TCHAR szDescription[ 1024 ];

-				if (g_JabberFeatCapPairs[i].tszDescription)

-					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s (%s)"), TranslateTS(g_JabberFeatCapPairs[i].tszDescription), g_JabberFeatCapPairs[i].szFeature);

-				else

-					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s"), g_JabberFeatCapPairs[i].szFeature);

-				sttFillInfoLine(hwndTree, htiCaps, NULL, NULL, szDescription, sttInfoLineId(resource, INFOLINE_CAPS, i));

-			}

-

-		for (int j = 0; j < ppro->m_lstJabberFeatCapPairsDynamic.getCount(); j++, i++)

-			if (jcb & ppro->m_lstJabberFeatCapPairsDynamic[j]->jcbCap) {

-				TCHAR szDescription[ 1024 ];

-				if (ppro->m_lstJabberFeatCapPairsDynamic[j]->szDescription)

-					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s (%s)"), TranslateTS(ppro->m_lstJabberFeatCapPairsDynamic[j]->szDescription), ppro->m_lstJabberFeatCapPairsDynamic[j]->szFeature);

-				else

-					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s"), ppro->m_lstJabberFeatCapPairsDynamic[j]->szFeature);

-				sttFillInfoLine(hwndTree, htiCaps, NULL, NULL, szDescription, sttInfoLineId(resource, INFOLINE_CAPS, i));

-			}

-	}

-

-	// Software info

-	HTREEITEM htiSoftwareInfo = sttFillInfoLine(hwndTree, htiResource, ppro->LoadIconEx("main"), NULL, TranslateT("Software information"), sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION));

-	int nLineId = 0;

-	if (r->m_tszOs)

-		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Operating system"), r->m_tszOs, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));

-	if (r->m_tszOsVersion)

-		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Operating system version"), r->m_tszOsVersion, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));

-	if (r->m_tszSoftware)

-		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Software"), r->m_tszSoftware, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));

-	if (r->m_tszSoftwareVersion)

-		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Software version"), r->m_tszSoftwareVersion, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));

-	if (r->m_tszXMirandaCoreVersion)

-		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Miranda core version"), r->m_tszXMirandaCoreVersion, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));

-}

-

-static void sttFillAdvStatusInfo(CJabberProto *ppro, HWND hwndTree, HTREEITEM htiRoot, DWORD dwInfoLine, MCONTACT hContact, TCHAR *szTitle, char *pszSlot)

-{

-	char *szAdvStatusIcon = ppro->ReadAdvStatusA(hContact, pszSlot, ADVSTATUS_VAL_ICON);

-	TCHAR *szAdvStatusTitle = ppro->ReadAdvStatusT(hContact, pszSlot, ADVSTATUS_VAL_TITLE);

-	TCHAR *szAdvStatusText = ppro->ReadAdvStatusT(hContact, pszSlot, ADVSTATUS_VAL_TEXT);

-

-	if (szAdvStatusIcon && szAdvStatusTitle && *szAdvStatusTitle) {

-		TCHAR szText[2048];

-		if (szAdvStatusText && *szAdvStatusText)

-			mir_sntprintf(szText, 2047, _T("%s (%s)"), TranslateTS(szAdvStatusTitle), szAdvStatusText);

-		else

-			mir_sntprintf(szText, 2047, _T("%s"), TranslateTS(szAdvStatusTitle));

-		sttFillInfoLine(hwndTree, htiRoot, Skin_GetIcon(szAdvStatusIcon), szTitle, szText, dwInfoLine);

-	}

-

-	mir_free(szAdvStatusIcon);

-	mir_free(szAdvStatusTitle);

-	mir_free(szAdvStatusText);

-}

-

-static void sttFillUserInfo(CJabberProto *ppro, HWND hwndTree, JABBER_LIST_ITEM *item)

-{

-	SendMessage(hwndTree, WM_SETREDRAW, FALSE, 0);

-

-	sttCleanupInfo(hwndTree, 0);

-

-	HTREEITEM htiRoot = sttFillInfoLine(hwndTree, NULL, ppro->LoadIconEx("main"), _T("JID"), item->jid, sttInfoLineId(0, INFOLINE_NAME), true);

-	TCHAR buf[256];

-

-	if (MCONTACT hContact = ppro->HContactFromJID(item->jid)) {

-		sttFillAdvStatusInfo(ppro, hwndTree, htiRoot, sttInfoLineId(0, INFOLINE_MOOD), hContact, TranslateT("Mood"), ADVSTATUS_MOOD);

-		sttFillAdvStatusInfo(ppro, hwndTree, htiRoot, sttInfoLineId(0, INFOLINE_ACTIVITY), hContact, TranslateT("Activity"), ADVSTATUS_ACTIVITY);

-		sttFillAdvStatusInfo(ppro, hwndTree, htiRoot, sttInfoLineId(0, INFOLINE_TUNE), hContact, TranslateT("Tune"), ADVSTATUS_TUNE);

-	}

-

-	// subscription

-	switch (item->subscription) {

-	case SUB_BOTH:

-		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("both"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));

-		break;

-	case SUB_TO:

-		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("to"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));

-		break;

-	case SUB_FROM:

-		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("from"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));

-		break;

-	default:

-		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("none"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));

-		break;

-	}

-

-	// logoff

-	JABBER_RESOURCE_STATUS *r = item->getTemp();

-	if (r->m_dwIdleStartTime > 0) {

-		lstrcpyn(buf, _tctime(&r->m_dwIdleStartTime), SIZEOF(buf));

-		int len = lstrlen(buf);

-		if (len > 0) buf[len-1] = 0;

-	}

-	else if (!r->m_dwIdleStartTime)

-		lstrcpyn(buf, TranslateT("unknown"), SIZEOF(buf));

-	else

-		lstrcpyn(buf, TranslateT("<not specified>"), SIZEOF(buf));

-

-	sttFillInfoLine(hwndTree, htiRoot, NULL,

-		(item->jid && _tcschr(item->jid, _T('@'))) ? TranslateT("Last logoff time") : TranslateT("Uptime"), buf,

-		sttInfoLineId(0, INFOLINE_LOGOFF));

-

-	sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Logoff message"),

-		r->m_tszStatusMessage ? r->m_tszStatusMessage : TranslateT("<not specified>"), sttInfoLineId(0, INFOLINE_LOGOFF_MSG));

-

-	// activity

-	if (item->m_pLastSeenResource)

-		lstrcpyn(buf, item->m_pLastSeenResource->m_tszResourceName, SIZEOF(buf));

-	else

-		lstrcpyn(buf, TranslateT("<no information available>"), SIZEOF(buf));

-

-	sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Last active resource"), buf,

-		sttInfoLineId(0, INFOLINE_LASTACTIVE));

-

-	// resources

-	if (item->arResources.getCount()) {

-		for (int i=0; i < item->arResources.getCount(); i++)

-			sttFillResourceInfo(ppro, hwndTree, htiRoot, item, i+1);

-	}

-	else if (!_tcschr(item->jid, _T('@')) || (r->m_iStatus != ID_STATUS_OFFLINE))

-		sttFillResourceInfo(ppro, hwndTree, htiRoot, item, 0);

-

-	sttCleanupInfo(hwndTree, 1);

-	SendMessage(hwndTree, WM_SETREDRAW, TRUE, 0);

-

-	RedrawWindow(hwndTree, NULL, NULL, RDW_INVALIDATE);

-}

-

-static void sttGetNodeText(HWND hwndTree, HTREEITEM hti, UserInfoStringBuf *buf, int indent = 0)

-{

-	for (int i=0; i < indent; i++)

-		buf->append(_T("\t"));

-

-	TVITEMEX tvi = {0};

-	tvi.mask = TVIF_HANDLE|TVIF_TEXT|TVIF_STATE;

-	tvi.hItem = hti;

-	tvi.cchTextMax = 256;

-	tvi.pszText = buf->allocate(tvi.cchTextMax);

-	if (!TreeView_GetItem(hwndTree, &tvi)) { // failure, maybe item was removed...

-		buf->buf[ buf->offset ] = 0;

-		buf->actualize();

-		return;

-	}

-

-	buf->actualize();

-	buf->append(_T("\r\n"));

-

-	if (tvi.state & TVIS_EXPANDED)

-		for (hti = TreeView_GetChild(hwndTree, hti); hti; hti = TreeView_GetNextSibling(hwndTree, hti))

-			sttGetNodeText(hwndTree, hti, buf, indent + 1);

-}

-

-static INT_PTR CALLBACK JabberUserInfoDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)

-{

-	JabberUserInfoDlgData *dat = (JabberUserInfoDlgData *)GetWindowLongPtr(hwndDlg, GWLP_USERDATA);

-

-	switch (msg) {

-	case WM_INITDIALOG:

-		// lParam is hContact

-		TranslateDialogDefault(hwndDlg);

-

-		SendMessage(hwndDlg, WM_SETICON, ICON_BIG, (LPARAM)LoadSkinnedIconBig(SKINICON_OTHER_USERDETAILS));

-		SendMessage(hwndDlg, WM_SETICON, ICON_SMALL, (LPARAM)LoadSkinnedIcon(SKINICON_OTHER_USERDETAILS));

-

-		dat = (JabberUserInfoDlgData *)mir_alloc(sizeof(JabberUserInfoDlgData));

-		ZeroMemory(dat, sizeof(JabberUserInfoDlgData));

-		dat->resourcesCount = -1;

-

-		if (CallService(MS_DB_CONTACT_IS, (WPARAM)lParam, 0))

-			dat->hContact = lParam;

-		else if (!IsBadReadPtr((void*)lParam, sizeof(JABBER_LIST_ITEM))) {

-			dat->hContact = NULL;

-			dat->item = (JABBER_LIST_ITEM *)lParam;

-		}

-

-		{

-			RECT rc; GetClientRect(hwndDlg, &rc);

-			MoveWindow(GetDlgItem(hwndDlg, IDC_TV_INFO), 5, 5, rc.right-10, rc.bottom-10, TRUE);

-

-			HIMAGELIST himl = ImageList_Create(GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), ILC_COLOR|ILC_COLOR32|ILC_MASK, 5, 1);

-			ImageList_AddIcon_Icolib(himl, LoadSkinnedIcon(SKINICON_OTHER_SMALLDOT));

-			TreeView_SetImageList(GetDlgItem(hwndDlg, IDC_TV_INFO), himl, TVSIL_NORMAL);

-

-			SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR)dat);

-			WindowList_Add(hUserInfoList, hwndDlg, dat->hContact);

-		}

-		break;

-

-	case WM_JABBER_REFRESH:

-		if (!dat) break;

-

-		if (!dat->item) {

-			ptrT jid( dat->ppro->getTStringA(dat->hContact, "jid"));

-			if (jid == NULL)

-				break;

-

-			if (!(dat->item = dat->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid)))

-				dat->item = dat->ppro->ListGetItemPtr(LIST_ROSTER, jid);

-

-			if (!dat->item) {

-				HWND hwndTree = GetDlgItem(hwndDlg, IDC_TV_INFO);

-				TreeView_DeleteAllItems(hwndTree);

-				HTREEITEM htiRoot = sttFillInfoLine(hwndTree, NULL, dat->ppro->LoadIconEx("main"), _T("JID"), jid, sttInfoLineId(0, INFOLINE_NAME), true);

-				sttFillInfoLine(hwndTree, htiRoot, dat->ppro->LoadIconEx("vcard"), NULL,

-					TranslateT("Please switch online to see more details."));

-				break;

-			}

-		}

-		sttFillUserInfo(dat->ppro, GetDlgItem(hwndDlg, IDC_TV_INFO), dat->item);

-		break;

-

-	case WM_SIZE:

-		MoveWindow(GetDlgItem(hwndDlg, IDC_TV_INFO), 5, 5, LOWORD(lParam)-10, HIWORD(lParam)-10, TRUE);

-		break;

-

-	case WM_CONTEXTMENU:

-		if (GetWindowLongPtr((HWND)wParam, GWL_ID) == IDC_TV_INFO) {

-			HWND hwndTree = GetDlgItem(hwndDlg, IDC_TV_INFO);

-			POINT pt = { (signed short)LOWORD(lParam), (signed short)HIWORD(lParam) };

-			HTREEITEM hItem = 0;

-

-			if ((pt.x == -1) && (pt.y == -1)) {

-				if (hItem = TreeView_GetSelection(hwndTree)) {

-					RECT rc;

-					TreeView_GetItemRect(hwndTree, hItem, &rc, TRUE);

-					pt.x = rc.left;

-					pt.y = rc.bottom;

-					ClientToScreen(hwndTree, &pt);

-				}

-			}

-			else {

-				TVHITTESTINFO tvhti = {0};

-				tvhti.pt = pt;

-				ScreenToClient(hwndTree, &tvhti.pt);

-				TreeView_HitTest(hwndTree, &tvhti);

-				if (tvhti.flags & TVHT_ONITEM) {

-					hItem = tvhti.hItem;

-					TreeView_Select(hwndTree, hItem, TVGN_CARET);

-			}	}

-

-			if (hItem) {

-				HMENU hMenu = CreatePopupMenu();

-				AppendMenu(hMenu, MF_STRING, (UINT_PTR)1, TranslateT("Copy"));

-				AppendMenu(hMenu, MF_STRING, (UINT_PTR)2, TranslateT("Copy only this value"));

-				AppendMenu(hMenu, MF_SEPARATOR, 0, NULL);

-				AppendMenu(hMenu, MF_STRING, (UINT_PTR)0, TranslateT("Cancel"));

-				int nReturnCmd = TrackPopupMenu(hMenu, TPM_RETURNCMD, pt.x, pt.y, 0, hwndDlg, NULL);

-				if (nReturnCmd == 1) {

-					UserInfoStringBuf buf;

-					sttGetNodeText(hwndTree, hItem, &buf);

-					JabberCopyText(hwndDlg, buf.buf);

-				}

-				else if (nReturnCmd == 2) {

-					TCHAR szBuffer[ 1024 ];

-					TVITEMEX tvi = {0};

-					tvi.mask = TVIF_HANDLE|TVIF_TEXT|TVIF_STATE;

-					tvi.hItem = hItem;

-					tvi.cchTextMax = SIZEOF(szBuffer);

-					tvi.pszText = szBuffer;

-					if (TreeView_GetItem(hwndTree, &tvi)) {

-						if (TCHAR *str = _tcsstr(szBuffer, _T(": ")))

-							JabberCopyText(hwndDlg, str+2);

-						else

-							JabberCopyText(hwndDlg, szBuffer);

-				}	}

-				DestroyMenu(hMenu);

-		}	}

-		break;

-

-	case WM_NOTIFY:

-		if (((LPNMHDR)lParam)->idFrom == 0) {

-			switch (((LPNMHDR)lParam)->code) {

-			case PSN_INFOCHANGED:

-				{

-					MCONTACT hContact = (MCONTACT)((LPPSHNOTIFY)lParam)->lParam;

-					SendMessage(hwndDlg, WM_JABBER_REFRESH, 0, hContact);

-				}

-				break;

-

-			case PSN_PARAMCHANGED:

-				dat->ppro = (CJabberProto*)((PSHNOTIFY*)lParam)->lParam;

-				if (dat->hContact != NULL) {

-					ptrT jid( dat->ppro->getTStringA(dat->hContact, "jid"));

-					if (jid != NULL)

-						if (!(dat->item = dat->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid)))

-							dat->item = dat->ppro->ListGetItemPtr(LIST_ROSTER, jid);

-				}

-				break;

-		}	}

-		break;

-

-	case WM_CLOSE:

-		DestroyWindow(hwndDlg);

-		break;

-

-	case WM_DESTROY:

-		WindowList_Remove(hUserInfoList, hwndDlg);

-		if (dat) {

-			mir_free(dat);

-			SetWindowLongPtr(hwndDlg, GWLP_USERDATA, 0);

-		}

-		ImageList_Destroy(TreeView_SetImageList(GetDlgItem(hwndDlg, IDC_TV_INFO), NULL, TVSIL_NORMAL));

-		WindowFreeIcon(hwndDlg);

-		break;

-	}

-	return FALSE;

-}

-

-/////////////////////////////////////////////////////////////////////////////////////////

-// JabberUserPhotoDlgProc - Jabber photo dialog

-

-struct USER_PHOTO_INFO

-{

-	MCONTACT hContact;

-	HBITMAP hBitmap;

-	CJabberProto *ppro;

-};

-

-static INT_PTR CALLBACK JabberUserPhotoDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)

-{

-	USER_PHOTO_INFO *photoInfo;

-

-	photoInfo = (USER_PHOTO_INFO *) GetWindowLongPtr(hwndDlg, GWLP_USERDATA);

-

-	switch (msg) {

-	case WM_INITDIALOG:

-		// lParam is hContact

-		TranslateDialogDefault(hwndDlg);

-		photoInfo = (USER_PHOTO_INFO *) mir_alloc(sizeof(USER_PHOTO_INFO));

-		photoInfo->hContact = lParam;

-		photoInfo->ppro = NULL;

-		photoInfo->hBitmap = NULL;

-		SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR) photoInfo);

-		SendDlgItemMessage(hwndDlg, IDC_SAVE, BM_SETIMAGE, IMAGE_ICON, (LPARAM)LoadImage(hInst, MAKEINTRESOURCE(IDI_SAVE), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), 0));

-		SendDlgItemMessage(hwndDlg, IDC_SAVE, BUTTONSETASFLATBTN, TRUE, 0);

-		ShowWindow(GetDlgItem(hwndDlg, IDC_LOAD), SW_HIDE);

-		ShowWindow(GetDlgItem(hwndDlg, IDC_DELETE), SW_HIDE);

-		break;

-

-	case WM_NOTIFY:

-		switch (((LPNMHDR)lParam)->idFrom) {

-		case 0:

-			switch (((LPNMHDR)lParam)->code) {

-			case PSN_INFOCHANGED:

-				SendMessage(hwndDlg, WM_JABBER_REFRESH, 0, 0);

-				break;

-

-			case PSN_PARAMCHANGED:

-				photoInfo->ppro = (CJabberProto*)((PSHNOTIFY*)lParam)->lParam;

-				break;

-			}

-			break;

-		}

-		break;

-

-	case WM_JABBER_REFRESH:

-		{

-			if (photoInfo->hBitmap) {

-				DeleteObject(photoInfo->hBitmap);

-				photoInfo->hBitmap = NULL;

-			}

-			ShowWindow(GetDlgItem(hwndDlg, IDC_SAVE), SW_HIDE);

-			ptrT jid( photoInfo->ppro->getTStringA(photoInfo->hContact, "jid"));

-			if (jid != NULL) {

-				JABBER_LIST_ITEM *item = photoInfo->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid);

-				if (item == NULL)

-					item = photoInfo->ppro->ListGetItemPtr(LIST_ROSTER, jid);

-				if (item != NULL) {

-					if (item->photoFileName) {

-						photoInfo->ppro->debugLog(_T("Showing picture from %s"), item->photoFileName);

-						photoInfo->hBitmap = (HBITMAP) CallService(MS_UTILS_LOADBITMAPT, 0, (LPARAM)item->photoFileName);

-						FIP->FI_Premultiply(photoInfo->hBitmap);

-						ShowWindow(GetDlgItem(hwndDlg, IDC_SAVE), SW_SHOW);

-					}

-				}

-			}

-			InvalidateRect(hwndDlg, NULL, TRUE);

-			UpdateWindow(hwndDlg);

-		}

-		break;

-

-	case WM_COMMAND:

-		switch (LOWORD(wParam)) {

-		case IDC_SAVE:

-			static TCHAR szFilter[512];

-

-			ptrT jid(photoInfo->ppro->getTStringA(photoInfo->hContact, "jid"));

-			if (jid == NULL)

-				break;

-

-			JABBER_LIST_ITEM *item = photoInfo->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid);

-			if (item == NULL)

-				if ((item = photoInfo->ppro->ListGetItemPtr(LIST_ROSTER, jid)) == NULL)

-					break;

-

-			switch (ProtoGetAvatarFileFormat(item->photoFileName)) {

-			case PA_FORMAT_BMP:

-				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("BMP %s (*.bmp)%c*.BMP"), TranslateT("format"), 0);

-				break;

-

-			case PA_FORMAT_GIF:

-				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("GIF %s (*.gif)%c*.GIF"), TranslateT("format"), 0);

-				break;

-

-			case PA_FORMAT_JPEG:

-				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("JPEG %s (*.jpg;*.jpeg)%c*.JPG;*.JPEG"), TranslateT("format"), 0);

-				break;

-

-			default:

-				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("%s (*.*)%c*.*"), TranslateT("Unknown format"), 0);

-			}

-

-			TCHAR szFileName[MAX_PATH]; szFileName[0] = '\0';

-			OPENFILENAME ofn = { 0 };

-			ofn.lStructSize = OPENFILENAME_SIZE_VERSION_400;

-			ofn.hwndOwner = hwndDlg;

-			ofn.lpstrFilter = szFilter;

-			ofn.lpstrFile = szFileName;

-			ofn.nMaxFile = _MAX_PATH;

-			ofn.Flags = OFN_OVERWRITEPROMPT;

-			if ( GetSaveFileName(&ofn)) {

-				photoInfo->ppro->debugLog(_T("File selected is %s"), szFileName);

-				CopyFile(item->photoFileName, szFileName, FALSE);

-			}

-		}

-		break;

-

-	case WM_PAINT:

-		if (!photoInfo->ppro->m_bJabberOnline)

-			SetDlgItemText(hwndDlg, IDC_CANVAS, TranslateT("<Photo not available while offline>"));

-		else if (!photoInfo->hBitmap)

-			SetDlgItemText(hwndDlg, IDC_CANVAS, TranslateT("<No photo>"));

-		else {

-			BITMAP bm;

-			POINT ptSize, ptOrg, pt, ptFitSize;

-			RECT rect;

-

-			SetDlgItemTextA(hwndDlg, IDC_CANVAS, "");

-			HBITMAP hBitmap = photoInfo->hBitmap;

-			HWND hwndCanvas = GetDlgItem(hwndDlg, IDC_CANVAS);

-			HDC hdcCanvas = GetDC(hwndCanvas);

-			HDC hdcMem = CreateCompatibleDC(hdcCanvas);

-			SelectObject(hdcMem, hBitmap);

-			SetMapMode(hdcMem, GetMapMode(hdcCanvas));

-			GetObject(hBitmap, sizeof(BITMAP), (LPVOID) &bm);

-			ptSize.x = bm.bmWidth;

-			ptSize.y = bm.bmHeight;

-			DPtoLP(hdcCanvas, &ptSize, 1);

-			ptOrg.x = ptOrg.y = 0;

-			DPtoLP(hdcMem, &ptOrg, 1);

-			GetClientRect(hwndCanvas, &rect);

-			InvalidateRect(hwndCanvas, NULL, TRUE);

-			UpdateWindow(hwndCanvas);

-			if (ptSize.x<=rect.right && ptSize.y<=rect.bottom) {

-				pt.x = (rect.right - ptSize.x)/2;

-				pt.y = (rect.bottom - ptSize.y)/2;

-				ptFitSize = ptSize;

-			}

-			else {

-				if (((float)(ptSize.x-rect.right))/ptSize.x > ((float)(ptSize.y-rect.bottom))/ptSize.y) {

-					ptFitSize.x = rect.right;

-					ptFitSize.y = (ptSize.y*rect.right)/ptSize.x;

-					pt.x = 0;

-					pt.y = (rect.bottom - ptFitSize.y)/2;

-				}

-				else {

-					ptFitSize.x = (ptSize.x*rect.bottom)/ptSize.y;

-					ptFitSize.y = rect.bottom;

-					pt.x = (rect.right - ptFitSize.x)/2;

-					pt.y = 0;

-				}

-			}

-

-			if (IsThemeActive()) {

-				RECT rc; GetClientRect(hwndCanvas, &rc);

-				DrawThemeParentBackground(hwndCanvas, hdcCanvas, &rc);

-			}

-			else {

-				RECT rc; GetClientRect(hwndCanvas, &rc);

-				FillRect(hdcCanvas, &rc, (HBRUSH)GetSysColorBrush(COLOR_BTNFACE));

-			}

-

-			if (bm.bmBitsPixel == 32) {

-				BLENDFUNCTION bf = {0};

-				bf.AlphaFormat = AC_SRC_ALPHA;

-				bf.BlendOp = AC_SRC_OVER;

-				bf.SourceConstantAlpha = 255;

-				GdiAlphaBlend(hdcCanvas, pt.x, pt.y, ptFitSize.x, ptFitSize.y, hdcMem, ptOrg.x, ptOrg.y, ptSize.x, ptSize.y, bf);

-			}

-			else {

-				SetStretchBltMode(hdcCanvas, COLORONCOLOR);

-				StretchBlt(hdcCanvas, pt.x, pt.y, ptFitSize.x, ptFitSize.y, hdcMem, ptOrg.x, ptOrg.y, ptSize.x, ptSize.y, SRCCOPY);

-			}

-

-			DeleteDC(hdcMem);

-		}

-		break;

-

-	case WM_DESTROY:

-		DestroyIcon((HICON)SendDlgItemMessage(hwndDlg, IDC_SAVE, BM_SETIMAGE, IMAGE_ICON, 0));

-		if (photoInfo->hBitmap) {

-			photoInfo->ppro->debugLogA("Delete bitmap");

-			DeleteObject(photoInfo->hBitmap);

-		}

-		if (photoInfo) mir_free(photoInfo);

-		break;

-	}

-	return FALSE;

-}

-

-/////////////////////////////////////////////////////////////////////////////////////////

-// OnInfoInit - initializes user info option dialogs

-

-int CJabberProto::OnUserInfoInit(WPARAM wParam, LPARAM lParam)

-{

-	if (!CallService(MS_PROTO_ISPROTOCOLLOADED, 0, (LPARAM)m_szModuleName))

-		return 0;

-

-	MCONTACT hContact = lParam;

-	if (hContact == NULL) {

-		// Show our vcard

-		OnUserInfoInit_VCard(wParam, lParam);

-		return 0;

-	}

-

-	char *szProto = GetContactProto(hContact);

-	if (szProto != NULL && !strcmp(szProto, m_szModuleName)) {

-		OPTIONSDIALOGPAGE odp = { sizeof(odp) };

-		odp.hInstance = hInst;

-		odp.dwInitParam = (LPARAM)this;

-

-		odp.pfnDlgProc = JabberUserInfoDlgProc;

-		odp.position = -2000000000;

-		odp.pszTemplate = MAKEINTRESOURCEA(IDD_INFO_JABBER);

-		odp.pszTitle = LPGEN("Account");

-		UserInfo_AddPage(wParam, &odp);

-

-		odp.pfnDlgProc = JabberUserPhotoDlgProc;

-		odp.position = 2000000000;

-		odp.pszTemplate = MAKEINTRESOURCEA(IDD_VCARD_PHOTO);

-		odp.pszTitle = LPGEN("Photo");

-		UserInfo_AddPage(wParam, &odp);

-	}

-	return 0;

-}

-

-/////////////////////////////////////////////////////////////////////////////////////////

-// JabberUserInfoUpdate

-

-void JabberUserInfoInit()

-{

-	hUserInfoList = WindowList_Create();

-}

-

-void JabberUserInfoUninit()

-{

-	WindowList_Destroy(hUserInfoList);

-}

-

-/////////////////////////////////////////////////////////////////////////////////////////

-// JabberUserInfoUpdate

-

-void JabberUserInfoUpdate(MCONTACT hContact)

-{

-	if (!hContact)

-		WindowList_BroadcastAsync(hUserInfoList, WM_JABBER_REFRESH, 0, 0);

-	else if (HWND hwnd = WindowList_Find(hUserInfoList, hContact))

-		PostMessage(hwnd, WM_JABBER_REFRESH, 0, 0);

-}

+/*
+
+Jabber Protocol Plugin for Miranda NG
+
+Copyright (c) 2002-04  Santithorn Bunchua
+Copyright (c) 2005-12  George Hazan
+Copyright (c) 2007     Maxim Mluhov
+Copyright (c) 2012-14  Miranda NG project
+
+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.
+
+*/
+
+#include "jabber.h"
+
+#include <fcntl.h>
+#include <io.h>
+#include <sys/stat.h>
+
+#include "jabber_list.h"
+
+static HANDLE hUserInfoList = NULL;
+
+struct UserInfoStringBuf
+{
+	enum { STRINGBUF_INCREMENT = 1024 };
+
+	TCHAR *buf;
+	int size;
+	int offset;
+
+	UserInfoStringBuf() { buf = 0; size = 0; offset = 0; }
+	~UserInfoStringBuf() { mir_free(buf); }
+
+	void append(TCHAR *str) {
+		if (!str) return;
+
+		int length = lstrlen(str);
+		if (size - offset < length + 1) {
+			size += (length + STRINGBUF_INCREMENT);
+			buf = (TCHAR *)mir_realloc(buf, size * sizeof(TCHAR));
+		}
+		lstrcpy(buf + offset, str);
+		offset += length;
+	}
+
+	TCHAR *allocate(int length) {
+		if (size - offset < length) {
+			size += (length + STRINGBUF_INCREMENT);
+			buf = (TCHAR *)mir_realloc(buf, size * sizeof(TCHAR));
+		}
+		return buf + offset;
+	}
+
+	void actualize() {
+		if (buf) offset = lstrlen(buf);
+	}
+};
+
+/////////////////////////////////////////////////////////////////////////////////////////
+// JabberUserInfoDlgProc - main user info dialog
+
+struct JabberUserInfoDlgData
+{
+	MCONTACT hContact;
+	CJabberProto *ppro;
+	JABBER_LIST_ITEM *item;
+	int resourcesCount;
+};
+
+enum
+{
+	INFOLINE_DELETE	= 0x80000000,
+	INFOLINE_MASK	= 0x7fffffff,
+	INFOLINE_BAD_ID	= 0x7fffffff,
+
+	INFOLINE_NAME	= 1,
+	INFOLINE_MOOD,
+	INFOLINE_ACTIVITY,
+	INFOLINE_TUNE,
+	INFOLINE_OFFLINE,
+	INFOLINE_MESSAGE,
+	INFOLINE_SOFTWARE,
+	INFOLINE_VERSION,
+	INFOLINE_SYSTEM,
+	INFOLINE_PRIORITY,
+	INFOLINE_IDLE,
+	INFOLINE_CAPS,
+	INFOLINE_SOFTWARE_INFORMATION,
+	INFOLINE_SUBSCRIPTION,
+	INFOLINE_LOGOFF,
+	INFOLINE_LOGOFF_MSG,
+	INFOLINE_LASTACTIVE,
+};
+
+__forceinline DWORD sttInfoLineId(DWORD res, DWORD type, DWORD line=0)
+{
+	return
+		(type << 24) & 0x7f000000 |
+		(res  << 12) & 0x00fff000 |
+		(line      ) & 0x00000fff;
+}
+
+static HTREEITEM sttFindInfoLine(HWND hwndTree, HTREEITEM htiRoot, LPARAM id=INFOLINE_BAD_ID)
+{
+	if (id == INFOLINE_BAD_ID) return NULL;
+	for (HTREEITEM hti = TreeView_GetChild(hwndTree, htiRoot); hti; hti = TreeView_GetNextSibling(hwndTree, hti))
+	{
+		TVITEMEX tvi = {0};
+		tvi.mask = TVIF_HANDLE|TVIF_PARAM;
+		tvi.hItem = hti;
+		TreeView_GetItem(hwndTree, &tvi);
+		if ((tvi.lParam&INFOLINE_MASK) == (id&INFOLINE_MASK))
+			return hti;
+	}
+	return NULL;
+}
+
+void sttCleanupInfo(HWND hwndTree, int stage)
+{
+	HTREEITEM hItem = TreeView_GetRoot(hwndTree);
+	while (hItem) {
+		TVITEMEX tvi = {0};
+		tvi.mask = TVIF_HANDLE|TVIF_PARAM;
+		tvi.hItem = hItem;
+		TreeView_GetItem(hwndTree, &tvi);
+
+		switch (stage) {
+		case 0:
+			tvi.lParam |= INFOLINE_DELETE;
+			TreeView_SetItem(hwndTree, &tvi);
+			break;
+
+		case 1:
+			if (tvi.lParam & INFOLINE_DELETE) {
+				hItem = TreeView_GetNextSibling(hwndTree, hItem);
+				TreeView_DeleteItem(hwndTree, tvi.hItem);
+				continue;
+			}
+			break;
+		}
+
+		HTREEITEM hItemTmp = 0;
+		if (hItemTmp = TreeView_GetChild(hwndTree, hItem))
+			hItem = hItemTmp;
+		else if (hItemTmp = TreeView_GetNextSibling(hwndTree, hItem))
+			hItem = hItemTmp;
+		else {
+			while (1) {
+				if (!(hItem = TreeView_GetParent(hwndTree, hItem))) break;
+				if (hItemTmp = TreeView_GetNextSibling(hwndTree, hItem)) {
+					hItem = hItemTmp;
+					break;
+				}
+			}
+		}
+	}
+}
+
+static HTREEITEM sttFillInfoLine(HWND hwndTree, HTREEITEM htiRoot, HICON hIcon, TCHAR *title, TCHAR *value, LPARAM id=INFOLINE_BAD_ID, bool expand=false)
+{
+	HTREEITEM hti = sttFindInfoLine(hwndTree, htiRoot, id);
+
+	TCHAR buf[256];
+	if (title)
+		mir_sntprintf(buf, SIZEOF(buf), _T("%s: %s"), title, value);
+	else
+		lstrcpyn(buf, value, SIZEOF(buf));
+
+	TVINSERTSTRUCT tvis = {0};
+	tvis.hParent = htiRoot;
+	tvis.hInsertAfter = TVI_LAST;
+	tvis.itemex.mask = TVIF_TEXT|TVIF_PARAM;
+	tvis.itemex.pszText = buf;
+	tvis.itemex.lParam = id;
+
+	if (hIcon) {
+		HIMAGELIST himl = TreeView_GetImageList(hwndTree, TVSIL_NORMAL);
+		tvis.itemex.mask |= TVIF_IMAGE|TVIF_SELECTEDIMAGE;
+		tvis.itemex.iImage =
+		tvis.itemex.iSelectedImage = ImageList_AddIcon(himl, hIcon);
+		g_ReleaseIcon(hIcon);
+	}
+
+	if (hti) {
+		tvis.itemex.mask |= TVIF_HANDLE;
+		tvis.itemex.hItem = hti;
+		TreeView_SetItem(hwndTree, &tvis.itemex);
+	}
+	else {
+		tvis.itemex.mask |= TVIF_STATE;
+		tvis.itemex.stateMask = TVIS_EXPANDED;
+		tvis.itemex.state = expand ? TVIS_EXPANDED : 0;
+		hti = TreeView_InsertItem(hwndTree, &tvis);
+	}
+
+	return hti;
+}
+
+static void sttFillResourceInfo(CJabberProto *ppro, HWND hwndTree, HTREEITEM htiRoot, JABBER_LIST_ITEM *item, int resource)
+{
+	TCHAR buf[256];
+	HTREEITEM htiResource = htiRoot;
+	pResourceStatus r = resource ? item->arResources[resource-1] : item->getTemp();
+
+	if (r->m_tszResourceName && *r->m_tszResourceName)
+		htiResource = sttFillInfoLine(hwndTree, htiRoot, LoadSkinnedProtoIcon(ppro->m_szModuleName, r->m_iStatus),
+			TranslateT("Resource"), r->m_tszResourceName, sttInfoLineId(resource, INFOLINE_NAME), true);
+
+	// StatusMsg
+	sttFillInfoLine(hwndTree, htiResource, NULL /*LoadSkinnedIcon(SKINICON_EVENT_MESSAGE)*/,
+		TranslateT("Message"), r->m_tszStatusMessage ? r->m_tszStatusMessage : TranslateT("<not specified>"),
+		sttInfoLineId(resource, INFOLINE_MESSAGE));
+
+	// Software
+	HICON hIcon = NULL;
+	if ( ServiceExists(MS_FP_GETCLIENTICONT)) {
+		if (r->m_tszSoftware != NULL) {
+			mir_sntprintf(buf, SIZEOF(buf), _T("%s %s"), r->m_tszSoftware, r->m_tszSoftwareVersion);
+			hIcon = Finger_GetClientIcon(buf, 0);
+		}
+	}
+
+	sttFillInfoLine(hwndTree, htiResource, hIcon, TranslateT("Software"),
+		r->m_tszSoftware ? r->m_tszSoftware : TranslateT("<not specified>"),
+		sttInfoLineId(resource, INFOLINE_SOFTWARE));
+
+	if (hIcon)
+		DestroyIcon(hIcon);
+
+	// Version
+	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Version"),
+		r->m_tszSoftwareVersion ? r->m_tszSoftwareVersion : TranslateT("<not specified>"),
+		sttInfoLineId(resource, INFOLINE_VERSION));
+
+	// System
+	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("System"),
+		r->m_tszOs ? r->m_tszOs : TranslateT("<not specified>"),
+		sttInfoLineId(resource, INFOLINE_SYSTEM));
+
+	// Resource priority
+	TCHAR szPriority[128];
+	mir_sntprintf(szPriority, SIZEOF(szPriority), _T("%d"), (int)r->m_iPriority);
+	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Resource priority"), szPriority, sttInfoLineId(resource, INFOLINE_PRIORITY));
+
+	// Idle
+	if (r->m_dwIdleStartTime > 0) {
+		lstrcpyn(buf, _tctime(&r->m_dwIdleStartTime), SIZEOF(buf));
+		int len = lstrlen(buf);
+		if (len > 0) buf[len-1] = 0;
+	}
+	else if (!r->m_dwIdleStartTime)
+		lstrcpyn(buf, TranslateT("unknown"), SIZEOF(buf));
+	else
+		lstrcpyn(buf, TranslateT("<not specified>"), SIZEOF(buf));
+
+	sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Idle since"), buf, sttInfoLineId(resource, INFOLINE_IDLE));
+
+	// caps
+	mir_sntprintf(buf, SIZEOF(buf), _T("%s/%s"), item->jid, r->m_tszResourceName);
+	JabberCapsBits jcb = ppro->GetResourceCapabilites(buf, TRUE);
+
+	if (!(jcb & JABBER_RESOURCE_CAPS_ERROR)) {
+		HTREEITEM htiCaps = sttFillInfoLine(hwndTree, htiResource, ppro->LoadIconEx("main"), NULL, TranslateT("Client capabilities"), sttInfoLineId(resource, INFOLINE_CAPS));
+		int i;
+		for (i=0; g_JabberFeatCapPairs[i].szFeature; i++)
+			if (jcb & g_JabberFeatCapPairs[i].jcbCap) {
+				TCHAR szDescription[ 1024 ];
+				if (g_JabberFeatCapPairs[i].tszDescription)
+					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s (%s)"), TranslateTS(g_JabberFeatCapPairs[i].tszDescription), g_JabberFeatCapPairs[i].szFeature);
+				else
+					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s"), g_JabberFeatCapPairs[i].szFeature);
+				sttFillInfoLine(hwndTree, htiCaps, NULL, NULL, szDescription, sttInfoLineId(resource, INFOLINE_CAPS, i));
+			}
+
+		for (int j = 0; j < ppro->m_lstJabberFeatCapPairsDynamic.getCount(); j++, i++)
+			if (jcb & ppro->m_lstJabberFeatCapPairsDynamic[j]->jcbCap) {
+				TCHAR szDescription[ 1024 ];
+				if (ppro->m_lstJabberFeatCapPairsDynamic[j]->szDescription)
+					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s (%s)"), TranslateTS(ppro->m_lstJabberFeatCapPairsDynamic[j]->szDescription), ppro->m_lstJabberFeatCapPairsDynamic[j]->szFeature);
+				else
+					mir_sntprintf(szDescription, SIZEOF(szDescription), _T("%s"), ppro->m_lstJabberFeatCapPairsDynamic[j]->szFeature);
+				sttFillInfoLine(hwndTree, htiCaps, NULL, NULL, szDescription, sttInfoLineId(resource, INFOLINE_CAPS, i));
+			}
+	}
+
+	// Software info
+	HTREEITEM htiSoftwareInfo = sttFillInfoLine(hwndTree, htiResource, ppro->LoadIconEx("main"), NULL, TranslateT("Software information"), sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION));
+	int nLineId = 0;
+	if (r->m_tszOs)
+		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Operating system"), r->m_tszOs, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));
+	if (r->m_tszOsVersion)
+		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Operating system version"), r->m_tszOsVersion, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));
+	if (r->m_tszSoftware)
+		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Software"), r->m_tszSoftware, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));
+	if (r->m_tszSoftwareVersion)
+		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Software version"), r->m_tszSoftwareVersion, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));
+	if (r->m_tszXMirandaCoreVersion)
+		sttFillInfoLine(hwndTree, htiSoftwareInfo, NULL, TranslateT("Miranda core version"), r->m_tszXMirandaCoreVersion, sttInfoLineId(resource, INFOLINE_SOFTWARE_INFORMATION, nLineId++));
+}
+
+static void sttFillAdvStatusInfo(CJabberProto *ppro, HWND hwndTree, HTREEITEM htiRoot, DWORD dwInfoLine, MCONTACT hContact, TCHAR *szTitle, char *pszSlot)
+{
+	char *szAdvStatusIcon = ppro->ReadAdvStatusA(hContact, pszSlot, ADVSTATUS_VAL_ICON);
+	TCHAR *szAdvStatusTitle = ppro->ReadAdvStatusT(hContact, pszSlot, ADVSTATUS_VAL_TITLE);
+	TCHAR *szAdvStatusText = ppro->ReadAdvStatusT(hContact, pszSlot, ADVSTATUS_VAL_TEXT);
+
+	if (szAdvStatusIcon && szAdvStatusTitle && *szAdvStatusTitle) {
+		TCHAR szText[2048];
+		if (szAdvStatusText && *szAdvStatusText)
+			mir_sntprintf(szText, 2047, _T("%s (%s)"), TranslateTS(szAdvStatusTitle), szAdvStatusText);
+		else
+			mir_sntprintf(szText, 2047, _T("%s"), TranslateTS(szAdvStatusTitle));
+		sttFillInfoLine(hwndTree, htiRoot, Skin_GetIcon(szAdvStatusIcon), szTitle, szText, dwInfoLine);
+	}
+
+	mir_free(szAdvStatusIcon);
+	mir_free(szAdvStatusTitle);
+	mir_free(szAdvStatusText);
+}
+
+static void sttFillUserInfo(CJabberProto *ppro, HWND hwndTree, JABBER_LIST_ITEM *item)
+{
+	SendMessage(hwndTree, WM_SETREDRAW, FALSE, 0);
+
+	sttCleanupInfo(hwndTree, 0);
+
+	HTREEITEM htiRoot = sttFillInfoLine(hwndTree, NULL, ppro->LoadIconEx("main"), _T("JID"), item->jid, sttInfoLineId(0, INFOLINE_NAME), true);
+	TCHAR buf[256];
+
+	if (MCONTACT hContact = ppro->HContactFromJID(item->jid)) {
+		sttFillAdvStatusInfo(ppro, hwndTree, htiRoot, sttInfoLineId(0, INFOLINE_MOOD), hContact, TranslateT("Mood"), ADVSTATUS_MOOD);
+		sttFillAdvStatusInfo(ppro, hwndTree, htiRoot, sttInfoLineId(0, INFOLINE_ACTIVITY), hContact, TranslateT("Activity"), ADVSTATUS_ACTIVITY);
+		sttFillAdvStatusInfo(ppro, hwndTree, htiRoot, sttInfoLineId(0, INFOLINE_TUNE), hContact, TranslateT("Tune"), ADVSTATUS_TUNE);
+	}
+
+	// subscription
+	switch (item->subscription) {
+	case SUB_BOTH:
+		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("both"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));
+		break;
+	case SUB_TO:
+		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("to"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));
+		break;
+	case SUB_FROM:
+		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("from"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));
+		break;
+	default:
+		sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Subscription"), TranslateT("none"), sttInfoLineId(0, INFOLINE_SUBSCRIPTION));
+		break;
+	}
+
+	// logoff
+	JABBER_RESOURCE_STATUS *r = item->getTemp();
+	if (r->m_dwIdleStartTime > 0) {
+		lstrcpyn(buf, _tctime(&r->m_dwIdleStartTime), SIZEOF(buf));
+		int len = lstrlen(buf);
+		if (len > 0) buf[len-1] = 0;
+	}
+	else if (!r->m_dwIdleStartTime)
+		lstrcpyn(buf, TranslateT("unknown"), SIZEOF(buf));
+	else
+		lstrcpyn(buf, TranslateT("<not specified>"), SIZEOF(buf));
+
+	sttFillInfoLine(hwndTree, htiRoot, NULL,
+		(item->jid && _tcschr(item->jid, _T('@'))) ? TranslateT("Last logoff time") : TranslateT("Uptime"), buf,
+		sttInfoLineId(0, INFOLINE_LOGOFF));
+
+	sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Logoff message"),
+		r->m_tszStatusMessage ? r->m_tszStatusMessage : TranslateT("<not specified>"), sttInfoLineId(0, INFOLINE_LOGOFF_MSG));
+
+	// activity
+	if (item->m_pLastSeenResource)
+		lstrcpyn(buf, item->m_pLastSeenResource->m_tszResourceName, SIZEOF(buf));
+	else
+		lstrcpyn(buf, TranslateT("<no information available>"), SIZEOF(buf));
+
+	sttFillInfoLine(hwndTree, htiRoot, NULL, TranslateT("Last active resource"), buf,
+		sttInfoLineId(0, INFOLINE_LASTACTIVE));
+
+	// resources
+	if (item->arResources.getCount()) {
+		for (int i=0; i < item->arResources.getCount(); i++)
+			sttFillResourceInfo(ppro, hwndTree, htiRoot, item, i+1);
+	}
+	else if (!_tcschr(item->jid, _T('@')) || (r->m_iStatus != ID_STATUS_OFFLINE))
+		sttFillResourceInfo(ppro, hwndTree, htiRoot, item, 0);
+
+	sttCleanupInfo(hwndTree, 1);
+	SendMessage(hwndTree, WM_SETREDRAW, TRUE, 0);
+
+	RedrawWindow(hwndTree, NULL, NULL, RDW_INVALIDATE);
+}
+
+static void sttGetNodeText(HWND hwndTree, HTREEITEM hti, UserInfoStringBuf *buf, int indent = 0)
+{
+	for (int i=0; i < indent; i++)
+		buf->append(_T("\t"));
+
+	TVITEMEX tvi = {0};
+	tvi.mask = TVIF_HANDLE|TVIF_TEXT|TVIF_STATE;
+	tvi.hItem = hti;
+	tvi.cchTextMax = 256;
+	tvi.pszText = buf->allocate(tvi.cchTextMax);
+	if (!TreeView_GetItem(hwndTree, &tvi)) { // failure, maybe item was removed...
+		buf->buf[ buf->offset ] = 0;
+		buf->actualize();
+		return;
+	}
+
+	buf->actualize();
+	buf->append(_T("\r\n"));
+
+	if (tvi.state & TVIS_EXPANDED)
+		for (hti = TreeView_GetChild(hwndTree, hti); hti; hti = TreeView_GetNextSibling(hwndTree, hti))
+			sttGetNodeText(hwndTree, hti, buf, indent + 1);
+}
+
+static INT_PTR CALLBACK JabberUserInfoDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
+{
+	JabberUserInfoDlgData *dat = (JabberUserInfoDlgData *)GetWindowLongPtr(hwndDlg, GWLP_USERDATA);
+
+	switch (msg) {
+	case WM_INITDIALOG:
+		// lParam is hContact
+		TranslateDialogDefault(hwndDlg);
+
+		SendMessage(hwndDlg, WM_SETICON, ICON_BIG, (LPARAM)LoadSkinnedIconBig(SKINICON_OTHER_USERDETAILS));
+		SendMessage(hwndDlg, WM_SETICON, ICON_SMALL, (LPARAM)LoadSkinnedIcon(SKINICON_OTHER_USERDETAILS));
+
+		dat = (JabberUserInfoDlgData *)mir_alloc(sizeof(JabberUserInfoDlgData));
+		ZeroMemory(dat, sizeof(JabberUserInfoDlgData));
+		dat->resourcesCount = -1;
+
+		if (CallService(MS_DB_CONTACT_IS, (WPARAM)lParam, 0))
+			dat->hContact = lParam;
+		else if (!IsBadReadPtr((void*)lParam, sizeof(JABBER_LIST_ITEM))) {
+			dat->hContact = NULL;
+			dat->item = (JABBER_LIST_ITEM *)lParam;
+		}
+
+		{
+			RECT rc; GetClientRect(hwndDlg, &rc);
+			MoveWindow(GetDlgItem(hwndDlg, IDC_TV_INFO), 5, 5, rc.right-10, rc.bottom-10, TRUE);
+
+			HIMAGELIST himl = ImageList_Create(GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), ILC_COLOR|ILC_COLOR32|ILC_MASK, 5, 1);
+			ImageList_AddIcon_Icolib(himl, LoadSkinnedIcon(SKINICON_OTHER_SMALLDOT));
+			TreeView_SetImageList(GetDlgItem(hwndDlg, IDC_TV_INFO), himl, TVSIL_NORMAL);
+
+			SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR)dat);
+			WindowList_Add(hUserInfoList, hwndDlg, dat->hContact);
+		}
+		break;
+
+	case WM_JABBER_REFRESH:
+		if (!dat) break;
+
+		if (!dat->item) {
+			ptrT jid( dat->ppro->getTStringA(dat->hContact, "jid"));
+			if (jid == NULL)
+				break;
+
+			if (!(dat->item = dat->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid)))
+				dat->item = dat->ppro->ListGetItemPtr(LIST_ROSTER, jid);
+
+			if (!dat->item) {
+				HWND hwndTree = GetDlgItem(hwndDlg, IDC_TV_INFO);
+				TreeView_DeleteAllItems(hwndTree);
+				HTREEITEM htiRoot = sttFillInfoLine(hwndTree, NULL, dat->ppro->LoadIconEx("main"), _T("JID"), jid, sttInfoLineId(0, INFOLINE_NAME), true);
+				sttFillInfoLine(hwndTree, htiRoot, dat->ppro->LoadIconEx("vcard"), NULL,
+					TranslateT("Please switch online to see more details."));
+				break;
+			}
+		}
+		sttFillUserInfo(dat->ppro, GetDlgItem(hwndDlg, IDC_TV_INFO), dat->item);
+		break;
+
+	case WM_SIZE:
+		MoveWindow(GetDlgItem(hwndDlg, IDC_TV_INFO), 5, 5, LOWORD(lParam)-10, HIWORD(lParam)-10, TRUE);
+		break;
+
+	case WM_CONTEXTMENU:
+		if (GetWindowLongPtr((HWND)wParam, GWL_ID) == IDC_TV_INFO) {
+			HWND hwndTree = GetDlgItem(hwndDlg, IDC_TV_INFO);
+			POINT pt = { (signed short)LOWORD(lParam), (signed short)HIWORD(lParam) };
+			HTREEITEM hItem = 0;
+
+			if ((pt.x == -1) && (pt.y == -1)) {
+				if (hItem = TreeView_GetSelection(hwndTree)) {
+					RECT rc;
+					TreeView_GetItemRect(hwndTree, hItem, &rc, TRUE);
+					pt.x = rc.left;
+					pt.y = rc.bottom;
+					ClientToScreen(hwndTree, &pt);
+				}
+			}
+			else {
+				TVHITTESTINFO tvhti = {0};
+				tvhti.pt = pt;
+				ScreenToClient(hwndTree, &tvhti.pt);
+				TreeView_HitTest(hwndTree, &tvhti);
+				if (tvhti.flags & TVHT_ONITEM) {
+					hItem = tvhti.hItem;
+					TreeView_Select(hwndTree, hItem, TVGN_CARET);
+			}	}
+
+			if (hItem) {
+				HMENU hMenu = CreatePopupMenu();
+				AppendMenu(hMenu, MF_STRING, (UINT_PTR)1, TranslateT("Copy"));
+				AppendMenu(hMenu, MF_STRING, (UINT_PTR)2, TranslateT("Copy only this value"));
+				AppendMenu(hMenu, MF_SEPARATOR, 0, NULL);
+				AppendMenu(hMenu, MF_STRING, (UINT_PTR)0, TranslateT("Cancel"));
+				int nReturnCmd = TrackPopupMenu(hMenu, TPM_RETURNCMD, pt.x, pt.y, 0, hwndDlg, NULL);
+				if (nReturnCmd == 1) {
+					UserInfoStringBuf buf;
+					sttGetNodeText(hwndTree, hItem, &buf);
+					JabberCopyText(hwndDlg, buf.buf);
+				}
+				else if (nReturnCmd == 2) {
+					TCHAR szBuffer[ 1024 ];
+					TVITEMEX tvi = {0};
+					tvi.mask = TVIF_HANDLE|TVIF_TEXT|TVIF_STATE;
+					tvi.hItem = hItem;
+					tvi.cchTextMax = SIZEOF(szBuffer);
+					tvi.pszText = szBuffer;
+					if (TreeView_GetItem(hwndTree, &tvi)) {
+						if (TCHAR *str = _tcsstr(szBuffer, _T(": ")))
+							JabberCopyText(hwndDlg, str+2);
+						else
+							JabberCopyText(hwndDlg, szBuffer);
+				}	}
+				DestroyMenu(hMenu);
+		}	}
+		break;
+
+	case WM_NOTIFY:
+		if (((LPNMHDR)lParam)->idFrom == 0) {
+			switch (((LPNMHDR)lParam)->code) {
+			case PSN_INFOCHANGED:
+				{
+					MCONTACT hContact = (MCONTACT)((LPPSHNOTIFY)lParam)->lParam;
+					SendMessage(hwndDlg, WM_JABBER_REFRESH, 0, hContact);
+				}
+				break;
+
+			case PSN_PARAMCHANGED:
+				dat->ppro = (CJabberProto*)((PSHNOTIFY*)lParam)->lParam;
+				if (dat->hContact != NULL) {
+					ptrT jid( dat->ppro->getTStringA(dat->hContact, "jid"));
+					if (jid != NULL)
+						if (!(dat->item = dat->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid)))
+							dat->item = dat->ppro->ListGetItemPtr(LIST_ROSTER, jid);
+				}
+				break;
+		}	}
+		break;
+
+	case WM_CLOSE:
+		DestroyWindow(hwndDlg);
+		break;
+
+	case WM_DESTROY:
+		WindowList_Remove(hUserInfoList, hwndDlg);
+		if (dat) {
+			mir_free(dat);
+			SetWindowLongPtr(hwndDlg, GWLP_USERDATA, 0);
+		}
+		ImageList_Destroy(TreeView_SetImageList(GetDlgItem(hwndDlg, IDC_TV_INFO), NULL, TVSIL_NORMAL));
+		WindowFreeIcon(hwndDlg);
+		break;
+	}
+	return FALSE;
+}
+
+/////////////////////////////////////////////////////////////////////////////////////////
+// JabberUserPhotoDlgProc - Jabber photo dialog
+
+struct USER_PHOTO_INFO
+{
+	MCONTACT hContact;
+	HBITMAP hBitmap;
+	CJabberProto *ppro;
+};
+
+static INT_PTR CALLBACK JabberUserPhotoDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
+{
+	USER_PHOTO_INFO *photoInfo;
+
+	photoInfo = (USER_PHOTO_INFO *) GetWindowLongPtr(hwndDlg, GWLP_USERDATA);
+
+	switch (msg) {
+	case WM_INITDIALOG:
+		// lParam is hContact
+		TranslateDialogDefault(hwndDlg);
+		photoInfo = (USER_PHOTO_INFO *) mir_alloc(sizeof(USER_PHOTO_INFO));
+		photoInfo->hContact = lParam;
+		photoInfo->ppro = NULL;
+		photoInfo->hBitmap = NULL;
+		SetWindowLongPtr(hwndDlg, GWLP_USERDATA, (LONG_PTR) photoInfo);
+		SendDlgItemMessage(hwndDlg, IDC_SAVE, BM_SETIMAGE, IMAGE_ICON, (LPARAM)LoadImage(hInst, MAKEINTRESOURCE(IDI_SAVE), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), 0));
+		SendDlgItemMessage(hwndDlg, IDC_SAVE, BUTTONSETASFLATBTN, TRUE, 0);
+		ShowWindow(GetDlgItem(hwndDlg, IDC_LOAD), SW_HIDE);
+		ShowWindow(GetDlgItem(hwndDlg, IDC_DELETE), SW_HIDE);
+		break;
+
+	case WM_NOTIFY:
+		switch (((LPNMHDR)lParam)->idFrom) {
+		case 0:
+			switch (((LPNMHDR)lParam)->code) {
+			case PSN_INFOCHANGED:
+				SendMessage(hwndDlg, WM_JABBER_REFRESH, 0, 0);
+				break;
+
+			case PSN_PARAMCHANGED:
+				photoInfo->ppro = (CJabberProto*)((PSHNOTIFY*)lParam)->lParam;
+				break;
+			}
+			break;
+		}
+		break;
+
+	case WM_JABBER_REFRESH:
+		{
+			if (photoInfo->hBitmap) {
+				DeleteObject(photoInfo->hBitmap);
+				photoInfo->hBitmap = NULL;
+			}
+			ShowWindow(GetDlgItem(hwndDlg, IDC_SAVE), SW_HIDE);
+			ptrT jid( photoInfo->ppro->getTStringA(photoInfo->hContact, "jid"));
+			if (jid != NULL) {
+				JABBER_LIST_ITEM *item = photoInfo->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid);
+				if (item == NULL)
+					item = photoInfo->ppro->ListGetItemPtr(LIST_ROSTER, jid);
+				if (item != NULL) {
+					if (item->photoFileName) {
+						photoInfo->ppro->debugLog(_T("Showing picture from %s"), item->photoFileName);
+						photoInfo->hBitmap = (HBITMAP) CallService(MS_UTILS_LOADBITMAPT, 0, (LPARAM)item->photoFileName);
+						FIP->FI_Premultiply(photoInfo->hBitmap);
+						ShowWindow(GetDlgItem(hwndDlg, IDC_SAVE), SW_SHOW);
+					}
+				}
+			}
+			InvalidateRect(hwndDlg, NULL, TRUE);
+			UpdateWindow(hwndDlg);
+		}
+		break;
+
+	case WM_COMMAND:
+		switch (LOWORD(wParam)) {
+		case IDC_SAVE:
+			static TCHAR szFilter[512];
+
+			ptrT jid(photoInfo->ppro->getTStringA(photoInfo->hContact, "jid"));
+			if (jid == NULL)
+				break;
+
+			JABBER_LIST_ITEM *item = photoInfo->ppro->ListGetItemPtr(LIST_VCARD_TEMP, jid);
+			if (item == NULL)
+				if ((item = photoInfo->ppro->ListGetItemPtr(LIST_ROSTER, jid)) == NULL)
+					break;
+
+			switch (ProtoGetAvatarFileFormat(item->photoFileName)) {
+			case PA_FORMAT_BMP:
+				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("BMP %s (*.bmp)%c*.BMP"), TranslateT("format"), 0);
+				break;
+
+			case PA_FORMAT_GIF:
+				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("GIF %s (*.gif)%c*.GIF"), TranslateT("format"), 0);
+				break;
+
+			case PA_FORMAT_JPEG:
+				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("JPEG %s (*.jpg;*.jpeg)%c*.JPG;*.JPEG"), TranslateT("format"), 0);
+				break;
+
+			default:
+				mir_sntprintf(szFilter, SIZEOF(szFilter), _T("%s (*.*)%c*.*"), TranslateT("Unknown format"), 0);
+			}
+
+			TCHAR szFileName[MAX_PATH]; szFileName[0] = '\0';
+			OPENFILENAME ofn = { 0 };
+			ofn.lStructSize = OPENFILENAME_SIZE_VERSION_400;
+			ofn.hwndOwner = hwndDlg;
+			ofn.lpstrFilter = szFilter;
+			ofn.lpstrFile = szFileName;
+			ofn.nMaxFile = _MAX_PATH;
+			ofn.Flags = OFN_OVERWRITEPROMPT;
+			if ( GetSaveFileName(&ofn)) {
+				photoInfo->ppro->debugLog(_T("File selected is %s"), szFileName);
+				CopyFile(item->photoFileName, szFileName, FALSE);
+			}
+		}
+		break;
+
+	case WM_PAINT:
+		if (!photoInfo->ppro->m_bJabberOnline)
+			SetDlgItemText(hwndDlg, IDC_CANVAS, TranslateT("<Photo not available while offline>"));
+		else if (!photoInfo->hBitmap)
+			SetDlgItemText(hwndDlg, IDC_CANVAS, TranslateT("<No photo>"));
+		else {
+			BITMAP bm;
+			POINT ptSize, ptOrg, pt, ptFitSize;
+			RECT rect;
+
+			SetDlgItemTextA(hwndDlg, IDC_CANVAS, "");
+			HBITMAP hBitmap = photoInfo->hBitmap;
+			HWND hwndCanvas = GetDlgItem(hwndDlg, IDC_CANVAS);
+			HDC hdcCanvas = GetDC(hwndCanvas);
+			HDC hdcMem = CreateCompatibleDC(hdcCanvas);
+			SelectObject(hdcMem, hBitmap);
+			SetMapMode(hdcMem, GetMapMode(hdcCanvas));
+			GetObject(hBitmap, sizeof(BITMAP), (LPVOID) &bm);
+			ptSize.x = bm.bmWidth;
+			ptSize.y = bm.bmHeight;
+			DPtoLP(hdcCanvas, &ptSize, 1);
+			ptOrg.x = ptOrg.y = 0;
+			DPtoLP(hdcMem, &ptOrg, 1);
+			GetClientRect(hwndCanvas, &rect);
+			InvalidateRect(hwndCanvas, NULL, TRUE);
+			UpdateWindow(hwndCanvas);
+			if (ptSize.x<=rect.right && ptSize.y<=rect.bottom) {
+				pt.x = (rect.right - ptSize.x)/2;
+				pt.y = (rect.bottom - ptSize.y)/2;
+				ptFitSize = ptSize;
+			}
+			else {
+				if (((float)(ptSize.x-rect.right))/ptSize.x > ((float)(ptSize.y-rect.bottom))/ptSize.y) {
+					ptFitSize.x = rect.right;
+					ptFitSize.y = (ptSize.y*rect.right)/ptSize.x;
+					pt.x = 0;
+					pt.y = (rect.bottom - ptFitSize.y)/2;
+				}
+				else {
+					ptFitSize.x = (ptSize.x*rect.bottom)/ptSize.y;
+					ptFitSize.y = rect.bottom;
+					pt.x = (rect.right - ptFitSize.x)/2;
+					pt.y = 0;
+				}
+			}
+
+			if (IsThemeActive()) {
+				RECT rc; GetClientRect(hwndCanvas, &rc);
+				DrawThemeParentBackground(hwndCanvas, hdcCanvas, &rc);
+			}
+			else {
+				RECT rc; GetClientRect(hwndCanvas, &rc);
+				FillRect(hdcCanvas, &rc, (HBRUSH)GetSysColorBrush(COLOR_BTNFACE));
+			}
+
+			if (bm.bmBitsPixel == 32) {
+				BLENDFUNCTION bf = {0};
+				bf.AlphaFormat = AC_SRC_ALPHA;
+				bf.BlendOp = AC_SRC_OVER;
+				bf.SourceConstantAlpha = 255;
+				GdiAlphaBlend(hdcCanvas, pt.x, pt.y, ptFitSize.x, ptFitSize.y, hdcMem, ptOrg.x, ptOrg.y, ptSize.x, ptSize.y, bf);
+			}
+			else {
+				SetStretchBltMode(hdcCanvas, COLORONCOLOR);
+				StretchBlt(hdcCanvas, pt.x, pt.y, ptFitSize.x, ptFitSize.y, hdcMem, ptOrg.x, ptOrg.y, ptSize.x, ptSize.y, SRCCOPY);
+			}
+
+			DeleteDC(hdcMem);
+		}
+		break;
+
+	case WM_DESTROY:
+		DestroyIcon((HICON)SendDlgItemMessage(hwndDlg, IDC_SAVE, BM_SETIMAGE, IMAGE_ICON, 0));
+		if (!photoInfo)
+			break;
+		if (photoInfo->hBitmap) {
+			photoInfo->ppro->debugLogA("Delete bitmap");
+			DeleteObject(photoInfo->hBitmap);
+		}
+		mir_free(photoInfo);
+		SetWindowLongPtr(hwndDlg, GWLP_USERDATA, 0);
+		break;
+	}
+	return FALSE;
+}
+
+/////////////////////////////////////////////////////////////////////////////////////////
+// OnInfoInit - initializes user info option dialogs
+
+int CJabberProto::OnUserInfoInit(WPARAM wParam, LPARAM lParam)
+{
+	if (!CallService(MS_PROTO_ISPROTOCOLLOADED, 0, (LPARAM)m_szModuleName))
+		return 0;
+
+	MCONTACT hContact = lParam;
+	if (hContact == NULL) {
+		// Show our vcard
+		OnUserInfoInit_VCard(wParam, lParam);
+		return 0;
+	}
+
+	char *szProto = GetContactProto(hContact);
+	if (szProto != NULL && !strcmp(szProto, m_szModuleName)) {
+		OPTIONSDIALOGPAGE odp = { sizeof(odp) };
+		odp.hInstance = hInst;
+		odp.dwInitParam = (LPARAM)this;
+
+		odp.pfnDlgProc = JabberUserInfoDlgProc;
+		odp.position = -2000000000;
+		odp.pszTemplate = MAKEINTRESOURCEA(IDD_INFO_JABBER);
+		odp.pszTitle = LPGEN("Account");
+		UserInfo_AddPage(wParam, &odp);
+
+		odp.pfnDlgProc = JabberUserPhotoDlgProc;
+		odp.position = 2000000000;
+		odp.pszTemplate = MAKEINTRESOURCEA(IDD_VCARD_PHOTO);
+		odp.pszTitle = LPGEN("Photo");
+		UserInfo_AddPage(wParam, &odp);
+	}
+	return 0;
+}
+
+/////////////////////////////////////////////////////////////////////////////////////////
+// JabberUserInfoUpdate
+
+void JabberUserInfoInit()
+{
+	hUserInfoList = WindowList_Create();
+}
+
+void JabberUserInfoUninit()
+{
+	WindowList_Destroy(hUserInfoList);
+}
+
+/////////////////////////////////////////////////////////////////////////////////////////
+// JabberUserInfoUpdate
+
+void JabberUserInfoUpdate(MCONTACT hContact)
+{
+	if (!hContact)
+		WindowList_BroadcastAsync(hUserInfoList, WM_JABBER_REFRESH, 0, 0);
+	else if (HWND hwnd = WindowList_Find(hUserInfoList, hContact))
+		PostMessage(hwnd, WM_JABBER_REFRESH, 0, 0);
+}