// mir_free() the return value
void* t2s(const TCHAR *pszStr,DWORD fUnicode,BOOL fMirCp)
{
if (!fUnicode) return (void*)u2a(pszStr,fMirCp);
return (void*)mir_wstrdup(pszStr);
}
INT_PTR CDropbox::SendFileToDropbox(WPARAM hContact, LPARAM lParam)
{
if (!HasAccessToken())
return 0;
if (hContact == NULL)
hContact = GetDefaultContact();
TCHAR *filePath = (TCHAR*)lParam;
FileTransferParam *ftp = new FileTransferParam();
ftp->pfts.hContact = hContact;
ftp->pfts.totalFiles = 1;
ftp->hContact = (hTransferContact) ? hTransferContact : hContact;
hTransferContact = 0;
int length = _tcsrchr(filePath, '\\') - filePath;
ftp->pfts.tszWorkingDir = (TCHAR*)mir_alloc(sizeof(TCHAR) * (length + 1));
mir_tstrncpy(ftp->pfts.tszWorkingDir, filePath, length + 1);
ftp->pfts.tszWorkingDir[length] = '\0';
ftp->pfts.ptszFiles = (TCHAR**)mir_alloc(sizeof(TCHAR*) * (ftp->pfts.totalFiles + 1));
ftp->pfts.ptszFiles[0] = mir_wstrdup(filePath);
ftp->pfts.ptszFiles[ftp->pfts.totalFiles] = NULL;
ULONG fileId = InterlockedIncrement(&hFileProcess);
ftp->hProcess = (HANDLE)fileId;
mir_forkthreadowner(CDropbox::SendFilesAndEventAsync, this, ftp, 0);
return fileId;
}
INT_PTR CDropbox::SendFileToDropbox(void *obj, WPARAM hContact, LPARAM lParam)
{
CDropbox *instance = (CDropbox*)obj;
if (!instance->HasAccessToken())
return 0;
if (hContact == NULL)
hContact = instance->GetDefaultContact();
wchar_t *filePath = (wchar_t*)lParam;
FileTransferParam *ftp = new FileTransferParam();
ftp->pfts.flags |= PFTS_SENDING;
ftp->pfts.hContact = hContact;
ftp->pfts.totalFiles = 1;
ftp->hContact = (instance->hTransferContact) ? instance->hTransferContact : hContact;
instance->hTransferContact = 0;
int length = wcsrchr(filePath, '\\') - filePath;
ftp->pfts.wszWorkingDir = (wchar_t*)mir_alloc(sizeof(wchar_t) * (length + 1));
lstrcpyn(ftp->pfts.wszWorkingDir, filePath, length + 1);
ftp->pfts.wszWorkingDir[length] = '\0';
ftp->pfts.pwszFiles = (wchar_t**)mir_alloc(sizeof(wchar_t*) * (ftp->pfts.totalFiles + 1));
ftp->pfts.pwszFiles[0] = mir_wstrdup(filePath);
ftp->pfts.pwszFiles[ftp->pfts.totalFiles] = NULL;
ULONG fileId = InterlockedIncrement(&instance->hFileProcess);
ftp->hProcess = (HANDLE)fileId;
mir_forkthreadowner(CDropbox::SendFilesAndEventAsync, obj, ftp, 0);
return fileId;
}
static TCHAR* getDBSetting(MCONTACT hContact, char* module, char* setting, TCHAR* defaultValue)
{
DBVARIANT dbv;
if (db_get_s(hContact, module, setting, &dbv, 0))
return defaultValue;
TCHAR *var = NULL;
switch (dbv.type) {
case DBVT_BYTE:
var = itot(dbv.bVal);
break;
case DBVT_WORD:
var = itot(dbv.wVal);
break;
case DBVT_DWORD:
var = itot(dbv.dVal);
break;
case DBVT_ASCIIZ:
var = mir_a2t(dbv.pszVal);
break;
case DBVT_WCHAR:
var = mir_wstrdup(dbv.pwszVal);
break;
case DBVT_UTF8:
Utf8Decode(dbv.pszVal, &var);
break;
}
db_free(&dbv);
return var;
}
void wSetData(WCHAR **Data, const WCHAR *Value)
{
if (Value[0] != 0)
*Data = mir_wstrdup(Value);
else
*Data = L"";
}
/**
* Returns the selected text within the active document
**/
WCHAR* IEView::getSelection()
{
CComPtr<IHTMLDocument2> document = getDocument();
if (document == NULL)
return NULL;
CComPtr<IHTMLSelectionObject> pSelection;
if (FAILED(document->get_selection(&pSelection)) || pSelection == NULL)
return NULL;
CComPtr<IDispatch> pDisp;
if (FAILED(pSelection->createRange(&pDisp)) || pDisp == NULL)
return NULL;
CComPtr<IHTMLTxtRange> pRange;
if (FAILED(pDisp.QueryInterface(&pRange)))
return NULL;
BSTR text = NULL;
if (FAILED(pRange->get_text(&text)))
return NULL;
WCHAR *res = mir_wstrdup(text);
::SysFreeString(text);
return res;
}
MIR_CORE_DLL(WCHAR*) replaceStrW(WCHAR* &dest, const WCHAR *src)
{
if (dest != NULL)
mir_free(dest);
return dest = (src != NULL) ? mir_wstrdup(src) : NULL;
}
// mir_free() the return value
TCHAR* s2t(const void *pszStr,DWORD fUnicode,BOOL fMirCp)
{
if(fUnicode) return mir_wstrdup((WCHAR*)pszStr);
return a2u((char*)pszStr,fMirCp);
}
void __stdcall replaceStr( WCHAR*& dest, const WCHAR* src )
{
if ( dest != NULL )
mir_free( dest );
dest = ( src != NULL ) ? mir_wstrdup( src ) : NULL;
}
char* contact_get_id(MCONTACT hContact, bool bNameOnError)
{
ptrW pszUniqueID(Contact_GetInfo(CNF_UNIQUEID, hContact));
if (!pszUniqueID && bNameOnError)
pszUniqueID = mir_wstrdup(Clist_GetContactDisplayName(hContact));
return mir_u2a(pszUniqueID);
}
void replaceStr(wchar_t*& dest, const wchar_t* src)
{
if (src != NULL)
{
mir_free(dest);
dest = mir_wstrdup(src);
}
}
static INT_PTR OpenURL(WPARAM wParam, LPARAM lParam)
{
if (lParam == 0)
return 1;
TOpenUrlInfo *hUrlInfo = new TOpenUrlInfo((wParam & OUF_UNICODE) ? mir_wstrdup((WCHAR*)lParam) : mir_a2t((char*)lParam), wParam & OUF_NEWWINDOW);
forkthread(OpenURLThread, 0, hUrlInfo);
return 0;
}
MIR_CORE_DLL(wchar_t*) db_get_wsa(MCONTACT hContact, const char *szModule, const char *szSetting)
{
wchar_t *str = NULL;
DBVARIANT dbv={0};
db_get_s(hContact, szModule, szSetting, &dbv, DBVT_WCHAR);
if (dbv.type == DBVT_WCHAR)
str = mir_wstrdup(dbv.pwszVal);
db_free(&dbv);
return str;
}
wchar_t* __cdecl ModernGetStringW( HANDLE hContact, const char *szModule, const char *szSetting )
{
wchar_t *str=NULL;
DBVARIANT dbv={0};
DBGetContactSettingWString(hContact,szModule,szSetting,&dbv);
if(dbv.type==DBVT_WCHAR)
str=mir_wstrdup(dbv.pwszVal);
DBFreeVariant(&dbv);
return str;
}
MIR_CORE_DLL(TCHAR*) Langpack_PcharToTchar(const char *pszStr)
{
if (pszStr == NULL)
return NULL;
int len = (int)strlen(pszStr);
TCHAR *result = (TCHAR*)alloca((len + 1)*sizeof(TCHAR));
MultiByteToWideChar(Langpack_GetDefaultCodePage(), 0, pszStr, -1, result, len);
result[len] = 0;
return mir_wstrdup(TranslateW(result));
}
static INT_PTR srvPcharToTchar(WPARAM wParam, LPARAM lParam)
{
char *pszStr = (char*)lParam;
if (pszStr == NULL)
return NULL;
int len = (int)strlen(pszStr);
TCHAR *result = (TCHAR*)alloca((len+1)*sizeof(TCHAR));
MultiByteToWideChar(Langpack_GetDefaultCodePage(), 0, pszStr, -1, result, len);
result[len] = 0;
return (INT_PTR)mir_wstrdup(TranslateW_LP(result, wParam));
}
void CToxOptionsMultimedia::EnumDevices(CCtrlCombo &combo, IMMDeviceEnumerator *pEnumerator, EDataFlow dataFlow, const char* setting)
{
LPWSTR pwszDefID = NULL;
ptrW wszDefID(m_proto->getWStringA(setting));
if (wszDefID != NULL)
{
size_t len = mir_wstrlen(wszDefID) + 1;
pwszDefID = (LPWSTR)CoTaskMemAlloc(len*2);
mir_wstrncpy(pwszDefID, wszDefID, len);
}
else
{
CComPtr<IMMDevice> pDevice = NULL;
if (FAILED(pEnumerator->GetDefaultAudioEndpoint(dataFlow, eConsole, &pDevice))) return;
if (FAILED(pDevice->GetId(&pwszDefID))) return;
}
CComPtr<IMMDeviceCollection> pDevices = NULL;
EXIT_ON_ERROR(pEnumerator->EnumAudioEndpoints(dataFlow, DEVICE_STATE_ACTIVE, &pDevices));
UINT count;
EXIT_ON_ERROR(pDevices->GetCount(&count));
for (UINT i = 0; i < count; i++)
{
CComPtr<IMMDevice> pDevice = NULL;
EXIT_ON_ERROR(pDevices->Item(i, &pDevice));
CComPtr<IPropertyStore> pProperties = NULL;
EXIT_ON_ERROR(pDevice->OpenPropertyStore(STGM_READ, &pProperties));
PROPVARIANT varName;
PropVariantInit(&varName);
EXIT_ON_ERROR(pProperties->GetValue(PKEY_Device_FriendlyName, &varName));
LPWSTR pwszID = NULL;
EXIT_ON_ERROR(pDevice->GetId(&pwszID));
combo.InsertString(varName.pwszVal, i, (LPARAM)mir_wstrdup(pwszID));
if (mir_wstrcmpi(pwszID, pwszDefID) == 0)
combo.SetCurSel(i);
CoTaskMemFree(pwszID);
PropVariantClear(&varName);
}
Exit:
CoTaskMemFree(pwszDefID);
}
TCHAR* LangPackPcharToTchar( const char* pszStr )
{
if ( pszStr == NULL )
return NULL;
#if defined( _UNICODE )
{ int len = (int)strlen( pszStr );
TCHAR* result = ( TCHAR* )alloca(( len+1 )*sizeof( TCHAR ));
MultiByteToWideChar( LangPackGetDefaultCodePage(), 0, pszStr, -1, result, len );
result[len] = 0;
return mir_wstrdup( TranslateW( result ));
}
#else
return mir_strdup( Translate( pszStr ));
#endif
}
void mir_wcsadd(wchar_t* &pszDest, const wchar_t* pszSrc)
{
if(!pszSrc)
return;
if(!pszDest)
pszDest = mir_wstrdup(pszSrc);
else {
size_t lenDest = wcslen(pszDest);
size_t lenSrc = wcslen(pszSrc);
size_t lenNew = lenDest + lenSrc + 1;
pszDest = (wchar_t *) mir_realloc(pszDest, sizeof(wchar_t)*lenNew);
wcscpy(pszDest + lenDest, pszSrc);
pszDest[lenNew-1] = 0;
}
}
INT_PTR SendMessageCommand_Worker(MCONTACT hContact, LPCSTR pszMsg, bool isWchar)
{
// make sure that only the main UI thread will handle window creation
if (GetCurrentThreadId() != PluginConfig.dwThreadID) {
if (pszMsg) {
wchar_t *tszText = (isWchar) ? mir_wstrdup((WCHAR*)pszMsg) : mir_a2u(pszMsg);
PostMessage(PluginConfig.g_hwndHotkeyHandler, DM_SENDMESSAGECOMMANDW, hContact, (LPARAM)tszText);
}
else PostMessage(PluginConfig.g_hwndHotkeyHandler, DM_SENDMESSAGECOMMANDW, hContact, 0);
return 0;
}
// does the MCONTACT's protocol support IM messages?
char *szProto = GetContactProto(hContact);
if (szProto == NULL)
return 0; // unknown contact
if (!CallProtoService(szProto, PS_GETCAPS, PFLAGNUM_1, 0) & PF1_IMSEND)
return 0;
HWND hwnd = M.FindWindow(hContact);
if (hwnd) {
if (pszMsg) {
HWND hEdit = GetDlgItem(hwnd, IDC_MESSAGE);
SendMessage(hEdit, EM_SETSEL, -1, GetWindowTextLength(hEdit));
if (isWchar)
SendMessageW(hEdit, EM_REPLACESEL, FALSE, (LPARAM)pszMsg);
else
SendMessageA(hEdit, EM_REPLACESEL, FALSE, (LPARAM)pszMsg);
}
SendMessage(hwnd, DM_ACTIVATEME, 0, 0);
}
else {
TCHAR szName[CONTAINER_NAMELEN + 1];
GetContainerNameForContact(hContact, szName, CONTAINER_NAMELEN);
TContainerData *pContainer = FindContainerByName(szName);
if (pContainer == NULL)
pContainer = CreateContainer(szName, FALSE, hContact);
if (pContainer)
CreateNewTabForContact(pContainer, hContact, isWchar, pszMsg, TRUE, TRUE, FALSE, 0);
}
return 0;
}
/**
* Returns the destination url (href) of the given anchor element (or parent anchor element)
**/
WCHAR* IEView::getHrefFromAnchor(CComPtr<IHTMLElement> element)
{
if (element == NULL)
return NULL;
CComPtr<IHTMLAnchorElement> pAnchor;
if (FAILED(element.QueryInterface(&pAnchor))) {
VARIANT variant;
WCHAR *url = NULL;
if (SUCCEEDED(element->getAttribute(L"href", 2, &variant)) && variant.vt == VT_BSTR) {
url = mir_wstrdup(variant.bstrVal);
::SysFreeString(variant.bstrVal);
}
return url;
}
CComPtr<IHTMLElement> parent;
if (SUCCEEDED(element->get_parentElement(&parent)) && parent != NULL)
return getHrefFromAnchor(parent);
return NULL;
}
int ModernSkinButton_AddButton(HWND parent,
char * ID,
char * CommandService,
char * StateDefService,
char * HandeService,
int Left,
int Top,
int Right,
int Bottom,
DWORD sbFlags,
wchar_t * Hint,
char * DBkey,
char * TypeDef,
int MinWidth, int MinHeight)
{
// if (!parent) return 0;
if (!ModernSkinButtonModuleIsLoaded) return 0;
if (!Buttons)
Buttons = (MButton*)mir_alloc(sizeof(MButton));
else
Buttons = (MButton*)mir_realloc(Buttons, sizeof(MButton)*(ButtonsCount + 1));
{
//HWND hwnd;
RECT rc = { 0 };
ModernSkinButtonCtrl* bct;
int l, r, b, t;
if (parent) GetClientRect(parent, &rc);
l = (sbFlags & SBF_ALIGN_TL_RIGHT) ? (rc.right + Left) :
(sbFlags & SBF_ALIGN_TL_HCENTER) ? (_center_h(&rc) + Left) :
(rc.left + Left);
t = (sbFlags & SBF_ALIGN_TL_BOTTOM) ? (rc.bottom + Top) :
(sbFlags & SBF_ALIGN_TL_VCENTER) ? (_center_v(&rc) + Top) :
(rc.top + Top);
r = (sbFlags & SBF_ALIGN_BR_RIGHT) ? (rc.right + Right) :
(sbFlags & SBF_ALIGN_BR_HCENTER) ? (_center_h(&rc) + Right) :
(rc.left + Right);
b = (sbFlags & SBF_ALIGN_BR_BOTTOM) ? (rc.bottom + Bottom) :
(sbFlags & SBF_ALIGN_BR_VCENTER) ? (_center_v(&rc) + Bottom) :
(rc.top + Bottom);
bct = (ModernSkinButtonCtrl *)mir_alloc(sizeof(ModernSkinButtonCtrl));
memset(bct, 0, sizeof(ModernSkinButtonCtrl));
bct->Left = l;
bct->Right = r;
bct->Top = t;
bct->Bottom = b;
bct->fCallOnPress = (sbFlags & SBF_CALL_ON_PRESS) != 0;
bct->HandleService = mir_strdup(HandeService);
bct->CommandService = mir_strdup(CommandService);
bct->StateService = mir_strdup(StateDefService);
if (DBkey && *DBkey != '\0') bct->ValueDBSection = mir_strdup(DBkey); else bct->ValueDBSection = nullptr;
if (TypeDef && *TypeDef != '\0') bct->ValueTypeDef = mir_strdup(TypeDef); else bct->ValueTypeDef = mir_strdup("sDefault");
bct->ID = mir_strdup(ID);
bct->Hint = mir_wstrdup(Hint);
Buttons[ButtonsCount].bct = bct;
Buttons[ButtonsCount].hwnd = nullptr;
Buttons[ButtonsCount].OrL = Left;
Buttons[ButtonsCount].OrT = Top;
Buttons[ButtonsCount].OrR = Right;
Buttons[ButtonsCount].OrB = Bottom;
Buttons[ButtonsCount].ConstrainPositionFrom = (BYTE)sbFlags;
Buttons[ButtonsCount].minH = MinHeight;
Buttons[ButtonsCount].minW = MinWidth;
ButtonsCount++;
// CLUI_ShowWindowMod(hwnd,SW_SHOW);
}
return 0;
}
void MirandaUtils::sendMessage(ActionThreadArgStruct* args, MFENUM_SEND_MESSAGE_MODE mode)
{
logger->log_p(L"MirandaUtils::sendMessage: mode = [%d] to = [" SCNuPTR L"] msg = [%s]", mode, args->targetHandle, args->userActionSelection );
if (mode == MFENUM_SMM_ONLY_SEND || mode == MFENUM_SMM_SEND_AND_SHOW_MW){
//TODO - metacontacts support - C:\MIRANDA\SOURCES\PLUGINS\popup_trunk\src\popup_wnd2.cpp : 1083
// //check for MetaContact and get szProto from subcontact
// if(strcmp(targetHandleSzProto, gszMetaProto)==0) {
// HANDLE hSubContact = (HANDLE)CallService(MS_MC_GETDEFAULTCONTACT, (WPARAM)hContact, 0);
// if(!hSubContact) return FALSE;
// targetHandleSzProto = (char *) CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM) hSubContact, 0);
// }
char* targetHandleSzProto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)args->targetHandle, 0); //targetHandleSzProto doesnt need mir_free or delete
if (targetHandleSzProto == NULL){
logger->log(L"MirandaUtils::sendMessageToContact: ERROR targetHandleSzProto == NULL");
return;
}
int mirandaSendModeFlag = getMirandaSendModeFlag(targetHandleSzProto);
char* msgBuffer = NULL;
std::size_t bufSize = 0;
if (mirandaSendModeFlag == PREF_UTF){
msgBuffer = mir_utf8encodeW(args->userActionSelection);
bufSize = strlen(msgBuffer) + 1;
} else if (mirandaSendModeFlag == PREF_UNICODE){
msgBuffer = mir_t2a(args->userActionSelection);
bufSize = strlen(msgBuffer) + 1;
size_t bufSizeT = (wcslen(args->userActionSelection) + 1) * sizeof(wchar_t);
msgBuffer = (char*)mir_realloc(msgBuffer, bufSizeT + bufSize);
memcpy((wchar_t*)&msgBuffer[bufSize], args->userActionSelection, bufSizeT);
bufSize += bufSizeT;
}
logger->log_p(L"SMTC: mirandaSendModeFlag = [%d] bufSize = [%d]", mirandaSendModeFlag, bufSize);
HANDLE hProcess = sendMessageMiranda(args->targetHandle, mirandaSendModeFlag, msgBuffer);
logger->log_p(L"SMTC: hProcess = [" SCNuPTR L"]", hProcess);
MIRFOXACKDATA* myMfAck = NULL;
if (hProcess != NULL){
//if hProcess of sending process is null there will not be any ack
EnterCriticalSection(&ackMapCs);
ackMap[hProcess] = (MIRFOXACKDATA*)NULL;
LeaveCriticalSection(&ackMapCs);
int counter = 0;
const int ACK_WAIT_TIME = 250; //[ms]
const int MAX_ACK_WAIT_COUNTER = 40; //40 * 250ms = 10s
do {
SleepEx(ACK_WAIT_TIME, TRUE);
counter++;
EnterCriticalSection(&ackMapCs);
myMfAck = ackMap[hProcess];
LeaveCriticalSection(&ackMapCs);
if(Miranda_Terminated() || args->mirfoxDataPtr->Plugin_Terminated){
logger->log_p(L"SMTC: ACK break by Plugin_Terminated (=%d) or Miranda_Terminated()", args->mirfoxDataPtr->Plugin_Terminated);
break;
}
} while (myMfAck == NULL && counter <= MAX_ACK_WAIT_COUNTER); //TODO or Plugin_Terminated or Miranda_Terminated()
logger->log_p(L"SMTC: ACK found counter = [%d] myMfAck = [" SCNuPTR L"]", counter, myMfAck);
}
MirandaContact* mirandaContact = args->mirfoxDataPtr->getMirandaContactPtrByHandle(args->targetHandle);
const wchar_t* contactNameW = NULL;
TCHAR* tszAccountName = NULL;
if (mirandaContact){
contactNameW = mirandaContact->contactNameW.c_str();
MirandaAccount* mirandaAccount = mirandaContact->mirandaAccountPtr;
if (mirandaAccount){
tszAccountName = mirandaAccount->tszAccountName;
}
}
if(myMfAck != NULL && myMfAck->result == ACKRESULT_SUCCESS){
addMessageToDB(args->targetHandle, mirandaSendModeFlag, msgBuffer, bufSize, targetHandleSzProto);
if (mode == MFENUM_SMM_ONLY_SEND){
//show notyfication popup (only in SMM_ONLY_SEND mode)
wchar_t* buffer = new wchar_t[1024 * sizeof(wchar_t)];
if (contactNameW != NULL && tszAccountName != NULL){
mir_sntprintf(buffer, 1024, TranslateT("Message sent to %s (%s)"), contactNameW, tszAccountName);
} else {
buffer = mir_wstrdup(TranslateT("Message sent"));
}
if(ServiceExists(MS_POPUP_ADDPOPUPCLASS)) {
ShowClassPopupT("MirFox_Notify", TranslateT("MirFox"), buffer);
} else {
PUShowMessageT(buffer, SM_NOTIFY);
}
delete buffer;
} else if (mode == MFENUM_SMM_SEND_AND_SHOW_MW){
//notify hook to open window
if (args->mirfoxDataPtr != NULL && args->mirfoxDataPtr->hhook_EventOpenMW != NULL){
OnHookOpenMvStruct* onHookOpenMv = new(OnHookOpenMvStruct);
onHookOpenMv->targetHandle = args->targetHandle;
onHookOpenMv->msgBuffer = NULL;
NotifyEventHooks(args->mirfoxDataPtr->hhook_EventOpenMW, (WPARAM)onHookOpenMv, (LPARAM)NULL);
} else {
logger->log(L"SMTC: ERROR1 args->mirfoxDataPtr == NULL || args->mirfoxDataPtr->hhook_EventOpenMW == NULL");
}
}
} else {
//error - show error popup
wchar_t* buffer = new wchar_t[1024 * sizeof(wchar_t)];
if (myMfAck != NULL){
logger->log_p(L"SMTC: ERROR - Cannot send message - result = [%d] ", myMfAck->result);
if (myMfAck->errorDesc != NULL){
if (contactNameW != NULL && tszAccountName != NULL){
mir_sntprintf(buffer, 1024, TranslateT("Cannot send message to %s (%s) - %S"), contactNameW, tszAccountName, myMfAck->errorDesc);
} else {
mir_sntprintf(buffer, 1024, TranslateT("Cannot send message - %S"), myMfAck->errorDesc);
}
} else {
if (contactNameW != NULL && tszAccountName != NULL){
mir_sntprintf(buffer, 1024, TranslateT("Cannot send message to %s (%s)"), contactNameW, tszAccountName);
} else {
buffer = mir_wstrdup(TranslateT("Cannot send message - %S"));
}
}
} else {
logger->log(L"SMTC: ERROR - Cannot send message 2");
if (contactNameW != NULL && tszAccountName != NULL){
mir_sntprintf(buffer, 1024, TranslateT("Cannot send message to %s (%s)"), contactNameW, tszAccountName);
} else {
buffer = mir_wstrdup(TranslateT("Cannot send message"));
}
}
if(ServiceExists(MS_POPUP_ADDPOPUPCLASS)) {
ShowClassPopupT("MirFox_Error", TranslateT("MirFox error"), buffer);
} else {
PUShowMessageT(buffer, SM_WARNING);
}
delete buffer;
}
if (myMfAck != NULL){ //when we found ack, not when we exceed MAX_ACK_WAIT_COUNTER
if (myMfAck->errorDesc != NULL) delete myMfAck->errorDesc;
delete myMfAck->szModule;
delete myMfAck;
}
EnterCriticalSection(&ackMapCs);
ackMap.erase(hProcess);
LeaveCriticalSection(&ackMapCs);
mir_free(msgBuffer);
} else if (mode == MFENUM_SMM_ONLY_SHOW_MW){
//notify hook to open window
if (args->mirfoxDataPtr != NULL && args->mirfoxDataPtr->hhook_EventOpenMW != NULL){
OnHookOpenMvStruct* onHookOpenMv = new(OnHookOpenMvStruct);
onHookOpenMv->targetHandle = args->targetHandle;
//adding newline to message in Message Window, only in this mode
std::wstring* msgBuffer = new std::wstring(); //deleted at on_hook_OpenMW
msgBuffer->append(args->userActionSelection);
msgBuffer->append(L"\r\n");
onHookOpenMv->msgBuffer = msgBuffer;
NotifyEventHooks(args->mirfoxDataPtr->hhook_EventOpenMW, (WPARAM)onHookOpenMv, (LPARAM)NULL);
} else {
logger->log(L"SMTC: ERROR1 args->mirfoxDataPtr == NULL || args->mirfoxDataPtr->hhook_EventOpenMW == NULL");
}
}
}
void MirandaUtils::setStatusOnAccount(ActionThreadArgStruct* args)
{
logger->log(L"MirandaUtils::setStatusOnAccount: start");
int status = CallProtoService(args->accountSzModuleName, PS_GETSTATUS, 0, 0);
logger->log_p(L"SSOA: on account: [%S] targetHandle = [" SCNuPTR L"] at status = [%d]", args->accountSzModuleName, args->targetHandle, status);
int result = -1;
if (!(CallProtoService(args->accountSzModuleName, PS_GETCAPS, PFLAGNUM_1, 0) & PF1_INDIVMODEMSG)){
result = CallProtoService(args->accountSzModuleName, PS_SETAWAYMSGW, (WPARAM)status, (LPARAM)args->userActionSelection);
if (result == CALLSERVICE_NOTFOUND){
char *szMsg = mir_u2a(args->userActionSelection);
result = CallProtoService(args->accountSzModuleName, PS_SETAWAYMSG, (WPARAM)status, (LPARAM)szMsg);
mir_free(szMsg);
}
}
MirandaAccount* mirandaAccount = args->mirfoxDataPtr->getMirandaAccountPtrBySzModuleName(args->accountSzModuleName);
TCHAR* tszAccountName = NULL;
if (mirandaAccount){
tszAccountName = mirandaAccount->tszAccountName;
}
wchar_t* buffer = new wchar_t[1024 * sizeof(wchar_t)];
if(result == 0){
if (tszAccountName != NULL){
logger->log_p(L"SSOA: Status message set on [%s]", tszAccountName);
mir_sntprintf(buffer, 1024, TranslateT("Status message set on %s"), tszAccountName);
} else {
logger->log(L"SSOA: Status message set");
buffer = mir_wstrdup(TranslateT("Status message set"));
}
if(ServiceExists(MS_POPUP_ADDPOPUPCLASS)) {
ShowClassPopupT("MirFox_Notify", TranslateT("MirFox"), buffer);
} else {
PUShowMessageT(buffer, SM_NOTIFY);
}
} else {
if (tszAccountName != NULL){
logger->log_p(L"SSOA: ERROR - Cannot set status message 2 on [%s] - result = [%d] ", tszAccountName, result);
mir_sntprintf(buffer, 1024, TranslateT("Cannot set status message on %s"), tszAccountName);
} else {
logger->log_p(L"SSOA: ERROR - Cannot set status message 2 - result = [%d] ", result);
buffer = mir_wstrdup(TranslateT("Cannot set status message"));
}
if(ServiceExists(MS_POPUP_ADDPOPUPCLASS)) {
ShowClassPopupT("MirFox_Error", TranslateT("MirFox error"), buffer);
} else {
PUShowMessageT(buffer, SM_WARNING);
}
}
delete buffer;
}
static int CompareStatusMsg(STATUSMSGINFO *smi, DBCONTACTWRITESETTING *cws_new, char *szSetting)
{
DBVARIANT dbv_old;
int ret = -1;
switch (cws_new->value.type) {
case DBVT_ASCIIZ:
smi->newstatusmsg = (CheckStr(cws_new->value.pszVal, 0, 1) ? nullptr : mir_a2u_cp(cws_new->value.pszVal, CP_ACP));
break;
case DBVT_UTF8:
smi->newstatusmsg = (CheckStr(cws_new->value.pszVal, 0, 1) ? nullptr : mir_a2u_cp(cws_new->value.pszVal, CP_UTF8));
break;
case DBVT_WCHAR:
smi->newstatusmsg = (CheckStrW(cws_new->value.pwszVal, 0, 1) ? nullptr : mir_wstrdup(cws_new->value.pwszVal));
break;
case DBVT_DELETED:
default:
smi->newstatusmsg = nullptr;
break;
}
if (!db_get_s(smi->hContact, "UserOnline", szSetting, &dbv_old, 0)) {
switch (dbv_old.type) {
case DBVT_ASCIIZ:
smi->oldstatusmsg = (CheckStr(dbv_old.pszVal, 0, 1) ? nullptr : mir_a2u_cp(dbv_old.pszVal, CP_ACP));
break;
case DBVT_UTF8:
smi->oldstatusmsg = (CheckStr(dbv_old.pszVal, 0, 1) ? nullptr : mir_a2u_cp(dbv_old.pszVal, CP_UTF8));
break;
case DBVT_WCHAR:
smi->oldstatusmsg = (CheckStrW(dbv_old.pwszVal, 0, 1) ? nullptr : mir_wstrdup(dbv_old.pwszVal));
break;
default:
smi->oldstatusmsg = nullptr;
break;
}
if (cws_new->value.type == DBVT_DELETED) {
if (dbv_old.type == DBVT_WCHAR)
ret = CheckStrW(dbv_old.pwszVal, COMPARE_DEL, COMPARE_SAME);
else if (dbv_old.type == DBVT_UTF8 || dbv_old.type == DBVT_ASCIIZ)
ret = CheckStr(dbv_old.pszVal, COMPARE_DEL, COMPARE_SAME);
else
ret = COMPARE_DEL;
}
else if (dbv_old.type != cws_new->value.type)
ret = (mir_wstrcmp(smi->newstatusmsg, smi->oldstatusmsg) ? CheckStrW(smi->newstatusmsg, COMPARE_DIFF, COMPARE_DEL) : COMPARE_SAME);
else if (dbv_old.type == DBVT_ASCIIZ)
ret = (mir_strcmp(cws_new->value.pszVal, dbv_old.pszVal) ? CheckStr(cws_new->value.pszVal, COMPARE_DIFF, COMPARE_DEL) : COMPARE_SAME);
else if (dbv_old.type == DBVT_UTF8)
ret = (mir_strcmp(cws_new->value.pszVal, dbv_old.pszVal) ? CheckStr(cws_new->value.pszVal, COMPARE_DIFF, COMPARE_DEL) : COMPARE_SAME);
else if (dbv_old.type == DBVT_WCHAR)
ret = (mir_wstrcmp(cws_new->value.pwszVal, dbv_old.pwszVal) ? CheckStrW(cws_new->value.pwszVal, COMPARE_DIFF, COMPARE_DEL) : COMPARE_SAME);
db_free(&dbv_old);
}
else {
if (cws_new->value.type == DBVT_DELETED)
ret = COMPARE_SAME;
else if (cws_new->value.type == DBVT_WCHAR)
ret = CheckStrW(cws_new->value.pwszVal, COMPARE_DIFF, COMPARE_SAME);
else if (cws_new->value.type == DBVT_UTF8 || cws_new->value.type == DBVT_ASCIIZ)
ret = CheckStr(cws_new->value.pszVal, COMPARE_DIFF, COMPARE_SAME);
else
ret = COMPARE_DIFF;
smi->oldstatusmsg = nullptr;
}
return ret;
}
static INT_PTR GetContactInfo(WPARAM, LPARAM lParam) {
DBVARIANT dbv;
CONTACTINFO *ci = (CONTACTINFO*)lParam;
if (ci==NULL) return 1;
if (ci->szProto==NULL) ci->szProto = (char*)CallService(MS_PROTO_GETCONTACTBASEACCOUNT,(WPARAM)ci->hContact,0);
if (ci->szProto==NULL) return 1;
ci->type = 0;
switch(ci->dwFlag & 0x7F) {
case CNF_FIRSTNAME: return ProcessDatabaseValueDefault( ci, "FirstName" );
case CNF_LASTNAME: return ProcessDatabaseValueDefault( ci, "LastName" );
case CNF_NICK: return ProcessDatabaseValueDefault( ci, "Nick" );
case CNF_EMAIL: return ProcessDatabaseValueDefault( ci, "e-mail" );
case CNF_CITY: return ProcessDatabaseValueDefault( ci, "City" );
case CNF_STATE: return ProcessDatabaseValueDefault( ci, "State" );
case CNF_PHONE: return ProcessDatabaseValueDefault( ci, "Phone" );
case CNF_HOMEPAGE: return ProcessDatabaseValueDefault( ci, "Homepage" );
case CNF_ABOUT: return ProcessDatabaseValueDefault( ci, "About" );
case CNF_AGE: return ProcessDatabaseValueDefault( ci, "Age" );
case CNF_GENDER: return ProcessDatabaseValueDefault( ci, "Gender" );
case CNF_FAX: return ProcessDatabaseValueDefault( ci, "Fax" );
case CNF_CELLULAR: return ProcessDatabaseValueDefault( ci, "Cellular" );
case CNF_BIRTHDAY: return ProcessDatabaseValueDefault( ci, "BirthDay" );
case CNF_BIRTHMONTH: return ProcessDatabaseValueDefault( ci, "BirthMonth" );
case CNF_BIRTHYEAR: return ProcessDatabaseValueDefault( ci, "BirthYear" );
case CNF_STREET: return ProcessDatabaseValueDefault( ci, "Street" );
case CNF_ZIP: return ProcessDatabaseValueDefault( ci, "ZIP" );
case CNF_LANGUAGE1: return ProcessDatabaseValueDefault( ci, "Language1" );
case CNF_LANGUAGE2: return ProcessDatabaseValueDefault( ci, "Language2" );
case CNF_LANGUAGE3: return ProcessDatabaseValueDefault( ci, "Language3" );
case CNF_CONAME: return ProcessDatabaseValueDefault( ci, "Company" );
case CNF_CODEPT: return ProcessDatabaseValueDefault( ci, "CompanyDepartment" );
case CNF_COPOSITION: return ProcessDatabaseValueDefault( ci, "CompanyPosition" );
case CNF_COSTREET: return ProcessDatabaseValueDefault( ci, "CompanyStreet" );
case CNF_COCITY: return ProcessDatabaseValueDefault( ci, "CompanyCity" );
case CNF_COSTATE: return ProcessDatabaseValueDefault( ci, "CompanyState" );
case CNF_COZIP: return ProcessDatabaseValueDefault( ci, "CompanyZIP" );
case CNF_COHOMEPAGE: return ProcessDatabaseValueDefault( ci, "CompanyHomepage" );
case CNF_CUSTOMNICK:
{
char* saveProto = ci->szProto; ci->szProto = "CList";
if ( ci->hContact != NULL && !ProcessDatabaseValueDefault( ci, "MyHandle" )) {
ci->szProto = saveProto;
return 0;
}
ci->szProto = saveProto;
break;
}
case CNF_COUNTRY:
case CNF_COCOUNTRY:
if ( !GetDatabaseString( ci, (ci->dwFlag & 0x7F) == CNF_COUNTRY ? "CountryName" : "CompanyCountryName", &dbv ))
return 0;
if ( !DBGetContactSetting( ci->hContact, ci->szProto, (ci->dwFlag & 0x7F)==CNF_COUNTRY ? "Country" : "CompanyCountry", &dbv )) {
if ( dbv.type == DBVT_WORD ) {
int i,countryCount;
struct CountryListEntry *countries;
CallService(MS_UTILS_GETCOUNTRYLIST,(WPARAM)&countryCount,(LPARAM)&countries);
for(i=0;i<countryCount;i++) {
if(countries[i].id!=dbv.wVal) continue;
if ( ci->dwFlag & CNF_UNICODE ) {
int cbLen = MultiByteToWideChar( CP_ACP, 0, ( LPCSTR )countries[i].szName, -1, NULL, 0 );
WCHAR* buf = ( WCHAR* )mir_alloc( sizeof( WCHAR )*(cbLen+1) );
if ( buf != NULL )
MultiByteToWideChar( CP_ACP, 0, ( LPCSTR )countries[i].szName, -1, buf, cbLen );
ci->pszVal = ( TCHAR* )buf;
}
else ci->pszVal = ( TCHAR* )mir_strdup(countries[i].szName);
ci->type = CNFT_ASCIIZ;
DBFreeVariant(&dbv);
return 0;
}
}
else return ProcessDatabaseValueDefault( ci, (ci->dwFlag & 0x7F)==CNF_COUNTRY ? "Country" : "CompanyCountry" );
DBFreeVariant(&dbv);
}
break;
case CNF_FIRSTLAST:
if( !GetDatabaseString( ci, "FirstName", &dbv )) {
DBVARIANT dbv2;
if(!GetDatabaseString(ci,"LastName",&dbv2)) {
ci->type = CNFT_ASCIIZ;
if ( ci->dwFlag & CNF_UNICODE ) {
size_t len = wcslen(dbv.pwszVal) + wcslen(dbv2.pwszVal) + 2;
WCHAR* buf = ( WCHAR* )mir_alloc( sizeof( WCHAR )*len );
if ( buf != NULL )
wcscat( wcscat( wcscpy( buf, dbv.pwszVal ), L" " ), dbv2.pwszVal );
ci->pszVal = ( TCHAR* )buf;
}
else {
size_t len = strlen(dbv.pszVal) + strlen(dbv2.pszVal) + 2;
char* buf = ( char* )mir_alloc( len );
if ( buf != NULL )
strcat( strcat( strcpy( buf, dbv.pszVal ), " " ), dbv2.pszVal );
ci->pszVal = ( TCHAR* )buf;
}
DBFreeVariant( &dbv );
DBFreeVariant( &dbv2 );
return 0;
}
DBFreeVariant( &dbv );
}
break;
case CNF_UNIQUEID:
{
char *uid = (char*)CallProtoService(ci->szProto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0);
if ((INT_PTR)uid!=CALLSERVICE_NOTFOUND&&uid)
if (!ProcessDatabaseValueDefault(ci,uid))
return 0;
break;
}
case CNF_DISPLAYUID:
{
if (!ProcessDatabaseValueDefault(ci, "display_uid"))
return 0;
char *uid = (char*)CallProtoService(ci->szProto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0);
if ((INT_PTR)uid!=CALLSERVICE_NOTFOUND&&uid)
if (!ProcessDatabaseValueDefault(ci,uid))
return 0;
break;
}
case CNF_DISPLAYNC:
case CNF_DISPLAY:
{
int i;
for( i=0; i < NAMEORDERCOUNT; i++ ) {
switch(nameOrder[i]) {
case 0: // custom name
{
// make sure we aren't in CNF_DISPLAYNC mode
// don't get custom name for NULL contact
char* saveProto = ci->szProto; ci->szProto = "CList";
if (ci->hContact!=NULL && (ci->dwFlag&0x7F)==CNF_DISPLAY && !ProcessDatabaseValueDefault(ci,"MyHandle")) {
ci->szProto = saveProto;
return 0;
}
ci->szProto = saveProto;
break;
}
case 1:
if ( !ProcessDatabaseValueDefault( ci, "Nick" )) // nick
return 0;
break;
case 2:
if ( !ProcessDatabaseValueDefault( ci, "FirstName" )) // First Name
return 0;
break;
case 3:
if ( !ProcessDatabaseValueDefault( ci, "e-mail" )) // E-mail
return 0;
break;
case 4:
if ( !ProcessDatabaseValueDefault( ci, "LastName" )) // Last Name
return 0;
break;
case 5: // Unique id
{
// protocol must define a PFLAG_UNIQUEIDSETTING
char *uid = (char*)CallProtoService(ci->szProto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0);
if ((INT_PTR)uid!=CALLSERVICE_NOTFOUND&&uid) {
if (!GetDatabaseString(ci,uid,&dbv)) {
if ( dbv.type == DBVT_BYTE || dbv.type == DBVT_WORD || dbv.type == DBVT_DWORD ) {
long value = (dbv.type == DBVT_BYTE) ? dbv.bVal:(dbv.type==DBVT_WORD ? dbv.wVal : dbv.dVal);
if ( ci->dwFlag & CNF_UNICODE ) {
WCHAR buf[ 40 ];
_ltow( value, buf, 10 );
ci->pszVal = ( TCHAR* )mir_wstrdup( buf );
}
else {
char buf[ 40 ];
_ltoa( value, buf, 10 );
ci->pszVal = ( TCHAR* )mir_strdup(buf);
}
ci->type = CNFT_ASCIIZ;
return 0;
}
if (dbv.type == DBVT_ASCIIZ && !(ci->dwFlag & CNF_UNICODE)) {
ci->type = CNFT_ASCIIZ;
ci->pszVal = dbv.ptszVal;
return 0;
}
if (dbv.type == DBVT_WCHAR && (ci->dwFlag & CNF_UNICODE)) {
ci->type = CNFT_ASCIIZ;
ci->pszVal = dbv.ptszVal;
return 0;
} } }
break;
}
case 6: // first + last name
if(!GetDatabaseString(ci,"FirstName",&dbv)) {
DBVARIANT dbv2;
if(!GetDatabaseString(ci,"LastName",&dbv2)) {
ci->type = CNFT_ASCIIZ;
if ( ci->dwFlag & CNF_UNICODE ) {
size_t len = wcslen(dbv.pwszVal) + wcslen(dbv2.pwszVal) + 2;
WCHAR* buf = ( WCHAR* )mir_alloc( sizeof( WCHAR )*len );
if ( buf != NULL )
wcscat( wcscat( wcscpy( buf, dbv.pwszVal ), L" " ), dbv2.pwszVal );
ci->pszVal = ( TCHAR* )buf;
}
else {
size_t len = strlen(dbv.pszVal) + strlen(dbv2.pszVal) + 2;
char* buf = ( char* )mir_alloc( len );
if ( buf != NULL )
strcat( strcat( strcpy( buf, dbv.pszVal ), " " ), dbv2.pszVal );
ci->pszVal = ( TCHAR* )buf;
}
DBFreeVariant( &dbv );
DBFreeVariant( &dbv2 );
return 0;
}
DBFreeVariant( &dbv );
}
break;
case 7:
if ( ci->dwFlag & CNF_UNICODE )
ci->pszVal = ( TCHAR* )mir_wstrdup( TranslateW( L"'(Unknown Contact)'" ));
else
ci->pszVal = ( TCHAR* )mir_strdup( Translate("'(Unknown Contact)'"));
ci->type = CNFT_ASCIIZ;
return 0;
} } }
break;
case CNF_TIMEZONE: {
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;
}
break;
}
case CNF_MYNOTES: {
char* saveProto = ci->szProto; ci->szProto = "UserInfo";
if (!ProcessDatabaseValueDefault(ci,"MyNotes")) {
ci->szProto = saveProto;
return 0;
}
ci->szProto = saveProto;
break;
} }
return 1;
}
int ProcessStatusMessage(DBCONTACTWRITESETTING *cws, MCONTACT hContact)
{
STATUSMSGINFO smi;
bool bEnablePopup = true, bEnableSound = true;
char *szProto = GetContactProto(hContact);
smi.proto = szProto;
smi.hContact = hContact;
smi.compare = CompareStatusMsg(&smi, cws, "LastStatusMsg");
if (smi.compare == COMPARE_SAME)
goto skip_notify;
if (cws->value.type == DBVT_DELETED)
db_unset(hContact, "UserOnline", "LastStatusMsg");
else
db_set(hContact, "UserOnline", "LastStatusMsg", &cws->value);
//don't show popup when mradio connecting and disconnecting
if (_stricmp(szProto, "mRadio") == 0 && !cws->value.type == DBVT_DELETED) {
wchar_t buf[MAX_PATH];
mir_snwprintf(buf, L" (%s)", TranslateT("connecting"));
T2Utf pszUtf(buf);
mir_snwprintf(buf, L" (%s)", TranslateT("aborting"));
T2Utf pszUtf2(buf);
mir_snwprintf(buf, L" (%s)", TranslateT("playing"));
T2Utf pszUtf3(buf);
if (_stricmp(cws->value.pszVal, pszUtf) == 0 || _stricmp(cws->value.pszVal, pszUtf2) == 0 || _stricmp(cws->value.pszVal, pszUtf3) == 0)
goto skip_notify;
}
// check per-contact ignored events
if (db_get_b(hContact, MODULE, "EnableSMsgNotify", 1) == 0)
bEnableSound = bEnablePopup = false;
// we're offline or just connecting
int myStatus = Proto_GetStatus(szProto);
if (myStatus == ID_STATUS_OFFLINE)
goto skip_notify;
char dbSetting[64];
mir_snprintf(dbSetting, "%s_enabled", szProto);
// this proto is not set for status message notifications
if (db_get_b(NULL, MODULE, dbSetting, 1) == 0)
goto skip_notify;
mir_snprintf(dbSetting, "%d", IDC_CHK_STATUS_MESSAGE);
// status message change notifications are disabled
if (db_get_b(NULL, MODULE, dbSetting, 1) == 0)
goto skip_notify;
if (SkipHiddenContact(hContact))
goto skip_notify;
// check if our status isn't on autodisable list
if (opt.AutoDisable) {
char statusIDs[12], statusIDp[12];
mir_snprintf(statusIDs, "s%d", myStatus);
mir_snprintf(statusIDp, "p%d", myStatus);
bEnableSound = db_get_b(0, MODULE, statusIDs, 1) ? FALSE : bEnableSound;
bEnablePopup = db_get_b(0, MODULE, statusIDp, 1) ? FALSE : bEnablePopup;
}
// check flags
if ((!(templates.PopupSMsgFlags & NOTIFY_REMOVE_MESSAGE) && (smi.compare == COMPARE_DEL))
|| (!(templates.PopupSMsgFlags & NOTIFY_NEW_MESSAGE) && (smi.compare == COMPARE_DIFF)))
bEnablePopup = false;
if (db_get_b(0, MODULE, szProto, 1) == 0 && !opt.PSMsgOnConnect)
bEnablePopup = false;
if (bEnablePopup && db_get_b(hContact, MODULE, "EnablePopups", 1) && !opt.TempDisabled) {
// cut message if needed
wchar_t *copyText = nullptr;
if (opt.PSMsgTruncate && (opt.PSMsgLen > 0) && smi.newstatusmsg && (mir_wstrlen(smi.newstatusmsg) > opt.PSMsgLen)) {
wchar_t buff[MAX_TEXT_LEN + 3];
copyText = mir_wstrdup(smi.newstatusmsg);
wcsncpy(buff, smi.newstatusmsg, opt.PSMsgLen);
buff[opt.PSMsgLen] = 0;
mir_wstrcat(buff, L"...");
replaceStrW(smi.newstatusmsg, buff);
}
wchar_t *str;
if (smi.compare == COMPARE_DEL) {
char protoname[MAX_PATH];
mir_snprintf(protoname, "%s_TPopupSMsgRemoved", szProto);
DBVARIANT dbVar = { 0 };
if (db_get_ws(NULL, MODULE, protoname, &dbVar)) {
str = GetStr(&smi, DEFAULT_POPUP_SMSGREMOVED);
}
else {
str = GetStr(&smi, dbVar.ptszVal);
db_free(&dbVar);
}
}
else {
char protoname[MAX_PATH];
mir_snprintf(protoname, "%s_TPopupSMsgChanged", szProto);
DBVARIANT dbVar = { 0 };
if (db_get_ws(NULL, MODULE, protoname, &dbVar)) {
str = GetStr(&smi, DEFAULT_POPUP_SMSGCHANGED);
}
else {
str = GetStr(&smi, dbVar.ptszVal);
db_free(&dbVar);
}
}
ShowChangePopup(hContact,
Skin_LoadProtoIcon(szProto, db_get_w(hContact, szProto, "Status", ID_STATUS_ONLINE)),
ID_STATUS_STATUSMSG, str);
mir_free(str);
if (copyText) {
mir_free(smi.newstatusmsg);
smi.newstatusmsg = copyText;
}
}
if (opt.BlinkIcon && opt.BlinkIcon_ForMsgs && !opt.TempDisabled) {
HICON hIcon = opt.BlinkIcon_Status ? Skin_LoadProtoIcon(szProto, db_get_w(hContact, szProto, "Status", ID_STATUS_ONLINE)) : Skin_LoadIcon(SKINICON_OTHER_USERONLINE);
wchar_t str[256];
mir_snwprintf(str, TranslateT("%s changed status message to %s"), Clist_GetContactDisplayName(hContact), smi.newstatusmsg);
BlinkIcon(hContact, hIcon, str);
}
if (bEnableSound && db_get_b(0, "Skin", "UseSound", TRUE) && db_get_b(hContact, MODULE, "EnableSounds", 1) && !opt.TempDisabled) {
if (smi.compare == COMPARE_DEL)
PlayChangeSound(hContact, StatusListEx[ID_STATUS_SMSGREMOVED].lpzSkinSoundName);
else
PlayChangeSound(hContact, StatusListEx[ID_STATUS_SMSGCHANGED].lpzSkinSoundName);
}
BOOL bEnableLog = opt.SMsgLogToDB && db_get_b(hContact, MODULE, "EnableSMsgLogging", 1);
if (bEnableLog && (!opt.SMsgLogToDB_WinOpen || CheckMsgWnd(hContact)))
LogSMsgToDB(&smi, smi.compare == COMPARE_DEL ? templates.LogSMsgRemoved : templates.LogSMsgChanged);
if (opt.SMsgLogToFile && db_get_b(hContact, MODULE, "EnableSMsgLogging", 1)) {
wchar_t stzDate[MAX_STATUSTEXT], stzTime[MAX_STATUSTEXT], stzText[MAX_TEXT_LEN];
GetTimeFormat(LOCALE_USER_DEFAULT, 0, nullptr, L"HH':'mm", stzTime, _countof(stzTime));
GetDateFormat(LOCALE_USER_DEFAULT, 0, nullptr, L"dd/MM/yyyy", stzDate, _countof(stzDate));
wchar_t *str;
if (smi.compare == COMPARE_DEL)
str = GetStr(&smi, templates.LogSMsgRemoved);
else
str = GetStr(&smi, templates.LogSMsgChanged);
mir_snwprintf(stzText, L"%s, %s. %s %s\r\n", stzDate, stzTime, Clist_GetContactDisplayName(hContact), str);
LogToFile(stzText);
mir_free(str);
}
skip_notify:
replaceStrW(smi.newstatusmsg, nullptr);
replaceStrW(smi.oldstatusmsg, nullptr);
return 1;
}
INT_PTR CALLBACK FindWindowDlgProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
switch (msg) {
case WM_INITDIALOG:
SendDlgItemMessage(hwnd, IDC_SBAR, SB_SETTEXT, 0, (LPARAM)TranslateT("Enter a string to search the database for"));
CheckDlgButton(hwnd, IDC_MODNAME, BST_CHECKED);
CheckDlgButton(hwnd, IDC_SETTINGNAME, BST_CHECKED);
CheckDlgButton(hwnd, IDC_SETTINGVALUE, BST_CHECKED);
CheckDlgButton(hwnd, IDC_FOUND, BST_CHECKED);
SendMessage(hwnd, WM_SETICON, ICON_BIG, (LPARAM)LoadIcon(g_plugin.getInst(), MAKEINTRESOURCE(ICO_REGEDIT)));
SetWindowLongPtr(GetDlgItem(hwnd, IDC_REPLACE), GWLP_USERDATA, 0);
SetWindowLongPtr(GetDlgItem(hwnd, IDC_SEARCH), GWLP_USERDATA, 0);
SetWindowLong(hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) | WS_EX_APPWINDOW); // taskbar icon
TranslateDialogDefault(hwnd);
ListView_SetExtendedListViewStyle(GetDlgItem(hwnd, IDC_LIST), 32 | LVS_EX_LABELTIP); // LVS_EX_GRIDLINES
loadListSettings(GetDlgItem(hwnd, IDC_LIST), csResultList);
Utils_RestoreWindowPositionNoMove(hwnd, NULL, MODULENAME, "Search_");
return TRUE;
case WM_COMMAND:
switch (LOWORD(wParam)) {
case IDOK:
case IDC_SEARCH:
if (GetWindowLongPtr(GetDlgItem(hwnd, IDC_SEARCH), GWLP_USERDATA)) // stop the search
SetWindowLongPtr(GetDlgItem(hwnd, IDC_SEARCH), GWLP_USERDATA, 0);
else {
wchar_t text[FLD_SIZE];
wchar_t replace[FLD_SIZE] = { 0 };
if (!GetDlgItemText(hwnd, IDC_TEXT, text, _countof(text)) && !IsDlgButtonChecked(hwnd, IDC_EXACT)) break;
// empty replace is done only for exact match or entire replace
if (LOWORD(wParam) == IDOK &&
!GetDlgItemText(hwnd, IDC_REPLACE, replace, _countof(replace)) &&
(!IsDlgButtonChecked(hwnd, IDC_ENTIRELY) && !IsDlgButtonChecked(hwnd, IDC_EXACT)))
break;
if (BST_UNCHECKED == IsDlgButtonChecked(hwnd, IDC_MODNAME) &&
BST_UNCHECKED == IsDlgButtonChecked(hwnd, IDC_SETTINGNAME) &&
BST_UNCHECKED == IsDlgButtonChecked(hwnd, IDC_SETTINGVALUE))
break;
FindInfo *fi = (FindInfo*)mir_calloc(sizeof(FindInfo));
if (!fi)
break;
fi->hwnd = GetDlgItem(hwnd, IDC_LIST);
fi->options = (IsDlgButtonChecked(hwnd, IDC_CASESENSITIVE) ? F_CASE : 0) |
(IsDlgButtonChecked(hwnd, IDC_EXACT) ? F_EXACT : 0) |
(IsDlgButtonChecked(hwnd, IDC_MODNAME) ? F_MODNAME : 0) |
(IsDlgButtonChecked(hwnd, IDC_SETTINGNAME) ? F_SETNAME : 0) |
(IsDlgButtonChecked(hwnd, IDC_SETTINGVALUE) ? F_SETVAL : 0);
if (LOWORD(wParam) == IDOK) {
if (IsDlgButtonChecked(hwnd, IDC_ENTIRELY))
fi->options |= F_ENTIRE;
fi->replace = mir_wstrdup(replace);
SetDlgItemText(hwnd, IDOK, TranslateT("Stop"));
EnableWindow(GetDlgItem(hwnd, IDC_SEARCH), 0);
}
else {
SetDlgItemText(hwnd, IDC_SEARCH, TranslateT("Stop"));
EnableWindow(GetDlgItem(hwnd, IDOK), 0);
}
fi->search = mir_wstrdup(text);
ListView_DeleteAllItems(fi->hwnd);
SetWindowLongPtr(GetDlgItem(hwnd, IDC_SEARCH), GWLP_USERDATA, 1);
EnableWindow(GetDlgItem(hwnd, IDCANCEL), 0);
mir_forkthread(FindSettings, fi);
}
break;
case IDCANCEL:
DestroyWindow(hwnd);
break;
}
break;
case WM_GETMINMAXINFO:
{
MINMAXINFO *mmi = (MINMAXINFO*)lParam;
mmi->ptMinTrackSize.x = 610;
mmi->ptMinTrackSize.y = 300;
}
return 0;
case WM_SIZE:
Utils_ResizeDialog(hwnd, g_plugin.getInst(), MAKEINTRESOURCEA(IDD_FIND), FindDialogResize);
break;
case WM_NOTIFY:
if (LOWORD(wParam) != IDC_LIST) break;
switch (((NMHDR*)lParam)->code) {
case NM_DBLCLK:
{
LVHITTESTINFO hti;
LVITEM lvi;
HWND hwndResults = GetDlgItem(hwnd, IDC_LIST);
hti.pt = ((NMLISTVIEW*)lParam)->ptAction;
if (ListView_SubItemHitTest(hwndResults, &hti) > -1) {
if (hti.flags&LVHT_ONITEM)
{
lvi.mask = LVIF_PARAM;
lvi.iItem = hti.iItem;
lvi.iSubItem = 0;
if (ListView_GetItem(hwndResults, &lvi))
{
ItemInfo ii = { 0 };
ii.hContact = (MCONTACT)lvi.lParam;
ListView_GetItemTextA(hwndResults, hti.iItem, 2, ii.module, _countof(ii.module));
ListView_GetItemTextA(hwndResults, hti.iItem, 3, ii.setting, _countof(ii.setting));
if (ii.setting[0])
ii.type = FW_SETTINGNAME;
else if (ii.module[0])
ii.type = FW_MODULE;
SendMessage(hwnd2mainWindow, WM_FINDITEM, (WPARAM)&ii, 0);
}
}
}
break;
}
case LVN_COLUMNCLICK:
{
LPNMLISTVIEW lv = (LPNMLISTVIEW)lParam;
ColumnsSortParams params;
params.hList = GetDlgItem(hwnd, IDC_LIST);
params.column = lv->iSubItem;
params.last = lastColumn;
ListView_SortItemsEx(params.hList, ColumnsCompare, (LPARAM)¶ms);
lastColumn = (params.column == lastColumn) ? -1 : params.column;
break;
}
} // switch
break;
case WM_DESTROY:
ListView_DeleteAllItems(GetDlgItem(hwnd, IDC_LIST));
saveListSettings(GetDlgItem(hwnd, IDC_LIST), csResultList);
Utils_SaveWindowPosition(hwnd, NULL, MODULENAME, "Search_");
break;
}
return 0;
}
static INT_PTR DbEventGetText(WPARAM wParam, LPARAM lParam)
{
DBEVENTGETTEXT* egt = (DBEVENTGETTEXT*)lParam;
BOOL bIsDenyUnicode = (egt->datatype & DBVTF_DENYUNICODE);
DBEVENTINFO* dbei = egt->dbei;
DBEVENTTYPEDESCR* et = ( DBEVENTTYPEDESCR* )DbEventTypeGet( ( WPARAM )dbei->szModule, ( LPARAM )dbei->eventType );
if ( et && ServiceExists( et->textService ))
return CallService( et->textService, wParam, lParam );
if ( !dbei->pBlob ) return 0;
if ( dbei->eventType == EVENTTYPE_FILE ) {
char* filename = ((char *)dbei->pBlob) + sizeof(DWORD);
char* descr = filename + lstrlenA( filename ) + 1;
char* str = (*descr == 0) ? filename : descr;
switch ( egt->datatype ) {
case DBVT_WCHAR:
return ( INT_PTR )(( dbei->flags & DBEF_UTF ) ?
Utf8DecodeT( str ) : mir_a2t( str ));
case DBVT_ASCIIZ:
return ( INT_PTR )(( dbei->flags & DBEF_UTF ) ? Utf8Decode( mir_strdup( str ), NULL ) : mir_strdup( str ));
}
return 0;
}
// temporary fix for bug with event types conflict between jabber chat states notifications
// and srmm's status changes, must be commented out in future releases
if ( dbei->eventType == 25368 && dbei->cbBlob == 1 && dbei->pBlob[0] == 1 )
return 0;
egt->datatype &= ~DBVTF_DENYUNICODE;
if ( egt->datatype == DBVT_WCHAR )
{
WCHAR* msg = NULL;
if ( dbei->flags & DBEF_UTF ) {
char* str = (char*)alloca(dbei->cbBlob + 1);
if (str == NULL) return NULL;
memcpy(str, dbei->pBlob, dbei->cbBlob);
str[dbei->cbBlob] = 0;
Utf8DecodeCP( str, egt->codepage, &msg );
}
else {
size_t msglen = strlen(( char* )dbei->pBlob) + 1, msglenW = 0;
if ( msglen != dbei->cbBlob ) {
size_t i, count = (( dbei->cbBlob - msglen ) / sizeof( WCHAR ));
WCHAR* p = ( WCHAR* )&dbei->pBlob[ msglen ];
for ( i=0; i < count; i++ ) {
if ( p[i] == 0 ) {
msglenW = i;
break;
} } }
if ( msglenW > 0 && msglenW < msglen && !bIsDenyUnicode )
msg = mir_wstrdup(( WCHAR* )&dbei->pBlob[ msglen ] );
else {
msg = ( WCHAR* )mir_alloc( sizeof(WCHAR) * msglen );
MultiByteToWideChar( egt->codepage, 0, (char *) dbei->pBlob, -1, msg, (int)msglen );
} }
return ( INT_PTR )msg;
}
else if ( egt->datatype == DBVT_ASCIIZ ) {
char* msg = mir_strdup(( char* )dbei->pBlob );
if (dbei->flags & DBEF_UTF)
Utf8DecodeCP( msg, egt->codepage, NULL );
return ( INT_PTR )msg;
}
return 0;
}
void __cdecl FindSettings(LPVOID param)
{
FindInfo* fi = (FindInfo*)param;
HWND hwndParent = GetParent(fi->hwnd);
ModuleSettingLL ModuleList, SettingList;
ModSetLinkLinkItem *module, *setting;
MCONTACT hContact;
DBVARIANT dbv = { 0 };
int foundCount = 0, replaceCount = 0, deleteCount = 0;
DWORD numsearch = 0, numreplace = 0;
int NULLContactDone = 0;
if (!fi->search || !EnumModules(&ModuleList)) {
fi_free(fi);
return;
}
_T2A search(fi->search);
_T2A replace(fi->replace);
// skip modules and setting names on unicode search or replace
if (IsRealUnicode(fi->search) || IsRealUnicode(fi->replace)) {
fi->options &= ~(F_SETNAME | F_MODNAME);
fi->options |= F_UNICODE;
}
if (!(fi->options & F_UNICODE) && (fi->options & F_SETVAL)) {
char val[16];
numsearch = strtoul(search, nullptr, 10);
_ultoa(numsearch, val, 10);
if (!mir_strcmp(search, val)) {
fi->options |= F_NUMSRCH;
// replace numeric values only entirely
if (replace && (fi->options & F_ENTIRE)) {
numreplace = strtoul(replace, nullptr, 10);
_ultoa(numreplace, val, 10);
if (!replace[0] || !mir_strcmp(replace, val))
fi->options |= F_NUMREPL;
}
}
}
SendDlgItemMessage(hwndParent, IDC_SBAR, SB_SETTEXT, 0, (LPARAM)TranslateT("Searching..."));
hContact = 0;
while (GetWindowLongPtr(GetDlgItem(hwndParent, IDC_SEARCH), GWLP_USERDATA)) {
if (!hContact) {
if (NULLContactDone)
break;
else {
NULLContactDone = 1;
hContact = db_find_first();
}
}
else hContact = db_find_next(hContact);
for (module = ModuleList.first; module; module = module->next) {
if (IsModuleEmpty(hContact, module->name))
continue;
if (fi->options & (F_SETVAL | F_SETNAME)) {
if (!EnumSettings(hContact, module->name, &SettingList)) {
fi_free(fi);
FreeModuleSettingLL(&ModuleList);
return;
}
for (setting = SettingList.first; setting; setting = setting->next) {
dbv.type = 0;
if (db_get_s(hContact, module->name, setting->name, &dbv, 0))
continue;
// check in settings value
if (fi->options & F_SETVAL) {
wchar_t *value = nullptr;
switch (dbv.type) {
case DBVT_BYTE:
case DBVT_WORD:
case DBVT_DWORD:
if ((fi->options & F_NUMSRCH) && numsearch == getNumericValue(&dbv)) {
wchar_t *val = fi->search;
int flag = F_SETVAL;
if (fi->options & F_NUMREPL) {
if (replace[0]) {
db_unset(hContact, module->name, setting->name);
flag |= F_DELETED;
deleteCount++;
}
else
if (setNumericValue(hContact, module->name, setting->name, numreplace, dbv.type)) {
val = fi->replace;
flag |= F_REPLACED;
replaceCount++;
}
}
ItemFound(fi->hwnd, hContact, module->name, setting->name, val, flag);
}
break;
case DBVT_WCHAR:
if (!value) value = mir_wstrdup(dbv.pwszVal);
case DBVT_UTF8:
if (!value) value = mir_utf8decodeW(dbv.pszVal);
case DBVT_ASCIIZ:
if (!value) value = mir_a2u(dbv.pszVal);
if (FindMatchT(value, fi->search, fi->options)) {
foundCount++;
ptrW ptr;
wchar_t *newValue = value;
int flag = F_SETVAL;
if (fi->replace) {
newValue = (fi->options & F_ENTIRE) ? fi->replace : ptr = multiReplaceT(value, fi->search, fi->replace, fi->options & F_CASE);
// !!!! delete or make empty ?
if (!newValue[0]) {
db_unset(hContact, module->name, setting->name);
flag |= F_DELETED;
newValue = value;
deleteCount++;
}
else {
#ifdef _UNICODE
// save as unicode if needed
if (dbv.type != DBVT_ASCIIZ || IsRealUnicode(newValue))
db_set_ws(hContact, module->name, setting->name, newValue);
else
#endif
db_set_s(hContact, module->name, setting->name, _T2A(newValue));
flag |= F_REPLACED;
replaceCount++;
}
}
ItemFound(fi->hwnd, hContact, module->name, setting->name, newValue, flag);
}
mir_free(value);
break;
} // switch
}
// check in setting name
if ((fi->options & F_SETNAME) && FindMatchA(setting->name, search, fi->options)) {
foundCount++;
ptrA ptr;
char *newSetting = setting->name;
int flag = F_SETNAME;
if (replace) {
newSetting = (fi->options & F_ENTIRE) ? replace : ptr = multiReplaceA(setting->name, search, replace, fi->options & F_CASE);
if (!newSetting[0]) {
db_unset(hContact, module->name, setting->name);
flag |= F_DELETED;
newSetting = setting->name;
deleteCount++;
}
else {
DBVARIANT dbv2;
// skip if exist
if (!db_get_s(hContact, module->name, newSetting, &dbv2, 0))
db_free(&dbv2);
else if (!db_set(hContact, module->name, newSetting, &dbv)) {
db_unset(hContact, module->name, setting->name);
flag |= F_REPLACED;
replaceCount++;
}
}
}
ItemFound(fi->hwnd, hContact, module->name, newSetting, nullptr, flag);
}
db_free(&dbv);
} // for(setting)
FreeModuleSettingLL(&SettingList);
}
// check in module name
if ((fi->options & F_MODNAME) && FindMatchA(module->name, search, fi->options)) {
foundCount++;
char *newModule = module->name;
int flag = F_MODNAME;
ptrA ptr;
if (replace) {
newModule = (fi->options & F_ENTIRE) ? replace : ptr = multiReplaceA(module->name, search, replace, fi->options & F_CASE);
if (!newModule[0]) {
deleteModule(hContact, module->name, 0);
replaceTreeItem(hContact, module->name, nullptr);
flag |= F_DELETED;
newModule = module->name;
deleteCount++;
}
else if (renameModule(hContact, module->name, newModule)) {
replaceTreeItem(hContact, module->name, nullptr);
flag |= F_REPLACED;
replaceCount++;
}
}
ItemFound(fi->hwnd, hContact, newModule, nullptr, nullptr, flag);
}
} // for(module)
}
wchar_t msg[MSG_SIZE];
mir_snwprintf(msg, TranslateT("Finished. Items found: %d / replaced: %d / deleted: %d"), foundCount, replaceCount, deleteCount);
SendDlgItemMessage(hwndParent, IDC_SBAR, SB_SETTEXT, 0, (LPARAM)msg);
if (fi->replace) {
EnableWindow(GetDlgItem(hwndParent, IDC_SEARCH), 1);
SetDlgItemText(hwndParent, IDOK, TranslateT("&Replace"));
}
else {
SetDlgItemText(hwndParent, IDC_SEARCH, TranslateT("&Search"));
EnableWindow(GetDlgItem(hwndParent, IDOK), 1);
}
fi_free(fi);
FreeModuleSettingLL(&ModuleList);
SetWindowLongPtr(GetDlgItem(hwndParent, IDC_SEARCH), GWLP_USERDATA, 0);
EnableWindow(GetDlgItem(hwndParent, IDCANCEL), 1);
}
