/*
Basic History plugin
Copyright (C) 2011-2012 Krzysztof Kral
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 version 2
of the License.
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, see .
*/
#include "StdAfx.h"
#include "EventList.h"
#include "Options.h"
#include "ExportManager.h"
#include
extern int iconsNum;
bool DeleteDirectory(LPCTSTR lpszDir, bool noRecycleBin = true);
std::wstring GetName(const std::wstring &path);
EventList::EventList()
:hWnd(NULL),
isWnd(false),
hContact(NULL),
deltaTime(0),
isFlat(false),
useImportedMessages(true)
{
memset(&gdbei, 0, sizeof(DBEVENTINFO));
gdbei.cbSize = sizeof(DBEVENTINFO);
goldBlobSize = 0;
}
EventList::EventList(HANDLE _hContact, int filter)
:hWnd(NULL),
isWnd(false),
hContact(_hContact),
deltaTime(0),
isFlat(false),
useImportedMessages(true)
{
memset(&gdbei, 0, sizeof(DBEVENTINFO));
gdbei.cbSize = sizeof(DBEVENTINFO);
goldBlobSize = 0;
SetDefFilter(filter);
}
EventList::~EventList()
{
mir_free(gdbei.pBlob);
eventList.clear();
}
bool EventList::CanShowHistory(DBEVENTINFO* dbei)
{
if (deltaTime != 0) {
if (deltaTime > 0) {
if (now - deltaTime < dbei->timestamp)
return false;
}
else {
if (now + deltaTime > dbei->timestamp)
return false;
}
}
if (hContact == NULL || defFilter == 1)
return true;
if (defFilter < 1) {
switch(dbei->eventType) {
case EVENTTYPE_MESSAGE:
case EVENTTYPE_URL:
case EVENTTYPE_FILE:
return true;
default:
DBEVENTTYPEDESCR* et = ( DBEVENTTYPEDESCR* )CallService(MS_DB_EVENT_GETTYPE, ( WPARAM )dbei->szModule, ( LPARAM )dbei->eventType );
if ( et && ( et->flags & DETF_HISTORY ))
return true;
}
return false;
}
if (filterMap.find(dbei->eventType) != filterMap.end()) {
if (onlyInFilter)
return !(dbei->flags & DBEF_SENT);
if (onlyOutFilter)
return (dbei->flags & DBEF_SENT) != 0;
return true;
}
return false;
}
bool EventList::CanShowHistory(const IImport::ExternalMessage& message)
{
if (deltaTime != 0) {
if (deltaTime > 0) {
if (now - deltaTime < message.timestamp)
return false;
}
else {
if (now + deltaTime > message.timestamp)
return false;
}
}
if (hContact == NULL || defFilter == 1)
return true;
if (defFilter < 1) {
switch(message.eventType ) {
case EVENTTYPE_MESSAGE:
case EVENTTYPE_URL:
case EVENTTYPE_FILE:
return true;
}
return false;
}
if (filterMap.find(message.eventType) != filterMap.end()) {
if (onlyInFilter)
return !(message.flags & DBEF_SENT);
if (onlyOutFilter)
return (message.flags & DBEF_SENT) != 0;
return true;
}
return false;
}
void EventList::InitFilters()
{
filterMap.clear();
onlyInFilter = false;
onlyOutFilter = false;
if (defFilter >= 2) {
defFilter = 0;
for (int i = 0; i < (int)Options::instance->customFilters.size(); ++i) {
if (filterName == Options::instance->customFilters[i].name) {
defFilter = i + 2;
if (Options::instance->customFilters[i].onlyIncomming && !Options::instance->customFilters[i].onlyOutgoing)
onlyInFilter = true;
else if (Options::instance->customFilters[i].onlyOutgoing && !Options::instance->customFilters[i].onlyIncomming)
onlyOutFilter = true;
for (std::vector::iterator it = Options::instance->customFilters[i].events.begin(); it != Options::instance->customFilters[i].events.end(); ++it)
filterMap[*it] = true;
break;
}
}
}
else filterName = L"";
}
void EventList::SetDefFilter(int filter)
{
defFilter = filter;
if (filter >= 2 && filter - 2 < (int)Options::instance->customFilters.size())
filterName = Options::instance->customFilters[filter - 2].name;
else if (filter == 1)
filterName = TranslateT("All events");
else
filterName = TranslateT("Default history events");
}
int EventList::GetFilterNr()
{
return defFilter;
}
std::wstring EventList::GetFilterName()
{
return filterName;
}
void EventList::GetTempList(std::list& tempList, bool noFilter, bool noExt, HANDLE _hContact)
{
bool isWndLocal = isWnd;
EventTempIndex ti;
EventData data;
EventIndex ei;
ti.isExternal = false;
ei.isExternal = false;
HANDLE hDbEvent = db_event_first(_hContact);
while (hDbEvent != NULL) {
if (isWndLocal && !IsWindow( hWnd ))
break;
ei.hEvent = hDbEvent;
if (GetEventData(ei, data)) {
if (noFilter || CanShowHistory(&gdbei)) {
ti.hEvent = hDbEvent;
ti.timestamp = data.timestamp;
tempList.push_back(ti);
}
}
hDbEvent = db_event_next(hDbEvent);
}
if (!noExt) {
std::list::iterator itL = tempList.begin();
ti.isExternal = true;
for (int i = 0; i < (int)importedMessages.size(); ++i) {
if (noFilter || CanShowHistory(importedMessages[i])) {
DWORD ts = importedMessages[i].timestamp;
while(itL != tempList.end() && itL->timestamp < ts)++itL;
if (itL == tempList.end() || itL->timestamp > ts) {
ti.exIdx = i;
ti.timestamp = ts;
tempList.insert(itL, ti);
}
}
}
}
}
void EventList::RefreshEventList()
{
InitNames();
InitFilters();
if (useImportedMessages) {
std::vector messages;
EnterCriticalSection(&criticalSection);
std::map::iterator it = contactFileMap.find(hContact);
if (it != contactFileMap.end()) {
ExportManager imp(hWnd, hContact, 1);
imp.SetAutoImport(it->second.file);
if (!imp.Import(it->second.type, messages, NULL))
messages.clear();
}
LeaveCriticalSection(&criticalSection);
ImportMessages(messages);
}
std::list tempList;
GetTempList(tempList, false, false, hContact);
std::list revTempList;
std::list& nrTempList = tempList;
bool isNewOnTop = Options::instance->groupNewOnTop;
if (isNewOnTop) {
revTempList.insert(revTempList.begin(), tempList.rbegin(), tempList.rend());
nrTempList = revTempList;
}
eventList.clear();
eventList.push_back(std::deque());
DWORD lastTime = MAXDWORD;
DWORD groupTime = Options::instance->groupTime * 60 * 60;
int maxMess = Options::instance->groupMessagesNumber;
int limitator = 0;
EventIndex ei;
for (std::list::iterator itL = nrTempList.begin(); itL != nrTempList.end(); ++itL) {
DWORD tm = isNewOnTop ? lastTime - itL->timestamp : itL->timestamp - lastTime;
if (isFlat || tm < groupTime && limitator < maxMess) {
lastTime = itL->timestamp;
ei.isExternal = itL->isExternal;
ei.hEvent = itL->hEvent;
if (isNewOnTop)
eventList.back().push_front(ei);
else
eventList.back().push_back(ei);
++limitator;
}
else {
limitator = 0;
lastTime = itL->timestamp;
if (!eventList.back().empty()) {
ei = eventList.back().front();
AddGroup(ei);
eventList.push_back(std::deque());
}
ei.isExternal = itL->isExternal;
ei.hEvent = itL->hEvent;
eventList.back().push_front(ei);
}
}
if (!eventList.back().empty()) {
ei = eventList.back().front();
AddGroup(ei);
}
}
bool EventList::SearchInContact(HANDLE hContact, TCHAR *strFind, ComparatorInterface* compFun)
{
InitFilters();
if (useImportedMessages) {
std::vector messages;
EnterCriticalSection(&criticalSection);
std::map::iterator it = contactFileMap.find(hContact);
if (it != contactFileMap.end()) {
ExportManager imp(hWnd, hContact, 1);
imp.SetAutoImport(it->second.file);
if (!imp.Import(it->second.type, messages, NULL))
messages.clear();
}
LeaveCriticalSection(&criticalSection);
for (int i = 0; i < (int)importedMessages.size(); ++i)
if (compFun->Compare((importedMessages[i].flags & DBEF_SENT) != 0, importedMessages[i].message, strFind))
return true;
}
std::list tempList;
GetTempList(tempList, false, true, hContact);
EventIndex ei;
EventData ed;
TCHAR str[MAXSELECTSTR + 8]; // for safety reason
for (std::list::iterator itL = tempList.begin(); itL != tempList.end(); ++itL) {
ei.isExternal = itL->isExternal;
ei.hEvent = itL->hEvent;
if (GetEventData(ei, ed)) {
GetEventMessage(ei, str);
if (compFun->Compare(ed.isMe, str, strFind))
return true;
}
}
return false;
}
void EventList::InitNames()
{
TCHAR str[200];
if (hContact) {
_tcscpy_s(contactName, 256, (TCHAR*)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM) hContact, GCDNF_TCHAR ));
mir_sntprintf(str,200,TranslateT("History for %s"),contactName);
}
else {
_tcscpy_s(contactName, 256, TranslateT("System"));
mir_sntprintf(str,200,TranslateT("History"));
}
if (isWnd)
SetWindowText(hWnd,str);
_tcscpy_s(myName, GetMyName().c_str());
}
void EventList::AddGroup(const EventIndex& ev)
{
EventData data;
GetEventData(ev, data);
TCHAR eventText[256];
int i;
eventText[0] = 0;
tmi.printTimeStamp(NULL, data.timestamp, _T("d t"), eventText, 64, 0);
std::wstring time = eventText;
std::wstring user;
if (data.isMe)
user = myName;
else
user = contactName;
GetEventMessage(ev, eventText, 256);
for (i = 0; eventText[i] != 0 && eventText[i] != _T('\r') && eventText[i] != _T('\n'); ++i);
eventText[i] = 0;
if (i > Options::instance->groupMessageLen) {
eventText[Options::instance->groupMessageLen - 3] = '.';
eventText[Options::instance->groupMessageLen - 2] = '.';
eventText[Options::instance->groupMessageLen - 1] = '.';
eventText[Options::instance->groupMessageLen] = 0;
}
int ico = 0;
GetEventIcon(data.isMe, data.eventType, ico);
AddGroup(data.isMe, time, user, eventText, ico);
}
std::wstring EventList::GetContactName()
{
if (hContact)
return (TCHAR*)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM) hContact, GCDNF_TCHAR );
return TranslateT("System");
}
void GetInfo(CONTACTINFO& ci, std::wstring& str)
{
if (!CallService(MS_CONTACT_GETCONTACTINFO, 0, (LPARAM)&ci)) {
if (ci.type == CNFT_ASCIIZ) {
str = ci.pszVal;
mir_free(ci.pszVal);
}
else if (ci.type == CNFT_DWORD) {
TCHAR buf[20];
_ltot_s(ci.dVal, buf, 10 );
str = buf;
}
else if (ci.type == CNFT_WORD) {
TCHAR buf[20];
_ltot_s(ci.wVal, buf, 10 );
str = buf;
}
}
}
std::wstring EventList::GetMyName()
{
std::wstring myName;
CONTACTINFO ci;
ZeroMemory(&ci, sizeof(ci));
ci.cbSize = sizeof(ci);
ci.szProto = GetContactProto(hContact);
ci.hContact = 0;
ci.dwFlag = CNF_DISPLAY | CNF_TCHAR;
GetInfo(ci, myName);
if (myName.empty())
return TranslateT("Me");
return myName;
}
inline std::wstring GetProtocolName(HANDLE hContact)
{
char* ac = (char *)CallService(MS_PROTO_GETCONTACTBASEACCOUNT, (WPARAM)hContact, 0);
std::wstring proto1;
if (ac != NULL) {
PROTOACCOUNT* acnt = ProtoGetAccount(ac);
if (acnt != NULL && acnt->szModuleName != NULL) {
wchar_t* proto = mir_a2u(acnt->szProtoName);
proto1 = proto;
mir_free(proto);
}
}
return proto1;
}
std::wstring EventList::GetProtocolName()
{
return ::GetProtocolName(hContact);
}
std::string EventList::GetBaseProtocol()
{
char* proto = GetContactProto(hContact);
return proto == NULL ? "" : proto;
}
std::wstring EventList::GetMyId()
{
std::wstring myId;
CONTACTINFO ci;
ZeroMemory(&ci, sizeof(ci));
ci.cbSize = sizeof(ci);
ci.szProto = GetContactProto(hContact);
ci.hContact = 0;
ci.dwFlag = CNF_DISPLAYUID | CNF_TCHAR;
GetInfo(ci, myId);
return myId;
}
inline std::wstring GetContactId(HANDLE hContact)
{
std::wstring id;
CONTACTINFO ci;
ZeroMemory(&ci, sizeof(ci));
ci.cbSize = sizeof(ci);
ci.szProto = GetContactProto(hContact);
ci.hContact = hContact;
ci.dwFlag = CNF_DISPLAYUID | CNF_TCHAR;
GetInfo(ci, id);
return id;
}
std::wstring EventList::GetContactId()
{
return ::GetContactId(hContact);
}
static void GetMessageDescription( DBEVENTINFO *dbei, TCHAR* buf, int cbBuf )
{
TCHAR* msg = DbGetEventTextT( dbei, CP_ACP );
_tcsncpy_s(buf, cbBuf, msg ? msg : TranslateT("Invalid Message"), cbBuf - 1 );
buf[ cbBuf-1 ] = 0;
mir_free( msg );
}
static void GetAuthRequestDescription( DBEVENTINFO *dbei, TCHAR* buf, int cbBuf )
{
std::wstring allName;
buf[0] = 0;
size_t pos = sizeof(DWORD)*2;
if (pos >= dbei->cbBlob)
return;
PDWORD evDwords = (PDWORD)dbei->pBlob;
DWORD uin = evDwords[0];
HANDLE hContact = (HANDLE)evDwords[1];
char* nick, *firstName, *lastName, *jid, *reason;
nick = (char*)&evDwords[2];
pos += strnlen_s(nick, dbei->cbBlob - pos) + 1;
if (pos >= dbei->cbBlob)
return;
firstName = ( char* )dbei->pBlob + pos;
pos += strnlen_s(firstName, dbei->cbBlob - pos) + 1;
if (pos >= dbei->cbBlob)
return;
lastName = ( char* )dbei->pBlob + pos;
pos += strnlen_s(lastName, dbei->cbBlob - pos) + 1;
if (pos >= dbei->cbBlob)
return;
jid = (char*)dbei->pBlob + pos;
pos += strnlen_s(jid, dbei->cbBlob - pos) + 1;
if (pos >= dbei->cbBlob)
return;
reason = (char*)dbei->pBlob + pos;
TCHAR *newNick, *newFirstName, *newLastName, *newJid, *newReason;
if (dbei->flags & DBEF_UTF) {
newNick = mir_utf8decodeT( nick );
newFirstName = mir_utf8decodeT( firstName );
newLastName = mir_utf8decodeT( lastName );
newJid = mir_utf8decodeT( jid );
newReason = mir_utf8decodeT( reason );
}
else {
newNick = mir_a2t( nick );
newFirstName = mir_a2t( firstName );
newLastName = mir_a2t( lastName );
newJid = mir_a2t( jid );
newReason = mir_a2t( reason );
}
if (newFirstName[0] != 0) {
allName += newFirstName;
if (newLastName[0] != 0)
allName += _T(" ");
}
if (newLastName[0] != 0)
allName += newLastName;
if (!allName.empty())
allName += _T(", ");
if (newJid[0] != 0) {
allName += newJid;
allName += _T(", ");
}
mir_sntprintf(buf, cbBuf, TranslateT("Authorisation request by %s (%s%d): %s"),
(newNick[0] == 0 ? (TCHAR*)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM) hContact, GCDNF_TCHAR) : newNick),
allName.c_str(), uin, newReason);
mir_free( newNick );
mir_free( newFirstName );
mir_free( newLastName );
mir_free( newJid );
mir_free( newReason );
}
void EventList::GetObjectDescription( DBEVENTINFO *dbei, TCHAR* str, int cbStr )
{
switch(dbei->eventType) {
case EVENTTYPE_AUTHREQUEST:
GetAuthRequestDescription( dbei, str, cbStr );
break;
default:
GetMessageDescription( dbei, str, cbStr );
}
}
bool EventList::GetEventIcon(bool isMe, int eventType, int &id)
{
switch(eventType) {
case EVENTTYPE_MESSAGE:
id = isMe ? 1 : 0;
return true;
case EVENTTYPE_STATUSCHANGE:
id = 2;
return true;
case EVENTTYPE_FILE:
id = iconsNum;
return true;
case EVENTTYPE_URL:
id = iconsNum + 1;
return true;
case EVENTTYPE_AUTHREQUEST:
id = iconsNum + 2;
return true;
default:
id = isMe ? 1 : 0;
return false;
}
}
void EventList::ImportMessages(const std::vector& messages)
{
DWORD lastTime = 0;
importedMessages.clear();
for (int i = 0; i < (int)messages.size(); ++i) {
if (messages[i].timestamp >= lastTime) {
importedMessages.push_back(messages[i]);
lastTime = messages[i].timestamp;
}
else
{
assert(FALSE);
}
}
}
void EventList::MargeMessages(const std::vector& messages)
{
ImportMessages(messages);
std::list tempList;
GetTempList(tempList, true, false, hContact);
DBEVENTINFO dbei = { sizeof(dbei) };
dbei.szModule = GetContactProto(hContact);
CallService(MS_DB_SETSAFETYMODE, (WPARAM)FALSE, 0);
for (std::list::iterator it = tempList.begin(); it != tempList.end(); ++it) {
if (it->isExternal) {
IImport::ExternalMessage& msg = importedMessages[it->exIdx];
dbei.flags = msg.flags & (~(DBEF_FIRST));
dbei.flags |= DBEF_READ;
dbei.timestamp = msg.timestamp;
// For now I do not convert event data from string to blob, and event type must be message to handle it properly
dbei.eventType = EVENTTYPE_MESSAGE;
UINT cp = dbei.flags & DBEF_UTF ? CP_UTF8 : CP_ACP;
dbei.cbBlob = WideCharToMultiByte(cp, 0, msg.message.c_str(), (int)msg.message.length() + 1, NULL, 0, NULL, NULL);
char* buf = new char[dbei.cbBlob];
dbei.cbBlob = WideCharToMultiByte(cp, 0, msg.message.c_str(), (int)msg.message.length() + 1, buf, dbei.cbBlob, NULL, NULL);
dbei.pBlob = (PBYTE)buf;
db_event_add(hContact, &dbei);
delete buf;
}
}
CallService(MS_DB_SETSAFETYMODE, (WPARAM)TRUE, 0);
std::vector emessages;
ImportMessages(emessages);
}
bool EventList::GetEventData(const EventIndex& ev, EventData& data)
{
if (!ev.isExternal) {
DWORD newBlobSize = db_event_getBlobSize(ev.hEvent);
if (newBlobSize > goldBlobSize) {
gdbei.pBlob = (PBYTE)mir_realloc(gdbei.pBlob,newBlobSize);
goldBlobSize = newBlobSize;
}
gdbei.cbBlob = goldBlobSize;
if (db_event_get(ev.hEvent, &gdbei) == 0) {
data.isMe = (gdbei.flags & DBEF_SENT) != 0;
data.eventType = gdbei.eventType;
data.timestamp = gdbei.timestamp;
return true;
}
}
else if (ev.exIdx >= 0 && ev.exIdx < (int)importedMessages.size()) {
IImport::ExternalMessage& em = importedMessages[ev.exIdx];
data.isMe = (em.flags & DBEF_SENT) != 0;
data.eventType = em.eventType;
data.timestamp = em.timestamp;
return true;
}
return false;
}
void EventList::GetExtEventDBei(const EventIndex& ev)
{
IImport::ExternalMessage& em = importedMessages[ev.exIdx];
gdbei.flags = (em.flags & (~(DBEF_FIRST))) | 0x800;
gdbei.eventType = em.eventType;
gdbei.timestamp = em.timestamp;
}
HICON EventList::GetEventCoreIcon(const EventIndex& ev)
{
if (ev.isExternal)
return NULL;
HICON ico;
ico = (HICON)CallService(MS_DB_EVENT_GETICON, LR_SHARED, (LPARAM)&gdbei);
HICON icoMsg = LoadSkinnedIcon(SKINICON_EVENT_MESSAGE);
if (icoMsg == ico)
{
return NULL;
}
return ico;
}
void EventList::RebuildGroup(int selected)
{
std::deque newGroup;
for (size_t i = 0; i < eventList[selected].size(); ++i) {
EventIndex& ev = eventList[selected][i];
if (!ev.isExternal) {
// If event exist, we add it to new group
if (db_event_getBlobSize(ev.hEvent) >= 0)
newGroup.push_back(eventList[selected][i]);
}
else newGroup.push_back(eventList[selected][i]);
}
eventList[selected].clear();
eventList[selected].insert(eventList[selected].begin(), newGroup.begin(), newGroup.end());
}
CRITICAL_SECTION EventList::criticalSection;
std::map EventList::contactFileMap;
std::wstring EventList::contactFileDir;
void EventList::AddImporter(HANDLE hContact, IImport::ImportType type, const std::wstring& file)
{
EnterCriticalSection(&criticalSection);
TCHAR buf[32];
mir_sntprintf(buf, SIZEOF(buf), _T("%016llx"), (unsigned long long int)hContact);
std::wstring internalFile = contactFileDir;
ImportDiscData data;
data.file = contactFileDir + buf;
data.type = type;
CopyFile(file.c_str(), data.file.c_str(), FALSE);
contactFileMap[hContact] = data;
LeaveCriticalSection(&criticalSection);
}
void EventList::Init()
{
InitializeCriticalSection(&EventList::criticalSection);
TCHAR temp[MAX_PATH];
temp[0] = 0;
GetTempPath(MAX_PATH, temp);
contactFileDir = temp;
contactFileDir += L"BasicHistoryImportDir\\";
DeleteDirectory(contactFileDir.c_str());
CreateDirectory(contactFileDir.c_str(), NULL);
}
void EventList::Deinit()
{
DeleteCriticalSection(&EventList::criticalSection);
}
int EventList::GetContactMessageNumber(HANDLE hContact)
{
int count = db_event_count(hContact);
EnterCriticalSection(&criticalSection);
std::map::iterator it = contactFileMap.find(hContact);
if (it != contactFileMap.end())
++count;
LeaveCriticalSection(&criticalSection);
return count;
}
bool EventList::IsImportedHistory(HANDLE hContact)
{
bool count = false;
EnterCriticalSection(&criticalSection);
std::map::iterator it = contactFileMap.find(hContact);
if (it != contactFileMap.end())
count = true;
LeaveCriticalSection(&criticalSection);
return count;
}
void EventList::DeleteImporter(HANDLE hContact)
{
EnterCriticalSection(&criticalSection);
std::map::iterator it = contactFileMap.find(hContact);
if (it != contactFileMap.end()) {
DeleteFile(it->second.file.c_str());
contactFileMap.erase(it);
}
LeaveCriticalSection(&criticalSection);
}