folders renames

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

1 files changed, 350 insertions, 0 deletions

diff --git a/plugins/SimpleAR/src/Main.cpp b/plugins/SimpleAR/src/Main.cpp
new file mode 100644
index 0000000000..62c5a34ce6
--- /dev/null
+++ b/plugins/SimpleAR/src/Main.cpp
@@ -0,0 +1,350 @@
+/*

+Plugin of miranda IM(ICQ) for Communicating with users of the baseProtocol. 

+Copyright (C) 2004 Daniel Savi (dss@brturbo.com)

+

+-> Based on J. Lawler BaseProtocol <-

+

+Added:

+ - plugin option window

+ - make.bat (vc++)

+ - tinyclib http://msdn.microsoft.com/msdnmag/issues/01/01/hood/default.aspx

+ - C++ version

+

+Miranda ICQ: the free icq client for MS Windows 

+Copyright (C) 2000-2  Richard Hughes, Roland Rabien & Tristan Van de Vreede

+*/

+

+#include "Common.h"

+

+HINSTANCE hinstance;

+

+HANDLE hPreBuildHook = NULL, hAddEventHook = NULL, hOptHook = NULL, hCheckDefHook = NULL, hOnPreShutdown = NULL, hToggleEnable = NULL, hToggleAutoanswer = NULL;

+HANDLE hToggle = NULL, hEnableMenu = NULL;

+CLISTMENUITEM mi;

+BOOL fEnabled, gbVarsServiceExist = FALSE;

+INT interval;

+int hLangpack;

+

+TCHAR* ptszDefaultMsg[]={

+	_T("I am currently away. I will reply to you when I am back."),

+	_T("I am currently very busy and can't spare any time to talk with you. Sorry..."),

+	_T("I am not available right now."),

+	_T("I am now doing something, I will talk to you later."),

+	_T("I am on the phone right now. I will get back to you very soon."),

+	_T("I am having meal right now. I will get back to you very soon.")

+};

+

+PLUGININFOEX pluginInfoEx = {

+    sizeof(PLUGININFOEX),

+	__PLUGIN_NAME,

+	PLUGIN_MAKE_VERSION(__MAJOR_VERSION, __MINOR_VERSION, __RELEASE_NUM, __BUILD_NUM),

+	__DESCRIPTION,

+	__AUTHOR,

+	__AUTHOREMAIL,

+	__COPYRIGHT,

+	__AUTHORWEB,

+	UNICODE_AWARE,

+	// {46BF191F-8DFB-4656-88B2-4C20BE4CFA44}

+	{0x46bf191f, 0x8dfb, 0x4656, { 0x88, 0xb2, 0x4c, 0x20, 0xbe, 0x4c, 0xfa, 0x44}}

+};

+

+extern "C" __declspec(dllexport) PLUGININFOEX* MirandaPluginInfoEx(DWORD mirandaVersion)

+{

+	return &pluginInfoEx;

+}

+

+BOOL WINAPI DllMain(HINSTANCE hinst,DWORD fdwReason,LPVOID lpvReserved)

+{

+	hinstance=hinst;

+	return TRUE;

+}

+

+INT_PTR ToggleEnable(WPARAM wParam, LPARAM lParam)

+{

+	mi.cbSize=sizeof(mi);

+	mi.flags=CMIM_NAME|CMIM_ICON|CMIF_TCHAR;

+	fEnabled=!fEnabled;

+	if (fEnabled)

+	{

+		mi.ptszName = _T("Disable Auto&reply");

+		mi.hIcon = LoadIcon(hinstance, MAKEINTRESOURCE(IDI_ON));

+	}

+	else

+	{

+		mi.ptszName = _T("Enable Auto&reply");

+		mi.hIcon = LoadIcon(hinstance, MAKEINTRESOURCE(IDI_OFF));

+	}

+	CallService(MS_CLIST_MODIFYMENUITEM,(WPARAM)hEnableMenu,(LPARAM)&mi);

+	return 0;

+}

+

+INT_PTR Toggle(WPARAM w, LPARAM l)

