From ed4483115a924f177b786e11bc436243512eb8da Mon Sep 17 00:00:00 2001 From: Rozhuk Ivan Date: Tue, 25 Nov 2014 23:34:49 +0000 Subject: jabber code clean up req code review git-svn-id: http://svn.miranda-ng.org/main/trunk@11074 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- protocols/JabberG/src/jabber_search.cpp | 1532 +++++++++++++------------- protocols/JabberG/src/jabber_userinfo.cpp | 1697 +++++++++++++++-------------- 2 files changed, 1619 insertions(+), 1610 deletions(-) (limited to 'protocols/JabberG') 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 -#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 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 ListOfNonEmptyFields(20,(LIST::FTSortFunc)TCharKeyCmp); - LIST ListOfFields(20); - LIST* plUsersInfo = (LIST*)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 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 ")); - //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; inJSInfCount; 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 +#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 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 ListOfNonEmptyFields(20,(LIST::FTSortFunc)TCharKeyCmp); + LIST ListOfFields(20); + LIST* plUsersInfo = (LIST*)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 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 ")); + //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; inJSInfCount; 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 -#include -#include - -#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(""), - 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(""), - sttInfoLineId(resource, INFOLINE_SOFTWARE)); - - if (hIcon) - DestroyIcon(hIcon); - - // Version - sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Version"), - r->m_tszSoftwareVersion ? r->m_tszSoftwareVersion : TranslateT(""), - sttInfoLineId(resource, INFOLINE_VERSION)); - - // System - sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("System"), - r->m_tszOs ? r->m_tszOs : TranslateT(""), - 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(""), 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(""), 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(""), sttInfoLineId(0, INFOLINE_LOGOFF_MSG)); - - // activity - if (item->m_pLastSeenResource) - lstrcpyn(buf, item->m_pLastSeenResource->m_tszResourceName, SIZEOF(buf)); - else - lstrcpyn(buf, TranslateT(""), 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("")); - else if (!photoInfo->hBitmap) - SetDlgItemText(hwndDlg, IDC_CANVAS, TranslateT("")); - 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 +#include +#include + +#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(""), + 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(""), + sttInfoLineId(resource, INFOLINE_SOFTWARE)); + + if (hIcon) + DestroyIcon(hIcon); + + // Version + sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("Version"), + r->m_tszSoftwareVersion ? r->m_tszSoftwareVersion : TranslateT(""), + sttInfoLineId(resource, INFOLINE_VERSION)); + + // System + sttFillInfoLine(hwndTree, htiResource, NULL, TranslateT("System"), + r->m_tszOs ? r->m_tszOs : TranslateT(""), + 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(""), 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(""), 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(""), sttInfoLineId(0, INFOLINE_LOGOFF_MSG)); + + // activity + if (item->m_pLastSeenResource) + lstrcpyn(buf, item->m_pLastSeenResource->m_tszResourceName, SIZEOF(buf)); + else + lstrcpyn(buf, TranslateT(""), 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("")); + else if (!photoInfo->hBitmap) + SetDlgItemText(hwndDlg, IDC_CANVAS, TranslateT("")); + 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); +} -- cgit v1.2.3