void CreateGroup(char *group)
{
char *p = group;
char *sub = group;
CMStringA buf;
while ((p = strchr(sub, '\\')))
{
*p = 0;
if (!buf.IsEmpty())
buf.AppendChar('\\');
buf.Append(sub);
if (!availableGroups.Contains(buf))
AddNewGroup(buf);
*p++ = '\\';
sub = p;
}
if (sub) {
if (!buf.IsEmpty())
buf.AppendChar('\\');
buf.Append(sub);
if (!availableGroups.Contains(buf))
AddNewGroup(buf);
}
}
// do the compare("A","B","X","Y")
void checkStringForcompare(CMStringA &str)
{
if (!strstr(str, "compare(\"")) return;
char *A, *B, *X, *Y, *copyOfStr = NEWSTR_ALLOCA(str.c_str());
CMStringA tmp;
unsigned int i, j = 0, s = str.GetLength();
for (i = 0; i < s; i++) {
if (!strncmp(str.c_str()+i, "compare(\"", mir_strlen("compare(\""))) {
i += (int)mir_strlen("compare(\"");
A = strtok(©OfStr[i], "\",\"");
B = strtok(NULL, "\",\"");
X = strtok(NULL, "\",\"");
Y = strtok(NULL, ",\")");
j = Y - ©OfStr[i] + (int)mir_strlen(Y) + 1;
if (A && B && X && Y) {
if (!mir_strcmp(A, B))
tmp.Append(X);
else
tmp.Append(Y);
}
else tmp.Append(str.c_str()+i, j);
i += j;
}
else tmp.AppendChar(copyOfStr[i]);
}
str = tmp;
}
// do load("A") A is DBVar name
void checkStringForLoad(MCONTACT hContact, CMStringA &str)
{
if (!strstr(str, "load(\"")) return;
char *A, *copyOfStr = NEWSTR_ALLOCA(str.c_str());
unsigned int i, j = 0, s = str.GetLength();
CMStringA tmp;
for (i = 0; i < s; i++) {
if (!strncmp(str.c_str()+i, "load(\"", mir_strlen("load(\""))) {
i += (int)mir_strlen("load(\"");
A = strtok(©OfStr[i], "\")");
j = A - ©OfStr[i] + (int)mir_strlen(A) + 1;
if (A) {
DBVARIANT dbv;
if (!db_get_s(hContact, MODNAME, A, &dbv)) {
tmp.Append(dbv.pszVal);
db_free(&dbv);
}
}
else tmp.Append(str.c_str()+i, j);
i += j;
}
else tmp.AppendChar(copyOfStr[i]);
}
str = tmp;
}
static void AppendPlainUnicode(CMStringA &buf, const TCHAR *str)
{
for (; *str; str++) {
if (*str < 128)
buf.AppendChar((char)*str);
else
buf.AppendFormat("\\u%d ?", *str);
}
}
void CVkProto::PollUpdates(JSONNODE *pUpdates)
{
debugLogA("CVkProto::PollUpdates");
CMStringA mids;
int msgid, uid, flags;
MCONTACT hContact;
JSONNODE *pChild;
for (int i = 0; (pChild = json_at(pUpdates, i)) != NULL; i++) {
switch (json_as_int(json_at(pChild, 0))) {
case VKPOLL_MSG_ADDED: // new message
msgid = json_as_int(json_at(pChild, 1));
// skip outgoing messages sent from a client
flags = json_as_int(json_at(pChild, 2));
if ((flags & VKFLAG_MSGOUTBOX) && !(flags & VKFLAG_MSGCHAT))
if (CheckMid(msgid))
break;
if (!mids.IsEmpty())
mids.AppendChar(',');
mids.AppendFormat("%d", msgid);
break;
case VKPOLL_USR_ONLINE:
uid = -json_as_int(json_at(pChild, 1));
if ((hContact = FindUser(uid)) != NULL)
setWord(hContact, "Status", ID_STATUS_ONLINE);
break;
case VKPOLL_USR_OFFLINE:
uid = -json_as_int(json_at(pChild, 1));
if ((hContact = FindUser(uid)) != NULL)
setWord(hContact, "Status", ID_STATUS_OFFLINE);
break;
case VKPOLL_USR_UTN:
uid = json_as_int(json_at(pChild, 1));
if ((hContact = FindUser(uid)) != NULL)
CallService(MS_PROTO_CONTACTISTYPING, hContact, 5);
break;
case VKPOLL_CHAT_CHANGED:
int chat_id = json_as_int(json_at(pChild, 1));
CVkChatInfo *cc = m_chats.find((CVkChatInfo*)&chat_id);
if (cc)
RetrieveChatInfo(cc);
break;
}
}
RetrieveMessagesByIds(mids);
}
// do saveN("A","B","C","D") A is module, B is setting, c is value, D is type 0/b 1/w 2/d 3/s
void checkStringForSaveN(CMStringA &str)
{
if (!strstr(str, "saveN(\"")) return;
char *A, *B, *C, *D, *copyOfStr = NEWSTR_ALLOCA(str.c_str());
unsigned int i, j = 0, s = str.GetLength();
CMStringA tmp;
for (i = 0; i < s; i++) {
if (!strncmp(str.c_str()+i, "saveN(\"", mir_strlen("saveN(\""))) {
i += (int)mir_strlen("saveN(\"");
A = strtok(©OfStr[i], "\",\"");
B = strtok(NULL, ",\"");
C = strtok(NULL, ",\"");
D = strtok(NULL, ",\")");
j = D - ©OfStr[i] + (int)mir_strlen(D) + 1;
if (A && B && C && D) {
switch (D[0]) {
case '0':
case 'b':
db_set_b(NULL, A, B, (BYTE)atoi(C));
break;
case '1':
case 'w':
db_set_w(NULL, A, B, (WORD)atoi(C));
break;
case '2':
case 'd':
db_set_dw(NULL, A, B, (DWORD)atoi(C));
break;
case '3':
case 's':
db_set_s(NULL, A, B, C);
break;
}
}
else tmp.Append(str.c_str()+i, j);
i += j;
}
else tmp.AppendChar(copyOfStr[i]);
}
str = tmp;
}
// do save("A","B") A is DBVar name, B is value
void checkStringForSave(MCONTACT hContact, CMStringA &str)
{
if (!strstr(str, "save(\"")) return;
char *A, *B, *copyOfStr = NEWSTR_ALLOCA(str.c_str());
unsigned int i, j = 0, s = str.GetLength();
CMStringA tmp;
for (i = 0; i < s; i++) {
if (!strncmp(str.c_str()+i, "save(\"", mir_strlen("save(\""))) {
i += (int)mir_strlen("save(\"");
A = strtok(©OfStr[i], "\",\"");
B = strtok(NULL, ",\")");
j = B - ©OfStr[i] + (int)mir_strlen(B) + 1;
if (A && B)
db_set_s(hContact, MODNAME, A, B);
else tmp.Append(str.c_str()+i, j);
i += j;
}
else tmp.AppendChar(copyOfStr[i]);
}
str = tmp;
}
// do loadN("A","B") A is module, B is setting
void checkStringForLoadN(CMStringA &str)
{
if (!strstr(str, "loadN(\"")) return;
char *copyOfStr = NEWSTR_ALLOCA(str.c_str()), temp[32];
unsigned int i, j = 0, s = str.GetLength();
CMStringA tmp;
for (i = 0; i < s; i++) {
if (!strncmp(str.c_str()+i, "loadN(\"", mir_strlen("loadN(\""))) {
i += (int)mir_strlen("loadN(\"");
char *A = strtok(©OfStr[i], "\",\"");
char *B = strtok(NULL, ",\")");
if (A && B) {
j = B - ©OfStr[i] + (int)mir_strlen(B) + 1;
DBVARIANT dbv;
if (!db_get(NULL, A, B, &dbv)) {
switch (dbv.type) {
case DBVT_BYTE:
tmp.Append(_itoa(dbv.bVal, temp, 10));
break;
case DBVT_WORD:
tmp.Append(_itoa(dbv.wVal, temp, 10));
break;
case DBVT_DWORD:
tmp.Append(_itoa(dbv.dVal, temp, 10));
break;
case DBVT_ASCIIZ:
tmp.Append(dbv.pszVal);
break;
}
db_free(&dbv);
}
}
else tmp.Append(str.c_str()+i, i);
i += j;
}
else tmp.AppendChar(copyOfStr[i]);
}
str = tmp;
}
void CVkGCCreateForm::btnOk_OnOk(CCtrlButton*)
{
CMStringA szUIds;
for (MCONTACT hContact = db_find_first(m_proto->m_szModuleName); hContact; hContact = db_find_next(hContact, m_proto->m_szModuleName)) {
if (m_proto->isChatRoom(hContact))
continue;
HANDLE hItem = m_clCList.FindContact(hContact);
if (hItem && m_clCList.GetCheck(hItem)) {
int uid = m_proto->getDword(hContact, "ID");
if (uid != 0) {
if (!szUIds.IsEmpty())
szUIds.AppendChar(',');
szUIds.AppendFormat("%d", uid);
}
}
}
bool bRes = !szUIds.IsEmpty();
if (bRes)
m_proto->CreateNewChat(szUIds, ptrT(m_edtTitle.GetText()));
EndDialog(m_hwnd, bRes);
}
HWND GGPROTO::SearchAdvanced(HWND hwndDlg)
{
// Check if connected
if (!isonline())
return 0;
gg_pubdir50_t req = gg_pubdir50_new(GG_PUBDIR50_SEARCH);
if (!req)
{
#ifdef DEBUGMODE
debugLogA("SearchAdvanced(): ForkThread 14 GGPROTO::searchthread");
#endif
ForkThread(&GGPROTO::searchthread, NULL);
return (HWND)1;
}
CMStringA szQuery;
// Fetch search data
TCHAR text[64];
GetDlgItemText(hwndDlg, IDC_FIRSTNAME, text, _countof(text));
if (mir_tstrlen(text))
{
T2Utf firstName_utf8(text);
gg_pubdir50_add(req, GG_PUBDIR50_FIRSTNAME, firstName_utf8);
szQuery.Append(firstName_utf8);
}
/* 1 */ szQuery.AppendChar('.');
GetDlgItemText(hwndDlg, IDC_LASTNAME, text, _countof(text));
if (mir_tstrlen(text))
{
T2Utf lastName_utf8(text);
gg_pubdir50_add(req, GG_PUBDIR50_LASTNAME, lastName_utf8);
szQuery.Append(lastName_utf8);
}
/* 2 */ szQuery.AppendChar('.');
GetDlgItemText(hwndDlg, IDC_NICKNAME, text, _countof(text));
if (mir_tstrlen(text))
{
T2Utf nickName_utf8(text);
gg_pubdir50_add(req, GG_PUBDIR50_NICKNAME, nickName_utf8);
szQuery.Append(nickName_utf8);
}
/* 3 */ szQuery.AppendChar('.');
GetDlgItemText(hwndDlg, IDC_CITY, text, _countof(text));
if (mir_tstrlen(text))
{
T2Utf city_utf8(text);
gg_pubdir50_add(req, GG_PUBDIR50_CITY, city_utf8);
szQuery.Append(city_utf8);
}
/* 4 */ szQuery.AppendChar('.');
GetDlgItemText(hwndDlg, IDC_AGEFROM, text, _countof(text));
if (mir_tstrlen(text))
{
int yearTo = _tstoi(text);
int yearFrom;
time_t t = time(NULL);
struct tm *lt = localtime(&t);
int ay = lt->tm_year + 1900;
char age[16];
GetDlgItemTextA(hwndDlg, IDC_AGETO, age, _countof(age));
yearFrom = atoi(age);
// Count & fix ranges
if (!yearTo)
yearTo = ay;
else
yearTo = ay - yearTo;
if (!yearFrom)
yearFrom = 0;
else
yearFrom = ay - yearFrom;
mir_sntprintf(text, _T("%d %d"), yearFrom, yearTo);
T2Utf age_utf8(text);
gg_pubdir50_add(req, GG_PUBDIR50_BIRTHYEAR, age_utf8);
szQuery.Append(age_utf8);
}
/* 5 */ szQuery.AppendChar('.');
switch(SendDlgItemMessage(hwndDlg, IDC_GENDER, CB_GETCURSEL, 0, 0))
{
case 1:
gg_pubdir50_add(req, GG_PUBDIR50_GENDER, GG_PUBDIR50_GENDER_FEMALE);
szQuery.Append(GG_PUBDIR50_GENDER_MALE);
break;
case 2:
gg_pubdir50_add(req, GG_PUBDIR50_GENDER, GG_PUBDIR50_GENDER_MALE);
szQuery.Append(GG_PUBDIR50_GENDER_FEMALE);
break;
}
/* 6 */ szQuery.AppendChar('.');
if (IsDlgButtonChecked(hwndDlg, IDC_ONLYCONNECTED))
{
gg_pubdir50_add(req, GG_PUBDIR50_ACTIVE, GG_PUBDIR50_ACTIVE_TRUE);
szQuery.Append(GG_PUBDIR50_ACTIVE_TRUE);
}
/* 7 */ szQuery.AppendChar('.');
// No data entered
if (szQuery.GetLength() <= 7 || (szQuery.GetLength() == 8 && IsDlgButtonChecked(hwndDlg, IDC_ONLYCONNECTED)))
return 0;
// Count crc & check if the data was equal if yes do same search with shift
unsigned long crc = crc_get(szQuery.GetBuffer());
if (crc == last_crc && next_uin)
gg_pubdir50_add(req, GG_PUBDIR50_START, ditoa(next_uin));
else
last_crc = crc;
gg_pubdir50_seq_set(req, GG_SEQ_SEARCH);
if (isonline())
{
gg_EnterCriticalSection(&sess_mutex, "SearchAdvanced", 52, "sess_mutex", 1);
if (!gg_pubdir50(sess, req))
{
gg_LeaveCriticalSection(&sess_mutex, "SearchAdvanced", 52, 1, "sess_mutex", 1);
#ifdef DEBUGMODE
debugLogA("SearchAdvanced(): ForkThread 15 GGPROTO::searchthread");
#endif
ForkThread(&GGPROTO::searchthread, NULL);
return (HWND)1;
}
gg_LeaveCriticalSection(&sess_mutex, "SearchAdvanced", 52, 2, "sess_mutex", 1);
}
debugLogA("SearchAdvanced(): Seq %d.", req->seq);
gg_pubdir50_free(req);
return (HWND)1;
}
void CVkProto::OnReceiveMessages(NETLIBHTTPREQUEST *reply, AsyncHttpRequest *pReq)
{
debugLogA("CVkProto::OnReceiveMessages %d", reply->resultCode);
if (reply->resultCode != 200)
return;
JSONNode jnRoot;
const JSONNode &jnResponse = CheckJsonResponse(pReq, reply, jnRoot);
if (!jnResponse)
return;
if (!jnResponse["Msgs"])
return;
CMStringA mids;
int numMessages = jnResponse["Msgs"]["count"].as_int();
const JSONNode &jnMsgs = jnResponse["Msgs"]["items"];
const JSONNode &jnFUsers = jnResponse["fwd_users"];
debugLogA("CVkProto::OnReceiveMessages numMessages = %d", numMessages);
for (auto it = jnMsgs.begin(); it != jnMsgs.end(); ++it) {
const JSONNode &jnMsg = (*it);
if (!jnMsg) {
debugLogA("CVkProto::OnReceiveMessages pMsg == NULL");
break;
}
UINT mid = jnMsg["id"].as_int();
CMString tszBody(jnMsg["body"].as_mstring());
int datetime = jnMsg["date"].as_int();
int isOut = jnMsg["out"].as_int();
int isRead = jnMsg["read_state"].as_int();
int uid = jnMsg["user_id"].as_int();
const JSONNode &jnFwdMessages = jnMsg["fwd_messages"];
if (jnFwdMessages) {
CMString tszFwdMessages = GetFwdMessages(jnFwdMessages, jnFUsers, m_vkOptions.BBCForAttachments());
if (!tszBody.IsEmpty())
tszFwdMessages = _T("\n") + tszFwdMessages;
tszBody += tszFwdMessages;
}
CMString tszAttachmentDescr;
const JSONNode &jnAttachments = jnMsg["attachments"];
if (jnAttachments) {
tszAttachmentDescr = GetAttachmentDescr(jnAttachments, m_vkOptions.BBCForAttachments());
if (!tszBody.IsEmpty())
tszBody += _T("\n");
tszBody += tszAttachmentDescr;
}
MCONTACT hContact = NULL;
int chat_id = jnMsg["chat_id"].as_int();
if (chat_id == 0)
hContact = FindUser(uid, true);
char szMid[40];
_itoa(mid, szMid, 10);
if (m_vkOptions.iMarkMessageReadOn == MarkMsgReadOn::markOnReceive || chat_id != 0) {
if (!mids.IsEmpty())
mids.AppendChar(',');
mids.Append(szMid);
}
if (chat_id != 0) {
debugLogA("CVkProto::OnReceiveMessages chat_id != 0");
CMString action_chat = jnMsg["action"].as_mstring();
int action_mid = _ttoi(jnMsg["action_mid"].as_mstring());
if ((action_chat == "chat_kick_user") && (action_mid == m_myUserId))
KickFromChat(chat_id, uid, jnMsg, jnFUsers);
else {
MCONTACT chatContact = FindChat(chat_id);
if (chatContact && getBool(chatContact, "kicked", true))
db_unset(chatContact, m_szModuleName, "kicked");
AppendChatMessage(chat_id, jnMsg, jnFUsers, false);
}
continue;
}
PROTORECVEVENT recv = { 0 };
bool bUseServerReadFlag = m_vkOptions.bSyncReadMessageStatusFromServer ? true : !m_vkOptions.bMesAsUnread;
if (isRead && bUseServerReadFlag)
recv.flags |= PREF_CREATEREAD;
if (isOut)
recv.flags |= PREF_SENT;
else if (m_vkOptions.bUserForceInvisibleOnActivity && time(NULL) - datetime < 60 * m_vkOptions.iInvisibleInterval)
SetInvisible(hContact);
T2Utf pszBody(tszBody);
recv.timestamp = m_vkOptions.bUseLocalTime ? time(NULL) : datetime;
recv.szMessage = pszBody;
recv.lParam = isOut;
recv.pCustomData = szMid;
recv.cbCustomDataSize = (int)mir_strlen(szMid);
Sleep(100);
debugLogA("CVkProto::OnReceiveMessages mid = %d, datetime = %d, isOut = %d, isRead = %d, uid = %d", mid, datetime, isOut, isRead, uid);
if (!CheckMid(m_sendIds, mid)) {
debugLogA("CVkProto::OnReceiveMessages ProtoChainRecvMsg");
ProtoChainRecvMsg(hContact, &recv);
if (mid > getDword(hContact, "lastmsgid", -1))
setDword(hContact, "lastmsgid", mid);
if (!isOut)
m_incIds.insert((HANDLE)mid);
}
else if (m_vkOptions.bLoadSentAttachments && !tszAttachmentDescr.IsEmpty() && isOut) {
T2Utf pszAttach(tszAttachmentDescr);
recv.timestamp = time(NULL); // only local time
recv.szMessage = pszAttach;
ProtoChainRecvMsg(hContact, &recv);
}
}
if (!mids.IsEmpty())
MarkMessagesRead(mids);
}
// add prefix to sent messages
int OnDatabaseEventPreAdd(WPARAM hContact, LPARAM lParam)
{
if (!options.prefix_messages || !lParam)
return 0;
DBEVENTINFO *dbei = (DBEVENTINFO *)lParam;
if ((dbei->eventType != EVENTTYPE_MESSAGE) || !(dbei->flags & DBEF_SENT) || (dbei->flags & DBEF_OTR_PREFIXED))
return 0;
if (dbei->cbBlob == 0 || dbei->pBlob == 0)
return 0; // just to be safe
const char *proto = GetContactProto(hContact);
if (!proto)
return 0;
if (db_get_b(hContact, proto, "ChatRoom", 0) == 1)
return 0;
if (mir_strcmp(proto, META_PROTO) == 0) {
hContact = db_mc_getMostOnline(hContact);
if (!hContact)
return 0;
proto = GetContactProto(hContact);
if (!proto)
return 0;
}
ConnContext *context = otrl_context_find_miranda(otr_user_state, hContact);
bool encrypted = otr_context_get_trust(context) != TRUST_NOT_PRIVATE;
if (!encrypted)
return 0;
DBEVENTINFO my_dbei = *dbei; // copy the other event
char *msg = (char*)dbei->pBlob;
int msgLen = (int)strlen(msg);
int prefixlen = (int)strnlen(options.prefix, 64);
if (strncmp(msg, options.prefix, prefixlen) == 0)
return 0;
// check for additional data presence
int datalen = dbei->cbBlob - msgLen;
if (datalen < 0)
datalen = 0;
CMStringA buf;
buf.Append(options.prefix, prefixlen);
buf.Append(msg);
// append additional data
if (datalen) {
buf.AppendChar(0);
buf.Append(msg + msgLen + 1, datalen);
}
my_dbei.pBlob = (BYTE*)buf.GetBuffer();
my_dbei.cbBlob = (int)buf.GetLength();
my_dbei.flags |= DBEF_OTR_PREFIXED;
db_event_add(hContact, &my_dbei);
// stop original event from being added
return 1;
}
static char* Log_CreateRTF(LOGSTREAMDATA *streamData)
{
LOGINFO *lin = streamData->lin;
MODULEINFO *mi = pci->MM_FindModule(streamData->si->pszModule);
// ### RTF HEADER
if (0 == mi->pszHeader)
mi->pszHeader = Log_CreateRtfHeader(mi);
char *header = mi->pszHeader;
streamData->crCount = mi->nColorCount;
CMStringA str;
if (header)
str.Append(header);
// ### RTF BODY (one iteration per event that should be streamed in)
while (lin) {
// filter
if ((streamData->si->iType != GCW_CHATROOM && streamData->si->iType != GCW_PRIVMESS) || !streamData->si->bFilterEnabled || (streamData->si->iLogFilterFlags & lin->iType) != 0) {
if (lin->next != NULL)
str.Append("\\par ");
if (streamData->dat->dwFlags & MWF_DIVIDERWANTED || lin->dwFlags & MWF_DIVIDERWANTED) {
static char szStyle_div[128] = "\0";
if (szStyle_div[0] == 0)
mir_snprintf(szStyle_div, "\\f%u\\cf%u\\ul0\\b%d\\i%d\\fs%u", 17, 18, 0, 0, 5);
lin->dwFlags |= MWF_DIVIDERWANTED;
if (lin->prev || !streamData->bRedraw)
str.AppendFormat("\\qc\\sl-1\\highlight%d %s ---------------------------------------------------------------------------------------\\par ", 18, szStyle_div);
streamData->dat->dwFlags &= ~MWF_DIVIDERWANTED;
}
// create new line, and set font and color
str.AppendFormat("\\ql\\sl0%s ", pci->Log_SetStyle(0));
str.AppendFormat("\\v~-+%d+-~\\v0 ", lin);
// Insert icon
if (g_Settings.bLogSymbols) // use symbols
str.AppendFormat("%s %c", pci->Log_SetStyle(17), EventToSymbol(lin));
else if (g_Settings.dwIconFlags) {
int iIndex = lin->bIsHighlighted ? ICON_HIGHLIGHT : EventToIcon(lin);
str.Append("\\f0\\fs14");
str.AppendFormat(pci->pLogIconBmpBits[iIndex], (int)pci->logIconBmpSize[iIndex]);
}
if (g_Settings.bTimeStampEventColour) {
// colored timestamps
static char szStyle[256];
LOGFONT &F = pci->aFonts[0].lf;
int iii;
if (lin->ptszNick && lin->iType == GC_EVENT_MESSAGE) {
iii = lin->bIsHighlighted ? 16 : (lin->bIsMe ? 2 : 1);
mir_snprintf(szStyle, "\\f0\\cf%u\\ul0\\highlight0\\b%d\\i%d\\ul%d\\fs%u",
iii + 1, F.lfWeight >= FW_BOLD ? 1 : 0, F.lfItalic, F.lfUnderline, 2 * abs(F.lfHeight) * 74 / pci->logPixelSY);
str.Append(szStyle);
}
else {
iii = lin->bIsHighlighted ? 16 : EventToIndex(lin);
mir_snprintf(szStyle, "\\f0\\cf%u\\ul0\\highlight0\\b%d\\i%d\\ul%d\\fs%u",
iii + 1, F.lfWeight >= FW_BOLD ? 1 : 0, F.lfItalic, F.lfUnderline, 2 * abs(F.lfHeight) * 74 / pci->logPixelSY);
str.Append(szStyle);
}
}
else str.Append(pci->Log_SetStyle(0));
str.AppendChar(' ');
// insert a TAB if necessary to put the timestamp in the right position
if (g_Settings.dwIconFlags)
str.Append("\\tab ");
//insert timestamp
if (g_Settings.bShowTime) {
TCHAR szTimeStamp[30], szOldTimeStamp[30];
_tcsncpy_s(szTimeStamp, pci->MakeTimeStamp(g_Settings.pszTimeStamp, lin->time), _TRUNCATE);
_tcsncpy_s(szOldTimeStamp, pci->MakeTimeStamp(g_Settings.pszTimeStamp, streamData->si->LastTime), _TRUNCATE);
if (!g_Settings.bShowTimeIfChanged || streamData->si->LastTime == 0 || mir_tstrcmp(szTimeStamp, szOldTimeStamp)) {
streamData->si->LastTime = lin->time;
Log_AppendRTF(streamData, TRUE, str, _T("%s"), szTimeStamp);
}
str.Append("\\tab ");
}
// Insert the nick
if (lin->ptszNick && lin->iType == GC_EVENT_MESSAGE) {
char pszIndicator[3] = "\0\0";
int crNickIndex = 0;
if (g_Settings.bLogClassicIndicators || g_Settings.bColorizeNicksInLog)
pszIndicator[0] = GetIndicator(streamData->si, lin->ptszNick, &crNickIndex);
str.Append(pci->Log_SetStyle(lin->bIsMe ? 2 : 1));
str.AppendChar(' ');
if (g_Settings.bLogClassicIndicators)
str.Append(pszIndicator);
CMString pszTemp(lin->bIsMe ? g_Settings.pszOutgoingNick : g_Settings.pszIncomingNick);
pszTemp.Replace(_T("%n"), _T("%s"));
if (!lin->bIsMe) {
if (g_Settings.bClickableNicks)
pszTemp.Replace(_T("%s"), _T("~~++#%s#++~~"));
if (g_Settings.bColorizeNicksInLog && pszIndicator[0])
str.AppendFormat("\\cf%u ", OPTIONS_FONTCOUNT + streamData->crCount + crNickIndex);
}
Log_AppendRTF(streamData, TRUE, str, pszTemp, lin->ptszNick);
str.AppendChar(' ');
}
// Insert the message
str.Append(pci->Log_SetStyle(lin->bIsHighlighted ? 16 : EventToIndex(lin)));
str.AppendChar(' ');
streamData->lin = lin;
AddEventToBuffer(str, streamData);
}
lin = lin->prev;
}
// ### RTF END
if (streamData->bRedraw)
str.Append("\\par}");
else
str.Append("}");
return str.Detach();
}
static void Log_AppendRTF(LOGSTREAMDATA *streamData, BOOL simpleMode, CMStringA &str, const TCHAR *fmt, ...)
{
int textCharsCount = 0;
TCHAR *line = (TCHAR*)_alloca(8001 * sizeof(TCHAR));
va_list va;
va_start(va, fmt);
int lineLen = mir_vsntprintf(line, 8000, fmt, va);
if (lineLen < 0)
lineLen = 8000;
line[lineLen] = 0;
va_end(va);
CMStringA res;
for (; *line; line++, textCharsCount++) {
if (*line == '\r' && line[1] == '\n') {
res.Append("\\par ");
line++;
}
else if (*line == '\n') {
res.Append("\\line ");
}
else if (*line == '%' && !simpleMode) {
char szTemp[200]; szTemp[0] = '\0';
switch (*++line) {
case '\0':
case '%':
res.AppendChar('%');
break;
case 'c':
case 'f':
if (g_Settings.bStripFormat || streamData->bStripFormat)
line += 2;
else if (line[1] != '\0' && line[2] != '\0') {
TCHAR szTemp3[3], c = *line;
int col;
szTemp3[0] = line[1];
szTemp3[1] = line[2];
szTemp3[2] = '\0';
line += 2;
col = _ttoi(szTemp3);
col += (OPTIONS_FONTCOUNT + 1);
res.AppendFormat((c == 'c') ? "\\cf%u " : "\\highlight%u ", col);
}
break;
case 'C':
case 'F':
if (!g_Settings.bStripFormat && !streamData->bStripFormat) {
int j = streamData->lin->bIsHighlighted ? 16 : EventToIndex(streamData->lin);
if (*line == 'C')
res.AppendFormat("\\cf%u ", j + 1);
else
res.Append("\\highlight0 ");
}
break;
case 'b':
case 'u':
case 'i':
if (!streamData->bStripFormat)
res.AppendFormat((*line == 'u') ? "\\%cl " : "\\%c ", *line);
break;
case 'B':
case 'U':
case 'I':
if (!streamData->bStripFormat)
res.AppendFormat((*line == 'U') ? "\\%cl0 " : "\\%c0 ", tolower(*line));
break;
case 'r':
if (!streamData->bStripFormat) {
int index = EventToIndex(streamData->lin);
res.AppendFormat("%s ", pci->Log_SetStyle(index));
}
break;
}
}
else if (*line == '\t' && !streamData->bStripFormat) {
res.Append("\\tab ");
}
else if ((*line == '\\' || *line == '{' || *line == '}') && !streamData->bStripFormat) {
res.AppendChar('\\');
res.AppendChar(*line);
}
else if (*line > 0 && *line < 128) {
res.AppendChar((char)*line);
}
else res.AppendFormat("\\u%u ?", (WORD)* line);
}
str += res;
}
static INT_PTR CALLBACK GcCreateDlgProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
CVkProto *ppro = (CVkProto*)GetWindowLongPtr(hwndDlg, GWLP_USERDATA);
NMCLISTCONTROL* nmc;
switch (msg) {
case WM_INITDIALOG:
TranslateDialogDefault(hwndDlg);
ppro = (CVkProto*)lParam;
SetWindowLongPtr(hwndDlg, GWLP_USERDATA, lParam);
{
HWND hwndClist = GetDlgItem(hwndDlg, IDC_CLIST);
SetWindowLongPtr(hwndClist, GWL_STYLE,
GetWindowLongPtr(hwndClist, GWL_STYLE) | CLS_CHECKBOXES | CLS_HIDEEMPTYGROUPS | CLS_USEGROUPS | CLS_GREYALTERNATE | CLS_GROUPCHECKBOXES);
SendMessage(hwndClist, CLM_SETEXSTYLE, CLS_EX_DISABLEDRAGDROP | CLS_EX_TRACKSELECT, 0);
ResetOptions(hwndDlg);
}
return TRUE;
case WM_NOTIFY:
nmc = (NMCLISTCONTROL*)lParam;
if (nmc->hdr.idFrom == IDC_CLIST && nmc->hdr.code == CLN_LISTREBUILT)
FilterContacts(hwndDlg, ppro);
break;
case WM_COMMAND:
switch (LOWORD(wParam)) {
case IDCANCEL:
EndDialog(hwndDlg, 0);
return TRUE;
case IDOK:
HWND hwndClist = GetDlgItem(hwndDlg, IDC_CLIST);
CMStringA uids;
for (HANDLE hContact = db_find_first(ppro->m_szModuleName); hContact; hContact = db_find_next(hContact, ppro->m_szModuleName)) {
if (ppro->isChatRoom(hContact))
continue;
if (int hItem = SendMessage(hwndClist, CLM_FINDCONTACT, (WPARAM)hContact, 0)) {
if (SendMessage(hwndClist, CLM_GETCHECKMARK, (WPARAM)hItem, 0)) {
int uid = ppro->getDword(hContact, "ID", 0);
if (uid != NULL) {
if (!uids.IsEmpty())
uids.AppendChar(',');
uids.AppendFormat("%d", uid);
}
}
}
}
TCHAR tszTitle[1024];
GetDlgItemText(hwndDlg, IDC_TITLE, tszTitle, SIZEOF(tszTitle));
ppro->CreateNewChat(uids, tszTitle);
EndDialog(hwndDlg, 0);
return TRUE;
}
}
return FALSE;
}
static void AppendToBufferWithRTF(CMStringA &buf, const TCHAR *line)
{
if (line == NULL)
return;
buf.Append("{\\uc1 ");
for (; *line; line++) {
if (*line == '\r' && line[1] == '\n') {
buf.Append("\\par ");
line++;
}
else if (*line == '\n') {
buf.Append("\\par ");
}
else if (*line == '\t') {
buf.Append("\\tab ");
}
else if (*line == '\\' || *line == '{' || *line == '}') {
buf.AppendChar('\\');
buf.AppendChar(*line);
}
else if (*line == '[' && (g_dat.flags & SMF_SHOWFORMAT)) {
int i, found = 0;
for (i = 0; i < _countof(bbcodes); ++i) {
if (line[1] == bbcodes[i][1]) {
size_t lenb = mir_tstrlen(bbcodes[i]);
if (!_tcsnicmp(line, bbcodes[i], lenb)) {
buf.Append(bbcodefmt[i]);
line += lenb - 1;
found = 1;
break;
}
}
}
if (!found) {
if (!_tcsnicmp(line, _T("[url"), 4)) {
const TCHAR* tag = _tcschr(line + 4, ']');
if (tag) {
const TCHAR *tagu = (line[4] == '=') ? line + 5 : tag + 1;
const TCHAR *tage = _tcsstr(tag, _T("[/url]"));
if (!tage) tage = _tcsstr(tag, _T("[/URL]"));
if (tage) {
*(TCHAR*)tag = 0;
*(TCHAR*)tage = 0;
buf.Append("{\\field{\\*\\fldinst HYPERLINK \"");
AppendPlainUnicode(buf, tagu);
buf.Append("\"}{\\fldrslt ");
AppendPlainUnicode(buf, tag+1);
buf.Append("}}");
line = tage + 5;
found = 1;
}
}
}
else if (!_tcsnicmp(line, _T("[color="), 7)) {
const TCHAR* tag = _tcschr(line + 7, ']');
if (tag) {
line = tag;
found = 1;
}
}
else if (!_tcsnicmp(line, _T("[/color]"), 8)) {
line += 7;
found = 1;
}
}
if (!found) {
if (*line < 128)
buf.AppendChar((char)*line);
else
buf.AppendFormat("\\u%d ?", *line);
}
}
else if (*line < 128)
buf.AppendChar((char)*line);
else
buf.AppendFormat("\\u%d ?", *line);
}
buf.AppendChar('}');
}
HANDLE GGPROTO::SearchByName(const TCHAR *nick, const TCHAR *firstName, const TCHAR *lastName)
{
// Check if connected and if there's a search data
if (!isonline())
return 0;
if (!nick && !firstName && !lastName)
return 0;
gg_pubdir50_t req = gg_pubdir50_new(GG_PUBDIR50_SEARCH);
if (req == NULL) {
#ifdef DEBUGMODE
debugLogA("SearchByName(): ForkThread 12 GGPROTO::searchthread");
#endif
ForkThread(&GGPROTO::searchthread, NULL);
return (HANDLE)1;
}
// Add nick,firstName,lastName and search it
CMStringA szQuery;
if (nick)
{
T2Utf nick_utf8(nick);
gg_pubdir50_add(req, GG_PUBDIR50_NICKNAME, nick_utf8);
szQuery.Append(nick_utf8);
}
szQuery.AppendChar('.');
if (firstName)
{
T2Utf firstName_utf8(firstName);
gg_pubdir50_add(req, GG_PUBDIR50_FIRSTNAME, firstName_utf8);
szQuery.Append(firstName_utf8);
}
szQuery.AppendChar('.');
if (lastName)
{
T2Utf lastName_utf8(lastName);
gg_pubdir50_add(req, GG_PUBDIR50_LASTNAME, lastName_utf8);
szQuery.Append(lastName_utf8);
}
szQuery.AppendChar('.');
// Count crc & check if the data was equal if yes do same search with shift
unsigned long crc = crc_get(szQuery.GetBuffer());
if (crc == last_crc && next_uin)
gg_pubdir50_add(req, GG_PUBDIR50_START, ditoa(next_uin));
else
last_crc = crc;
gg_pubdir50_seq_set(req, GG_SEQ_SEARCH);
gg_EnterCriticalSection(&sess_mutex, "SearchByName", 51, "sess_mutex", 1);
if (!gg_pubdir50(sess, req))
{
gg_LeaveCriticalSection(&sess_mutex, "SearchByName", 51, 1, "sess_mutex", 1);
#ifdef DEBUGMODE
debugLogA("SearchByName(): ForkThread 13 GGPROTO::searchthread");
#endif
ForkThread(&GGPROTO::searchthread, NULL);
return (HANDLE)1;
}
gg_LeaveCriticalSection(&sess_mutex, "SearchByName", 51, 2, "sess_mutex", 1);
debugLogA("SearchByName(): Seq %d.", req->seq);
gg_pubdir50_free(req);
return (HANDLE)1;
}
void CVkProto::PollUpdates(const JSONNode &jnUpdates)
{
debugLogA("CVkProto::PollUpdates");
CMStringA mids;
int msgid, uid, flags, platform;
MCONTACT hContact;
for (auto it = jnUpdates.begin(); it != jnUpdates.end(); ++it) {
const JSONNode &jnChild = (*it).as_array();
switch (jnChild[json_index_t(0)].as_int()) {
case VKPOLL_MSG_DELFLAGS:
if (jnChild.size() < 4)
break;
msgid = jnChild[1].as_int();
flags = jnChild[2].as_int();
uid = jnChild[3].as_int();
hContact = FindUser(uid);
if (hContact != NULL && (flags & VKFLAG_MSGUNREAD) && !CheckMid(m_incIds, msgid)) {
setDword(hContact, "LastMsgReadTime", time(NULL));
if (ServiceExists(MS_MESSAGESTATE_UPDATE)) {
MessageReadData data(time(NULL), MRD_TYPE_READTIME);
CallService(MS_MESSAGESTATE_UPDATE, hContact, (LPARAM)&data);
}
else
SetSrmmReadStatus(hContact);
if (m_bUserForceOnlineOnActivity)
SetInvisible(hContact);
if (m_bSyncReadMessageStatusFromServer)
MarkDialogAsRead(hContact);
}
break;
case VKPOLL_MSG_ADDED: // new message
msgid = jnChild[1].as_int();
// skip outgoing messages sent from a client
flags = jnChild[2].as_int();
if (flags & VKFLAG_MSGOUTBOX && !(flags & VKFLAG_MSGCHAT) && CheckMid(m_sendIds, msgid))
break;
if (!mids.IsEmpty())
mids.AppendChar(',');
mids.AppendFormat("%d", msgid);
break;
case VKPOLL_READ_ALL_OUT:
uid = jnChild[1].as_int();
hContact = FindUser(uid);
if (hContact != NULL) {
setDword(hContact, "LastMsgReadTime", time(NULL));
if (ServiceExists(MS_MESSAGESTATE_UPDATE)) {
MessageReadData data(time(NULL), MRD_TYPE_READTIME);
CallService(MS_MESSAGESTATE_UPDATE, hContact, (LPARAM)&data);
}
else
SetSrmmReadStatus(hContact);
if (m_bUserForceOnlineOnActivity)
SetInvisible(hContact);
}
break;
case VKPOLL_READ_ALL_IN:
uid = jnChild[1].as_int();
hContact = FindUser(uid);
if (hContact != NULL && m_bSyncReadMessageStatusFromServer)
MarkDialogAsRead(hContact);
break;
case VKPOLL_USR_ONLINE:
uid = -jnChild[1].as_int();
if ((hContact = FindUser(uid)) != NULL) {
setWord(hContact, "Status", ID_STATUS_ONLINE);
platform = jnChild[2].as_int();
SetMirVer(hContact, platform);
}
break;
case VKPOLL_USR_OFFLINE:
uid = -jnChild[1].as_int();
if ((hContact = FindUser(uid)) != NULL) {
setWord(hContact, "Status", ID_STATUS_OFFLINE);
db_unset(hContact, m_szModuleName, "ListeningTo");
SetMirVer(hContact, -1);
}
break;
case VKPOLL_USR_UTN:
uid = jnChild[1].as_int();
hContact = FindUser(uid);
if (hContact != NULL) {
ForkThread(&CVkProto::ContactTypingThread, (void *)hContact);
if (m_bUserForceOnlineOnActivity)
SetInvisible(hContact);
}
break;
case VKPOLL_CHAT_UTN:
ForkThread(&CVkProto::ChatContactTypingThread, new CVKChatContactTypingParam(jnChild[2].as_int(), jnChild[1].as_int()));
break;
case VKPOLL_CHAT_CHANGED:
int chat_id = jnChild[1].as_int();
CVkChatInfo *cc = m_chats.find((CVkChatInfo*)&chat_id);
if (cc)
RetrieveChatInfo(cc);
break;
}
}
RetrieveMessagesByIds(mids);
}
static int LoadLangDescr(LANGPACK_INFO &lpinfo, FILE *fp, char *line, int &startOfLine)
{
char szLanguage[64]; szLanguage[0] = 0;
CMStringA szAuthors;
lpinfo.codepage = CP_ACP;
lpinfo.flags = 0;
fgets(line, LANGPACK_BUF_SIZE, fp);
size_t lineLen = strlen(line);
if (lineLen >= 3 && line[0] == '\xef' && line[1] == '\xbb' && line[2] == '\xbf')
memmove(line, line + 3, lineLen - 2);
lrtrim(line);
if (mir_strcmp(line, "Miranda Language Pack Version 1"))
return 2;
// headers
while (!feof(fp)) {
startOfLine = ftell(fp);
if (fgets(line, LANGPACK_BUF_SIZE, fp) == NULL)
break;
lrtrim(line);
if (IsEmpty(line) || line[0] == ';' || line[0] == 0)
continue;
if (line[0] == '[' || line[0] == '#')
break;
char *pszColon = strchr(line, ':');
if (pszColon == NULL)
return 3;
*pszColon++ = 0;
if (!mir_strcmp(line, "Language")) {
strncpy_s(szLanguage, pszColon, _TRUNCATE);
lrtrim(szLanguage);
}
else if (!mir_strcmp(line, "Last-Modified-Using")) {
lpinfo.szLastModifiedUsing = pszColon;
lpinfo.szLastModifiedUsing.Trim();
}
else if (!mir_strcmp(line, "Authors")) {
if (!szAuthors.IsEmpty())
szAuthors.AppendChar(' ');
szAuthors.Append(lrtrim(pszColon));
}
else if (!mir_strcmp(line, "Author-email")) {
lpinfo.szAuthorEmail = pszColon;
lpinfo.szAuthorEmail.Trim();
}
else if (!mir_strcmp(line, "Locale")) {
char szBuf[20], *stopped;
lrtrim(pszColon + 1);
USHORT langID = (USHORT)strtol(pszColon, &stopped, 16);
lpinfo.Locale = MAKELCID(langID, 0);
GetLocaleInfoA(lpinfo.Locale, LOCALE_IDEFAULTANSICODEPAGE, szBuf, 10);
szBuf[5] = 0; // codepages have max. 5 digits
lpinfo.codepage = atoi(szBuf);
}
}
lpinfo.szAuthors = szAuthors;
MultiByteToWideChar(lpinfo.codepage, 0, szLanguage, -1, lpinfo.tszLanguage, _countof(lpinfo.tszLanguage));
if (!lpinfo.tszLanguage[0] && (lpinfo.Locale == 0) || !GetLocaleInfo(lpinfo.Locale, LOCALE_SENGLANGUAGE, lpinfo.tszLanguage, _countof(lpinfo.tszLanguage))) {
TCHAR *p = _tcschr(lpinfo.tszFileName, '_');
_tcsncpy_s(lpinfo.tszLanguage, ((p != NULL) ? (p + 1) : lpinfo.tszFileName), _TRUNCATE);
p = _tcsrchr(lpinfo.tszLanguage, _T('.'));
if (p != NULL) *p = '\0';
}
return 0;
}
