void CDbxKyoto::ToggleEncryption()
{
HANDLE hSave1 = hSettingChangeEvent; hSettingChangeEvent = NULL;
HANDLE hSave2 = hEventAddedEvent; hEventAddedEvent = NULL;
HANDLE hSave3 = hEventDeletedEvent; hEventDeletedEvent = NULL;
HANDLE hSave4 = hEventFilterAddedEvent; hEventFilterAddedEvent = NULL;
mir_cslock lck(m_csDbAccess);
ToggleSettingsEncryption(NULL);
ToggleEventsEncryption(NULL);
for (MCONTACT contactID = FindFirstContact(); contactID; contactID = FindNextContact(contactID)) {
ToggleSettingsEncryption(contactID);
ToggleEventsEncryption(contactID);
}
m_bEncrypted = !m_bEncrypted;
DBCONTACTWRITESETTING dbcws = { "CryptoEngine", "DatabaseEncryption" };
dbcws.value.type = DBVT_BYTE;
dbcws.value.bVal = m_bEncrypted;
WriteContactSetting(NULL, &dbcws);
hSettingChangeEvent = hSave1;
hEventAddedEvent = hSave2;
hEventDeletedEvent = hSave3;
hEventFilterAddedEvent = hSave4;
}
STDMETHODIMP_(HANDLE) CDataBase::FindFirstContact(const char* szProto)
{
HANDLE hContact = (HANDLE)getEntities().compFirstContact();
if (!szProto || CheckProto(hContact, szProto))
return hContact;
return FindNextContact(hContact, szProto);
}
HANDLE CIcqProto::FindFirstContact()
{
HANDLE hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST, 0, (LPARAM)m_szModuleName);
if (IsICQContact(hContact))
return hContact;
return FindNextContact(hContact);
}
static INT_PTR FindFirstContact(WPARAM wParam,LPARAM lParam)
{
INT_PTR ret = 0;
EnterCriticalSection(&csDbAccess);
ret = (INT_PTR)dbHeader.ofsFirstContact;
if (lParam && !CheckProto((HANDLE)ret,(const char*)lParam))
ret = FindNextContact((WPARAM)ret,lParam);
LeaveCriticalSection(&csDbAccess);
return ret;
}
STDMETHODIMP_(MCONTACT) CDb3Mmap::FindFirstContact(const char *szProto)
{
mir_cslock lck(m_csDbAccess);
DBCachedContact *cc = m_cache->GetFirstContact();
if (cc == NULL)
return NULL;
if (!szProto || CheckProto(cc, szProto))
return cc->contactID;
return FindNextContact(cc->contactID, szProto);
}
void CDb3Mmap::FillContacts()
{
OBJLIST<COldMeta> arMetas(10, NumericKeySortT);
for (DWORD dwOffset = m_dbHeader.ofsFirstContact; dwOffset != 0;) {
DBContact *p = (DBContact*)DBRead(dwOffset, NULL);
if (p->signature != DBCONTACT_SIGNATURE)
break;
DWORD dwContactID;
if (m_dbHeader.version >= DB_095_VERSION) {
dwContactID = p->dwContactID;
if (dwContactID > m_dwMaxContactId)
m_dwMaxContactId = dwContactID + 1;
}
else dwContactID = m_dwMaxContactId++;
DBCachedContact *cc = m_cache->AddContactToCache(dwContactID);
cc->dwDriverData = dwOffset;
CheckProto(cc, "");
DBVARIANT dbv; dbv.type = DBVT_DWORD;
cc->nSubs = (0 != GetContactSetting(dwContactID, META_PROTO, "NumContacts", &dbv)) ? -1 : dbv.dVal;
if (cc->nSubs != -1) {
cc->pSubs = (MCONTACT*)mir_alloc(cc->nSubs*sizeof(MCONTACT));
for (int i = 0; i < cc->nSubs; i++) {
char setting[100];
mir_snprintf(setting, SIZEOF(setting), "Handle%d", i);
cc->pSubs[i] = (0 != GetContactSetting(dwContactID, META_PROTO, setting, &dbv)) ? NULL : dbv.dVal;
}
}
cc->nDefault = (0 != GetContactSetting(dwContactID, META_PROTO, "Default", &dbv)) ? -1 : dbv.dVal;
cc->parentID = (0 != GetContactSetting(dwContactID, META_PROTO, "ParentMeta", &dbv)) ? NULL : dbv.dVal;
// whether we need conversion or not
if (!GetContactSetting(dwContactID, META_PROTO, "MetaID", &dbv))
arMetas.insert(new COldMeta(dbv.dVal, cc));
dwOffset = p->ofsNext;
}
// no need in conversion? quit then
if (m_bReadOnly || arMetas.getCount() == 0)
return;
DBVARIANT dbv; dbv.type = DBVT_DWORD;
for (MCONTACT hh = FindFirstContact(); hh; hh = FindNextContact(hh)) {
if (GetContactSetting(hh, META_PROTO, "MetaLink", &dbv))
continue;
COldMeta *p = arMetas.find((COldMeta*)&dbv.dVal);
if (p == NULL)
continue;
if (GetContactSetting(hh, META_PROTO, "ContactNumber", &dbv))
continue;
DBCONTACTWRITESETTING dbws = { META_PROTO };
dbws.value.type = DBVT_DWORD;
DBCachedContact *ccMeta = p->cc;
if (int(dbv.dVal) < ccMeta->nSubs) {
ccMeta->pSubs[dbv.dVal] = hh;
char setting[100];
mir_snprintf(setting, SIZEOF(setting), "Handle%d", dbv.dVal);
dbws.szSetting = setting;
dbws.value.dVal = hh;
WriteContactSetting(ccMeta->contactID, &dbws);
}
// store contact id instead of the old mc number
dbws.szSetting = "ParentMeta";
dbws.value.dVal = ccMeta->contactID;
WriteContactSetting(hh, &dbws);
// wipe out old data from subcontacts
DeleteContactSetting(hh, META_PROTO, "ContactNumber");
DeleteContactSetting(hh, META_PROTO, "MetaLink");
}
for (int i = 0; i < arMetas.getCount(); i++) {
COldMeta &p = arMetas[i];
DBCachedContact *ccMeta = p.cc;
MCONTACT hContact = ccMeta->contactID;
// we don't need it anymore
if (!GetContactSetting(hContact, META_PROTO, "MetaID", &dbv)) {
DeleteContactSetting(hContact, META_PROTO, "MetaID");
WipeContactHistory((DBContact*)DBRead(ccMeta->dwDriverData, NULL));
}
for (int k = 0; k < ccMeta->nSubs; k++) {
DBCachedContact *ccSub = m_cache->GetCachedContact(ccMeta->pSubs[k]);
if (ccSub) {
ccSub->parentID = hContact;
MetaMergeHistory(ccMeta, ccSub);
}
}
}
}
void __cdecl CIcqProto::ServerThread(serverthread_start_info *infoParam)
{
serverthread_info info = {0};
info.isLoginServer = 1;
info.wAuthKeyLen = infoParam->wPassLen;
null_strcpy((char*)info.szAuthKey, infoParam->szPass, info.wAuthKeyLen);
// store server port
info.wServerPort = infoParam->nloc.wPort;
srand(time(NULL));
ResetSettingsOnConnect();
// Connect to the login server
NetLog_Server("Authenticating to server");
{
NETLIBOPENCONNECTION nloc = infoParam->nloc;
nloc.timeout = 6;
if (m_bGatewayMode)
nloc.flags |= NLOCF_HTTPGATEWAY;
hServerConn = NetLib_OpenConnection(m_hServerNetlibUser, NULL, &nloc);
SAFE_FREE((void**)&nloc.szHost);
SAFE_FREE((void**)&infoParam);
if (hServerConn && m_bSecureConnection)
{
if (!CallService(MS_NETLIB_STARTSSL, (WPARAM)hServerConn, 0))
{
icq_LogMessage(LOG_ERROR, LPGEN("Unable to connect to ICQ login server, SSL could not be negotiated"));
SetCurrentStatus(ID_STATUS_OFFLINE);
NetLib_CloseConnection(&hServerConn, TRUE);
return;
}
}
}
// Login error
if (hServerConn == NULL)
{
DWORD dwError = GetLastError();
SetCurrentStatus(ID_STATUS_OFFLINE);
icq_LogUsingErrorCode(LOG_ERROR, dwError, LPGEN("Unable to connect to ICQ login server"));
return;
}
// Initialize direct connection ports
{
DWORD dwInternalIP;
BYTE bConstInternalIP = getSettingByte(NULL, "ConstRealIP", 0);
info.hDirectBoundPort = NetLib_BindPort(icq_newConnectionReceived, this, &wListenPort, &dwInternalIP);
if (!info.hDirectBoundPort)
{
icq_LogUsingErrorCode(LOG_WARNING, GetLastError(), LPGEN("Miranda was unable to allocate a port to listen for direct peer-to-peer connections between clients. You will be able to use most of the ICQ network without problems but you may be unable to send or receive files.\n\nIf you have a firewall this may be blocking Miranda, in which case you should configure your firewall to leave some ports open and tell Miranda which ports to use in M->Options->ICQ->Network."));
wListenPort = 0;
if (!bConstInternalIP) deleteSetting(NULL, "RealIP");
}
else if (!bConstInternalIP)
setSettingDword(NULL, "RealIP", dwInternalIP);
}
// Initialize rate limiting queues
{
icq_lock l(m_ratesMutex);
m_ratesQueue_Request = new rates_queue(this, "request", RML_IDLE_30, RML_IDLE_50, 1);
m_ratesQueue_Response = new rates_queue(this, "response", RML_IDLE_10, RML_IDLE_30, -1);
}
// This is the "infinite" loop that receives the packets from the ICQ server
{
int recvResult;
NETLIBPACKETRECVER packetRecv = {0};
info.hPacketRecver = (HANDLE)CallService(MS_NETLIB_CREATEPACKETRECVER, (WPARAM)hServerConn, 0x2400);
packetRecv.cbSize = sizeof(packetRecv);
packetRecv.dwTimeout = INFINITE;
while (serverThreadHandle)
{
if (info.bReinitRecver)
{ // we reconnected, reinit struct
info.bReinitRecver = 0;
ZeroMemory(&packetRecv, sizeof(packetRecv));
packetRecv.cbSize = sizeof(packetRecv);
packetRecv.dwTimeout = INFINITE;
}
recvResult = CallService(MS_NETLIB_GETMOREPACKETS, (WPARAM)info.hPacketRecver, (LPARAM)&packetRecv);
if (recvResult == 0)
{
NetLog_Server("Clean closure of server socket");
break;
}
if (recvResult == SOCKET_ERROR)
{
NetLog_Server("Abortive closure of server socket, error: %d", GetLastError());
break;
}
if (m_iDesiredStatus == ID_STATUS_OFFLINE)
{ // Disconnect requested, send disconnect packet
icq_sendCloseConnection();
// disconnected upon request
m_bConnectionLost = FALSE;
SetCurrentStatus(ID_STATUS_OFFLINE);
NetLog_Server("Logged off.");
break;
}
// Deal with the packet
packetRecv.bytesUsed = handleServerPackets(packetRecv.buffer, packetRecv.bytesAvailable, &info);
}
serverThreadHandle = NULL;
// Time to shutdown
NetLib_CloseConnection(&hServerConn, TRUE);
// Close the packet receiver (connection may still be open)
NetLib_SafeCloseHandle(&info.hPacketRecver);
// Close DC port
NetLib_SafeCloseHandle(&info.hDirectBoundPort);
}
// disable auto info-update thread
icq_EnableUserLookup(FALSE);
if (m_iStatus != ID_STATUS_OFFLINE && m_iDesiredStatus != ID_STATUS_OFFLINE)
{
if (!info.bLoggedIn)
icq_LogMessage(LOG_FATAL, LPGEN("Connection failed.\nLogin sequence failed for unknown reason.\nTry again later."));
// set flag indicating we were kicked out
m_bConnectionLost = TRUE;
SetCurrentStatus(ID_STATUS_OFFLINE);
}
// signal keep-alive thread to stop
StopKeepAlive(&info);
// Close all open DC connections
CloseContactDirectConns(NULL);
// Close avatar connection if any
StopAvatarThread();
// Offline all contacts
HANDLE hContact = FindFirstContact();
while (hContact)
{
DWORD dwUIN;
uid_str szUID;
if (!getContactUid(hContact, &dwUIN, &szUID))
{
if (getContactStatus(hContact) != ID_STATUS_OFFLINE)
{
char tmp = 0;
setSettingWord(hContact, "Status", ID_STATUS_OFFLINE);
handleXStatusCaps(dwUIN, szUID, hContact, (BYTE*)&tmp, 0, &tmp, 0);
}
}
hContact = FindNextContact(hContact);
}
setSettingDword(NULL, "LogonTS", 0); // clear logon time
servlistPendingFlushOperations(); // clear pending operations list
{ // release rates queues
icq_lock l(m_ratesMutex);
SAFE_DELETE((void_struct**)&m_ratesQueue_Request);
SAFE_DELETE((void_struct**)&m_ratesQueue_Response);
SAFE_DELETE((void_struct**)&m_rates);
}
FlushServerIDs(); // clear server IDs list
NetLog_Server("%s thread ended.", "Server");
}
