Scriver:

renamed to .cpp

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

1 files changed, 0 insertions, 958 deletions

diff --git a/plugins/Scriver/chat/tools.c b/plugins/Scriver/chat/tools.c
deleted file mode 100644
index d18115dfae..0000000000
--- a/plugins/Scriver/chat/tools.c
+++ /dev/null
@@ -1,958 +0,0 @@
-/*

-Chat module plugin for Miranda IM

-

-Copyright (C) 2003 Jörgen Persson

-Copyright 2003-2009 Miranda ICQ/IM 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 "../commonheaders.h"

-#include "chat.h"

-#include <string.h>

-#include <shlwapi.h>

-

-extern HINSTANCE    g_hInst;

-extern FONTINFO     aFonts[OPTIONS_FONTCOUNT];

-extern HMENU        g_hMenu;

-extern HANDLE       hBuildMenuEvent ;

-extern HANDLE       hSendEvent;

-

-TCHAR* RemoveFormatting(const TCHAR* pszWord)

-{

-	static TCHAR szTemp[10000];

-	int i = 0;

-	int j = 0;

-

-	if ( pszWord == 0 || lstrlen(pszWord) == 0 )

-		return NULL;

-

-	while(j < 9999 && i <= lstrlen( pszWord )) {

-		if (pszWord[i] == '%') {

-			switch ( pszWord[i+1] ) {

-			case '%':

-				szTemp[j] = '%';

-				j++;

-				i++; i++;

-				break;

-			case 'b':

-			case 'u':

-			case 'i':

-			case 'B':

-			case 'U':

-			case 'I':

-			case 'r':

-			case 'C':

-			case 'F':

-				i++; i++;

-				break;

-

-			case 'c':

-			case 'f':

-				i += 4;

-				break;

-

-			default:

-				szTemp[j] = pszWord[i];

-				j++;

-				i++;

-				break;

-		}	}

-		else {

-			szTemp[j] = pszWord[i];

-			j++;

-			i++;

-	}	}

-

-	return (TCHAR*) &szTemp;

-}

-

-static void __stdcall ShowRoomFromPopup(void * pi)

-{

-	SESSION_INFO* si = (SESSION_INFO*) pi;

-	ShowRoom(si, WINDOW_VISIBLE, TRUE);

-}

-

-static INT_PTR CALLBACK PopupDlgProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)

-{

-	switch(message) {

-	case WM_COMMAND:

-		if (HIWORD(wParam) == STN_CLICKED) {

-			SESSION_INFO* si = (SESSION_INFO*)CallService(MS_POPUP_GETPLUGINDATA, (WPARAM)hWnd,(LPARAM)0);;

-

-			CallFunctionAsync(ShowRoomFromPopup, si);

-

-			PUDeletePopUp(hWnd);

-			return TRUE;

-		}

-		break;

-	case WM_CONTEXTMENU:

-		{

-			SESSION_INFO* si = (SESSION_INFO*)CallService(MS_POPUP_GETPLUGINDATA, (WPARAM)hWnd,(LPARAM)0);

-			if (si->windowData.hContact)

-				if (CallService(MS_CLIST_GETEVENT, (WPARAM)si->windowData.hContact, (LPARAM)0))

-					CallService(MS_CLIST_REMOVEEVENT, (WPARAM)si->windowData.hContact, (LPARAM)"chaticon");

-

-			PUDeletePopUp( hWnd );

-		}

-		break;

-	}

-	return DefWindowProc(hWnd, message, wParam, lParam);

-}

-

-static int ShowPopup (HANDLE hContact, SESSION_INFO* si, HICON hIcon,  char* pszProtoName,  TCHAR* pszRoomName, COLORREF crBkg, const TCHAR* fmt, ...)

-{

-	POPUPDATAT pd = {0};

-	va_list marker;

-	static TCHAR szBuf[4*1024];

-

-	if (!fmt || lstrlen(fmt) == 0 || lstrlen(fmt) > 2000)

-		return 0;

-

-	va_start(marker, fmt);

-	_vsntprintf(szBuf, 4096, fmt, marker);

-	va_end(marker);

-

-	pd.lchContact = hContact;

-

-	if ( hIcon )

-		pd.lchIcon = hIcon ;

-	else

-		pd.lchIcon = GetCachedIcon("chat_window");

-

-	mir_sntprintf(pd.lptzContactName, MAX_CONTACTNAME-1, _T(TCHAR_STR_PARAM) _T(" - %s"),

-		pszProtoName, CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)hContact, GCDNF_TCHAR ));

-	lstrcpyn( pd.lptzText, TranslateTS(szBuf), MAX_SECONDLINE-1);

-	pd.iSeconds = g_Settings.iPopupTimeout;

-

-	if (g_Settings.iPopupStyle == 2) {

-		pd.colorBack = 0;

-		pd.colorText = 0;

-	}

-	else if (g_Settings.iPopupStyle == 3) {

-		pd.colorBack = g_Settings.crPUBkgColour;

-		pd.colorText = g_Settings.crPUTextColour;

-	}

-	else {

-		pd.colorBack = g_Settings.crLogBackground;

-		pd.colorText = crBkg;

-	}

-

-	pd.PluginWindowProc = PopupDlgProc;

-	pd.PluginData = si;

-	return PUAddPopUpT(&pd);

-}

-

-static BOOL DoTrayIcon(SESSION_INFO* si, GCEVENT * gce)

-{

-	int iEvent = gce->pDest->iType;

-

-	if ( iEvent&g_Settings.dwTrayIconFlags ) {

-		switch ( iEvent ) {

-		case GC_EVENT_MESSAGE|GC_EVENT_HIGHLIGHT :

-		case GC_EVENT_ACTION|GC_EVENT_HIGHLIGHT :

-			CList_AddEvent(si->windowData.hContact, LoadSkinnedIcon(SKINICON_EVENT_MESSAGE), "chaticon", 0, TranslateT("%s wants your attention in %s"), gce->ptszNick, si->ptszName);

-			break;

-		case GC_EVENT_MESSAGE :

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_message_in"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s speaks in %s"), gce->ptszNick, si->ptszName);

-			break;

-		case GC_EVENT_ACTION:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_action"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s speaks in %s"), gce->ptszNick, si->ptszName);

-			break;

-		case GC_EVENT_JOIN:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_join"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s has joined %s"), gce->ptszNick, si->ptszName);

-			break;

-		case GC_EVENT_PART:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_part"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s has left %s"), gce->ptszNick, si->ptszName);

-			break;

-		case GC_EVENT_QUIT:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_quit"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s has disconnected"), gce->ptszNick);

-			break;

-		case GC_EVENT_NICK:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_nick"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s is now known as %s"), gce->ptszNick, gce->pszText);

-			break;

-		case GC_EVENT_KICK:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_kick"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s kicked %s from %s"), gce->pszStatus, gce->ptszNick, si->ptszName);

-			break;

-		case GC_EVENT_NOTICE:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_notice"), "chaticon", CLEF_ONLYAFEW, TranslateT("Notice from %s"), gce->ptszNick);

-			break;

-		case GC_EVENT_TOPIC:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_topic"), "chaticon", CLEF_ONLYAFEW, TranslateT("Topic change in %s"), si->ptszName);

-			break;

-		case GC_EVENT_INFORMATION:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_info"), "chaticon", CLEF_ONLYAFEW, TranslateT("Information in %s"), si->ptszName);

-			break;

-		case GC_EVENT_ADDSTATUS:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_addstatus"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s enables \'%s\' status for %s in %s"), gce->pszText, gce->pszStatus, gce->ptszNick, si->ptszName);

-			break;

-		case GC_EVENT_REMOVESTATUS:

-			CList_AddEvent(si->windowData.hContact, GetCachedIcon("chat_log_removestatus"), "chaticon", CLEF_ONLYAFEW, TranslateT("%s disables \'%s\' status for %s in %s"), gce->pszText, gce->pszStatus, gce->ptszNick, si->ptszName);

-			break;

-	}	}

-

-	return TRUE;

-}

-

-static BOOL DoPopup(SESSION_INFO* si, GCEVENT * gce)

-{

-	int iEvent = gce->pDest->iType;

-

-	if ( iEvent & g_Settings.dwPopupFlags ) {

-		switch (iEvent) {

-		case GC_EVENT_MESSAGE|GC_EVENT_HIGHLIGHT :

-			ShowPopup(si->windowData.hContact, si, LoadSkinnedIcon(SKINICON_EVENT_MESSAGE), si->pszModule, si->ptszName, aFonts[16].color, TranslateT("%s says: %s"), gce->ptszNick, RemoveFormatting( gce->ptszText ));

-			break;

-		case GC_EVENT_ACTION|GC_EVENT_HIGHLIGHT :

-			ShowPopup(si->windowData.hContact, si, LoadSkinnedIcon(SKINICON_EVENT_MESSAGE), si->pszModule, si->ptszName, aFonts[16].color, _T("%s %s"), gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_MESSAGE :

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_message_in"), si->pszModule, si->ptszName, aFonts[9].color, TranslateT("%s says: %s"), gce->ptszNick, RemoveFormatting( gce->ptszText));

-			break;

-		case GC_EVENT_ACTION:

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_action"), si->pszModule, si->ptszName, aFonts[15].color, _T("%s %s"), gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_JOIN:

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_join"), si->pszModule, si->ptszName, aFonts[3].color, TranslateT("%s has joined"), gce->ptszNick);

-			break;

-		case GC_EVENT_PART:

-			if (!gce->pszText)

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_part"), si->pszModule, si->ptszName, aFonts[4].color, TranslateT("%s has left"), gce->ptszNick);

-			else

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_part"), si->pszModule, si->ptszName, aFonts[4].color, TranslateT("%s has left (%s)"), gce->ptszNick, RemoveFormatting(gce->ptszText));

-				break;

-		case GC_EVENT_QUIT:

-			if (!gce->pszText)

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_quit"), si->pszModule, si->ptszName, aFonts[5].color, TranslateT("%s has disconnected"), gce->ptszNick);

-			else

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_quit"), si->pszModule, si->ptszName, aFonts[5].color, TranslateT("%s has disconnected (%s)"), gce->ptszNick,RemoveFormatting(gce->ptszText));

-				break;

-		case GC_EVENT_NICK:

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_nick"), si->pszModule, si->ptszName, aFonts[7].color, TranslateT("%s is now known as %s"), gce->ptszNick, gce->ptszText);

-			break;

-		case GC_EVENT_KICK:

-			if (!gce->pszText)

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_kick"), si->pszModule, si->ptszName, aFonts[6].color, TranslateT("%s kicked %s"), (char *)gce->pszStatus, gce->ptszNick);

-			else

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_kick"), si->pszModule, si->ptszName, aFonts[6].color, TranslateT("%s kicked %s (%s)"), (char *)gce->pszStatus, gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_NOTICE:

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_notice"), si->pszModule, si->ptszName, aFonts[8].color, TranslateT("Notice from %s: %s"), gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_TOPIC:

-			if (!gce->ptszNick)

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_topic"), si->pszModule, si->ptszName, aFonts[11].color, TranslateT("The topic is \'%s\'"), RemoveFormatting(gce->ptszText));

-			else

-				ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_topic"), si->pszModule, si->ptszName, aFonts[11].color, TranslateT("The topic is \'%s\' (set by %s)"), RemoveFormatting(gce->ptszText), gce->ptszNick);

-			break;

-		case GC_EVENT_INFORMATION:

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_info"), si->pszModule, si->ptszName, aFonts[12].color, _T("%s"), RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_ADDSTATUS:

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_addstatus"), si->pszModule, si->ptszName, aFonts[13].color, TranslateT("%s enables \'%s\' status for %s"), gce->ptszText, (char *)gce->pszStatus, gce->ptszNick);

-			break;

-		case GC_EVENT_REMOVESTATUS:

-			ShowPopup(si->windowData.hContact, si, GetCachedIcon("chat_log_removestatus"), si->pszModule, si->ptszName, aFonts[14].color, TranslateT("%s disables \'%s\' status for %s"), gce->ptszText, (char *)gce->pszStatus, gce->ptszNick);

-			break;

-	}	}

-

-	return TRUE;

-}

-

-BOOL DoSoundsFlashPopupTrayStuff(SESSION_INFO* si, GCEVENT * gce, BOOL bHighlight, int bManyFix)

-{

-	BOOL bInactive;

-	int iEvent;

-

-	if (!gce || !si ||  gce->bIsMe || si->iType == GCW_SERVER)

-		return FALSE;

-

-	bInactive = si->hWnd == NULL || GetForegroundWindow() != GetParent(si->hWnd);

-	// bInactive |=  GetActiveWindow() != si->hWnd; // Removed this, because it seemed to be FALSE, even when window was focused, causing incorrect notifications

-

-	iEvent = gce->pDest->iType;

-

-	if ( bHighlight ) {

-		gce->pDest->iType |= GC_EVENT_HIGHLIGHT;

-		if (bInactive || !g_Settings.SoundsFocus)

-			SkinPlaySound("ChatHighlight");

-		if (bInactive && si->hWnd && DBGetContactSettingByte(NULL, "Chat", "FlashWindowHighlight", 0) != 0)

-			SendMessage(GetParent(si->hWnd), CM_STARTFLASHING, 0, 0);

-		if (DBGetContactSettingByte(si->windowData.hContact, "CList", "Hidden", 0) != 0)

-			DBDeleteContactSetting(si->windowData.hContact, "CList", "Hidden");

-		if (bInactive)

-			DoTrayIcon(si, gce);

-		if (bInactive || !g_Settings.PopUpInactiveOnly)

-			DoPopup(si, gce);

-		if (bInactive && si->hWnd)

-			SendMessage(si->hWnd, GC_SETMESSAGEHIGHLIGHT, 0, 0);

-		return TRUE;

-	}

-

-	// do blinking icons in tray

-	if (bInactive || !g_Settings.TrayIconInactiveOnly)

-		DoTrayIcon(si, gce);

-

-	// stupid thing to not create multiple popups for a QUIT event for instance

-	if (bManyFix == 0) {

-		// do popups

-		if (bInactive || !g_Settings.PopUpInactiveOnly)

-			DoPopup(si, gce);

-

-		// do sounds and flashing

-		switch (iEvent) {

-		case GC_EVENT_JOIN:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatJoin");

-			break;

-		case GC_EVENT_PART:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatPart");

-			break;

-		case GC_EVENT_QUIT:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatQuit");

-			break;

-		case GC_EVENT_ADDSTATUS:

-		case GC_EVENT_REMOVESTATUS:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatMode");

-			break;

-		case GC_EVENT_KICK:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatKick");

-			break;

-		case GC_EVENT_MESSAGE:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatMessage");

-			if (bInactive && g_Settings.FlashWindow && si->hWnd)

-				SendMessage(GetParent(si->hWnd), CM_STARTFLASHING, 0, 0);

-

-			if (bInactive && !( si->wState & STATE_TALK )) {

-				si->wState |= STATE_TALK;

-				DBWriteContactSettingWord(si->windowData.hContact, si->pszModule,"ApparentMode",(LPARAM)(WORD) 40071);

-			}

-			if (bInactive && si->hWnd)

-				SendMessage(si->hWnd, GC_SETTABHIGHLIGHT, 0, 0);

-			break;

-		case GC_EVENT_ACTION:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatAction");

-			break;

-		case GC_EVENT_NICK:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatNick");

-			break;

-		case GC_EVENT_NOTICE:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatNotice");

-			break;

-		case GC_EVENT_TOPIC:

-			if (bInactive || !g_Settings.SoundsFocus)

-				SkinPlaySound("ChatTopic");

-			break;

-	}	}

-

-	return TRUE;

-}

-

-int GetColorIndex(const char* pszModule, COLORREF cr)

-{

-	MODULEINFO * pMod = MM_FindModule(pszModule);

-	int i = 0;

-

-	if (!pMod || pMod->nColorCount == 0)

-		return -1;

-

-	for (i = 0; i < pMod->nColorCount; i++)

-		if (pMod->crColors[i] == cr)

-			return i;

-

-	return -1;

-}

-

-// obscure function that is used to make sure that any of the colors

-// passed by the protocol is used as fore- or background color

-// in the messagebox. THis is to vvercome limitations in the richedit

-// that I do not know currently how to fix

-

-void CheckColorsInModule(const char* pszModule)

-{

-	MODULEINFO * pMod = MM_FindModule( pszModule );

-	int i = 0;

-	COLORREF crFG;

-	COLORREF crBG = (COLORREF)DBGetContactSettingDword(NULL, SRMMMOD, SRMSGSET_INPUTBKGCOLOUR, SRMSGDEFSET_INPUTBKGCOLOUR);

-

-	LoadMsgDlgFont(MSGFONTID_MESSAGEAREA, NULL, &crFG, FALSE);

-

-	if ( !pMod )

-		return;

-

-	for (i = 0; i < pMod->nColorCount; i++) {

-		if (pMod->crColors[i] == crFG || pMod->crColors[i] == crBG) {

-			if (pMod->crColors[i] == RGB(255,255,255))

-				pMod->crColors[i]--;

-			else

-				pMod->crColors[i]++;

-}	}	}

-

-TCHAR* my_strstri( const TCHAR* s1, const TCHAR* s2)

-{

-	int i,j,k;

-	for(i=0;s1[i];i++)

-		for(j=i,k=0; _totlower(s1[j]) == _totlower(s2[k]);j++,k++)

-			if (!s2[k+1])

-				return (TCHAR*)(s1+i);

-

-	return NULL;

-}

-

-BOOL IsHighlighted(SESSION_INFO* si, const TCHAR* pszText)

-{

-	if ( g_Settings.HighlightEnabled && g_Settings.pszHighlightWords && pszText && si->pMe ) {

-		TCHAR* p1 = g_Settings.pszHighlightWords;

-		TCHAR* p2 = NULL;

-		const TCHAR* p3 = pszText;

-		static TCHAR szWord1[1000];

-		static TCHAR szWord2[1000];

-		static TCHAR szTrimString[] = _T(":,.!?;\'>)");

-

-		// compare word for word

-		while (*p1 != '\0') {

-			// find the next/first word in the highlight word string

-			// skip 'spaces' be4 the word

-			while(*p1 == ' ' && *p1 != '\0')

-				p1 += 1;

-

-			//find the end of the word

-			p2 = _tcschr(p1, ' ');

-			if (!p2)

-				p2 = _tcschr(p1, '\0');

-			if (p1 == p2)

-				return FALSE;

-

-			// copy the word into szWord1

-			lstrcpyn(szWord1, p1, p2-p1>998?999:p2-p1+1);

-			p1 = p2;

-

-			// replace %m with the users nickname

-			p2 = _tcschr(szWord1, '%');

-			if (p2 && p2[1] == 'm') {

-				TCHAR szTemp[50];

-

-				p2[1] = 's';

-				lstrcpyn(szTemp, szWord1, SIZEOF(szTemp));

-				mir_sntprintf(szWord1, SIZEOF(szWord1), szTemp, si->pMe->pszNick);

-			}

-

-			// time to get the next/first word in the incoming text string

-			while(*p3 != '\0')

-			{

-				// skip 'spaces' be4 the word

-				while(*p3 == ' ' && *p3 != '\0')

-					p3 += 1;

-

-				//find the end of the word

-				p2 = _tcschr(p3, ' ');

-				if (!p2)

-					p2 = _tcschr(p3, '\0');

-

-

-				if (p3 != p2) {

-					// eliminate ending character if needed

-					if (p2-p3 > 1 && _tcschr(szTrimString, p2[-1]))

-						p2 -= 1;

-

-					// copy the word into szWord2 and remove formatting

-					lstrcpyn(szWord2, p3, p2-p3>998?999:p2-p3+1);

-

-					// reset the pointer if it was touched because of an ending character

-					if (*p2 != '\0' && *p2 != ' ')

-						p2 += 1;

-					p3 = p2;

-

-					CharLower(szWord1);

-					CharLower(szWord2);

-

-					// compare the words, using wildcards

-					if (WCCmp(szWord1, RemoveFormatting(szWord2)))

-						return TRUE;

-			} 	}

-

-			p3 = pszText;

-	}	}

-

-	return FALSE;

-}

-

-BOOL LogToFile(SESSION_INFO* si, GCEVENT * gce)

-{

-	MODULEINFO * mi = NULL;

-	TCHAR szBuffer[4096];

-	TCHAR szLine[4096];

-	TCHAR szTime[100];

-	FILE *hFile = NULL;

-	TCHAR tszFile[MAX_PATH];

-	TCHAR tszFolder[MAX_PATH];

-	TCHAR p = '\0';

-	BOOL bFileJustCreated = TRUE;

-

-	if (!si || !gce)

-		return FALSE;

-

-	mi = MM_FindModule(si->pszModule);

-	if ( !mi )

-		return FALSE;

-

-	szBuffer[0] = '\0';

-

-	lstrcpyn(tszFile, GetChatLogsFilename(si->windowData.hContact, gce->time), MAX_PATH);

-	bFileJustCreated = !PathFileExists(tszFile);

-	_tcscpy(tszFolder, tszFile);

-	PathRemoveFileSpec(tszFolder);

-	if (!PathIsDirectory(tszFolder))

-		CallService(MS_UTILS_CREATEDIRTREET, 0, (LPARAM)tszFolder);

-

-	lstrcpyn(szTime, MakeTimeStamp(g_Settings.pszTimeStampLog, gce->time), 99);

-

-	hFile = _tfopen(tszFile, _T("ab+"));

-	if (hFile) {

-		TCHAR szTemp[512], szTemp2[512];

-		TCHAR* pszNick = NULL;

-		if (bFileJustCreated)

-			fputws((const wchar_t*)"\377\376", hFile);		//UTF-16 LE BOM == FF FE

-		if ( gce->ptszNick ) {

-			if ( g_Settings.LogLimitNames && lstrlen(gce->ptszNick) > 20 ) {

-				lstrcpyn(szTemp2, gce->ptszNick, 20);

-				lstrcpyn(szTemp2+20, _T("..."), 4);

-			}

-			else lstrcpyn(szTemp2, gce->ptszNick, 511);

-

-			if (gce->pszUserInfo)

-				mir_sntprintf(szTemp, SIZEOF(szTemp), _T("%s (%s)"), szTemp2, gce->pszUserInfo);

-			else

-				mir_sntprintf(szTemp, SIZEOF(szTemp), _T("%s"), szTemp2);

-			pszNick = szTemp;

-		}

-		switch (gce->pDest->iType)

-		{

-		case GC_EVENT_MESSAGE:

-		case GC_EVENT_MESSAGE|GC_EVENT_HIGHLIGHT:

-			p = '*';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), _T("%s * %s"), gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_ACTION:

-		case GC_EVENT_ACTION|GC_EVENT_HIGHLIGHT:

-			p = '*';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), _T("%s %s"), gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_JOIN:

-			p = '>';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s has joined"), (char *)pszNick);

-			break;

-		case GC_EVENT_PART:

-			p = '<';

-			if (!gce->pszText)

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s has left"), (char *)pszNick);

-			else

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s has left (%s)"), (char *)pszNick, RemoveFormatting(gce->ptszText));

-				break;

-		case GC_EVENT_QUIT:

-			p = '<';

-			if (!gce->pszText)

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s has disconnected"), (char *)pszNick);

-			else

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s has disconnected (%s)"), (char *)pszNick,RemoveFormatting(gce->ptszText));

-				break;

-		case GC_EVENT_NICK:

-			p = '^';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s is now known as %s"), gce->ptszNick, gce->ptszText);

-			break;

-		case GC_EVENT_KICK:

-			p = '~';

-			if (!gce->pszText)

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s kicked %s"), (char *)gce->pszStatus, gce->ptszNick);

-			else

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s kicked %s (%s)"), (char *)gce->pszStatus, gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_NOTICE:

-			p = 'o';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("Notice from %s: %s"), gce->ptszNick, RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_TOPIC:

-			p = '#';

-			if (!gce->pszNick)

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("The topic is \'%s\'"), RemoveFormatting(gce->ptszText));

-			else

-				mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("The topic is \'%s\' (set by %s)"), RemoveFormatting(gce->ptszText), gce->ptszNick);

-			break;

-		case GC_EVENT_INFORMATION:

-			p = '!';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), _T("%s"), RemoveFormatting(gce->ptszText));

-			break;

-		case GC_EVENT_ADDSTATUS:

-			p = '+';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s enables \'%s\' status for %s"), gce->ptszText, (char *)gce->pszStatus, gce->ptszNick);

-			break;

-		case GC_EVENT_REMOVESTATUS:

-			p = '-';

-			mir_sntprintf(szBuffer, SIZEOF(szBuffer), TranslateT("%s disables \'%s\' status for %s"), gce->ptszText, (char *)gce->pszStatus, gce->ptszNick);

-			break;

-		}

-		if (p)

-			mir_sntprintf(szLine, SIZEOF(szLine), TranslateT("%s %c %s\r\n"), szTime, p, szBuffer);

-		else

-			mir_sntprintf(szLine, SIZEOF(szLine), TranslateT("%s %s\r\n"), szTime, szBuffer);

-

-		if (szLine[0]) {

-			_fputts(szLine, hFile);

-

-			if (g_Settings.LoggingLimit > 0) {

-				long  dwSize;

-				long  trimlimit;

-

-				fseek(hFile, 0, SEEK_END);

-				dwSize = ftell(hFile);

-				rewind(hFile);

-				trimlimit = g_Settings.LoggingLimit * 1024 + 1024 * 10;

-				if (dwSize > trimlimit) {

-					BYTE * pBuffer = 0;

-					BYTE * pBufferTemp = 0;

-					size_t read = 0;

-

-					pBuffer = (BYTE *)mir_alloc(g_Settings.LoggingLimit * 1024 + 2);

-					pBuffer[g_Settings.LoggingLimit*1024] = '\0';

-					pBuffer[g_Settings.LoggingLimit*1024+1] = '\0';

-					fseek(hFile, -g_Settings.LoggingLimit*1024, SEEK_END);

-					read = fread(pBuffer, 1, g_Settings.LoggingLimit * 1024, hFile);

-					fclose(hFile);

-					hFile = NULL;

-

-					// trim to whole lines, should help with broken log files I hope.

-					pBufferTemp = (BYTE*)_tcschr((TCHAR*)pBuffer, _T('\n'));

-					if (pBufferTemp) {

-						pBufferTemp+= sizeof(TCHAR);

-						read = read - (pBufferTemp - pBuffer);

-					} else pBufferTemp = pBuffer;

-

-					if (read > 0) {

-						hFile = _tfopen(tszFile, _T("wb"));

-						if (hFile) {

-							fputws((const wchar_t*)"\377\376", hFile);		//UTF-16 LE BOM == FF FE

-							fwrite(pBufferTemp, 1, read, hFile);

-							fclose(hFile);

-							hFile = NULL;

-					}	}

-					mir_free(pBuffer);

-		}	}	}

-

-		if (hFile)

-			fclose(hFile);

-		hFile = NULL;

-		return TRUE;

-	}

-	return FALSE;

-}

-

-UINT CreateGCMenu(HWND hwnd, HMENU *hMenu, int iIndex, POINT pt, SESSION_INFO* si, TCHAR* pszUID, TCHAR* pszWordText)

-{

-	GCMENUITEMS gcmi = {0};

-	int i;

-	HMENU hSubMenu = 0;

-

-	*hMenu = GetSubMenu(g_hMenu, iIndex);

-	gcmi.pszID = si->ptszID;

-	gcmi.pszModule = si->pszModule;

-	gcmi.pszUID = pszUID;

-

-	if (iIndex == 1) {

-		int iLen = GetRichTextLength(hwnd, CP_ACP, FALSE);

-

-		EnableMenuItem(*hMenu, IDM_CLEAR, MF_ENABLED);

-		EnableMenuItem(*hMenu, ID_COPYALL, MF_ENABLED);

-		if (!iLen) {

-			EnableMenuItem(*hMenu, ID_COPYALL, MF_BYCOMMAND | MF_GRAYED);

-			EnableMenuItem(*hMenu, IDM_CLEAR, MF_BYCOMMAND | MF_GRAYED);

-		}

-

-		if ( pszWordText && pszWordText[0] ) {

-			TCHAR szMenuText[4096];

-			mir_sntprintf( szMenuText, 4096, TranslateT("Look up \'%s\':"), pszWordText );

-			ModifyMenu( *hMenu, 4, MF_STRING|MF_BYPOSITION, 4, szMenuText );

-			SetSearchEngineIcons(*hMenu, g_dat->hSearchEngineIconList);

-		}

-		else ModifyMenu( *hMenu, 4, MF_STRING|MF_GRAYED|MF_BYPOSITION, 4, TranslateT( "No word to look up" ));

-		gcmi.Type = MENU_ON_LOG;

-	}

-	else if (iIndex == 0)

-	{

-		TCHAR szTemp[30], szTemp2[30];

-		lstrcpyn(szTemp, TranslateT("&Message"), 24);

-		if ( pszUID )

-			mir_sntprintf( szTemp2, SIZEOF(szTemp2), _T("%s %s"), szTemp, pszUID);

-		else

-			lstrcpyn(szTemp2, szTemp, 24);

-

-		if ( lstrlen(szTemp2) > 22 )

-			lstrcpyn( szTemp2+22, _T("..."), 4 );

-		ModifyMenu( *hMenu, ID_MESS, MF_STRING|MF_BYCOMMAND, ID_MESS, szTemp2 );

-		gcmi.Type = MENU_ON_NICKLIST;

-	}

-

-	NotifyEventHooks(hBuildMenuEvent, 0, (WPARAM)&gcmi);

-

-	if (gcmi.nItems > 0)

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

-

-	for (i = 0; i < gcmi.nItems; i++) {

-		TCHAR* ptszDescr = a2tf(gcmi.Item[i].pszDesc, si->dwFlags);

-		TCHAR* ptszText = TranslateTS(ptszDescr);

-		DWORD dwState = gcmi.Item[i].bDisabled ? MF_GRAYED : 0;

-

-		if (gcmi.Item[i].uType == MENU_NEWPOPUP) {

-			hSubMenu = CreateMenu();

-			AppendMenu(*hMenu, dwState | MF_POPUP, (UINT_PTR)hSubMenu, ptszText);

-		}

-		else if (gcmi.Item[i].uType == MENU_POPUPHMENU)

-			AppendMenu(hSubMenu == 0 ? *hMenu : hSubMenu, dwState | MF_POPUP, gcmi.Item[i].dwID, ptszText);

-		else if (gcmi.Item[i].uType == MENU_POPUPITEM)

-			AppendMenu(hSubMenu == 0 ? *hMenu : hSubMenu, dwState | MF_STRING, gcmi.Item[i].dwID, ptszText);

-		else if (gcmi.Item[i].uType == MENU_POPUPCHECK)

-			AppendMenu(hSubMenu == 0 ? *hMenu : hSubMenu, dwState | MF_CHECKED | MF_STRING, gcmi.Item[i].dwID, ptszText);

-		else if (gcmi.Item[i].uType == MENU_POPUPSEPARATOR)

-			AppendMenu(hSubMenu == 0 ? *hMenu : hSubMenu, MF_SEPARATOR, 0, ptszText);

-		else if (gcmi.Item[i].uType == MENU_SEPARATOR)

-			AppendMenu(*hMenu, MF_SEPARATOR, 0, ptszText);

-		else if (gcmi.Item[i].uType == MENU_HMENU)

-			AppendMenu(*hMenu, dwState | MF_POPUP, gcmi.Item[i].dwID, ptszText);

-		else if (gcmi.Item[i].uType == MENU_ITEM)

-			AppendMenu(*hMenu, dwState | MF_STRING, gcmi.Item[i].dwID, ptszText);

-		else if (gcmi.Item[i].uType == MENU_CHECK)

-			AppendMenu(*hMenu, dwState | MF_CHECKED | MF_STRING, gcmi.Item[i].dwID, ptszText);

-

-		mir_free( ptszDescr );

-	}

-	return TrackPopupMenu(*hMenu, TPM_RETURNCMD, pt.x, pt.y, 0, hwnd, NULL);

-}

-

-void DestroyGCMenu(HMENU *hMenu, int iIndex)

-{

-	MENUITEMINFO mi;

-	mi.cbSize = sizeof(mi);

-	mi.fMask = MIIM_SUBMENU;

-	while(GetMenuItemInfo(*hMenu, iIndex, TRUE, &mi))

-	{

-		if (mi.hSubMenu != NULL)

-			DestroyMenu(mi.hSubMenu);

-		RemoveMenu(*hMenu, iIndex, MF_BYPOSITION);

-	}

-}

-

-BOOL DoEventHookAsync(HWND hwnd, const TCHAR* pszID, const char* pszModule, int iType, TCHAR* pszUID, TCHAR* pszText, DWORD dwItem)

-{

-	SESSION_INFO* si;

-	GCHOOK* gch = (GCHOOK*)mir_alloc( sizeof( GCHOOK ));

-	GCDEST* gcd = (GCDEST*)mir_alloc( sizeof( GCDEST ));

-

-	memset( gch, 0, sizeof( GCHOOK ));

-	memset( gcd, 0, sizeof( GCDEST ));

-

-	replaceStrA( &gcd->pszModule, pszModule);

-	if (( si = SM_FindSession(pszID, pszModule)) == NULL )

-		return FALSE;

-	

-	if ( !( si->dwFlags & GC_UNICODE )) {

-		gcd->pszID = t2a( pszID );

-		gch->pszUID = t2a( pszUID );

-		gch->pszText = t2a( pszText );

-	}

-	else {

-		replaceStr( &gcd->ptszID, pszID );

-		replaceStr( &gch->ptszUID, pszUID);

-		replaceStr( &gch->ptszText, pszText);

-	}

-	

-	gcd->iType = iType;

-	gch->dwData = dwItem;

-	gch->pDest = gcd;

-	PostMessage(hwnd, GC_FIREHOOK, 0, (LPARAM) gch);

-	return TRUE;

-}

-

-BOOL DoEventHook(const TCHAR* pszID, const char* pszModule, int iType, const TCHAR* pszUID, const TCHAR* pszText, DWORD dwItem)

-{

-	SESSION_INFO* si;

-	GCHOOK gch = {0};

-	GCDEST gcd = {0};

-

-	gcd.pszModule = (char*)pszModule;

-	if (( si = SM_FindSession(pszID, pszModule)) == NULL )

-		return FALSE;

-

-	if ( !( si->dwFlags & GC_UNICODE )) {

-		gcd.pszID = t2a( pszID );

-		gch.pszUID = t2a( pszUID );

-		gch.pszText = t2a( pszText );

-	}

-	else {

-		gcd.ptszID = mir_tstrdup( pszID );

-		gch.ptszUID = mir_tstrdup( pszUID );

-		gch.ptszText = mir_tstrdup( pszText );

-	}

-

-	gcd.iType = iType;

-	gch.dwData = dwItem;

-	gch.pDest = &gcd;

-	NotifyEventHooks(hSendEvent,0,(WPARAM)&gch);

-

-	mir_free( gcd.pszID );

-	mir_free( gch.ptszUID );

-	mir_free( gch.ptszText );

-	return TRUE;

-}

-

-BOOL IsEventSupported(int eventType)

-{

-	switch (eventType)

-	{

-		// Supported events

-		case GC_EVENT_JOIN:

-		case GC_EVENT_PART:

-		case GC_EVENT_QUIT:

-		case GC_EVENT_KICK:

-		case GC_EVENT_NICK:

-		case GC_EVENT_NOTICE:

-		case GC_EVENT_MESSAGE:

-		case GC_EVENT_TOPIC:

-		case GC_EVENT_INFORMATION:

-		case GC_EVENT_ACTION:

-		case GC_EVENT_ADDSTATUS:

-		case GC_EVENT_REMOVESTATUS:

-		case GC_EVENT_CHUID:

-		case GC_EVENT_CHANGESESSIONAME:

-		case GC_EVENT_ADDGROUP:

-		case GC_EVENT_SETITEMDATA:

-		case GC_EVENT_GETITEMDATA:

-		case GC_EVENT_SETSBTEXT:

-		case GC_EVENT_ACK:

-		case GC_EVENT_SENDMESSAGE:

-		case GC_EVENT_SETSTATUSEX:

-		case GC_EVENT_CONTROL:

-		case GC_EVENT_SETCONTACTSTATUS:

-			return TRUE;

-	}

-

-	// Other events

-	return FALSE;

-}

-

-TCHAR* a2tf( const TCHAR* str, int flags )

-{

-	if ( str == NULL )

-		return NULL;

-

-	if ( flags & GC_UNICODE )

-		return mir_tstrdup( str );

-	else {

-		int codepage = CallService( MS_LANGPACK_GETCODEPAGE, 0, 0 );

-

-		int cbLen = MultiByteToWideChar( codepage, 0, (char*)str, -1, 0, 0 );

-		TCHAR* result = ( TCHAR* )mir_alloc( sizeof(TCHAR)*( cbLen+1 ));

-		if ( result == NULL )

-			return NULL;

-

-		MultiByteToWideChar( codepage, 0, (char*)str, -1, result, cbLen );

-		result[ cbLen ] = 0;

-		return result;

-	}

-}

-

-TCHAR* replaceStr( TCHAR** dest, const TCHAR* src )

-{

-	mir_free( *dest );

-	*dest = mir_tstrdup( src );

-	return *dest;

-}

-

-char* replaceStrA( char** dest, const char* src )

-{

-	mir_free( *dest );

-	*dest = mir_strdup( src );

-	return *dest;

-}

-

-TCHAR* GetChatLogsFilename (HANDLE  hContact, time_t tTime)

-{	REPLACEVARSARRAY rva[11];

-	REPLACEVARSDATA dat = {0};

-	static TCHAR tszFileName[MAX_PATH];

-	TCHAR *p = {0}, *tszParsedName = {0};

-	int i;

-

-	if (g_Settings.pszLogDir[_tcslen(g_Settings.pszLogDir)-1] == '\\')

-		_tcscat(g_Settings.pszLogDir, _T("%userid%.log"));

-	if (!tTime)

-	  time(&tTime);

-

-	// day 1-31

-	rva[0].lptzKey = _T("d");

-	rva[0].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%#d"), tTime));

-	// day 01-31

-	rva[1].lptzKey = _T("dd");

-	rva[1].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%d"), tTime));

-	// month 1-12

-	rva[2].lptzKey = _T("m");

-	rva[2].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%#m"), tTime));

-	// month 01-12

-	rva[3].lptzKey = _T("mm");

-	rva[3].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%m"), tTime));

-	// month text short

-	rva[4].lptzKey = _T("mon");

-	rva[4].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%b"), tTime));

-	// month text

-	rva[5].lptzKey = _T("month");

-	rva[5].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%B"), tTime));

-	// year 01-99

-	rva[6].lptzKey = _T("yy");

-	rva[6].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%y"), tTime));

-	// year 1901-9999

-	rva[7].lptzKey = _T("yyyy");

-	rva[7].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%Y"), tTime));

-	// weekday short

-	rva[8].lptzKey = _T("wday");

-	rva[8].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%a"), tTime));

-	// weekday

-	rva[9].lptzKey = _T("weekday");

-	rva[9].lptzValue = mir_tstrdup(MakeTimeStamp(_T("%A"), tTime));

-	// end of array

-	rva[10].lptzKey = NULL;

-	rva[10].lptzValue = NULL;

-

-	dat.cbSize    = sizeof(dat);

-	dat.dwFlags   = RVF_TCHAR;

-	dat.hContact  = hContact;

-	dat.variables = rva;

-	tszParsedName = (TCHAR*)CallService(MS_UTILS_REPLACEVARS, (WPARAM)g_Settings.pszLogDir, (LPARAM)&dat);

-	_tcsncpy(tszFileName, tszParsedName, MAX_PATH);

-	mir_free(tszParsedName);

-	for (i=0; i < SIZEOF(rva);i++)

-		mir_free(rva[i].lptzValue);

-

-	for (p = tszFileName + 2; *p; ++p) {

-		if (*p == ':' || *p == '*' || *p == '?' || *p == '"' || *p == '<' || *p == '>' || *p == '|' )

-			*p = _T('_');

-	}

-

-	return tszFileName;

-}