/* Copyright (C) 2006-2007 Scott Ellis Copyright (C) 2007-2011 Jan Holub This is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this file; see the file license.txt. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #include "stdafx.h" int iTransFuncsCount = 0; DBVTranslation *translations = nullptr; DWORD dwNextFuncId; HANDLE hServiceAdd; void AddTranslation(DBVTranslation *newTrans) { DBVTranslation *ptranslations = (DBVTranslation *)mir_realloc(translations, sizeof(DBVTranslation) * (iTransFuncsCount + 1)); if (ptranslations == nullptr) return; translations = ptranslations; iTransFuncsCount++; translations[iTransFuncsCount - 1] = *newTrans; char *szName = mir_u2a(newTrans->swzName); char szSetting[256]; mir_snprintf(szSetting, sizeof(szSetting), "Trans_%s", szName); if (mir_wstrcmp(newTrans->swzName, L"[No translation]") == 0) { translations[iTransFuncsCount - 1].id = 0; } else { DWORD id = db_get_dw(0, MODULE_ITEMS, szSetting, 0); if (id != 0) { translations[iTransFuncsCount - 1].id = id; if (dwNextFuncId <= id) dwNextFuncId = id + 1; } else { translations[iTransFuncsCount - 1].id = dwNextFuncId++; db_set_dw(0, MODULE_ITEMS, szSetting, translations[iTransFuncsCount - 1].id); } db_set_dw(0, MODULE_ITEMS, "NextFuncId", dwNextFuncId); } mir_free(szName); } wchar_t *NullTranslation(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { if (DBGetContactSettingAsString(hContact, szModuleName, szSettingName, buff, bufflen)) return buff; return nullptr; } wchar_t* TimestampToShortDate(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DWORD ts = db_get_dw(hContact, szModuleName, szSettingName, 0); if (ts == 0) return nullptr; return TimeZone_ToStringT(ts, L"d", buff, bufflen); } wchar_t* TimestampToLongDate(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DWORD ts = db_get_dw(hContact, szModuleName, szSettingName, 0); if (ts == 0) return nullptr; return TimeZone_ToStringT(ts, L"D", buff, bufflen); } wchar_t* TimestampToTime(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DWORD ts = db_get_dw(hContact, szModuleName, szSettingName, 0); if (ts == 0) return nullptr; return TimeZone_ToStringT(ts, L"s", buff, bufflen); } wchar_t* TimestampToTimeNoSecs(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DWORD ts = db_get_dw(hContact, szModuleName, szSettingName, 0); if (ts == 0) return nullptr; return TimeZone_ToStringT(ts, L"t", buff, bufflen); } wchar_t* TimestampToTimeDifference(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DWORD ts = db_get_dw(hContact, szModuleName, szSettingName, 0); DWORD t = (DWORD)time(nullptr); if (ts == 0) return nullptr; DWORD diff = (ts > t) ? 0 : (t - ts); int d = (diff / 60 / 60 / 24); int h = (diff - d * 60 * 60 * 24) / 60 / 60; int m = (diff - d * 60 * 60 * 24 - h * 60 * 60) / 60; if (d > 0) mir_snwprintf(buff, bufflen, TranslateT("%dd %dh %dm"), d, h, m); else if (h > 0) mir_snwprintf(buff, bufflen, TranslateT("%dh %dm"), h, m); else mir_snwprintf(buff, bufflen, TranslateT("%dm"), m); return buff; } wchar_t *SecondsToTimeDifference(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DWORD diff = db_get_dw(hContact, szModuleName, szSettingName, 0); int d = (diff / 60 / 60 / 24); int h = (diff - d * 60 * 60 * 24) / 60 / 60; int m = (diff - d * 60 * 60 * 24 - h * 60 * 60) / 60; if (d > 0) mir_snwprintf(buff, bufflen, TranslateT("%dd %dh %dm"), d, h, m); else if (h > 0) mir_snwprintf(buff, bufflen, TranslateT("%dh %dm"), h, m); else mir_snwprintf(buff, bufflen, TranslateT("%dm"), m); return buff; } wchar_t *WordToStatusDesc(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { WORD wStatus = db_get_w(hContact, szModuleName, szSettingName, ID_STATUS_OFFLINE); wchar_t *szStatus = Clist_GetStatusModeDescription(wStatus, 0); wcsncpy_s(buff, bufflen, szStatus, _TRUNCATE); return buff; } wchar_t *ByteToYesNo(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DBVARIANT dbv; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (dbv.type == DBVT_BYTE) { if (dbv.bVal != 0) wcsncpy(buff, L"Yes", bufflen); else wcsncpy(buff, L"No", bufflen); buff[bufflen - 1] = 0; db_free(&dbv); return buff; } db_free(&dbv); } return nullptr; } wchar_t *ByteToGender(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { BYTE val = (BYTE)db_get_b(hContact, szModuleName, szSettingName, 0); if (val == 'F') wcsncpy(buff, TranslateT("Female"), bufflen); else if (val == 'M') wcsncpy(buff, TranslateT("Male"), bufflen); else return nullptr; buff[bufflen - 1] = 0; return buff; } wchar_t *WordToCountry(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { char *szCountryName = nullptr; WORD cid = (WORD)db_get_w(hContact, szModuleName, szSettingName, (WORD)-1); if (cid != (WORD)-1 && ServiceExists(MS_UTILS_GETCOUNTRYBYNUMBER) && (szCountryName = (char *)CallService(MS_UTILS_GETCOUNTRYBYNUMBER, cid, 0)) != nullptr) { if (mir_strcmp(szCountryName, "Unknown") == 0) return nullptr; a2t(szCountryName, buff, bufflen); buff[bufflen - 1] = 0; return buff; } return nullptr; } wchar_t *DwordToIp(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { DWORD ip = db_get_dw(hContact, szModuleName, szSettingName, 0); if (ip) { unsigned char *ipc = (unsigned char*)&ip; mir_snwprintf(buff, bufflen, L"%u.%u.%u.%u", ipc[3], ipc[2], ipc[1], ipc[0]); return buff; } return nullptr; } bool GetInt(const DBVARIANT &dbv, int *iVal) { if (!iVal) return false; switch (dbv.type) { case DBVT_BYTE: if (iVal) *iVal = (int)dbv.bVal; return true; case DBVT_WORD: if (iVal) *iVal = (int)dbv.wVal; return true; case DBVT_DWORD: if (iVal) *iVal = (int)dbv.dVal; return true; } return false; } wchar_t *DayMonthYearToDate(MCONTACT hContact, const char *szModuleName, const char *prefix, wchar_t *buff, int bufflen) { DBVARIANT dbv; char szSettingName[256]; mir_snprintf(szSettingName, "%sDay", prefix); if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { int day = 0; if (GetInt(dbv, &day)) { db_free(&dbv); mir_snprintf(szSettingName, "%sMonth", prefix); int month = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &month)) { db_free(&dbv); mir_snprintf(szSettingName, "%sYear", prefix); int year = 0; db_get(hContact, szModuleName, szSettingName, &dbv); GetInt(dbv, &year); db_free(&dbv); tm time = { 0 }; time.tm_mday = day; time.tm_mon = month - 1; time.tm_year = year - 1900; wcsftime(buff, bufflen, L"%x", &time); return buff; } else db_free(&dbv); } } else db_free(&dbv); } return nullptr; } wchar_t *DayMonthYearToAge(MCONTACT hContact, const char *szModuleName, const char *szPrefix, wchar_t *buff, int bufflen) { DBVARIANT dbv; char szSettingName[256]; mir_snprintf(szSettingName, "%sDay", szPrefix); if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { int day = 0; if (GetInt(dbv, &day)) { db_free(&dbv); mir_snprintf(szSettingName, "%sMonth", szPrefix); int month = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &month)) { db_free(&dbv); mir_snprintf(szSettingName, "%sYear", szPrefix); int year = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &year) && year != 0) { db_free(&dbv); SYSTEMTIME now; GetLocalTime(&now); int age = now.wYear - year; if (now.wMonth < month || (now.wMonth == month && now.wDay < day)) age--; mir_snwprintf(buff, bufflen, L"%d", age); return buff; } else db_free(&dbv); } } else db_free(&dbv); } } else db_free(&dbv); } return nullptr; } wchar_t *HoursMinutesSecondsToTime(MCONTACT hContact, const char *szModuleName, const char *szPrefix, wchar_t *buff, int bufflen) { DBVARIANT dbv; char szSettingName[256]; mir_snprintf(szSettingName, "%sHours", szPrefix); if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { int hours = 0; if (GetInt(dbv, &hours)) { db_free(&dbv); mir_snprintf(szSettingName, "%sMinutes", szPrefix); int minutes = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &minutes)) { db_free(&dbv); mir_snprintf(szSettingName, "%sSeconds", szPrefix); int seconds = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { GetInt(dbv, &seconds); db_free(&dbv); } SYSTEMTIME st = { 0 }; st.wHour = hours; st.wMinute = minutes; st.wSecond = seconds; GetTimeFormat(LOCALE_USER_DEFAULT, 0, &st, nullptr, buff, bufflen); return buff; } else db_free(&dbv); } } else db_free(&dbv); } return nullptr; } wchar_t *HoursMinutesToTime(MCONTACT hContact, const char *szModuleName, const char *szPrefix, wchar_t *buff, int bufflen) { DBVARIANT dbv; char szSettingName[256]; mir_snprintf(szSettingName, "%sHours", szPrefix); if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { int hours = 0; if (GetInt(dbv, &hours)) { db_free(&dbv); mir_snprintf(szSettingName, "%sMinutes", szPrefix); int minutes = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &minutes)) { db_free(&dbv); SYSTEMTIME st = { 0 }; st.wHour = hours; st.wMinute = minutes; GetTimeFormat(LOCALE_USER_DEFAULT, TIME_NOSECONDS, &st, nullptr, buff, bufflen); return buff; } else db_free(&dbv); } } else db_free(&dbv); } return nullptr; } wchar_t *DmyToTimeDifference(MCONTACT hContact, const char *szModuleName, const char *szPrefix, wchar_t *buff, int bufflen) { DBVARIANT dbv; char szSettingName[256]; mir_snprintf(szSettingName, "%sDay", szPrefix); if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { int day = 0; if (GetInt(dbv, &day)) { db_free(&dbv); mir_snprintf(szSettingName, "%sMonth", szPrefix); int month = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &month)) { db_free(&dbv); mir_snprintf(szSettingName, "%sYear", szPrefix); int year = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &year)) { db_free(&dbv); mir_snprintf(szSettingName, "%sHours", szPrefix); if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { int hours = 0; if (GetInt(dbv, &hours)) { db_free(&dbv); mir_snprintf(szSettingName, "%sMinutes", szPrefix); int minutes = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &minutes)) { db_free(&dbv); mir_snprintf(szSettingName, "%sSeconds", szPrefix); int seconds = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { GetInt(dbv, &seconds); db_free(&dbv); } SYSTEMTIME st = { 0 }, st_now; st.wDay = day; st.wMonth = month; st.wYear = year; st.wHour = hours; st.wMinute = minutes; st.wSecond = seconds; GetLocalTime(&st_now); FILETIME ft, ft_now; SystemTimeToFileTime(&st, &ft); SystemTimeToFileTime(&st_now, &ft_now); LARGE_INTEGER li, li_now; li.HighPart = ft.dwHighDateTime; li.LowPart = ft.dwLowDateTime; li_now.HighPart = ft_now.dwHighDateTime; li_now.LowPart = ft_now.dwLowDateTime; long diff = (long)((li_now.QuadPart - li.QuadPart) / (LONGLONG)10000000L); int y = diff / 60 / 60 / 24 / 365; int d = (diff - y * 60 * 60 * 24 * 365) / 60 / 60 / 24; int h = (diff - y * 60 * 60 * 24 * 365 - d * 60 * 60 * 24) / 60 / 60; int m = (diff - y * 60 * 60 * 24 * 365 - d * 60 * 60 * 24 - h * 60 * 60) / 60; if (y != 0) mir_snwprintf(buff, bufflen, TranslateT("%dy %dd %dh %dm"), y, d, h, m); else if (d != 0) mir_snwprintf(buff, bufflen, TranslateT("%dd %dh %dm"), d, h, m); else if (h != 0) mir_snwprintf(buff, bufflen, TranslateT("%dh %dm"), h, m); else mir_snwprintf(buff, bufflen, TranslateT("%dm"), m); return buff; } else db_free(&dbv); } } else db_free(&dbv); } } else db_free(&dbv); } } else db_free(&dbv); } } else db_free(&dbv); } return nullptr; } wchar_t *DayMonthToDaysToNextBirthday(MCONTACT hContact, const char *szModuleName, const char *szPrefix, wchar_t *buff, int bufflen) { DBVARIANT dbv; char szSettingName[256]; mir_snprintf(szSettingName, "%sDay", szPrefix); if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { int day = 0; if (GetInt(dbv, &day)) { db_free(&dbv); mir_snprintf(szSettingName, "%sMonth", szPrefix); int month = 0; if (!db_get(hContact, szModuleName, szSettingName, &dbv)) { if (GetInt(dbv, &month)) { db_free(&dbv); time_t now = time(nullptr); struct tm *ti = localtime(&now); int yday_now = ti->tm_yday; ti->tm_mday = day; ti->tm_mon = month - 1; mktime(ti); int yday_birth = ti->tm_yday; if (yday_birth < yday_now) { yday_now -= 365; yday_now -= (ti->tm_year % 4) ? 0 : 1; } int diff = yday_birth - yday_now; mir_snwprintf(buff, bufflen, TranslateT("%dd"), diff); return buff; } else { db_free(&dbv); } } } else { db_free(&dbv); } } return nullptr; } wchar_t *EmptyXStatusToDefaultName(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { wchar_t szDefaultName[1024]; CUSTOM_STATUS xstatus = { 0 }; DBVARIANT dbv; // translate jabber mood if (ProtoServiceExists(szModuleName, "/SendXML")) // jabber protocol? { if (!db_get_ws(hContact, szModuleName, szSettingName, &dbv)) { wcsncpy(buff, TranslateW(dbv.ptszVal), bufflen); buff[bufflen - 1] = 0; return buff; } } if (NullTranslation(hContact, szModuleName, szSettingName, buff, bufflen)) return buff; int status = db_get_b(hContact, szModuleName, "XStatusId", 0); if (!status) return nullptr; if (ProtoServiceExists(szModuleName, PS_GETCUSTOMSTATUSEX)) { xstatus.cbSize = sizeof(CUSTOM_STATUS); xstatus.flags = CSSF_MASK_NAME | CSSF_DEFAULT_NAME | CSSF_UNICODE; xstatus.ptszName = szDefaultName; xstatus.wParam = (WPARAM *)&status; if (CallProtoService(szModuleName, PS_GETCUSTOMSTATUSEX, 0, (LPARAM)&xstatus)) return nullptr; wcsncpy(buff, TranslateW(szDefaultName), bufflen); buff[bufflen - 1] = 0; return buff; } return nullptr; } wchar_t *TimezoneToTime(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { int timezone = db_get_b(hContact, szModuleName, szSettingName, 256); if (timezone == 256 || (char)timezone == -100) return nullptr; TIME_ZONE_INFORMATION tzi; FILETIME ft; LARGE_INTEGER lift; SYSTEMTIME st; timezone = (char)timezone; GetSystemTimeAsFileTime(&ft); if (GetTimeZoneInformation(&tzi) == TIME_ZONE_ID_DAYLIGHT) timezone += tzi.DaylightBias / 30; lift.QuadPart = *(__int64*)&ft; lift.QuadPart -= (__int64)timezone * BIGI(30) * BIGI(60) * BIGI(10000000); *(__int64*)&ft = lift.QuadPart; FileTimeToSystemTime(&ft, &st); GetTimeFormat(LOCALE_USER_DEFAULT, TIME_NOSECONDS, &st, nullptr, buff, bufflen); return buff; } wchar_t *ByteToDay(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { int iDay = db_get_w(hContact, szModuleName, szSettingName, -1); if (iDay > -1 && iDay < 7) { a2t(Translate(days[iDay]), buff, bufflen); buff[bufflen - 1] = 0; return buff; } return nullptr; } wchar_t *ByteToMonth(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { int iMonth = db_get_w(hContact, szModuleName, szSettingName, 0); if (iMonth > 0 && iMonth < 13) { a2t(Translate(months[iMonth - 1]), buff, bufflen); buff[bufflen - 1] = 0; return buff; } return nullptr; } wchar_t *ByteToLanguage(MCONTACT hContact, const char *szModuleName, const char *szSettingName, wchar_t *buff, int bufflen) { int iLang = db_get_b(hContact, szModuleName, szSettingName, 0); if (iLang) { for (auto &it : languages) { if (iLang == it.id) { a2t(Translate(it.szValue), buff, bufflen); buff[bufflen - 1] = 0; return buff; } } } return nullptr; } INT_PTR ServiceAddTranslation(WPARAM, LPARAM lParam) { if (!lParam) return 1; DBVTranslation *trans = (DBVTranslation *)lParam; AddTranslation(trans); return 0; } static DBVTranslation internalTranslations[] = { { NullTranslation, LPGENW("[No translation]") }, { WordToStatusDesc, LPGENW("WORD to status description") }, { TimestampToTime, LPGENW("DWORD timestamp to time") }, { TimestampToTimeDifference, LPGENW("DWORD timestamp to time difference") }, { ByteToYesNo, LPGENW("BYTE to Yes/No") }, { ByteToGender, LPGENW("BYTE to Male/Female (ICQ)") }, { WordToCountry, LPGENW("WORD to country name") }, { DwordToIp, LPGENW("DWORD to IP address") }, { DayMonthYearToDate, LPGENW("Day|Month|Year to date") }, { DayMonthYearToAge, LPGENW("Day|Month|Year to age") }, { HoursMinutesSecondsToTime, LPGENW("Hours|Minutes|Seconds to time") }, { DmyToTimeDifference, LPGENW("Day|Month|Year|Hours|Minutes|Seconds to time difference") }, { DayMonthToDaysToNextBirthday, LPGENW("Day|Month to days to next birthday") }, { TimestampToTimeNoSecs, LPGENW("DWORD timestamp to time (no seconds)") }, { HoursMinutesToTime, LPGENW("Hours|Minutes to time") }, { TimestampToShortDate, LPGENW("DWORD timestamp to date (short)") }, { TimestampToLongDate, LPGENW("DWORD timestamp to date (long)") }, { EmptyXStatusToDefaultName, LPGENW("xStatus: empty xStatus name to default name") }, { SecondsToTimeDifference, LPGENW("DWORD seconds to time difference") }, { TimezoneToTime, LPGENW("BYTE timezone to time") }, { ByteToDay, LPGENW("WORD to name of a day (0..6, 0 is Sunday)") }, { ByteToMonth, LPGENW("WORD to name of a month (1..12, 1 is January)") }, { ByteToLanguage, LPGENW("BYTE to language (ICQ)") }, }; void InitTranslations() { dwNextFuncId = db_get_dw(0, MODULE_ITEMS, "NextFuncId", 1); for (auto &it : internalTranslations) AddTranslation(&it); hServiceAdd = CreateServiceFunction(MS_TIPPER_ADDTRANSLATION, ServiceAddTranslation); } void DeinitTranslations() { DestroyServiceFunction(hServiceAdd); mir_free(translations); }