+{

+	HANDLE hContact = (HANDLE)w;

+	BOOL on = 0;

+	on = !DBGetContactSettingByte(hContact, protocolname, "TurnedOn", 0);

+	DBWriteContactSettingByte(hContact, protocolname, "TurnedOn", on?1:0);

+	on = on?0:1;

+	mi.cbSize=sizeof(mi);

+	mi.flags = CMIM_NAME |CMIM_ICON | CMIF_TCHAR;

+	mi.ptszName=on?_T("Turn off Autoanswer"):_T("Turn on Autoanswer");

+	mi.hIcon = on?LoadIcon(hinstance, MAKEINTRESOURCE(IDI_OFF)):LoadIcon(hinstance, MAKEINTRESOURCE(IDI_ON));

+	CallService(MS_CLIST_MODIFYMENUITEM, (WPARAM)hToggle, (LPARAM)&mi);

+	return 0;

+}

+

+INT OnPreBuildContactMenu(WPARAM w, LPARAM l)

+{

+	HANDLE hContact = (HANDLE)w;

+	mi.cbSize=sizeof(mi);

+	mi.flags = CMIM_NAME | CMIM_ICON | CMIF_TCHAR;

+	BOOL  on = !DBGetContactSettingByte(hContact, protocolname, "TurnedOn", 0);

+	mi.ptszName = on?_T("Turn off Autoanswer"):_T("Turn on Autoanswer");

+	mi.hIcon = on?LoadIcon(hinstance, MAKEINTRESOURCE(IDI_OFF)):LoadIcon(hinstance, MAKEINTRESOURCE(IDI_ON));

+	CallService(MS_CLIST_MODIFYMENUITEM, (WPARAM)hToggle, (LPARAM)&mi);

+	return 0;

+}

+

+INT CheckDefaults(WPARAM, LPARAM)

+{

+	DBVARIANT dbv;

+	TCHAR* ptszDefault;

+	char szStatus[6]={0};

+

+	UnhookEvent(hCheckDefHook);

+

+	fEnabled=!DBGetContactSettingByte(NULL,protocolname,KEY_ENABLED,1)==1;

+	interval=DBGetContactSettingWord(NULL,protocolname,KEY_REPEATINTERVAL,300);

+

+	if (DBGetContactSettingTString(NULL,protocolname,KEY_HEADING,&dbv))

+		// Heading not set

+		DBWriteContactSettingTString(NULL,protocolname,KEY_HEADING,TranslateT("Dear %user%, the owner left the following message:"));

+	else

+		DBFreeVariant(&dbv);

+

+	for (int c=ID_STATUS_ONLINE; c<ID_STATUS_IDLE; c++)

+	{

+		mir_snprintf(szStatus,SIZEOF(szStatus),"%d",c);

+		if (c == 40072 || c == 40077 || c == 40078)

+			continue;

+		else

+		{

+			if (DBGetContactSettingTString(NULL,protocolname,szStatus,&dbv))

+			{

+				if (c < 40077)

+					// This mode does not have a preset message

+					ptszDefault=TranslateTS(ptszDefaultMsg[c-ID_STATUS_ONLINE-1]);

+				else if(c > 40078)

+					ptszDefault=TranslateTS(ptszDefaultMsg[c-ID_STATUS_ONLINE-3]);

+				if (ptszDefault)

+					DBWriteContactSettingTString(NULL,protocolname,szStatus,ptszDefault);

+			}

+			else

+				DBFreeVariant(&dbv);

+		}

+	}

+	hPreBuildHook = HookEvent(ME_CLIST_PREBUILDCONTACTMENU, OnPreBuildContactMenu);

+	if (ServiceExists(MS_VARS_FORMATSTRING))

+		gbVarsServiceExist = TRUE;

+

+	ToggleEnable(0,0);

+	return 0;

+}

+

+TCHAR* StrReplace (TCHAR* Search, TCHAR* Replace, TCHAR* Resource)

