From 5e31bf278e243bdb21027e9eafbccb5b4e1f329e Mon Sep 17 00:00:00 2001
From: "Sergey (Elzor) Bolhovskoy" <elzor@foobar2000.ru>
Date: Mon, 19 Jul 2010 22:30:21 +0600
Subject: add spam message log, fixed remove contact from ICQ <Not In List>
 group

---
 utilities.cpp | 616 +++++++++++++++++++++++++++++++++-------------------------
 1 file changed, 349 insertions(+), 267 deletions(-)

(limited to 'utilities.cpp')

diff --git a/utilities.cpp b/utilities.cpp
index adf82d7..88920a8 100644
--- a/utilities.cpp
+++ b/utilities.cpp
@@ -1,267 +1,349 @@
-#include "headers.h"
-
-tstring DBGetContactSettingStringPAN(HANDLE hContact, char const * szModule, char const * szSetting, tstring errorValue)
-{
-	DBVARIANT dbv;
-	//if(DBGetContactSetting(hContact, szModule, szSetting, &dbv))
-	if(DBGetContactSettingTString(hContact, szModule, szSetting, &dbv))
-		return errorValue;
-//	if(DBVT_TCHAR == dbv.type )
-		errorValue = dbv.ptszVal;
-	DBFreeVariant(&dbv);
-	return errorValue;
-}
-
-std::string DBGetContactSettingStringPAN_A(HANDLE hContact, char const * szModule, char const * szSetting, std::string errorValue)
-{
-	DBVARIANT dbv;
-	//if(DBGetContactSetting(hContact, szModule, szSetting, &dbv))
-	if(DBGetContactSettingString(hContact, szModule, szSetting, &dbv))
-		return errorValue;
-//	if(DBVT_ASCIIZ == dbv.type )
-		errorValue = dbv.pszVal;
-	DBFreeVariant(&dbv);
-	return errorValue;
-}
-
-tstring &GetDlgItemString(HWND hwnd, int id)
-{
-	HWND h = GetDlgItem(hwnd, id);
-	int len = GetWindowTextLength(h);
-	TCHAR * buf = new TCHAR[len + 1];
-	GetWindowText(h, buf, len + 1);
-	static tstring s;
-	s = buf;
-	delete []buf;
-	return s;
-}					
-
-std::string &GetProtoList()
-{
-	static std::string s;
-	return s = DBGetContactSettingStringPAN_A(NULL, pluginName, "protoList", "ICQ\r\n");
-}
-
-
-bool ProtoInList(std::string proto)
-{
-	return std::string::npos != GetProtoList().find(proto + "\r\n");
-}
-
-int CreateCListGroup(TCHAR* szGroupName)
-{
-  int hGroup;
-  CLIST_INTERFACE *clint = NULL;
-
-  if (ServiceExists(MS_CLIST_RETRIEVE_INTERFACE))
-    clint = (CLIST_INTERFACE*)CallService(MS_CLIST_RETRIEVE_INTERFACE, 0, 0);
-
-  hGroup = CallService(MS_CLIST_GROUPCREATE, 0, 0);
-
-    TCHAR* usTmp = szGroupName;
-
-    clint->pfnRenameGroup(hGroup, usTmp);
-
-  return hGroup;
-}
-
-struct hContact_entry
-{
-	HANDLE hContact;
-	struct hContact_entry *next;
-};
-
-void RemoveExcludedUsers()
-{
-	HANDLE hContact;
-	hContact_entry *first, *plist, *tmp;
-	hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
-	first = new hContact_entry;
-	plist = first;
-	plist->hContact = INVALID_HANDLE_VALUE;
-	if(hContact)
-	{
-		do
-		{
-			if(DBGetContactSettingByte(hContact, "CList", "NotOnList", 0) && DBGetContactSettingByte(hContact, pluginName, "Excluded", 0))
-			{
-				plist->hContact = hContact;
-				plist->next = new hContact_entry;
-				plist = plist->next;
-				plist->hContact = INVALID_HANDLE_VALUE;
-			}
-		}		
-		while(hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDNEXT,(WPARAM)hContact, 0))
-			;
-		plist = first;
-		while(plist->hContact != INVALID_HANDLE_VALUE)
-		{
-			CallService(MS_DB_CONTACT_DELETE, (WPARAM)plist->hContact, 0);
-			tmp = plist;
-			plist = plist->next;
-			delete tmp;
-		}
-		delete tmp;
-	}
-}
-
-void RemoveTemporaryUsers()
-{
-	HANDLE hContact;
-	hContact_entry *first, *plist, *tmp;
-	hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
-	first = new hContact_entry;
-	plist = first;
-	plist->hContact = INVALID_HANDLE_VALUE;
-	if(hContact)
-	{
-		do
-		{
-			if(DBGetContactSettingByte(hContact, "CList", "NotOnList", 0))
-			{
-				plist->hContact = hContact;
-				plist->next = new hContact_entry;
-				plist = plist->next;
-				plist->hContact = INVALID_HANDLE_VALUE;
-			}
-		}		
-		while(hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDNEXT,(WPARAM)hContact, 0))
-			;
-		plist = first;
-		while(plist->hContact != INVALID_HANDLE_VALUE)
-		{
-			CallService(MS_DB_CONTACT_DELETE, (WPARAM)plist->hContact, 0);
-			tmp = plist;
-			plist = plist->next;
-			delete tmp;
-		}
-		delete tmp;
-	}
-}
-int RemoveTmp(WPARAM,LPARAM)
-{
-	RemoveTemporaryUsers();
-	return 0;
-}
-tstring variables_parse(tstring const &tstrFormat, HANDLE hContact){
-	if (gbVarsServiceExist) {
-		FORMATINFO fi;
-		TCHAR *tszParsed;
-		tstring tstrResult;
-
-		ZeroMemory(&fi, sizeof(fi));
-		fi.cbSize = sizeof(fi);
-		fi.tszFormat = _tcsdup(tstrFormat.c_str());
-		fi.hContact = hContact;
-		fi.flags |= FIF_TCHAR;
-		tszParsed = (TCHAR *)CallService(MS_VARS_FORMATSTRING, (WPARAM)&fi, 0);
-		free(fi.tszFormat);
-		if (tszParsed) {
-			tstrResult = tszParsed;
-			CallService(MS_VARS_FREEMEMORY, (WPARAM)tszParsed, 0);
-			return tstrResult;
-		}
-	}
-	return tstrFormat;
-}
-
-// case-insensitive _tcscmp
-//by nullbie as i remember...
-#define NEWTSTR_MALLOC(A) (A==NULL)?NULL:_tcscpy((TCHAR*)mir_alloc(sizeof(TCHAR)*(_tcslen(A)+1)),A)
-const int Stricmp(const TCHAR *str, const TCHAR *substr)
-{
-	int i = 0;
-
-	TCHAR *str_up = NEWTSTR_MALLOC(str);
-	TCHAR *substr_up = NEWTSTR_MALLOC(substr);
-
-	CharUpperBuff(str_up, lstrlen(str_up));
-	CharUpperBuff(substr_up, lstrlen(substr_up));
-
-	i = _tcscmp(str_up, substr_up);
-
-	mir_free(str_up);
-	mir_free(substr_up);
-	
-	return i;
-}
-/*
-const int Stristr(const TCHAR *str, const TCHAR *substr)
-{
-	int i = 0;
-	TCHAR *str_up = NEWTSTR_MALLOC(str);
-	TCHAR *substr_up = NEWTSTR_MALLOC(substr);
-
-	CharUpperBuff(str_up, lstrlen(str_up));
-	CharUpperBuff(substr_up, lstrlen(substr_up));
-
-	if(_tcsstr (str_up, substr_up))
-		i = 1;
-
-	mir_free(str_up);
-	mir_free(substr_up);
-	
-	return i;
-}
-*/
-TCHAR* ReqGetText(DBEVENTINFO* dbei)
-{
-	if ( !dbei->pBlob ) 
-		return 0;
-
-	char * ptr=(char *)&dbei->pBlob[sizeof(DWORD)*2];
-	int len=dbei->cbBlob-sizeof(DWORD)*2; 
-	int i=0;
-		
-	while(len&&(i<4))
-	{
-		if(!ptr[0]) i++;
-		ptr++;
-		len--;
-	};
-
-	if(len)
-	{
-		char * tstr=(char *)mir_alloc(len+1);
-		memcpy(tstr, ptr, len);
-		tstr[len]=0;
-		WCHAR* msg = NULL;
-		msg=(dbei->flags&DBEF_UTF)?mir_utf8decodeW(tstr):mir_a2u(tstr);
-		mir_free(tstr);
-		return (TCHAR *)msg;
-	};
-	return 0;
-}
-
-
-BOOL IsUrlContains(TCHAR * Str)
-{
-	const int CountUrl=11;
-	const TCHAR  URL[CountUrl][5]=
-	{
-		_T("http"),
-		_T("www"),
-		_T(".ru"),
-		_T(".com"),
-		_T(".de"),
-		_T(".cz"),
-		_T(".org"),
-		_T(".net"),
-		_T(".su"),
-		_T(".ua"),
-		_T(".tv")
-	}; 
-
-	if(Str&&_tcslen(Str)>0) {
-		TCHAR *StrLower = NEWTSTR_MALLOC(Str);
-		CharLowerBuff(StrLower, lstrlen(StrLower)); 
-		for (int i=0; i<CountUrl; i++)
-			if(_tcsstr (StrLower, URL[i]))
-			{
-				mir_free(StrLower);
-				return 1;
-			}
-		mir_free(StrLower);
-	}
-	return 0;
-}
+#include "headers.h"
+
+tstring DBGetContactSettingStringPAN(HANDLE hContact, char const * szModule, char const * szSetting, tstring errorValue)
+{
+	DBVARIANT dbv;
+	//if(DBGetContactSetting(hContact, szModule, szSetting, &dbv))
+	if(DBGetContactSettingTString(hContact, szModule, szSetting, &dbv))
+		return errorValue;
+//	if(DBVT_TCHAR == dbv.type )
+		errorValue = dbv.ptszVal;
+	DBFreeVariant(&dbv);
+	return errorValue;
+}
+
+std::string DBGetContactSettingStringPAN_A(HANDLE hContact, char const * szModule, char const * szSetting, std::string errorValue)
+{
+	DBVARIANT dbv;
+	//if(DBGetContactSetting(hContact, szModule, szSetting, &dbv))
+	if(DBGetContactSettingString(hContact, szModule, szSetting, &dbv))
+		return errorValue;
+//	if(DBVT_ASCIIZ == dbv.type )
+		errorValue = dbv.pszVal;
+	DBFreeVariant(&dbv);
+	return errorValue;
+}
+
+tstring &GetDlgItemString(HWND hwnd, int id)
+{
+	HWND h = GetDlgItem(hwnd, id);
+	int len = GetWindowTextLength(h);
+	TCHAR * buf = new TCHAR[len + 1];
+	GetWindowText(h, buf, len + 1);
+	static tstring s;
+	s = buf;
+	delete []buf;
+	return s;
+}					
+
+std::string &GetProtoList()
+{
+	static std::string s;
+	return s = DBGetContactSettingStringPAN_A(NULL, pluginName, "protoList", "ICQ\r\n");
+}
+
+
+bool ProtoInList(std::string proto)
+{
+	return std::string::npos != GetProtoList().find(proto + "\r\n");
+}
+
+int CreateCListGroup(TCHAR* szGroupName)
+{
+  int hGroup;
+  CLIST_INTERFACE *clint = NULL;
+
+  if (ServiceExists(MS_CLIST_RETRIEVE_INTERFACE))
+    clint = (CLIST_INTERFACE*)CallService(MS_CLIST_RETRIEVE_INTERFACE, 0, 0);
+
+  hGroup = CallService(MS_CLIST_GROUPCREATE, 0, 0);
+
+    TCHAR* usTmp = szGroupName;
+
+    clint->pfnRenameGroup(hGroup, usTmp);
+
+  return hGroup;
+}
+
+void DeleteCListGroupsByName(TCHAR* szGroupName)
+{
+	int GroupNumber = 0;
+	TCHAR szValue[96] = {0};
+	char szNumber[32] = {0};
+	strcpy(szNumber, "0");
+	while(strcmp(DBGetContactSettingStringPAN_A(NULL, "CListGroups", szNumber, "0").c_str(), "0") != 0)
+	{
+		wcscpy(szValue, DBGetContactSettingStringPAN(NULL, "CListGroups", szNumber, _T("0")).c_str());
+		if(wcscmp(szGroupName, szValue + 1) == 0)
+			CallService(MS_CLIST_GROUPDELETE,(WPARAM)(HANDLE)GroupNumber,0);
+		GroupNumber++;
+#if defined(_MSC_VER) && _MSC_VER >= 1300
+		_itoa_s(GroupNumber, szNumber, sizeof(szNumber), 10);
+#else
+		_itoa(GroupNumber, szNumber, 10);
+#endif		
+	};
+}
+
+void RemoveExcludedUsers()
+{
+	HANDLE hContact;
+	hContact_entry *first, *plist, *tmp;
+	hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
+	first = new hContact_entry;
+	plist = first;
+	plist->hContact = INVALID_HANDLE_VALUE;
+	if(hContact)
+	{
+		do{
+			if(DBGetContactSettingByte(hContact, "CList", "NotOnList", 0) && DBGetContactSettingByte(hContact, pluginName, "Excluded", 0))
+			{
+				plist->hContact = hContact;
+				plist->next = new hContact_entry;
+				plist = plist->next;
+				plist->hContact = INVALID_HANDLE_VALUE;
+			}
+		}while(hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDNEXT,(WPARAM)hContact, 0));
+		
+		plist = first;
+		while(plist->hContact != INVALID_HANDLE_VALUE)
+		{
+			CallService(MS_DB_CONTACT_DELETE, (WPARAM)plist->hContact, 0);
+			tmp = plist;
+			plist = plist->next;
+			delete tmp;
+		}
+		delete plist;
+	}
+}
+
+void RemoveTemporaryUsers()
+{
+	HANDLE hContact;
+	hContact_entry *first, *plist, *tmp;
+	hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
+	first = new hContact_entry;
+	plist = first;
+	plist->hContact = INVALID_HANDLE_VALUE;
+	if(hContact)
+	{
+		do{
+			if(DBGetContactSettingByte(hContact, "CList", "NotOnList", 0)|| 
+				(_T("Not In List")== DBGetContactSettingStringPAN(hContact,"CList","Group",_T("")))
+			)
+			{
+				plist->hContact = hContact;
+				plist->next = new hContact_entry;
+				plist = plist->next;
+				plist->hContact = INVALID_HANDLE_VALUE;
+			}
+		}while(hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDNEXT,(WPARAM)hContact, 0));
+
+		plist = first;
+		while(plist->hContact != INVALID_HANDLE_VALUE)
+		{
+			LogSpamToFile(plist->hContact, _T("Deleted"));
+			CallService(MS_DB_CONTACT_DELETE, (WPARAM)plist->hContact, 0);
+			tmp = plist;
+			plist = plist->next;
+			delete tmp;
+		}
+		delete plist;
+	};
+	DeleteCListGroupsByName(_T("Not In List"));
+}
+int RemoveTmp(WPARAM,LPARAM)
+{
+	RemoveTemporaryUsers();
+	return 0;
+}
+tstring variables_parse(tstring const &tstrFormat, HANDLE hContact){
+	if (gbVarsServiceExist) {
+		FORMATINFO fi;
+		TCHAR *tszParsed;
+		tstring tstrResult;
+
+		ZeroMemory(&fi, sizeof(fi));
+		fi.cbSize = sizeof(fi);
+		fi.tszFormat = _tcsdup(tstrFormat.c_str());
+		fi.hContact = hContact;
+		fi.flags |= FIF_TCHAR;
+		tszParsed = (TCHAR *)CallService(MS_VARS_FORMATSTRING, (WPARAM)&fi, 0);
+		free(fi.tszFormat);
+		if (tszParsed) {
+			tstrResult = tszParsed;
+			CallService(MS_VARS_FREEMEMORY, (WPARAM)tszParsed, 0);
+			return tstrResult;
+		}
+	}
+	return tstrFormat;
+}
+
+// case-insensitive _tcscmp
+//by nullbie as i remember...
+#define NEWTSTR_MALLOC(A) (A==NULL)?NULL:_tcscpy((TCHAR*)mir_alloc(sizeof(TCHAR)*(_tcslen(A)+1)),A)
+const int Stricmp(const TCHAR *str, const TCHAR *substr)
+{
+	int i = 0;
+
+	TCHAR *str_up = NEWTSTR_MALLOC(str);
+	TCHAR *substr_up = NEWTSTR_MALLOC(substr);
+
+	CharUpperBuff(str_up, lstrlen(str_up));
+	CharUpperBuff(substr_up, lstrlen(substr_up));
+
+	i = _tcscmp(str_up, substr_up);
+
+	mir_free(str_up);
+	mir_free(substr_up);
+	
+	return i;
+}
+
+TCHAR* ReqGetText(DBEVENTINFO* dbei)
+{
+	if ( !dbei->pBlob ) 
+		return 0;
+
+	char * ptr=(char *)&dbei->pBlob[sizeof(DWORD)*2];
+	int len=dbei->cbBlob-sizeof(DWORD)*2; 
+	int i=0;
+		
+	while(len&&(i<4))
+	{
+		if(!ptr[0]) i++;
+		ptr++;
+		len--;
+	};
+
+	if(len)
+	{
+		char * tstr=(char *)mir_alloc(len+1);
+		memcpy(tstr, ptr, len);
+		tstr[len]=0;
+		WCHAR* msg = NULL;
+		msg=(dbei->flags&DBEF_UTF)?mir_utf8decodeW(tstr):mir_a2u(tstr);
+		mir_free(tstr);
+		return (TCHAR *)msg;
+	};
+	return 0;
+}
+
+
+BOOL IsUrlContains(TCHAR * Str)
+{
+	const int CountUrl=11;
+	const TCHAR  URL[CountUrl][5]=
+	{
+		_T("http"),
+		_T("www"),
+		_T(".ru"),
+		_T(".com"),
+		_T(".de"),
+		_T(".cz"),
+		_T(".org"),
+		_T(".net"),
+		_T(".su"),
+		_T(".ua"),
+		_T(".tv")
+	}; 
+
+	if(Str&&_tcslen(Str)>0) {
+		TCHAR *StrLower = NEWTSTR_MALLOC(Str);
+		CharLowerBuff(StrLower, lstrlen(StrLower)); 
+		for (int i=0; i<CountUrl; i++)
+			if(_tcsstr (StrLower, URL[i]))
+			{
+				mir_free(StrLower);
+				return 1;
+			}
+		mir_free(StrLower);
+	}
+	return 0;
+}
+
+tstring GetContactUid(HANDLE hContact, tstring Protocol)
+{
+	tstring Uid;
+	TCHAR dUid[32]={0};
+	char *szProto = mir_utf8encodeW(Protocol.c_str());
+	CONTACTINFO ci;
+	ZeroMemory((void *)&ci, sizeof(ci));
+
+	ci.hContact = hContact;
+	ci.szProto = szProto;
+	ci.cbSize = sizeof(ci);
+
+	ci.dwFlag = CNF_DISPLAYUID | CNF_TCHAR;
+	if (!CallService(MS_CONTACT_GETCONTACTINFO, 0, (LPARAM) & ci)) {
+		switch (ci.type) {
+			case CNFT_ASCIIZ:
+				Uid=ci.pszVal;
+				mir_free((void *)ci.pszVal);
+			break;
+			case CNFT_DWORD:
+				_itow_s(ci.dVal,dUid,32,10);
+				Uid=dUid;
+			break;
+			default:
+				 Uid=_T("");
+			break;
+		};
+	} 
+	mir_free(szProto);
+	return Uid;
+}
+
+
+void LogSpamToFile(HANDLE hContact, tstring message)
+{
+
+	tstring LogStrW;
+	tstring LogTime;
+	tstring LogProtocol;
+	tstring LogContactId;
+	tstring LogContactName;
+	std::string filename;
+	std::fstream file;
+	
+	UINT cbName=255;
+	char* pszName = (char *)mir_alloc(cbName);
+
+	CallService(MS_DB_GETPROFILEPATH,(WPARAM) cbName, (LPARAM)pszName);
+
+
+	filename=pszName;
+	filename=filename+"\\stopspam_mod.log";
+	mir_free(pszName);
+
+	file.open(filename.c_str(),std::ios::out |std::ios::app);
+
+	// Time Log line
+	time_t time_now;
+	tm   *TimeNow;
+	time(&time_now);
+	TimeNow = localtime(&time_now);
+    LogTime=_wasctime( TimeNow ); 
+	// Time Log line
+	
+	// Name, UID and Protocol Log line
+	LogProtocol=DBGetContactSettingStringPAN(hContact,"Protocol","p",_T(""));
+	LogContactName=(TCHAR*)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM) hContact, GCDNF_TCHAR);
+	LogContactId=(LogProtocol==_T(""))?_T(""):GetContactUid(hContact,LogProtocol);
+	// Name, UID  and Protocol Log line
+	
+	//MessageBox(0,LogProtocol.c_str(),_T(""),0);
+	LogStrW=_T("[")+LogTime.substr(0,LogTime.length()-1)+_T("] ")+
+		LogContactId+_T(" - ")+
+		LogContactName+_T(" (")+
+		LogProtocol+_T("): ")+
+		message+_T("\n");
+
+	
+	//char * buf=mir_utf8encodeW(LogStrW.c_str());
+	char * buf=mir_u2a(LogStrW.c_str());
+	file.write(buf,LogStrW.length());
+	mir_free(buf);
+
+	file.close();
+}
\ No newline at end of file
-- 
cgit v1.2.3