summaryrefslogtreecommitdiff
path: root/main.c
diff options
context:
space:
mode:
Diffstat (limited to 'main.c')
-rw-r--r--main.c1190
1 files changed, 595 insertions, 595 deletions
diff --git a/main.c b/main.c
index 88bb5de..412f69a 100644
--- a/main.c
+++ b/main.c
@@ -1,595 +1,595 @@
-/*
-
-"Spam Filter"-Plugin for Miranda IM
-
-Copyright 2003-2006 Heiko Herkenrath
-
-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 ("SpamFilter-License.txt"); if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-*/
-
-
-// -- Includes
-#include "common.h"
-
-
-HINSTANCE hInst;
-PLUGINLINK *pluginLink;
-
-
-
-
-// -- Plugin Info
-PLUGININFOEX pluginInfo = {
- sizeof(PLUGININFOEX),
- "Spam Filter Mod (Unicode)",
- PLUGIN_VERSION,
- "Filters out advertisment messages, messages sent by robots and other disliked messages such as hoax messages.", // Gets translated automatically
- "Heiko Herkenrath",
- "", // PLUGIN_EMAIL will get set later
- "© 2003-2006 Heiko Herkenrath",
- "",
- 1,
- 0, // Does not replace anything built-in
- { 0xecb1c450, 0xf71a, 0x425d, { 0xab, 0x63, 0xed, 0x17, 0x5a, 0x86, 0x23, 0x84 } }
-};
-
-// -- Variables: Events/Hooks
-HANDLE hHookModulesLoaded;
-
-// -----------------------------------------
-
-
-static void ThreadInstallation(void* arg)
-{
- WCHAR* szFileName = 0;
-
- if (Miranda_Terminated()) return;
-
- // Install Files
- {
- // Spam Definitions
- // Move "Spam Filter" subdirectory to Miranda IM folder.
- // Since the Plugins directory should only contain DLLs and no additional data files
- GetDefinitionsPath(szFileName, FALSE, NULL);
- PInstallFile(DATA_SUBDIRECTORY, szFileName);
-
- // Documentation
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, DOCS_SUBDIRECTORY, NULL, NULL);
- PInstallFile(_T("SpamFilter-Readme.txt"), szFileName);
- PInstallFile(_T("SpamFilter-License.txt"), szFileName);
- PInstallFile(_T("SpamFilter-SDK.zip"), szFileName);
- PInstallFile(_T("SpamFilter-Translation.txt"), szFileName); // normally in SDK
- PInstallFile(_T("SpamFilter-Developer.txt"), szFileName); // normally in SDK
- PInstallFile(_T("m_spamfilter.h"), szFileName); // normally in SDK
- PInstallFile(_T("m_spamfilter.inc"), szFileName); // normally in SDK
-
- PInstallFile(_T("SpamDefinitions-*.txt"), szFileName); // additional SpamDefs installed
-
- PInstallFile(_T("PCRE-License.txt"), szFileName);
-
- // Sounds
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, SOUNDS_SUBDIRECTORY, NULL, NULL);
- PInstallFile(DEFAULT_ADVERTISMENT_SOUNDFILE, szFileName);
- PInstallFile(DEFAULT_DISLIKEDMESSAGE_SOUNDFILE, szFileName);
- PInstallFile(DEFAULT_ROBOT_SOUNDFILE, szFileName);
-
- // DLLs (non-plugin)
- PInstallDLLFile(_T("pcre.dll"), TRUE, TRUE);
-
- // InstallScript.xml
- PConstructLocalPath(szFileName, CSIDL_EXT_MODULE, NULL, _T("InstallScript.xml"), NULL);
- DeleteFile(szFileName);
- }
-
- if (Miranda_Terminated()) return;
-
- // Add default list items
- {
- STRINGLIST* pslWords = SLNewList();
-
- // Create default bad words
- if (!IsSpamDefinitionDataPresent(SDID_CUSTOM_BADWORDS))
- {
- SLAddItem(pslWords, TranslateT("Automated message"));
- SetSpamDefinitionData(pslWords, SDID_CUSTOM_BADWORDS, NULL);
-
- SLClearList(pslWords);
- }
-
- // Create default good words
- if (!IsSpamDefinitionDataPresent(SDID_CUSTOM_GOODWORDS))
- {
- SLAddItem(pslWords, TranslateT("Miranda IM"));
- SetSpamDefinitionData(pslWords, SDID_CUSTOM_GOODWORDS, NULL);
-
- SLClearList(pslWords);
- }
-
- // Create default disliked message words
- if (!IsSpamDefinitionDataPresent(SDID_CUSTOM_DISLIKEDWORDS))
- {
- SLAddItem(pslWords, TranslateT("Please forward"));
- SetSpamDefinitionData(pslWords, SDID_CUSTOM_DISLIKEDWORDS, NULL);
- }
-
- SLFreeList(pslWords);
- }
-
- if (Miranda_Terminated()) return;
-
- // On First Run
- if (DBGetContactSettingDword(NULL, DB_MODULE_NAME, DB_SETTING_FIRSTRUNDONE, 0) != PLUGIN_VERSION) // no use of "<"!
- {
- // Import bad words v1.0.4.0 -> v2.0.0.0 (DB->FILE converter)
- {
- STRINGLIST* pslBadWords = NULL;
- STRINGLIST* pslDefaultBadWords = NULL;
- int i;
- char szSetting[7+MAX_INT_LENGTH+1];
- DBVARIANT dbv;
-
- // Get old bad words out of database
- for (i=0;; i++) // no break condition
- {
- mir_snprintf(szSetting, ARRAYSIZE(szSetting), "BadWord%i", i);
-
- if (DBGetContactSettingTString(NULL, "SpamFilter", szSetting, &dbv) != 0)
- break;
-
- // Load default list when needed
- if (!pslBadWords)
- {
- pslDefaultBadWords = SLNewList();
- pslBadWords = SLNewList();
-
- // Load default bad words
- GetSpamDefinitionData(pslDefaultBadWords, SDID_BADWORDS);
-
- // Load bad words already in file
- GetSpamDefinitionData(pslBadWords, SDID_CUSTOM_BADWORDS);
- }
-
- if (!SLIsItem(pslDefaultBadWords, dbv.ptszVal, FALSE) && !SLIsItem(pslBadWords, dbv.ptszVal, FALSE))
- SLAddItem(pslBadWords, dbv.ptszVal);
-
- DBFreeVariant(&dbv);
-
- // Delete old setting (important! else it will reimport every version change)
- DBDeleteContactSetting(NULL, "SpamFilter", szSetting);
- }
-
- // Save old and new bad words
- if (pslBadWords) {
- SetSpamDefinitionData(pslBadWords, SDID_CUSTOM_BADWORDS, NULL);
- SLFreeList(pslBadWords);
- }
- if (pslDefaultBadWords)
- SLFreeList(pslDefaultBadWords);
- }
-
- if (Miranda_Terminated()) return;
-
- // Import old spammers in database of v2.0.1.0 (DB->DB converter)
- {
- WCHAR* pszSuffix = _T(" (Spammer)"); // readonly allocated
- WCHAR* pszSuffixT = TranslateTS(pszSuffix);
- WCHAR* pszUserName;
- HANDLE hContact;
- BOOL bIsOldSpammer;
-
- if (pszSuffix)
- {
- for (hContact=(HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); hContact; hContact=(HANDLE)CallService(MS_DB_CONTACT_FINDNEXT,(WPARAM)hContact,0))
- {
- // Skip if not hidden
- if (!DBGetContactSettingByte(hContact, "CList", "Hidden", 0))
- continue;
-
- // Skip if is already "new" spammer
- if (CallService(MS_SPAMFILTER_CONTACT_ISSPAMMER, (WPARAM)hContact, 0))
- continue;
-
- pszUserName = (WCHAR*)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)hContact, (LPARAM)GCDNF_UNICODE);
-
- // Find suffix
- bIsOldSpammer = FALSE;
- if (lstrlen(pszUserName) > lstrlen(pszSuffix))
- if (StrCmp(pszUserName+lstrlen(pszUserName)-lstrlen(pszSuffix), pszSuffix) == 0)
- bIsOldSpammer = TRUE;
- if (lstrlen(pszUserName) > lstrlen(pszSuffixT))
- if (StrCmp(pszUserName+lstrlen(pszUserName)-lstrlen(pszSuffixT), pszSuffixT) == 0)
- bIsOldSpammer = TRUE;
-
- if (bIsOldSpammer)
- CallService(MS_SPAMFILTER_CONTACT_SETASSPAMMER, (WPARAM)hContact, (LPARAM)SCASF_NO_NOTIFY|SCASF_NO_REMOVE_HISTORY|SCASF_NO_DENY_AUTHREQUESTS);
- }
- }
-
- }
-
- if (Miranda_Terminated()) return;
-
- // Import Spam Definition Data previous to v2.5.0.0 (ANSI->UTF8 converter)
- {
- // own-badwords.sfw
- PConstructLocalPath(szFileName, CSIDL_EXT_MIRANDAPROFILE, _T("Spam Filter"), _T("own-badwords.sfw"), NULL);
- mir_utf8encodeW(szFileName); // current codepage
-
- // own-goodwords.sfw
- PConstructLocalPath(szFileName, CSIDL_EXT_MIRANDAPROFILE, _T("Spam Filter"), _T("own-goodwords.sfw"), NULL);
- mir_utf8encodeW(szFileName); // current codepage
-
- // own-dislikedwords.sfw
- PConstructLocalPath(szFileName, CSIDL_EXT_MIRANDAPROFILE, _T("Spam Filter"), _T("own-dislikedwords.sfw"), NULL);
- mir_utf8encodeW(szFileName); // current codepage
-
- // BadWords\*.sfw
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("Chinese (Traditional).sfw"), NULL);
- mir_utf8encodeW(szFileName); // big5 codepage (Chinese) [PRC and Singapore have other codepages]
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("Russian.sfw"), NULL);
- mir_utf8encodeW(szFileName); // cp-1251 codepage (Russian)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("English.sfw"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("German.sfw"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("French.sfw"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("Portuguese (Brazil).sfw"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("*.sfw"), NULL);
- mir_utf8encodeW(szFileName); // customized reminder
-
- // HoaxTexts\*.sft
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\HoaxTexts"), _T("Example.sft"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\HoaxTexts"), _T("Example.sft"), NULL);
- mir_utf8encodeW(szFileName); // customized reminder
-
- // Teasers\*.sft
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Teasers"), _T("English.sft"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Teasers"), _T("German.sft"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Teasers"), _T("*.sft"), NULL);
- mir_utf8encodeW(szFileName); // reminder customized
-
- // Urls\*.sfc
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Urls"), _T("*.sfc"), NULL);
- mir_utf8encodeW(szFileName); // url strings are all English
-
- // PhoneNumbers\*.sfc
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\PhoneNumbers"), _T("Russian.sfc"), NULL);
- mir_utf8encodeW(szFileName); // cp-1251 codepage (Russian)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\PhoneNumbers"), _T("German.sfc"), NULL);
- mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\PhoneNumbers"), _T("*.sfc"), NULL);
- mir_utf8encodeW(szFileName); // reminder customizd
-
- // Spammers\*.sfc
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Spammers"), _T("Russian.sfc"), NULL);
- mir_utf8encodeW(szFileName); // cp-1251 codepage (Russian)
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Spammers"), _T("*.sfc"), NULL);
- mir_utf8encodeW(szFileName); // reminder customized
-
- // format_text.sfc
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter"), _T("format_text.sfc"), NULL);
- mir_utf8encodeW(szFileName); // was English only
-
- // format_numbers.sfc
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter"), _T("format_numbers.sfc"), NULL);
- mir_utf8encodeW(szFileName); // was English only
-
- // separators.sfc
- PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter"), _T("separators.sfc"), NULL);
- mir_utf8encodeW(szFileName); // was English only
- }
-
- if (Miranda_Terminated()) return;
-
- if (DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ADVERTISMENTFILTER, (BYTE)DEFAULT_SETTING_ADVERTISMENTFILTER) || DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ROBOTFILTER, (BYTE)DEFAULT_SETTING_ROBOTFILTER))
- {
- CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_MESSAGE);
- CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_URL);
- CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_FILE);
- CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_AUTHORIZATION);
-
- CallService(MS_IGNORE_IGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_USERONLINE);
-
- {
- DBVARIANT dbv;
-
- if (DBGetContactSetting(NULL, "SRMM", "UnknownTyping", &dbv) == 0) // If existant
- {
- if (dbv.type == DBVT_BYTE)
- DBWriteContactSettingByte(NULL, "SRMM", "UnknownTyping", 0);
- DBFreeVariant(&dbv);
- }
- }
- }
-
- // Disable "old"/other spam plugins (if installed) to avoid conflicts and user confusion
- // (All features of them included in Spam Filter)
- if (GetModuleHandle(_T("SpamBlock")))
- DBWriteContactSettingByte(NULL, "PluginDisable", "spamblock.dll", 1);
- if (GetModuleHandle(_T("SpamBlockPlus")))
- DBWriteContactSettingByte(NULL, "PluginDisable", "spamblockplus.dll", 1);
- if (GetModuleHandle(_T("spamreturner")))
- DBWriteContactSettingByte(NULL, "PluginDisable", "spamreturner.dll", 1);
- if (GetModuleHandle(_T("stopspam"))) {
- DBWriteContactSettingByte(NULL, "PluginDisable", "stopspam.dll", 1);
- DBWriteContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ROBOTFILTER, (BYTE)TRUE);
- }
- if (GetModuleHandle(_T("ignorecontact")))
- DBWriteContactSettingByte(NULL, "PluginDisable", "ignorecontact.dll", 1);
-
- #if defined (UNICODE)
- DBWriteContactSettingByte(NULL, "PluginDisable", "spamfilter.dll", 1);
- #else
- DBWriteContactSettingByte(NULL, "PluginDisable", "spamfilterw.dll", 1);
- #endif
-
- // FirstRunDone
- DBWriteContactSettingDword(NULL, DB_MODULE_NAME, DB_SETTING_FIRSTRUNDONE, PLUGIN_VERSION);
- }
-}
-
-
-__declspec(dllexport) PLUGININFOEX* MirandaPluginInfoEx(DWORD mirandaVersion)
-{
- if (mirandaVersion < NEEDED_MIRANDA_VERSION)
- {
- // No Translate() here! (langpack service not yet loaded, no need anyway)
- MessageBoxEx(NULL, _T("The Spam Filter plugin can not be loaded. It requires Miranda IM ")_T(NEEDED_MIRANDA_VERSION_STR)_T(" or later."), _T("Spam Filter Plugin"), MB_OK|MB_ICONERROR|MB_SETFOREGROUND|MB_TOPMOST|MB_TASKMODAL, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US));
- return NULL;
- }
-
- return &pluginInfo;
-}
-static const MUUID interfaces[] = {MIID_SERVICEMODE, MIID_LAST};
-__declspec(dllexport) const MUUID* MirandaPluginInterfaces(void)
-{
- return interfaces;
-}
-
-
-
-BOOL WINAPI DllMain(HINSTANCE hinstDLL,DWORD fdwReason,LPVOID lpvReserved)
-{
- hInst = hinstDLL;
-
- return TRUE;
-}
-
-
-
-static int AllModulesLoaded(WPARAM wParam, LPARAM lParam)
-{
- AssignAllContacts();
-
- // Custom Profile Folder Plugin support (as early as possible!)
- InitFolders();
-
- // Definition file cache (after folder)
- InitSpamDefinitions();
-
- // Load regular expressions DLL
- // Important: Not in Load() to allow other plugins to update/replace the DLL in their Load()
- InitRegExp();
-
- // Trigger Plugin support
- InitTrigger();
-
- // Add message types for filter
- {
- int i, iProtoCount = 0;
- WCHAR szProtoNameBuf[256];
- WCHAR* pszProtoName;
- DWORD dwProtoCaps, dwProtoCaps4;
- HICON hProtoIcon;
- PROTOCOLDESCRIPTOR** appd = NULL;
-
- if (CallService(MS_PROTO_ENUMPROTOCOLS, (WPARAM)&iProtoCount, (LPARAM)&appd) == 0)
- {
- for (i=0; i<iProtoCount; i++)
- {
- if (appd[i]->type != PROTOTYPE_PROTOCOL) continue;
-
- // Get capabilities
- dwProtoCaps = CallProtoService(appd[i]->szName, PS_GETCAPS, (WPARAM)PFLAGNUM_1, 0);
- if ((int)dwProtoCaps == CALLSERVICE_NOTFOUND) continue;
- dwProtoCaps4 = CallProtoService(appd[i]->szName, PS_GETCAPS, (WPARAM)PFLAGNUM_4, 0);
-
- // Get icon
- hProtoIcon = (HICON)CallProtoService(appd[i]->szName, PS_LOADICON, PLI_PROTOCOL|PLIF_SMALL, 0);
- if ((int)hProtoIcon == CALLSERVICE_NOTFOUND) hProtoIcon = NULL;
-
- // Get readable name
- #if defined(UNICODE)
- if (CallProtoService(appd[i]->szName, PS_GETNAME"W", ARRAYSIZE(szProtoNameBuf), (LPARAM)szProtoNameBuf) == 0) {
- pszProtoName = szProtoNameBuf;
- } else if (CallProtoService(appd[i]->szName, PS_GETNAME, ARRAYSIZE(szProtoNameBuf), (LPARAM)szProtoNameBuf) == 0) {
- pszProtoName = (WCHAR*)mir_utf8encodeW(szProtoNameBuf);
- } else {
- pszProtoName = (WCHAR*)mir_utf8encodeW((WCHAR*)appd[i]->szName);
- }
- #else
- if (CallProtoService(appd[i]->szName, PS_GETNAME, ARRAYSIZE(szProtoNameBuf), (LPARAM)szProtoNameBuf) == 0) {
- pszProtoName = szProtoNameBuf;
- } else {
- pszProtoName = appd[i]->szName;
- }
- #endif
-
- // Authorization Requests (flag supported and display module installed)
- if (dwProtoCaps&PF1_AUTHREQ)
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_AUTHREQUEST, TranslateT("Authorization Request"), (HICON)-SKINICON_OTHER_MIRANDA, 100, ((dwProtoCaps4&PF4_FORCEAUTH) ? MTDF_DEFAULTDISABLED : 0));
-
- // YouWereAdded Notification (flag supported and display module installed)
- if (dwProtoCaps&PF1_ADDED)
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_ADDED, TranslateT("Added Notification"), (HICON)LoadImage(GetModuleHandle(NULL), MAKEINTRESOURCE(210), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED), 110, ((dwProtoCaps4&PF4_FORCEADDED) ? MTDF_DEFAULTDISABLED : 0));
-
- // Special support for ICQ (workaround, quite hacky)
- if (StrCmpA(appd[i]->szName, "ICQ") == 0)
- {
- // WebPager (display module installed: WebPager Plugin)
- if (ServiceExists("WebPager/ReceiveWebPager"))
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, "WebPager", TranslateT("WebPager"), GetModuleHandle(_T("WebPager")) ? (HICON)LoadImage(GetModuleHandle(_T("WebPager")), MAKEINTRESOURCE(101), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED) : NULL, 200, 0);
-
- // EmailExpress (display module installed: EmailExpress Plugin)
- if (ServiceExists("EmailExpress/ReceiveEmailExpress"))
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, "EmailExpress", TranslateT("EmailExpress"), GetModuleHandle(_T("EmailExpress")) ? (HICON)LoadImage(GetModuleHandle(_T("EmailExpress")), MAKEINTRESOURCE(102), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED) : NULL, 210, 0);
- }
-
- // Instant Messages (flag supported and display module installed)
- if ((dwProtoCaps&PF1_IMRECV) && ServiceExists(MS_MSG_SENDMESSAGE))
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_MESSAGE, TranslateT("Message"), (HICON)-SKINICON_EVENT_MESSAGE, 300, ((dwProtoCaps&PF1_IMSEND) ? 0 : MTDF_DEFAULTDISABLED));
-
- // URLs (flag supported and display module installed)
- if ((dwProtoCaps&PF1_URLRECV) && ServiceExists(MS_URL_SENDURL))
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_URL, TranslateT("URL"), (HICON)-SKINICON_EVENT_URL, 400, ((dwProtoCaps&PF1_URLSEND) ? 0 : MTDF_DEFAULTDISABLED));
-
- // File Transfers (flag supported and display module installed)
- if ((dwProtoCaps&PF1_FILERECV) && ServiceExists(MS_FILE_SENDFILE))
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_FILE, TranslateT("File"), (HICON)-SKINICON_EVENT_FILE, 500, ((dwProtoCaps&PF1_FILESEND) ? 0 : MTDF_DEFAULTDISABLED));
-
- // Contact Transfers (flag supported and display module installed)
- if ((dwProtoCaps&PF1_CONTACTRECV) && ServiceExists(MS_CONTACTS_SEND))
- SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_CONTACTS, TranslateT("Contacts"), GetModuleHandle(_T("contacts")) ? (HICON)LoadImage(GetModuleHandle(_T("contacts")), MAKEINTRESOURCE(109), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED) : NULL, 600, ((dwProtoCaps&PF1_CONTACTSEND) ? 0 : MTDF_DEFAULTDISABLED));
-
-
- if (hProtoIcon) DestroyIcon(hProtoIcon); // must be destroyed
-
- #if defined(UNICODE)
- if (pszProtoName != szProtoNameBuf)
- mir_free(pszProtoName);
- #endif
- }
- }
- }
-
- // Options
- InitOptions();
-
- // Add sounds
- SkinAddNewSoundBundled(DB_SOUND_ADVERTISMENT_SETTING, Translate("Spam Filter"), Translate("Advertisment Alert"), DEFAULT_ADVERTISMENT_SOUNDFILE);
- SkinAddNewSoundBundled(DB_SOUND_DISLIKEDMESSAGE_SETTING, Translate("Spam Filter"), Translate("Disliked Message Alert"), DEFAULT_DISLIKEDMESSAGE_SOUNDFILE);
- SkinAddNewSoundBundled(DB_SOUND_ROBOT_SETTING, Translate("Spam Filter"), Translate("Robot Alert"), DEFAULT_ROBOT_SOUNDFILE);
-
- // Add known database modules (Support for DBEditor++)
- if (ServiceExists("DBEditorpp/RegisterModule"))
- {
- const char* apszModuleNames[] = {DB_MODULE_NAME, DB_MODULE_NAME_MSGTYPES, DB_MODULE_NAME_PRESPAMMERS};
- CallService("DBEditorpp/RegisterModule", (WPARAM)apszModuleNames, (LPARAM)ARRAYSIZE(apszModuleNames));
- }
-
- // Support for own variables in Variables-Plugin
- InitVariables();
-
- // Init CList extra image (for spammers)
- InitExtraImg();
-
- // Support for Popup/PopupPlus Plugin
- if (IsPopupAvailable(FALSE))
- {
- BOOL bFilterActive = DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ADVERTISMENTFILTER, DEFAULT_SETTING_ADVERTISMENTFILTER) || DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_DISLIKEDMESSAGEFILTER, DEFAULT_SETTING_DISLIKEDMESSAGEFILTER);
- BOOL bPopupsActive = DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_POPUP, DEFAULT_SETTING_POPUP);
-
- InitPopup();
-
- // Init popup menu item
- SetPopupMenuItem(bPopupsActive, !bFilterActive);
-
- // Add colors
- SkinAddNewColor(DB_COLOR_POPUPBACKGROUND_SETTING, Translate("Spam Filter"), Translate("Popup Background"), RGB(213,209,208), FALSE);
- SkinAddNewColor(DB_COLOR_POPUPTEXT_SETTING, Translate("Spam Filter"), Translate("Popup Text"), RGB(193,0,38), FALSE);
- }
-
- // Init contact menu item
- InitMenuItems();
-
- // SpamFilter fully loaded
- NotifyModuleLoaded();
- return 0;
-}
-
-
-__declspec(dllexport) int Load(PLUGINLINK* link)
-{
- pluginLink = (PLUGINLINK*)link;;
-
- hwndSpamFilterOpt = NULL;
- hwndAdvertismentFilter = NULL;
- hwndRobotFilter = NULL;
- hwndDislikedMessagesFilter = NULL;
- hwndSpamDefinitionsInfo = NULL;
- hwndSpammersInfo = NULL;
-
- if (!ServiceExists(MS_DB_CONTACT_GETSETTING_STR))
- {
- // No Translate() here
- MessageBoxEx(NULL, _T("The Spam Filter plugin requires database driver (db3x) 0.5.1.0 or later."), _T("Spam Filter Plugin"), MB_OK|MB_ICONERROR|MB_SETFOREGROUND|MB_TOPMOST|MB_TASKMODAL, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US));
- return 1;
- }
-
- // Load Unicode version only for Unicode core
- {
- char szVer[128];
- if (CallService(MS_SYSTEM_GETVERSIONTEXT, (WPARAM)ARRAYSIZE(szVer), (LPARAM)szVer) == 0)
- if (!StrStrA(szVer, "Unicode")) {
- OutputDebugString(_T("Spam Filter: No Unicode core, Unicode version not loaded.\r\n"));
- return 1;
- }
- }
-
- // Get Miranda's simple memory problems catcher
-
- memset(&memoryManagerInterface,0,sizeof(memoryManagerInterface));
- memoryManagerInterface.cbSize = sizeof(memoryManagerInterface);
- CallService(MS_SYSTEM_GET_MMI, 0, (LPARAM)&memoryManagerInterface);
- mir_getUTFI( &utfi );
-
- // Init SpamFilter-API
- InitServices();
-
- // Establish the filter protocol
- InitSpamCheck();
-
- // Installation (making sure files are placed correctly)
- forkthread(ThreadInstallation, 0, NULL);
- hHookModulesLoaded = HookEvent(ME_SYSTEM_MODULESLOADED, AllModulesLoaded);
- if (!hHookModulesLoaded) CallService(MS_SPAMFILTER_SHOWERROR, SFSE_CRITICAL_ERROR, 0);
-
- return 0;
-}
-
-
-__declspec(dllexport) int Unload(void)
-{
- if (hHookModulesLoaded) UnhookEvent(hHookModulesLoaded);
- UninitExtraImg();
- UninitMenuItems();
- UninitOptions();
- UninitPopup();
- UninitSpamCheck();
- UninitVariables();
- UninitServices();
- UninitRegExp();
- UninitSpamDefinitions();
- UninitTrigger();
- UninitFolders();
- return 0;
-}
-
-
+/*
+
+"Spam Filter"-Plugin for Miranda IM
+
+Copyright 2003-2006 Heiko Herkenrath
+
+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 ("SpamFilter-License.txt"); if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+*/
+
+
+// -- Includes
+#include "common.h"
+
+
+HINSTANCE hInst;
+PLUGINLINK *pluginLink;
+
+
+
+
+// -- Plugin Info
+PLUGININFOEX pluginInfo = {
+ sizeof(PLUGININFOEX),
+ "Spam Filter Mod (Unicode)",
+ PLUGIN_VERSION,
+ "Filters out advertisment messages, messages sent by robots and other disliked messages such as hoax messages.", // Gets translated automatically
+ "Heiko Herkenrath",
+ "", // PLUGIN_EMAIL will get set later
+ "© 2003-2006 Heiko Herkenrath",
+ "",
+ 1,
+ 0, // Does not replace anything built-in
+ { 0xecb1c450, 0xf71a, 0x425d, { 0xab, 0x63, 0xed, 0x17, 0x5a, 0x86, 0x23, 0x84 } }
+};
+
+// -- Variables: Events/Hooks
+HANDLE hHookModulesLoaded;
+
+// -----------------------------------------
+
+
+static void ThreadInstallation(void* arg)
+{
+ WCHAR* szFileName = 0;
+
+ if (Miranda_Terminated()) return;
+
+ // Install Files
+ {
+ // Spam Definitions
+ // Move "Spam Filter" subdirectory to Miranda IM folder.
+ // Since the Plugins directory should only contain DLLs and no additional data files
+ GetDefinitionsPath(szFileName, FALSE, NULL);
+ PInstallFile(DATA_SUBDIRECTORY, szFileName);
+
+ // Documentation
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, DOCS_SUBDIRECTORY, NULL, NULL);
+ PInstallFile(_T("SpamFilter-Readme.txt"), szFileName);
+ PInstallFile(_T("SpamFilter-License.txt"), szFileName);
+ PInstallFile(_T("SpamFilter-SDK.zip"), szFileName);
+ PInstallFile(_T("SpamFilter-Translation.txt"), szFileName); // normally in SDK
+ PInstallFile(_T("SpamFilter-Developer.txt"), szFileName); // normally in SDK
+ PInstallFile(_T("m_spamfilter.h"), szFileName); // normally in SDK
+ PInstallFile(_T("m_spamfilter.inc"), szFileName); // normally in SDK
+
+ PInstallFile(_T("SpamDefinitions-*.txt"), szFileName); // additional SpamDefs installed
+
+ PInstallFile(_T("PCRE-License.txt"), szFileName);
+
+ // Sounds
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, SOUNDS_SUBDIRECTORY, NULL, NULL);
+ PInstallFile(DEFAULT_ADVERTISMENT_SOUNDFILE, szFileName);
+ PInstallFile(DEFAULT_DISLIKEDMESSAGE_SOUNDFILE, szFileName);
+ PInstallFile(DEFAULT_ROBOT_SOUNDFILE, szFileName);
+
+ // DLLs (non-plugin)
+ PInstallDLLFile(_T("pcre.dll"), TRUE, TRUE);
+
+ // InstallScript.xml
+ PConstructLocalPath(szFileName, CSIDL_EXT_MODULE, NULL, _T("InstallScript.xml"), NULL);
+ DeleteFile(szFileName);
+ }
+
+ if (Miranda_Terminated()) return;
+
+ // Add default list items
+ {
+ STRINGLIST* pslWords = SLNewList();
+
+ // Create default bad words
+ if (!IsSpamDefinitionDataPresent(SDID_CUSTOM_BADWORDS))
+ {
+ SLAddItem(pslWords, TranslateT("Automated message"));
+ SetSpamDefinitionData(pslWords, SDID_CUSTOM_BADWORDS, NULL);
+
+ SLClearList(pslWords);
+ }
+
+ // Create default good words
+ if (!IsSpamDefinitionDataPresent(SDID_CUSTOM_GOODWORDS))
+ {
+ SLAddItem(pslWords, TranslateT("Miranda IM"));
+ SetSpamDefinitionData(pslWords, SDID_CUSTOM_GOODWORDS, NULL);
+
+ SLClearList(pslWords);
+ }
+
+ // Create default disliked message words
+ if (!IsSpamDefinitionDataPresent(SDID_CUSTOM_DISLIKEDWORDS))
+ {
+ SLAddItem(pslWords, TranslateT("Please forward"));
+ SetSpamDefinitionData(pslWords, SDID_CUSTOM_DISLIKEDWORDS, NULL);
+ }
+
+ SLFreeList(pslWords);
+ }
+
+ if (Miranda_Terminated()) return;
+
+ // On First Run
+ if (DBGetContactSettingDword(NULL, DB_MODULE_NAME, DB_SETTING_FIRSTRUNDONE, 0) != PLUGIN_VERSION) // no use of "<"!
+ {
+ // Import bad words v1.0.4.0 -> v2.0.0.0 (DB->FILE converter)
+ {
+ STRINGLIST* pslBadWords = NULL;
+ STRINGLIST* pslDefaultBadWords = NULL;
+ int i;
+ char szSetting[7+MAX_INT_LENGTH+1];
+ DBVARIANT dbv;
+
+ // Get old bad words out of database
+ for (i=0;; i++) // no break condition
+ {
+ mir_snprintf(szSetting, ARRAYSIZE(szSetting), "BadWord%i", i);
+
+ if (DBGetContactSettingTString(NULL, "SpamFilter", szSetting, &dbv) != 0)
+ break;
+
+ // Load default list when needed
+ if (!pslBadWords)
+ {
+ pslDefaultBadWords = SLNewList();
+ pslBadWords = SLNewList();
+
+ // Load default bad words
+ GetSpamDefinitionData(pslDefaultBadWords, SDID_BADWORDS);
+
+ // Load bad words already in file
+ GetSpamDefinitionData(pslBadWords, SDID_CUSTOM_BADWORDS);
+ }
+
+ if (!SLIsItem(pslDefaultBadWords, dbv.ptszVal, FALSE) && !SLIsItem(pslBadWords, dbv.ptszVal, FALSE))
+ SLAddItem(pslBadWords, dbv.ptszVal);
+
+ DBFreeVariant(&dbv);
+
+ // Delete old setting (important! else it will reimport every version change)
+ DBDeleteContactSetting(NULL, "SpamFilter", szSetting);
+ }
+
+ // Save old and new bad words
+ if (pslBadWords) {
+ SetSpamDefinitionData(pslBadWords, SDID_CUSTOM_BADWORDS, NULL);
+ SLFreeList(pslBadWords);
+ }
+ if (pslDefaultBadWords)
+ SLFreeList(pslDefaultBadWords);
+ }
+
+ if (Miranda_Terminated()) return;
+
+ // Import old spammers in database of v2.0.1.0 (DB->DB converter)
+ {
+ WCHAR* pszSuffix = _T(" (Spammer)"); // readonly allocated
+ WCHAR* pszSuffixT = TranslateTS(pszSuffix);
+ WCHAR* pszUserName;
+ HANDLE hContact;
+ BOOL bIsOldSpammer;
+
+ if (pszSuffix)
+ {
+ for (hContact=(HANDLE)CallService(MS_DB_CONTACT_FINDFIRST,0,0); hContact; hContact=(HANDLE)CallService(MS_DB_CONTACT_FINDNEXT,(WPARAM)hContact,0))
+ {
+ // Skip if not hidden
+ if (!DBGetContactSettingByte(hContact, "CList", "Hidden", 0))
+ continue;
+
+ // Skip if is already "new" spammer
+ if (CallService(MS_SPAMFILTER_CONTACT_ISSPAMMER, (WPARAM)hContact, 0))
+ continue;
+
+ pszUserName = (WCHAR*)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)hContact, (LPARAM)GCDNF_UNICODE);
+
+ // Find suffix
+ bIsOldSpammer = FALSE;
+ if (lstrlen(pszUserName) > lstrlen(pszSuffix))
+ if (StrCmp(pszUserName+lstrlen(pszUserName)-lstrlen(pszSuffix), pszSuffix) == 0)
+ bIsOldSpammer = TRUE;
+ if (lstrlen(pszUserName) > lstrlen(pszSuffixT))
+ if (StrCmp(pszUserName+lstrlen(pszUserName)-lstrlen(pszSuffixT), pszSuffixT) == 0)
+ bIsOldSpammer = TRUE;
+
+ if (bIsOldSpammer)
+ CallService(MS_SPAMFILTER_CONTACT_SETASSPAMMER, (WPARAM)hContact, (LPARAM)SCASF_NO_NOTIFY|SCASF_NO_REMOVE_HISTORY|SCASF_NO_DENY_AUTHREQUESTS);
+ }
+ }
+
+ }
+
+ if (Miranda_Terminated()) return;
+
+ // Import Spam Definition Data previous to v2.5.0.0 (ANSI->UTF8 converter)
+ {
+ // own-badwords.sfw
+ PConstructLocalPath(szFileName, CSIDL_EXT_MIRANDAPROFILE, _T("Spam Filter"), _T("own-badwords.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // current codepage
+
+ // own-goodwords.sfw
+ PConstructLocalPath(szFileName, CSIDL_EXT_MIRANDAPROFILE, _T("Spam Filter"), _T("own-goodwords.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // current codepage
+
+ // own-dislikedwords.sfw
+ PConstructLocalPath(szFileName, CSIDL_EXT_MIRANDAPROFILE, _T("Spam Filter"), _T("own-dislikedwords.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // current codepage
+
+ // BadWords\*.sfw
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("Chinese (Traditional).sfw"), NULL);
+ mir_utf8encodeW(szFileName); // big5 codepage (Chinese) [PRC and Singapore have other codepages]
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("Russian.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // cp-1251 codepage (Russian)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("English.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("German.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("French.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("Portuguese (Brazil).sfw"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\BadWords"), _T("*.sfw"), NULL);
+ mir_utf8encodeW(szFileName); // customized reminder
+
+ // HoaxTexts\*.sft
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\HoaxTexts"), _T("Example.sft"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\HoaxTexts"), _T("Example.sft"), NULL);
+ mir_utf8encodeW(szFileName); // customized reminder
+
+ // Teasers\*.sft
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Teasers"), _T("English.sft"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Teasers"), _T("German.sft"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Teasers"), _T("*.sft"), NULL);
+ mir_utf8encodeW(szFileName); // reminder customized
+
+ // Urls\*.sfc
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Urls"), _T("*.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // url strings are all English
+
+ // PhoneNumbers\*.sfc
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\PhoneNumbers"), _T("Russian.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // cp-1251 codepage (Russian)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\PhoneNumbers"), _T("German.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // English, German, French, Portuguese codepage (European)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\PhoneNumbers"), _T("*.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // reminder customizd
+
+ // Spammers\*.sfc
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Spammers"), _T("Russian.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // cp-1251 codepage (Russian)
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter\\Spammers"), _T("*.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // reminder customized
+
+ // format_text.sfc
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter"), _T("format_text.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // was English only
+
+ // format_numbers.sfc
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter"), _T("format_numbers.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // was English only
+
+ // separators.sfc
+ PConstructLocalPath(szFileName, CSIDL_EXT_EXECUTABLE, _T("Spam Filter"), _T("separators.sfc"), NULL);
+ mir_utf8encodeW(szFileName); // was English only
+ }
+
+ if (Miranda_Terminated()) return;
+
+ if (DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ADVERTISMENTFILTER, (BYTE)DEFAULT_SETTING_ADVERTISMENTFILTER) || DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ROBOTFILTER, (BYTE)DEFAULT_SETTING_ROBOTFILTER))
+ {
+ CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_MESSAGE);
+ CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_URL);
+ CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_FILE);
+ CallService(MS_IGNORE_UNIGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_AUTHORIZATION);
+
+ CallService(MS_IGNORE_IGNORE, (WPARAM)NULL, (LPARAM)IGNOREEVENT_USERONLINE);
+
+ {
+ DBVARIANT dbv;
+
+ if (DBGetContactSetting(NULL, "SRMM", "UnknownTyping", &dbv) == 0) // If existant
+ {
+ if (dbv.type == DBVT_BYTE)
+ DBWriteContactSettingByte(NULL, "SRMM", "UnknownTyping", 0);
+ DBFreeVariant(&dbv);
+ }
+ }
+ }
+
+ // Disable "old"/other spam plugins (if installed) to avoid conflicts and user confusion
+ // (All features of them included in Spam Filter)
+ if (GetModuleHandle(_T("SpamBlock")))
+ DBWriteContactSettingByte(NULL, "PluginDisable", "spamblock.dll", 1);
+ if (GetModuleHandle(_T("SpamBlockPlus")))
+ DBWriteContactSettingByte(NULL, "PluginDisable", "spamblockplus.dll", 1);
+ if (GetModuleHandle(_T("spamreturner")))
+ DBWriteContactSettingByte(NULL, "PluginDisable", "spamreturner.dll", 1);
+ if (GetModuleHandle(_T("stopspam"))) {
+ DBWriteContactSettingByte(NULL, "PluginDisable", "stopspam.dll", 1);
+ DBWriteContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ROBOTFILTER, (BYTE)TRUE);
+ }
+ if (GetModuleHandle(_T("ignorecontact")))
+ DBWriteContactSettingByte(NULL, "PluginDisable", "ignorecontact.dll", 1);
+
+ #if defined (UNICODE)
+ DBWriteContactSettingByte(NULL, "PluginDisable", "spamfilter.dll", 1);
+ #else
+ DBWriteContactSettingByte(NULL, "PluginDisable", "spamfilterw.dll", 1);
+ #endif
+
+ // FirstRunDone
+ DBWriteContactSettingDword(NULL, DB_MODULE_NAME, DB_SETTING_FIRSTRUNDONE, PLUGIN_VERSION);
+ }
+}
+
+
+__declspec(dllexport) PLUGININFOEX* MirandaPluginInfoEx(DWORD mirandaVersion)
+{
+ if (mirandaVersion < NEEDED_MIRANDA_VERSION)
+ {
+ // No Translate() here! (langpack service not yet loaded, no need anyway)
+ MessageBoxEx(NULL, _T("The Spam Filter plugin can not be loaded. It requires Miranda IM ")_T(NEEDED_MIRANDA_VERSION_STR)_T(" or later."), _T("Spam Filter Plugin"), MB_OK|MB_ICONERROR|MB_SETFOREGROUND|MB_TOPMOST|MB_TASKMODAL, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US));
+ return NULL;
+ }
+
+ return &pluginInfo;
+}
+static const MUUID interfaces[] = {MIID_SERVICEMODE, MIID_LAST};
+__declspec(dllexport) const MUUID* MirandaPluginInterfaces(void)
+{
+ return interfaces;
+}
+
+
+
+BOOL WINAPI DllMain(HINSTANCE hinstDLL,DWORD fdwReason,LPVOID lpvReserved)
+{
+ hInst = hinstDLL;
+
+ return TRUE;
+}
+
+
+
+static int AllModulesLoaded(WPARAM wParam, LPARAM lParam)
+{
+ AssignAllContacts();
+
+ // Custom Profile Folder Plugin support (as early as possible!)
+ InitFolders();
+
+ // Definition file cache (after folder)
+ InitSpamDefinitions();
+
+ // Load regular expressions DLL
+ // Important: Not in Load() to allow other plugins to update/replace the DLL in their Load()
+ InitRegExp();
+
+ // Trigger Plugin support
+ InitTrigger();
+
+ // Add message types for filter
+ {
+ int i, iProtoCount = 0;
+ WCHAR szProtoNameBuf[256];
+ WCHAR* pszProtoName;
+ DWORD dwProtoCaps, dwProtoCaps4;
+ HICON hProtoIcon;
+ PROTOCOLDESCRIPTOR** appd = NULL;
+
+ if (CallService(MS_PROTO_ENUMPROTOCOLS, (WPARAM)&iProtoCount, (LPARAM)&appd) == 0)
+ {
+ for (i=0; i<iProtoCount; i++)
+ {
+ if (appd[i]->type != PROTOTYPE_PROTOCOL) continue;
+
+ // Get capabilities
+ dwProtoCaps = CallProtoService(appd[i]->szName, PS_GETCAPS, (WPARAM)PFLAGNUM_1, 0);
+ if ((int)dwProtoCaps == CALLSERVICE_NOTFOUND) continue;
+ dwProtoCaps4 = CallProtoService(appd[i]->szName, PS_GETCAPS, (WPARAM)PFLAGNUM_4, 0);
+
+ // Get icon
+ hProtoIcon = (HICON)CallProtoService(appd[i]->szName, PS_LOADICON, PLI_PROTOCOL|PLIF_SMALL, 0);
+ if ((int)hProtoIcon == CALLSERVICE_NOTFOUND) hProtoIcon = NULL;
+
+ // Get readable name
+ #if defined(UNICODE)
+ if (CallProtoService(appd[i]->szName, PS_GETNAME"W", ARRAYSIZE(szProtoNameBuf), (LPARAM)szProtoNameBuf) == 0) {
+ pszProtoName = szProtoNameBuf;
+ } else if (CallProtoService(appd[i]->szName, PS_GETNAME, ARRAYSIZE(szProtoNameBuf), (LPARAM)szProtoNameBuf) == 0) {
+ pszProtoName = (WCHAR*)mir_utf8encodeW(szProtoNameBuf);
+ } else {
+ pszProtoName = (WCHAR*)mir_utf8encodeW((WCHAR*)appd[i]->szName);
+ }
+ #else
+ if (CallProtoService(appd[i]->szName, PS_GETNAME, ARRAYSIZE(szProtoNameBuf), (LPARAM)szProtoNameBuf) == 0) {
+ pszProtoName = szProtoNameBuf;
+ } else {
+ pszProtoName = appd[i]->szName;
+ }
+ #endif
+
+ // Authorization Requests (flag supported and display module installed)
+ if (dwProtoCaps&PF1_AUTHREQ)
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_AUTHREQUEST, TranslateT("Authorization Request"), (HICON)-SKINICON_OTHER_MIRANDA, 100, ((dwProtoCaps4&PF4_FORCEAUTH) ? MTDF_DEFAULTDISABLED : 0));
+
+ // YouWereAdded Notification (flag supported and display module installed)
+ if (dwProtoCaps&PF1_ADDED)
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_ADDED, TranslateT("Added Notification"), (HICON)LoadImage(GetModuleHandle(NULL), MAKEINTRESOURCE(210), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED), 110, ((dwProtoCaps4&PF4_FORCEADDED) ? MTDF_DEFAULTDISABLED : 0));
+
+ // Special support for ICQ (workaround, quite hacky)
+ if (StrCmpA(appd[i]->szName, "ICQ") == 0)
+ {
+ // WebPager (display module installed: WebPager Plugin)
+ if (ServiceExists("WebPager/ReceiveWebPager"))
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, "WebPager", TranslateT("WebPager"), GetModuleHandle(_T("WebPager")) ? (HICON)LoadImage(GetModuleHandle(_T("WebPager")), MAKEINTRESOURCE(101), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED) : NULL, 200, 0);
+
+ // EmailExpress (display module installed: EmailExpress Plugin)
+ if (ServiceExists("EmailExpress/ReceiveEmailExpress"))
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, "EmailExpress", TranslateT("EmailExpress"), GetModuleHandle(_T("EmailExpress")) ? (HICON)LoadImage(GetModuleHandle(_T("EmailExpress")), MAKEINTRESOURCE(102), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED) : NULL, 210, 0);
+ }
+
+ // Instant Messages (flag supported and display module installed)
+ if ((dwProtoCaps&PF1_IMRECV) && ServiceExists(MS_MSG_SENDMESSAGE))
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_MESSAGE, TranslateT("Message"), (HICON)-SKINICON_EVENT_MESSAGE, 300, ((dwProtoCaps&PF1_IMSEND) ? 0 : MTDF_DEFAULTDISABLED));
+
+ // URLs (flag supported and display module installed)
+ if ((dwProtoCaps&PF1_URLRECV) && ServiceExists(MS_URL_SENDURL))
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_URL, TranslateT("URL"), (HICON)-SKINICON_EVENT_URL, 400, ((dwProtoCaps&PF1_URLSEND) ? 0 : MTDF_DEFAULTDISABLED));
+
+ // File Transfers (flag supported and display module installed)
+ if ((dwProtoCaps&PF1_FILERECV) && ServiceExists(MS_FILE_SENDFILE))
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_FILE, TranslateT("File"), (HICON)-SKINICON_EVENT_FILE, 500, ((dwProtoCaps&PF1_FILESEND) ? 0 : MTDF_DEFAULTDISABLED));
+
+ // Contact Transfers (flag supported and display module installed)
+ if ((dwProtoCaps&PF1_CONTACTRECV) && ServiceExists(MS_CONTACTS_SEND))
+ SFRegisterMessageType(appd[i]->szName, pszProtoName, hProtoIcon, SFMT_CONTACTS, TranslateT("Contacts"), GetModuleHandle(_T("contacts")) ? (HICON)LoadImage(GetModuleHandle(_T("contacts")), MAKEINTRESOURCE(109), IMAGE_ICON, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), LR_SHARED) : NULL, 600, ((dwProtoCaps&PF1_CONTACTSEND) ? 0 : MTDF_DEFAULTDISABLED));
+
+
+ if (hProtoIcon) DestroyIcon(hProtoIcon); // must be destroyed
+
+ #if defined(UNICODE)
+ if (pszProtoName != szProtoNameBuf)
+ mir_free(pszProtoName);
+ #endif
+ }
+ }
+ }
+
+ // Options
+ InitOptions();
+
+ // Add sounds
+ SkinAddNewSoundBundled(DB_SOUND_ADVERTISMENT_SETTING, Translate("Spam Filter"), Translate("Advertisment Alert"), DEFAULT_ADVERTISMENT_SOUNDFILE);
+ SkinAddNewSoundBundled(DB_SOUND_DISLIKEDMESSAGE_SETTING, Translate("Spam Filter"), Translate("Disliked Message Alert"), DEFAULT_DISLIKEDMESSAGE_SOUNDFILE);
+ SkinAddNewSoundBundled(DB_SOUND_ROBOT_SETTING, Translate("Spam Filter"), Translate("Robot Alert"), DEFAULT_ROBOT_SOUNDFILE);
+
+ // Add known database modules (Support for DBEditor++)
+ if (ServiceExists("DBEditorpp/RegisterModule"))
+ {
+ const char* apszModuleNames[] = {DB_MODULE_NAME, DB_MODULE_NAME_MSGTYPES, DB_MODULE_NAME_PRESPAMMERS};
+ CallService("DBEditorpp/RegisterModule", (WPARAM)apszModuleNames, (LPARAM)ARRAYSIZE(apszModuleNames));
+ }
+
+ // Support for own variables in Variables-Plugin
+ InitVariables();
+
+ // Init CList extra image (for spammers)
+ InitExtraImg();
+
+ // Support for Popup/PopupPlus Plugin
+ if (IsPopupAvailable(FALSE))
+ {
+ BOOL bFilterActive = DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_ADVERTISMENTFILTER, DEFAULT_SETTING_ADVERTISMENTFILTER) || DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_DISLIKEDMESSAGEFILTER, DEFAULT_SETTING_DISLIKEDMESSAGEFILTER);
+ BOOL bPopupsActive = DBGetContactSettingByte(NULL, DB_MODULE_NAME, DB_SETTING_POPUP, DEFAULT_SETTING_POPUP);
+
+ InitPopup();
+
+ // Init popup menu item
+ SetPopupMenuItem(bPopupsActive, !bFilterActive);
+
+ // Add colors
+ SkinAddNewColor(DB_COLOR_POPUPBACKGROUND_SETTING, Translate("Spam Filter"), Translate("Popup Background"), RGB(213,209,208), FALSE);
+ SkinAddNewColor(DB_COLOR_POPUPTEXT_SETTING, Translate("Spam Filter"), Translate("Popup Text"), RGB(193,0,38), FALSE);
+ }
+
+ // Init contact menu item
+ InitMenuItems();
+
+ // SpamFilter fully loaded
+ NotifyModuleLoaded();
+ return 0;
+}
+
+
+__declspec(dllexport) int Load(PLUGINLINK* link)
+{
+ pluginLink = (PLUGINLINK*)link;;
+
+ hwndSpamFilterOpt = NULL;
+ hwndAdvertismentFilter = NULL;
+ hwndRobotFilter = NULL;
+ hwndDislikedMessagesFilter = NULL;
+ hwndSpamDefinitionsInfo = NULL;
+ hwndSpammersInfo = NULL;
+
+ if (!ServiceExists(MS_DB_CONTACT_GETSETTING_STR))
+ {
+ // No Translate() here
+ MessageBoxEx(NULL, _T("The Spam Filter plugin requires database driver (db3x) 0.5.1.0 or later."), _T("Spam Filter Plugin"), MB_OK|MB_ICONERROR|MB_SETFOREGROUND|MB_TOPMOST|MB_TASKMODAL, MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US));
+ return 1;
+ }
+
+ // Load Unicode version only for Unicode core
+ {
+ char szVer[128];
+ if (CallService(MS_SYSTEM_GETVERSIONTEXT, (WPARAM)ARRAYSIZE(szVer), (LPARAM)szVer) == 0)
+ if (!StrStrA(szVer, "Unicode")) {
+ OutputDebugString(_T("Spam Filter: No Unicode core, Unicode version not loaded.\r\n"));
+ return 1;
+ }
+ }
+
+ // Get Miranda's simple memory problems catcher
+
+ memset(&memoryManagerInterface,0,sizeof(memoryManagerInterface));
+ memoryManagerInterface.cbSize = sizeof(memoryManagerInterface);
+ CallService(MS_SYSTEM_GET_MMI, 0, (LPARAM)&memoryManagerInterface);
+ mir_getUTFI( &utfi );
+
+ // Init SpamFilter-API
+ InitServices();
+
+ // Establish the filter protocol
+ InitSpamCheck();
+
+ // Installation (making sure files are placed correctly)
+ forkthread(ThreadInstallation, 0, NULL);
+ hHookModulesLoaded = HookEvent(ME_SYSTEM_MODULESLOADED, AllModulesLoaded);
+ if (!hHookModulesLoaded) CallService(MS_SPAMFILTER_SHOWERROR, SFSE_CRITICAL_ERROR, 0);
+
+ return 0;
+}
+
+
+__declspec(dllexport) int Unload(void)
+{
+ if (hHookModulesLoaded) UnhookEvent(hHookModulesLoaded);
+ UninitExtraImg();
+ UninitMenuItems();
+ UninitOptions();
+ UninitPopup();
+ UninitSpamCheck();
+ UninitVariables();
+ UninitServices();
+ UninitRegExp();
+ UninitSpamDefinitions();
+ UninitTrigger();
+ UninitFolders();
+ return 0;
+}
+
+
generated by cgit v1.2.3 (git 2.25.1) at 2025-07-06 09:24:21 +0000