diff options
Diffstat (limited to 'plugins/UserInfoEx/src/svc_contactinfo.cpp')
| -rw-r--r-- | plugins/UserInfoEx/src/svc_contactinfo.cpp | 798 |
1 files changed, 798 insertions, 0 deletions
diff --git a/plugins/UserInfoEx/src/svc_contactinfo.cpp b/plugins/UserInfoEx/src/svc_contactinfo.cpp new file mode 100644 index 0000000000..6a54880e67 --- /dev/null +++ b/plugins/UserInfoEx/src/svc_contactinfo.cpp @@ -0,0 +1,798 @@ +/*
+UserinfoEx plugin for Miranda IM
+
+Copyright:
+ 2006-2010 DeathAxe, Yasnovidyashii, Merlin, K. Romanov, Kreol
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+===============================================================================
+
+File name : $HeadURL: https://userinfoex.googlecode.com/svn/trunk/svc_contactinfo.cpp $
+Revision : $Revision: 203 $
+Last change on : $Date: 2010-09-26 18:21:04 +0400 (Вс, 26 сен 2010) $
+Last change by : $Author: ing.u.horn $
+
+===============================================================================
+*/
+
+/**
+ * System Includes:
+ **/
+#include "commonheaders.h"
+#include "m_contacts.h"
+#include "svc_timezone.h"
+#include "svc_timezone_old.h"
+#include "svc_contactinfo.h"
+#include "svc_gender.h"
+#include "Flags\svc_countrylistext.h"
+
+#define CI_TCHAR(ci) (((ci)->dwFlag & CNF_UNICODE) ? DBVT_WCHAR : DBVT_ASCIIZ)
+
+#define NAMEORDERCOUNT 8
+static BYTE gNameOrder[NAMEORDERCOUNT]; // name order as set up for contact list
+
+/**
+ * This function translates the DBVARIANT structure to an CONTACTINFO structure
+ * and keeps the original data type.
+ *
+ * @warning ci MUST NOT be NULL and dbv must be freed by caller on failure!
+ *
+ * @param dbv - DBVARIANT to take the data for translation from
+ * @param ci - CONTACTINFO structure to translate to
+ *
+ * @retval 0 - success
+ * @retval 1 - failure
+ **/
+static FORCEINLINE INT_PTR VarToVarCI(const DBVARIANT *dbv, CONTACTINFO *ci)
+{
+ switch (dbv->type) {
+ case DBVT_ASCIIZ:
+ case DBVT_WCHAR: {
+ // string translation is to be done by caller!!!
+ ci->pszVal = dbv->ptszVal;
+ ci->type = (ci->pszVal != NULL) ? CNFT_ASCIIZ : 0;
+ } break;
+
+ case DBVT_BYTE: {
+ ci->type = CNFT_BYTE;
+ ci->bVal = dbv->bVal;
+ } break;
+
+ case DBVT_WORD: {
+ ci->type = CNFT_WORD;
+ ci->wVal = dbv->wVal;
+ } break;
+
+ case DBVT_DWORD: {
+ ci->type = CNFT_DWORD;
+ ci->dVal = dbv->dVal;
+ } break;
+
+ default: {
+ ci->type = 0;
+ }
+ }
+ return ci->type == 0;
+}
+
+/**
+ * This function tries to read a setting from the contact's protocol module.
+ *
+ * @warning ci MUST NOT be NULL!
+ *
+ * @param ci - pointer to a CONTACTINFO structure holding information about the contact
+ * @param pszSetting - the desired setting to read
+ *
+ * @retval 0 - if setting was found and read correctly
+ * @retval 1 - if any error occured or setting was not found
+ **/
+static FORCEINLINE INT_PTR GCIVar(CONTACTINFO *ci, LPCSTR pszSetting)
+{
+ DBVARIANT dbv;
+
+ if (DB::Setting::Get(ci->hContact, ci->szProto, pszSetting, &dbv, CI_TCHAR(ci)) == 0) {
+ if (VarToVarCI(&dbv, ci)) {
+ // On a error, we need to make sure, read data is cleared out!
+ DB::Variant::Free(&dbv);
+ }
+ }
+ else {
+ ci->type = 0;
+ }
+ return ci->type == 0;
+}
+
+/**
+ * This function tries to read a setting from a certain module (e.g. USERINFO) and if failed it
+ * tries once again with the baseprotocol of the contact (e.g. ICQ). If nothing was found anyway
+ * and this is an metacontact it can have a look into subcontacts to retrieve the information.
+ * This depends on the settings the user did.
+ *
+ * @warning ci MUST NOT be NULL!
+ *
+ * @param ci - pointer to a CONTACTINFO structure holding information about the contact
+ * @param pszSetting - the desired setting to read
+ *
+ * @retval 0 - if setting was found and read correctly
+ * @retval 1 - if any error occured or setting was not found
+ **/
+static FORCEINLINE INT_PTR GCIVarEx(CONTACTINFO *ci, LPCSTR pszSetting)
+{
+ DBVARIANT dbv;
+
+ if (DB::Setting::GetEx(ci->hContact, USERINFO, ci->szProto, pszSetting, &dbv, CI_TCHAR(ci)) == 0) {
+ if (VarToVarCI(&dbv, ci)) {
+ // On a error, we need to make sure, read data is cleared out!
+ DB::Variant::Free(&dbv);
+ }
+ }
+ else {
+ ci->type = 0;
+ }
+ return ci->type == 0;
+}
+
+/**
+ * This function tries to read a Language from a certain module (e.g. USERINFO) and if failed it
+ * tries once again with the baseprotocol of the contact (e.g. ICQ). If nothing was found anyway
+ * and this is an metacontact it can have a look into subcontacts to retrieve the information.
+ * This depends on the settings the user did.
+ *
+ * @warning ci MUST NOT be NULL!
+ *
+ * @param ci - pointer to a CONTACTINFO structure holding information about the contact
+ * @param pszSetting - the desired setting to read
+ *
+ * @retval 0 - if setting was found and read correctly
+ * @retval 1 - if any error occured or setting was not found
+ **/
+static FORCEINLINE INT_PTR GCILangEx(CONTACTINFO *ci, LPCSTR pszSetting)
+{
+ if (0 == GCIVarEx(ci, pszSetting)) {
+ if(ci->type!= CNFT_ASCIIZ) {
+ //lang was safed in database as code
+ LPIDSTRLIST pList;
+ UINT nList, i, res = 0;
+ switch (ci->type) {
+ case CNFT_BYTE: res = ci->bVal; break;
+ case CNFT_WORD: res = ci->wVal; break;
+ case CNFT_DWORD: res = ci->dVal; break;
+ default: return 1;
+ }
+ GetLanguageList(&nList, &pList);
+ for(i = 0; i<nList; i++) {
+ if(pList[i].nID == res) {
+ //use untranslate string (pszText member)
+ ci->pszVal = (ci->dwFlag & CNF_UNICODE)
+ ? (LPTSTR) mir_a2u(pList[i].pszText)
+ : (LPTSTR) mir_strdup(pList[i].pszText);
+ ci->type = (ci->pszVal != NULL) ? CNFT_ASCIIZ : 0;
+ return 0;
+ }
+ } /*end for*/
+ ci->type = 0;
+ ci->pszVal = NULL;
+ }
+ }
+ else {
+ ci->type = 0;
+ }
+ return ci->type == 0;
+}
+
+/**
+ * This function read a setting from the baseprotocol of the contact (e.g. ICQ).
+ *
+ * @warning ci MUST NOT be NULL!
+ *
+ * @param ci - pointer to a CONTACTINFO structure holding information about the contact
+ * @param pszSetting - the desired setting to read
+ *
+ * @retval 0 - if setting was found and read correctly
+ * @retval 1 - if any error occured or setting was not found
+ **/
+static FORCEINLINE INT_PTR GCIStr(CONTACTINFO *ci, LPCSTR pszSetting)
+{
+ const BYTE type = CI_TCHAR(ci);
+ DBVARIANT dbv;
+
+ if (DB::Setting::Get(ci->hContact, ci->szProto, pszSetting, &dbv, type) == 0) {
+ if (DB::Variant::dbv2String(&dbv, type) == 0) {
+ ci->pszVal = dbv.ptszVal;
+ }
+ else {
+ DB::Variant::Free(&dbv);
+ ci->pszVal = NULL;
+ }
+ }
+ else {
+ ci->pszVal = NULL;
+ }
+ ci->type = (ci->pszVal) ? CNFT_ASCIIZ : 0;
+ return ci->type == 0;
+}
+
+/**
+ * Format the full name for the contact.
+ *
+ * @params ci - CONTACTINFO structure
+ *
+ * @retval 0 - if setting was found and read correctly
+ * @retval 1 - if any error occured or setting was not found
+ **/
+static FORCEINLINE INT_PTR GCIFirstLast(CONTACTINFO *ci)
+{
+ DBVARIANT dbvf, dbvl;
+ size_t cbf, cbl;
+
+ BYTE type = CI_TCHAR(ci);
+
+ if (DB::Setting::GetEx(ci->hContact, USERINFO, ci->szProto, SET_CONTACT_FIRSTNAME, &dbvf, type))
+ {
+ dbvf.type = DBVT_DELETED;
+ }
+ if (DB::Setting::GetEx(ci->hContact, USERINFO, ci->szProto, SET_CONTACT_LASTNAME, &dbvl, type))
+ {
+ dbvl.type = DBVT_DELETED;
+ }
+
+ if (type == DBVT_WCHAR)
+ {
+ // both firstname and lastname are valid
+ if (dbvf.type == DBVT_WCHAR && dbvl.type == DBVT_WCHAR)
+ {
+ cbf = mir_wcslen(dbvf.pwszVal);
+ cbl = mir_wcslen(dbvl.pwszVal);
+
+ ci->pszVal = (LPTSTR) mir_alloc((cbf + cbl + 2) * sizeof(WCHAR));
+ if (ci->pszVal)
+ {
+ mir_snwprintf((LPWSTR) ci->pszVal, cbf + cbl + 2, L"%s %s", dbvf.pwszVal, dbvl.pwszVal);
+ }
+ DB::Variant::Free(&dbvf);
+ DB::Variant::Free(&dbvl);
+ }
+ // set firstname as result
+ else if (dbvf.type == DBVT_WCHAR)
+ {
+ ci->pszVal = (LPTSTR) dbvf.pwszVal;
+ DB::Variant::Free(&dbvl);
+ }
+ // set lastname as result
+ else if (dbvl.type == DBVT_WCHAR)
+ {
+ ci->pszVal = (LPTSTR) dbvl.pwszVal;
+ DB::Variant::Free(&dbvf);
+ }
+ else
+ {
+ ci->pszVal = NULL;
+ DB::Variant::Free(&dbvf);
+ DB::Variant::Free(&dbvl);
+ }
+ }
+ else
+ {
+ // both firstname and lastname are valid
+ if (dbvf.type == DBVT_ASCIIZ && dbvl.type == DBVT_ASCIIZ)
+ {
+ cbf = mir_strlen(dbvf.pszVal);
+ cbl = mir_strlen(dbvl.pszVal);
+
+ ci->pszVal = (LPTSTR) mir_alloc((cbf + cbl + 2) * sizeof(CHAR));
+ if (ci->pszVal)
+ {
+ mir_snprintf((LPSTR) ci->pszVal, cbf + cbl + 2, "%s %s", dbvf.pszVal, dbvl.pszVal);
+ }
+ DB::Variant::Free(&dbvf);
+ DB::Variant::Free(&dbvl);
+ }
+ // set firstname as result
+ else if (dbvf.type == DBVT_ASCIIZ)
+ {
+ ci->pszVal = (LPTSTR) dbvf.pszVal;
+ DB::Variant::Free(&dbvl);
+ }
+ // set lastname as result
+ else if (dbvl.type == DBVT_ASCIIZ)
+ {
+ ci->pszVal = (LPTSTR) dbvl.pszVal;
+ DB::Variant::Free(&dbvf);
+ }
+ else
+ {
+ ci->pszVal = NULL;
+ DB::Variant::Free(&dbvf);
+ DB::Variant::Free(&dbvl);
+ }
+ }
+ ci->type = (ci->pszVal != NULL) ? CNFT_ASCIIZ : 0;
+ return ci->type == 0;
+}
+
+/**
+ * return the country name
+ *
+ * @param ci - pointer to a CONTACTINFO structure holding information about the contact
+ * @param pszSetting - the desired setting to read the countrys id from
+ *
+ * @retval 0 - if setting was found and read correctly
+ * @retval 1 - if any error occured or setting was not found
+ **/
+static FORCEINLINE INT_PTR GCICountry(CONTACTINFO *ci, LPCSTR pszSetting)
+{
+ if (0 == GCIVarEx(ci, pszSetting)) {
+ if (ci->type != CNFT_ASCIIZ) {
+ // country id was safed in database as code
+ UINT res = 0;
+ switch (ci->type) {
+ case CNFT_WORD: res = ci->wVal; break;
+ case CNFT_DWORD: res = ci->dVal; break;
+ default: return 1;
+ }
+
+// LPSTR szCountry = res ? (LPSTR)CallService(MS_UTILS_GETCOUNTRYBYNUMBER, res, 0) : NULL;
+ LPSTR szCountry = res ? (LPSTR)ServiceGetCountryByNumber(res, 0) : NULL;
+ if (szCountry) {
+ ci->pszVal = (ci->dwFlag & CNF_UNICODE)
+ ? (LPTSTR) mir_a2u(szCountry)
+ : (LPTSTR) mir_strdup(szCountry);
+ }
+ else {
+ ci->pszVal = NULL;
+ }
+ ci->type = (ci->pszVal != NULL) ? CNFT_ASCIIZ : 0;
+ }
+ }
+ else {
+ ci->type = 0;
+ }
+ return ci->type == 0;
+}
+
+/**
+ * This is the service procedure to retrieve contact information
+ *
+ * @param wParam - not used
+ * @param lParam - pointer to a CONTACTINFO structure which tells what information is desired
+ *
+ * @retval 0 - if contact information was found and read correctly
+ * @retval 1 - if any error occured or setting was not found
+ **/
+INT_PTR GetContactInfo(WPARAM wParam, LPARAM lParam)
+{
+ CONTACTINFO *ci = (CONTACTINFO*) lParam;
+ INT_PTR result;
+
+ if (ci && ci->cbSize == sizeof(CONTACTINFO) && (ci->szProto != NULL || (ci->szProto = DB::Contact::Proto(ci->hContact)) != NULL))
+ {
+ switch (ci->dwFlag & 0x7F) {
+
+ //
+ // contact name
+ //
+ case CNF_FIRSTNAME: {
+ result = GCIVarEx(ci, SET_CONTACT_FIRSTNAME);
+ } break;
+
+ case CNF_LASTNAME: {
+ result = GCIVarEx(ci, SET_CONTACT_LASTNAME);
+ } break;
+
+ case CNF_FIRSTLAST: {
+ result = GCIVarEx(ci, SET_CONTACT_FIRSTLASTNAME); //first try to read "FullName"
+ if(result) result = GCIFirstLast(ci); //fallback to "FirstName" + "LastName"
+ } break;
+
+ case CNF_NICK: {
+ result = GCIVarEx(ci, SET_CONTACT_NICK);
+ } break;
+
+ case CNF_CUSTOMNICK: {
+ LPSTR s = ci->szProto;
+ ci->szProto = MOD_CLIST;
+ result = GCIVar(ci, SET_CONTACT_MYHANDLE);
+ ci->szProto = s;
+ } break;
+
+ case CNF_LANGUAGE1: {
+ result = GCILangEx(ci, SET_CONTACT_LANG1);
+ } break;
+
+ case CNF_LANGUAGE2: {
+ result = GCILangEx(ci, SET_CONTACT_LANG2);
+ } break;
+
+ case CNF_LANGUAGE3: {
+ result = GCILangEx(ci, SET_CONTACT_LANG3);
+ } break;
+
+ //
+ // private contact
+ //
+ case CNF_STREET: {
+ result = GCIVarEx(ci, SET_CONTACT_STREET);
+ } break;
+
+ case CNF_ZIP: {
+ result = GCIVarEx(ci, SET_CONTACT_ZIP);
+ } break;
+
+ case CNF_CITY: {
+ result = GCIVarEx(ci, SET_CONTACT_CITY);
+ } break;
+
+ case CNF_STATE: {
+ result = GCIVarEx(ci, SET_CONTACT_STATE);
+ } break;
+
+ case CNF_COUNTRY: {
+ result = GCICountry(ci, SET_CONTACT_COUNTRY);
+ } break;
+
+ case CNF_PHONE: {
+ result = GCIVarEx(ci, SET_CONTACT_PHONE);
+ } break;
+
+ case CNF_FAX: {
+ result = GCIVarEx(ci, SET_CONTACT_FAX);
+ } break;
+
+ case CNF_CELLULAR: {
+ result = GCIVarEx(ci, SET_CONTACT_CELLULAR);
+ } break;
+
+ case CNF_EMAIL: {
+ result = GCIVarEx(ci, SET_CONTACT_EMAIL);
+ } break;
+
+ case CNF_HOMEPAGE: {
+ result = GCIVarEx(ci, SET_CONTACT_HOMEPAGE);
+ } break;
+
+ //
+ // company information
+ //
+ case CNF_CONAME: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY);
+ } break;
+
+ case CNF_CODEPT: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_DEPARTMENT);
+ } break;
+
+ case CNF_COPOSITION: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_POSITION);
+ } break;
+
+ case CNF_COSTREET: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_STREET);
+ } break;
+
+ case CNF_COZIP: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_ZIP);
+ } break;
+
+ case CNF_COCITY: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_CITY);
+ } break;
+
+ case CNF_COSTATE: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_STATE);
+ } break;
+
+ case CNF_COCOUNTRY: {
+ result = GCICountry(ci, SET_CONTACT_COMPANY_COUNTRY);
+ } break;
+
+ case CNF_COPHONE: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_PHONE);
+ } break;
+
+ case CNF_COFAX: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_FAX);
+ } break;
+
+ case CNF_COCELLULAR: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_CELLULAR);
+ } break;
+
+ case CNF_COEMAIL: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_EMAIL);
+ } break;
+
+ case CNF_COHOMEPAGE: {
+ result = GCIVarEx(ci, SET_CONTACT_COMPANY_HOMEPAGE);
+ } break;
+
+ //
+ // personal information
+ //
+ case CNF_ABOUT: {
+ result = GCIVarEx(ci, SET_CONTACT_ABOUT);
+ } break;
+
+ case CNF_MYNOTES: {
+ result = GCIVarEx(ci, SET_CONTACT_MYNOTES);
+ } break;
+
+ case CNF_AGE: {
+ result = GCIVarEx(ci, SET_CONTACT_AGE);
+ } break; // returns age (byte, 0==unspecified) ??
+
+ case CNF_GENDER: {
+ ci->bVal = GenderOf(ci->hContact, ci->szProto);
+ ci->type = (ci->bVal != 0) ? CNFT_BYTE : 0;
+ result = ci->type == 0;
+ } break;
+
+ case CNF_BIRTHDAY: {
+ MAnnivDate mda;
+ result = mda.DBGetBirthDate(ci->hContact, ci->szProto);
+ if (result == 0) {
+ ci->bVal = (BYTE) mda.Day();
+ ci->type = CNFT_BYTE;
+ }
+ } break;
+
+ case CNF_BIRTHMONTH: {
+ MAnnivDate mda;
+ result = mda.DBGetBirthDate(ci->hContact, ci->szProto);
+ if (result == 0) {
+ ci->bVal = (BYTE) mda.Month();
+ ci->type = CNFT_BYTE;
+ }
+ } break;
+
+ case CNF_BIRTHYEAR: {
+ MAnnivDate mda;
+ result = mda.DBGetBirthDate(ci->hContact, ci->szProto);
+ if (result == 0) {
+ ci->wVal = (WORD) mda.Year();
+ ci->type = CNFT_WORD;
+ }
+ } break;
+
+ case CNF_BIRTHDATE: {
+ MAnnivDate mda;
+ result = mda.DBGetBirthDate(ci->hContact, ci->szProto);
+ if (result == 0) {
+ SYSTEMTIME st = mda.SystemTime();
+ ci->pszVal = NULL;
+ if (ci->dwFlag & CNF_UNICODE) {
+ WCHAR wszDate[80];
+ if (GetDateFormatW(LOCALE_USER_DEFAULT, wParam == 1 ? DATE_LONGDATE : DATE_SHORTDATE, &st, NULL, wszDate, SIZEOF(wszDate))) {
+ ci->pszVal = (LPTSTR)mir_wcsdup(wszDate);
+ }
+ }
+ else {
+ CHAR szDate[80];
+ if (GetDateFormatA(LOCALE_USER_DEFAULT, wParam == 1 ? DATE_LONGDATE : DATE_SHORTDATE, &st, NULL, szDate, SIZEOF(szDate))) {
+ ci->pszVal = (LPTSTR)mir_strdup(szDate);
+ }
+ }
+ ci->type = (ci->pszVal != NULL) ? CNFT_ASCIIZ : 0;
+ result = ci->type == 0;
+ }
+ } break;
+
+ case CNF_TIMEZONE: {
+ //use new core tz interface
+ if(tmi.prepareList) {
+ HANDLE hTz = tmi.createByContact(ci->hContact, TZF_KNOWNONLY);
+ if (hTz) {
+ LPTIME_ZONE_INFORMATION tzi = tmi.getTzi(hTz);
+ int offset = tzi->Bias + tzi->StandardBias;
+
+ char str[80];
+ mir_snprintf(str, SIZEOF(str), offset ? "UTC%+d:%02d" : "UTC", offset / -60, abs(offset % 60));
+ ci->pszVal = ci->dwFlag & CNF_UNICODE
+ ? (TCHAR*)mir_a2u(str)
+ : (TCHAR*)mir_strdup(str);
+ ci->type = CNFT_ASCIIZ;
+ return 0;
+ }
+ else {
+ ci->pszVal = NULL;
+ }
+ }
+ //fallback use old UIEX method
+ else {
+ CTimeZone* ptz = GetContactTimeZone(ci->hContact, ci->szProto);
+ if (ptz) {
+ if (ci->dwFlag & CNF_UNICODE) {
+ ci->pszVal = (LPTSTR) mir_t2u(ptz->ptszDisplay);
+ }
+ else {
+ ci->pszVal = (LPTSTR) mir_t2a(ptz->ptszDisplay);
+ }
+ }
+ else {
+ /* If a timezone does not exist in CTzMgr, it is a invalid timezone,
+ because Windows and CTzMgr know all existing timezones and it
+ would not be shown anywhere anyway as UserInfoEx displays only
+ known windows timezones in the details dialog!
+ */
+ ci->pszVal = NULL;
+ }
+ }
+ ci->type = (ci->pszVal != NULL) ? CNFT_ASCIIZ : 0;
+ result = ci->type == 0;
+ } break;
+
+ //
+ // information about IM specific stuff
+ //
+ case CNF_UNIQUEID: {
+ // protocol must define a PFLAG_UNIQUEIDSETTING
+ result = CallProtoService(ci->szProto, PS_GETCAPS, PFLAG_UNIQUEIDSETTING, 0);
+ if (result != CALLSERVICE_NOTFOUND && result != NULL) {
+ result = GCIVar(ci, (LPCSTR) result);
+ }
+ } break;
+
+ case CNF_DISPLAYUID: {
+ if (!GCIVar(ci, "display_uid"))
+ result=0;
+ else {
+ result = CallProtoService(ci->szProto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0);
+ if (result != CALLSERVICE_NOTFOUND && result != NULL) {
+ result = GCIVar(ci, (LPCSTR) result);
+ }
+ }
+ } break;
+
+ case CNF_DISPLAYNC:
+ case CNF_DISPLAY: {
+ INT i;
+ for (i = 0; i < NAMEORDERCOUNT; i++) {
+ switch (gNameOrder[i]) {
+ case 0: // custom name
+ {
+ // make sure we aren't in CNF_DISPLAYNC mode
+ // don't get custom name for NULL contact
+ if (ci->hContact != NULL && (ci->dwFlag & 0x7F) == CNF_DISPLAY) {
+ BYTE dwFlag = ci->dwFlag;
+ ci->dwFlag = (ci->dwFlag & CNF_UNICODE) | CNF_CUSTOMNICK;
+ if (!GetContactInfo(NULL, (LPARAM)ci)) {
+ ci->dwFlag = dwFlag;
+ return 0;
+ }
+ ci->dwFlag = dwFlag;
+ }
+ } break;
+ case 1: // nick
+ {
+ if (!GCIVarEx(ci, SET_CONTACT_NICK))
+ return 0;
+ } break;
+ case 2: // First Name
+ {
+ if (!GCIVarEx(ci, SET_CONTACT_FIRSTNAME))
+ return 0;
+ } break;
+ case 3: // E-mail
+ {
+ if (!GCIVarEx(ci, SET_CONTACT_EMAIL))
+ return 0;
+ } break;
+ case 4: // Last Name
+ {
+ if (!GCIVarEx(ci, SET_CONTACT_LASTNAME))
+ return 0;
+ } break;
+ case 5: // Unique id
+ {
+ // protocol must define a PFLAG_UNIQUEIDSETTING
+ result = CallProtoService(ci->szProto, PS_GETCAPS, PFLAG_UNIQUEIDSETTING, 0);
+ if (result != CALLSERVICE_NOTFOUND && result != NULL) {
+ if (!GCIStr(ci, (LPCSTR) result))
+ return 0;
+ }
+ } break;
+ case 6: // first + last name
+ {
+ if (!GCIFirstLast(ci))
+ return 0;
+ } break;
+ default: // unknown contact
+ {
+ if (ci->dwFlag & CNF_UNICODE) {
+ ci->pszVal = (LPTSTR) mir_wcsdup(TranslateW(L"'(Unknown Contact)'"));
+ }
+ else {
+ ci->pszVal = (LPTSTR) mir_strdup(Translate("'(Unknown Contact)'"));
+ }
+ ci->type = (ci->pszVal != NULL) ? CNFT_ASCIIZ : 0;
+ return ci->type == 0;
+ }
+ }
+ }
+ }
+
+ default: {
+ result = 1;
+ }
+ }
+ }
+ else
+ {
+ result = 1;
+ }
+ return result;
+}
+
+/**
+ * This is the implementation of the MS_DB_CONTACT_GETSETTING_STR_EX service.
+ *
+ * @param wParam - handle of the contact a setting was written for (must be NULL in this case)
+ * @param lParam - DBCONTACTGETSETTING structure holding information about the setting to read
+ *
+ * @retval 0 - success
+ * @retval 1 - error
+ **/
+static INT_PTR GetContactSettingStrExService(WPARAM wParam, LPARAM lParam)
+{
+ DBCONTACTGETSETTING *cgs = (DBCONTACTGETSETTING*)lParam;
+ return DB::Setting::GetEx((HANDLE)wParam, USERINFO,
+ cgs->szModule, cgs->szSetting, cgs->pValue, cgs->pValue->type);
+}
+
+/**
+ * If the user changes the name order update the global value.
+ *
+ * @param wParam - handle of the contact a setting was written for (must be NULL in this case)
+ * @param lParam - DBCONTACTWRITESETTING structure holding information about the written data
+ * @return 0
+ **/
+static INT OnSettingChanged(WPARAM wParam, LPARAM lParam)
+{
+ if ((HANDLE)wParam == NULL) {
+ DBCONTACTWRITESETTING *pdbcws = (DBCONTACTWRITESETTING*) lParam;
+ if (!mir_strcmp(pdbcws->szModule, "Contact") &&
+ !mir_strcmp(pdbcws->szSetting, "NameOrder"))
+ {
+ memcpy(gNameOrder, pdbcws->value.pbVal,pdbcws->value.cpbVal);
+ }
+ }
+ return 0;
+}
+
+/**
+ * Loads the module at startup and replaces the service.
+ *
+ * @param none
+ * @return nothing
+ **/
+VOID SvcContactInfoLoadModule()
+{
+ CreateServiceFunction(MS_DB_CONTACT_GETSETTING_STR_EX, GetContactSettingStrExService);
+ CreateServiceFunction(MS_CONTACT_GETCONTACTINFO, GetContactInfo);
+
+ DBVARIANT dbv;
+ if (DB::Setting::GetAString(NULL, "Contact", "NameOrder", &dbv)) {
+ BYTE i;
+ for (i = 0; i < NAMEORDERCOUNT; i++) {
+ gNameOrder[i] = i;
+ }
+ }
+ else {
+ memcpy(gNameOrder, dbv.pbVal, dbv.cpbVal);
+ DB::Variant::Free(&dbv);
+ }
+
+ HookEvent(ME_DB_CONTACT_SETTINGCHANGED, OnSettingChanged);
+}
|