+{

+	int i = 0;

+	int SearchLen = (int)_tcslen(Search);

+	TCHAR* Work = mir_tstrdup(Replace);

+	int ReplaceLen = (int)_tcslen(Work);

+

+	TCHAR* Pointer = _tcsstr(Resource, Search);

+

+	while (Pointer != NULL)

+	{

+		int PointerLen = (int)_tcslen(Pointer);

+		int ResourceLen = (int)_tcslen(Resource);

+

+		TCHAR* NewText = (TCHAR*)mir_calloc((ResourceLen - SearchLen + ReplaceLen + 1)*sizeof(TCHAR));

+

+		_tcsncpy(NewText, Resource, ResourceLen - PointerLen);

+		_tcscat(NewText, Work);

+		_tcscat(NewText, Pointer + SearchLen);

+

+		Resource = (TCHAR*)mir_realloc(Resource, (ResourceLen - SearchLen + ReplaceLen + 1)*sizeof(TCHAR));

+

+		for (i = 0; i < (ResourceLen - SearchLen + ReplaceLen); i++)

+			Resource[i] = NewText[i];

+		Resource[i] = 0;

+		mir_free(NewText);

+

+		Pointer = _tcsstr(Resource + (ResourceLen - PointerLen + ReplaceLen), Search);

+	}

+	mir_free(Work);

+

+	return Resource;

+}

+

+INT addEvent(WPARAM wParam, LPARAM lParam)

+{

+	HANDLE hContact = (HANDLE)wParam;

+	HANDLE hDBEvent = (HANDLE)lParam;

+	DBEVENTINFO dbei = {sizeof(dbei)};

+

+	if (!fEnabled || !hContact || !hDBEvent)

+		return FALSE;	/// unspecifyed error 

+

+	char* pszProto = (char*)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);

+	int status = CallProtoService(pszProto, PS_GETSTATUS, 0, 0);

+	if (status == 40072 || status == 40077 || status == 40078)

+		return FALSE;

+

+	CallService(MS_DB_EVENT_GET, (WPARAM)hDBEvent, (LPARAM)&dbei); /// detect size of msg

+

+	if ((dbei.eventType != EVENTTYPE_MESSAGE) || (dbei.flags == DBEF_READ)) 

+		return FALSE; /// we need EVENTTYPE_MESSAGE event..

+	else

+	{	/// needed event has occured..

+		DBVARIANT dbv;

+

+		if (!dbei.cbBlob)	/// invalid size

+			return FALSE;

+

+		if (DBGetContactSettingTString(hContact,"Protocol","p",&dbv))

+			// Contact with no protocol ?!!

+			return FALSE;

+		else 

+			DBFreeVariant(&dbv);

+		

+		if(DBGetContactSettingByte(hContact, "CList", "NotOnList", 0))

+			return FALSE;

+		

+		if(DBGetContactSettingByte(hContact, protocolname, "TurnedOn", 0))

+			return FALSE;

+		

+		if (!( dbei.flags & DBEF_SENT))

+		{

+			int timeBetween=time(NULL)-DBGetContactSettingDword(hContact,protocolname,"LastReplyTS",0);

+			if (timeBetween>interval || DBGetContactSettingWord(hContact,protocolname,"LastStatus",0)!=status)

+			{

+				char szStatus[6]={0};

+				int msgLen=1;

+				int isQun=DBGetContactSettingByte(hContact,pszProto,"IsQun",0);

+				if (isQun)

+					return FALSE;

+

+				mir_snprintf(szStatus,SIZEOF(szStatus),"%d",status);

+				if (!DBGetContactSettingTString(NULL,protocolname,szStatus,&dbv))

+				{

+					if (*dbv.ptszVal)

+					{

+						DBVARIANT dbvHead={0}, dbvNick={0};

+						TCHAR *ptszTemp, *ptszTemp2;

+

+						DBGetContactSettingTString(hContact,pszProto,"Nick",&dbvNick);

+						if (lstrcmp(dbvNick.ptszVal, NULL) == 0)

+						{

+							DBFreeVariant(&dbvNick);

+							return FALSE;

+						}

+

+						msgLen += (int)_tcslen(dbv.ptszVal);

+						if (!DBGetContactSettingTString(NULL,protocolname,KEY_HEADING,&dbvHead))

+						{

+							ptszTemp = (TCHAR*)mir_alloc(sizeof(TCHAR) * (_tcslen(dbvHead.ptszVal)+1));

+							_tcscpy(ptszTemp, dbvHead.ptszVal);

+							ptszTemp = StrReplace(_T("%user%"), dbvNick.ptszVal, ptszTemp);

+							msgLen += (int)(_tcslen(ptszTemp));

+						}

+						ptszTemp2 = (TCHAR*)mir_alloc(sizeof(TCHAR) * (msgLen+5));

+						mir_sntprintf(ptszTemp2, msgLen+5, _T("%s\r\n\r\n%s"), ptszTemp, dbv.ptszVal);

+						if (ServiceExists(MS_VARS_FORMATSTRING))

+						{

+							FORMATINFO fi;

+						

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

+							fi.cbSize = sizeof(fi);

+							fi.flags = FIF_TCHAR;

+							fi.tszFormat = ptszTemp2;

+							ptszTemp = (TCHAR*)CallService(MS_VARS_FORMATSTRING, (WPARAM)&fi, 0);

+						}else

+							ptszTemp = Utils_ReplaceVarsT(ptszTemp2);

+						char* pszUtf = mir_utf8encodeT(ptszTemp);

+						CallContactService(hContact, PSS_MESSAGE, PREF_UTF, (LPARAM)pszUtf);

+

+						dbei.cbSize = sizeof(dbei);

+						dbei.eventType = EVENTTYPE_MESSAGE;

+						dbei.flags = DBEF_UTF | DBEF_SENT; //DBEF_READ;

+						dbei.szModule = pszProto;

+						dbei.timestamp = time(NULL);

+						dbei.cbBlob = lstrlenA(pszUtf) + 1;

+						dbei.pBlob = (PBYTE)pszUtf;

+						CallService(MS_DB_EVENT_ADD, (WPARAM)hContact, (LPARAM)&dbei);

+						

+						if (ServiceExists(MS_VARS_FORMATSTRING))

+							CallService(MS_VARS_FREEMEMORY, (WPARAM)ptszTemp, 0);

+						else

+							mir_free(ptszTemp);

+						mir_free(ptszTemp2);

+						mir_free(pszUtf);

+						if (dbvNick.ptszVal)

+							DBFreeVariant(&dbvNick);

+						if (dbvHead.ptszVal)

+							DBFreeVariant(&dbvHead);

+					}

+					DBFreeVariant(&dbv);

+				}

+			}

+		}

+

+		DBWriteContactSettingDword(hContact,protocolname,"LastReplyTS",time(NULL));

+		DBWriteContactSettingWord(hContact,protocolname,"LastStatus",status);

+	}

