initial commit

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

1 files changed, 423 insertions, 0 deletions

diff --git a/plugins/StatusPlugins/StartupStatus/profiles.cpp b/plugins/StatusPlugins/StartupStatus/profiles.cpp
new file mode 100644
index 0000000000..c6f4298f19
--- /dev/null
+++ b/plugins/StatusPlugins/StartupStatus/profiles.cpp
@@ -0,0 +1,423 @@
+/*

+    StartupStatus Plugin for Miranda-IM (www.miranda-im.org)

+    Copyright 2003-2006 P. Boon

+

+    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 "../commonstatus.h"

+#include "startupstatus.h"

+#include "../resource.h"

+#include <commctrl.h>

+

+#include <m_icolib.h>

+

+#define MAX_MMITEMS		6

+

+extern HINSTANCE hInst;

+extern int protoCount;

+

+static int menuprofiles[MAX_MMITEMS];

+static HANDLE hProfileServices[MAX_MMITEMS];

+static int mcount = 0;

+

+static PROFILECE *pce = NULL;

+static int pceCount = 0;

+

+static UINT_PTR releaseTtbTimerId = 0;

+

+static HANDLE hPrebuildProfilesMenu = NULL;

+static HANDLE hTBModuleLoadedHook;

+static HANDLE hTTBModuleLoadedHook;

+static HANDLE hLoadAndSetProfileService;

+static HANDLE hMessageHook = NULL;

+

+static HWND hMessageWindow = NULL;

+static HKINFO *hkInfo = NULL;

+static int hkiCount = 0;

+

+static HANDLE* ttbButtons = NULL;

+static int ttbButtonCount = 0;

+

+// these are some lame functions, if you have a better solution, mail me. :s

+static INT_PTR profileService0(WPARAM wParam, LPARAM lParam)

+{

+	LoadAndSetProfile((WPARAM)menuprofiles[0], 0);

+	return 0;

+}

+

+static INT_PTR profileService1(WPARAM wParam, LPARAM lParam)

+{

+	LoadAndSetProfile((WPARAM)menuprofiles[1], 0);

+	return 0;

+}

+

+static INT_PTR profileService2(WPARAM wParam, LPARAM lParam)

+{

+	LoadAndSetProfile((WPARAM)menuprofiles[2], 0);

+	return 0;

+}

+

+static INT_PTR profileService3(WPARAM wParam, LPARAM lParam)

+{

+	LoadAndSetProfile((WPARAM)menuprofiles[3], 0);

+	return 0;

+}

+

+static INT_PTR profileService4(WPARAM wParam, LPARAM lParam)

+{

+	LoadAndSetProfile((WPARAM)menuprofiles[4], 0);

+	return 0;

+}

+

+static INT_PTR profileService5(WPARAM wParam, LPARAM lParam)

+{

+	LoadAndSetProfile((WPARAM)menuprofiles[5], 0);

+	return 0;

+}

+

+static int CreateMainMenuItems(WPARAM wParam, LPARAM lParam)

+{

+	CLISTMENUITEM mi;

+	char profilename[128], servicename[128];

+	int i, count;

+

+	ZeroMemory(&mi, sizeof(mi));

+	mi.cbSize = sizeof(mi);

+	mi.popupPosition = 2000100000;

+	mcount = 0;

+	count = GetProfileCount(0, 0);

+	for (i=0;i<count;i++) {

+		if ( !dbi_getb(i, SETTING_CREATEMMITEM, 0) || GetProfileName((WPARAM)i, (LPARAM)profilename))

+			continue;

+

+		if (dbi_getb(i, SETTING_INSUBMENU, 1))

+			mi.pszPopupName = Translate("StatusProfiles");

+

+		mi.pszName = profilename;

+		mi.position = 2000100000 + mcount;

+		mir_snprintf(servicename, sizeof(servicename), "%s%d", MS_SS_MENUSETPROFILEPREFIX, mcount);

+		switch(mcount) {

+		case 0:		

+			hProfileServices[mcount] = CreateServiceFunction(servicename, profileService0);

+			break;

+		case 1:		

+			hProfileServices[mcount] = CreateServiceFunction(servicename, profileService1);

+			break;

+		case 2:		

+			hProfileServices[mcount] = CreateServiceFunction(servicename, profileService2);

+			break;

+		case 3:		

+			hProfileServices[mcount] = CreateServiceFunction(servicename, profileService3);

+			break;

+		case 4:		

+			hProfileServices[mcount] = CreateServiceFunction(servicename, profileService4);

+			break;

+		case 5:		

+			hProfileServices[mcount] = CreateServiceFunction(servicename, profileService5);

+			break;

+		default:

+			MessageBox(NULL, TranslateT("There is a maximum of 6 menu items"), TranslateT("StartupStatus"), MB_OK);

+			return 0;

+		}

+		mi.pszService = servicename;

+		if (ServiceExists(MS_CLIST_ADDSTATUSMENUITEM)) {

+			if (CallService(MS_CLIST_ADDSTATUSMENUITEM, 0, (LPARAM)&mi)) {

+				menuprofiles[mcount] = i;

+				mcount += 1;

+			}	

+		}

+		else {

+			if (CallService(MS_CLIST_ADDMAINMENUITEM, 0, (LPARAM)&mi)) {

+				menuprofiles[mcount] = i;

+				mcount += 1;

+	}	}	}

+

+	return 0;

+}

+

+/////////////////////////////////////////////////////////////////////////////////////////

+

+INT_PTR GetProfileName(WPARAM wParam, LPARAM lParam)

+{

+	int profile = (int)wParam;

+	char* buf = (char *)lParam;

+	if (wParam < 0) // get default profile

+		profile = DBGetContactSettingWord(NULL, MODULENAME, SETTING_DEFAULTPROFILE, 0);

+

+	int count = DBGetContactSettingWord(NULL, MODULENAME, SETTING_PROFILECOUNT, 0);

+	if ( profile >= count && count > 0 )

+		return -1;

+

+	if (count == 0) {

+		strncpy(buf, Translate("default"), 128-1);

+		return 0;

+	}

+

+	DBVARIANT dbv;

+	char setting[80];

+	_snprintf(setting, sizeof(setting), "%d_%s", profile, SETTING_PROFILENAME);

+	if (DBGetContactSetting(NULL, MODULENAME, setting, &dbv))

+		return -1;

+

+	memset(buf, '\0', 128);

+	strncpy(buf, dbv.pszVal, 128-1); // assume size >= 128

+	DBFreeVariant(&dbv);

+	return 0;

+}

+

+INT_PTR GetProfileCount(WPARAM wParam, LPARAM lParam)

+{

+	int* def = (int *)wParam;

+	int count = DBGetContactSettingWord(NULL, MODULENAME, SETTING_PROFILECOUNT, 1); 

+	if ( def != 0) {

+		*def = DBGetContactSettingWord(NULL, MODULENAME, SETTING_DEFAULTPROFILE, 0);

+		if (*def >= count)

+			*def = 0;

+	}

+

+	return count;

+}

+

+char *GetStatusMessage(int profile, char *szProto)

+{

+	char dbSetting[80];

+	DBVARIANT dbv;

+

+	for ( int i=0; i < pceCount; i++ ) {

+		if ( (pce[i].profile == profile) && (!strcmp(pce[i].szProto, szProto)) ) {

+			_snprintf(dbSetting, sizeof(dbSetting), "%d_%s_%s", profile, szProto, SETTING_PROFILE_STSMSG);

+			if (!DBGetContactSetting(NULL, MODULENAME, dbSetting, &dbv)) { // reload from db

+				pce[i].msg = ( char* )realloc(pce[i].msg, strlen(dbv.pszVal)+1);

+				if (pce[i].msg != NULL) {

+					strcpy(pce[i].msg, dbv.pszVal);

+				}

+				DBFreeVariant(&dbv);

+			}

+			else {

+				if (pce[i].msg != NULL) {

+					free(pce[i].msg);

+					pce[i].msg = NULL;

+				}

+			}

+			return pce[i].msg;

+		}

+	}

+	pce = ( PROFILECE* )realloc(pce, (pceCount+1)*sizeof(PROFILECE));

+	if (pce == NULL)

+		return NULL;

+

+	pce[pceCount].profile = profile;

+	pce[pceCount].szProto = _strdup(szProto);

+	pce[pceCount].msg = NULL;

+	_snprintf(dbSetting, sizeof(dbSetting), "%d_%s_%s", profile, szProto, SETTING_PROFILE_STSMSG);

+	if (!DBGetContactSetting(NULL, MODULENAME, dbSetting, &dbv)) {

+		pce[pceCount].msg = _strdup(dbv.pszVal);

+		DBFreeVariant(&dbv);

+	}

+	pceCount += 1;

+	

+	return pce[pceCount-1].msg;

+}

+

+int GetProfile( int profile, TSettingsList& arSettings )

+{

+	if ( profile < 0 ) // get default profile

+		profile = DBGetContactSettingWord(NULL, MODULENAME, SETTING_DEFAULTPROFILE, 0);

+

+	int count = DBGetContactSettingWord(NULL, MODULENAME, SETTING_PROFILECOUNT, 0);

+	if ( profile >= count && count > 0 )

+		return -1;

+	

+	arSettings.destroy();

+

+	// if count == 0, continue so the default profile will be returned

+	PROTOACCOUNT** protos;

+	ProtoEnumAccounts( &count, &protos );

+

+	for ( int i=0; i < count; i++ )

+		if ( IsSuitableProto( protos[i] ))

+			arSettings.insert( new TSSSetting( profile, protos[i] ));

+

+	return ( arSettings.getCount() == 0 ) ? -1 : 0;

+}

+

+static VOID CALLBACK releaseTtbTimerFunction(HWND hwnd,UINT message, UINT_PTR idEvent,DWORD dwTime) {

+

+	int i;

+

+	KillTimer(NULL, releaseTtbTimerId);

+	for(i=0;i<ttbButtonCount;i++) {

+		CallService(MS_TTB_SETBUTTONSTATE, (WPARAM)ttbButtons[i], TTBST_RELEASED);

+	}

+}

+

+INT_PTR LoadAndSetProfile(WPARAM wParam, LPARAM lParam)

+{

+	// wParam == profile no.

+	int profileCount = GetProfileCount(0, 0);

+	int profile = (int)wParam;

+

+	TSettingsList profileSettings( 10, CompareSettings );

+	if ( !GetProfile( profile, profileSettings)) {

+		profile = (profile >= 0)?profile:DBGetContactSettingWord(NULL, MODULENAME, SETTING_DEFAULTPROFILE, 0);

+

+		char setting[64];

+		_snprintf(setting, sizeof(setting), "%d_%s", profile, SETTING_SHOWCONFIRMDIALOG);

+		if (!DBGetContactSettingByte(NULL, MODULENAME, setting, 0))

+			CallService(MS_CS_SETSTATUSEX,(WPARAM)&profileSettings, 0);

+		else

+			CallService(MS_CS_SHOWCONFIRMDLGEX, (WPARAM)&profileSettings, (LPARAM)DBGetContactSettingDword(NULL, MODULENAME, SETTING_DLGTIMEOUT, 5));

+	}

+

+	if ( ServiceExists( MS_TTB_ADDBUTTON ) || ServiceExists( MS_TB_ADDBUTTON ))

+		// add timer here

+		releaseTtbTimerId = SetTimer(NULL, 0, 100, releaseTtbTimerFunction);

+

+	return 0;

+}

+

+static UINT GetFsModifiers(WORD wHotKey)

+{

+	UINT fsm = 0;

+	if (HIBYTE(wHotKey)&HOTKEYF_ALT)

+        fsm |= MOD_ALT;

+	if (HIBYTE(wHotKey)&HOTKEYF_CONTROL)

+        fsm |= MOD_CONTROL;

+    if (HIBYTE(wHotKey)&HOTKEYF_SHIFT)

+        fsm |= MOD_SHIFT;

+    if (HIBYTE(wHotKey)&HOTKEYF_EXT)

+        fsm |= MOD_WIN;

+

+	return fsm;

+}

+

+static DWORD CALLBACK MessageWndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)

+{

+	if ( msg == WM_HOTKEY ) {

+		for (int i=0; i < hkiCount; i++ )

+			if ((int)hkInfo[i].id == wParam)

+				LoadAndSetProfile((WPARAM)hkInfo[i].profile, 0);

+	}

+

+	return TRUE;

+}

+

+// assumes UnregisterHotKeys was called before

+static int RegisterHotKeys()

+{

+	hMessageWindow = CreateWindowEx(0, _T("STATIC"), NULL, 0, 0, 0, 0, 0, NULL, NULL, NULL, NULL);

+	SetWindowLongPtr(hMessageWindow, GWLP_WNDPROC, (LONG_PTR)MessageWndProc);

+

+	int count = GetProfileCount(0, 0);

+	for ( int i=0; i < count; i++ ) {

+		if (!dbi_getb(i, SETTING_REGHOTKEY, 0))

+			continue;

+

+		WORD wHotKey = dbi_getw(i, SETTING_HOTKEY, 0);

+		hkInfo = ( HKINFO* )realloc(hkInfo, (hkiCount+1)*sizeof(HKINFO));

+		if (hkInfo == NULL)

+			return -1;

+

+		char atomname[255];

+		mir_snprintf(atomname, sizeof(atomname), "StatusProfile_%d", i);

+		hkInfo[hkiCount].id = GlobalAddAtomA(atomname);

+		if (hkInfo[hkiCount].id == 0)

+			continue;

+

+		hkInfo[hkiCount].profile = i;

+		hkiCount += 1;

+		RegisterHotKey(hMessageWindow, (int)hkInfo[hkiCount-1].id, GetFsModifiers(wHotKey), LOBYTE(wHotKey));

+	}

+

+	if (hkiCount == 0)

+		DestroyWindow(hMessageWindow);

+

+	return 0;

+}

+

+static int UnregisterHotKeys()

+{

+	if (IsWindow(hMessageWindow)) {

+		for ( int i=0; i < hkiCount; i++ ) {

+			UnregisterHotKey(hMessageWindow, (int)hkInfo[i].id);

+			GlobalDeleteAtom(hkInfo[i].id);

+		}

+		DestroyWindow(hMessageWindow);

+	}

+	if (hkInfo != NULL)

+		free(hkInfo);

+

+	hkiCount = 0;

+	hkInfo = NULL;

+	hMessageWindow = NULL;

+

+	return 0;

+}

+

+int ReinitProfileModule()

+{

+	if (ServiceExists(MS_TTB_ADDBUTTON)) {

+		RemoveTopToolbarButtons();

+		CreateTopToolbarButtons(0,0);

+	}

+	if (ServiceExists(MS_TTB_ADDBUTTON)) {

+		RemoveTopToolbarButtons();

+		CreateTopToolbarButtons(0,0);

+	}

+	UnregisterHotKeys();

+	RegisterHotKeys();

+

+	return 0;

+}

+

+int LoadProfileModule()

+{

+	hLoadAndSetProfileService = CreateServiceFunction(MS_SS_LOADANDSETPROFILE, LoadAndSetProfile);

+	hTBModuleLoadedHook = HookEvent(ME_TB_MODULELOADED, CreateToolbarButtons);

+

+	RegisterButtons();

+	return 0;

+}

+

+int InitProfileModule()

+{

+	hTTBModuleLoadedHook = HookEvent(ME_TTB_MODULELOADED, CreateTopToolbarButtons);

+	ReinitProfileModule();

+	hPrebuildProfilesMenu = HookEvent( ME_CLIST_PREBUILDSTATUSMENU,  CreateMainMenuItems);

+	CreateMainMenuItems(0,0);

+

+	return 0;

+}

+

+int DeinitProfilesModule()

+{

+	for ( int i=0; i < mcount; i++ )

+		DestroyServiceFunction(hProfileServices[i]);

+

+	if ( pce ) {

+		for ( int i=0; i < pceCount; i++ )

+			free( pce[i].szProto );

+		free( pce );

+	}

+

+	UnhookEvent(hPrebuildProfilesMenu);

+	UnregisterHotKeys();

+	RemoveTopToolbarButtons();

+	UnhookEvent(hTTBModuleLoadedHook);

+	UnhookEvent(hTBModuleLoadedHook);

+	DestroyServiceFunction(hLoadAndSetProfileService);

+	

+	return 0;

+}