+	return 0;

+}

+

+INT OnPreShutdown(WPARAM wParam, LPARAM lParam)

+{

+	UnhookEvent(hAddEventHook);

+	UnhookEvent(hPreBuildHook);

+	UnhookEvent(hOptHook);

+	UnhookEvent(hOnPreShutdown);

+	return 0;

+}

+

+extern "C" int __declspec(dllexport)Load(void)

+{

+

+	mir_getLP(&pluginInfoEx);

+

+	hToggleEnable = CreateServiceFunction(protocolname"/ToggleEnable", ToggleEnable);

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

+	mi.cbSize = sizeof(mi);

+	mi.position = 500090000;

+	mi.ptszName = _T("");

+	mi.pszService = protocolname"/ToggleEnable";

+	hEnableMenu = Menu_AddMainMenuItem(&mi);

+

+	hToggleAutoanswer = CreateServiceFunction(protocolname"/ToggleAutoanswer",Toggle);

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

+	mi.cbSize=sizeof(mi);

+	mi.position=-0x7FFFFFFF;

+	mi.ptszName=_T("");

+	mi.pszService=protocolname"/ToggleAutoanswer";

+	hToggle = Menu_AddContactMenuItem(&mi);

+

+	//add hook

+	hOptHook = HookEvent(ME_OPT_INITIALISE, OptInit);

+	hAddEventHook = HookEvent(ME_DB_EVENT_ADDED, addEvent);

+	hCheckDefHook = HookEvent(ME_SYSTEM_MODULESLOADED, CheckDefaults);

+	hOnPreShutdown = HookEvent(ME_SYSTEM_PRESHUTDOWN, OnPreShutdown);

+

+	return 0;

+}

+

+extern "C" __declspec(dllexport)int Unload(void)

+{

+	DestroyServiceFunction(hToggleEnable);

+	DestroyServiceFunction(hToggleAutoanswer);

+	return 0;

+}
\ No newline at end of file