summaryrefslogtreecommitdiff
path: root/protocols/IcqOscarJ/icqosc_svcs.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'protocols/IcqOscarJ/icqosc_svcs.cpp')
-rwxr-xr-xprotocols/IcqOscarJ/icqosc_svcs.cpp816
1 files changed, 0 insertions, 816 deletions
diff --git a/protocols/IcqOscarJ/icqosc_svcs.cpp b/protocols/IcqOscarJ/icqosc_svcs.cpp
deleted file mode 100755
index ee6dd1731c..0000000000
--- a/protocols/IcqOscarJ/icqosc_svcs.cpp
+++ /dev/null
@@ -1,816 +0,0 @@
-// ---------------------------------------------------------------------------80
-// ICQ plugin for Miranda Instant Messenger
-// ________________________________________
-//
-// Copyright © 2000-2001 Richard Hughes, Roland Rabien, Tristan Van de Vreede
-// Copyright © 2001-2002 Jon Keating, Richard Hughes
-// Copyright © 2002-2004 Martin Öberg, Sam Kothari, Robert Rainwater
-// Copyright © 2004-2010 Joe Kucera
-//
-// 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; if not, write to the Free Software
-// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-//
-// -----------------------------------------------------------------------------
-// DESCRIPTION:
-//
-// High-level code for exported API services
-//
-// -----------------------------------------------------------------------------
-#include "icqoscar.h"
-
-
-INT_PTR CIcqProto::AddServerContact(WPARAM wParam, LPARAM lParam)
-{
- DWORD dwUin;
- uid_str szUid;
-
- if (!m_bSsiEnabled) return 0;
-
- // Does this contact have a UID?
- if (!getContactUid((HANDLE)wParam, &dwUin, &szUid) && !getSettingWord((HANDLE)wParam, DBSETTING_SERVLIST_ID, 0) && !getSettingWord((HANDLE)wParam, DBSETTING_SERVLIST_IGNORE, 0))
- { /// TODO: remove possible 0x6A TLV in contact server-list data!!!
- // Read group from DB
- char *pszGroup = getContactCListGroup((HANDLE)wParam);
-
- servlistAddContact((HANDLE)wParam, pszGroup);
- SAFE_FREE((void**)&pszGroup);
- }
- return 0;
-}
-
-
-static int LookupDatabaseSetting(const FieldNamesItem* table, int code, DBVARIANT *dbv, BYTE type)
-{
- char *text = LookupFieldName(table, code);
-
- if (!text)
- {
- dbv->type = DBVT_DELETED;
- return 1;
- }
-
- if (type == DBVT_ASCIIZ)
- {
- dbv->pszVal = mir_strdup(Translate(text));
- dbv->type = DBVT_ASCIIZ;
- }
- else if (type == DBVT_UTF8 || !type)
- {
- char tmp[MAX_PATH];
-
- dbv->pszVal = mir_strdup(ICQTranslateUtfStatic(text, tmp, MAX_PATH));
- dbv->type = DBVT_UTF8;
- }
- else if (type == DBVT_WCHAR)
- {
- WCHAR* wtext = make_unicode_string(text);
-
- dbv->pwszVal = mir_wstrdup(TranslateW(wtext));
- dbv->type = DBVT_WCHAR;
-
- SAFE_FREE((void**)&wtext);
- }
- return 0; // Success
-}
-
-INT_PTR CIcqProto::GetInfoSetting(WPARAM wParam, LPARAM lParam)
-{
- DBCONTACTGETSETTING *cgs = (DBCONTACTGETSETTING*)lParam;
- BYTE type = cgs->pValue->type;
-
- cgs->pValue->type = 0; // original type without conversion
- INT_PTR rc = CallService(MS_DB_CONTACT_GETSETTING_STR, wParam, lParam);
-
- if (!rc)
- { // Success
- DBVARIANT dbv;
-
- memcpy(&dbv, cgs->pValue, sizeof(DBVARIANT));
-
- if (dbv.type == DBVT_BLOB)
- {
- cgs->pValue->pbVal = (BYTE*)mir_alloc(dbv.cpbVal);
-
- memcpy(cgs->pValue->pbVal, dbv.pbVal, dbv.cpbVal);
- }
- else if (dbv.type == DBVT_ASCIIZ || dbv.type == DBVT_UTF8)
- { // convert to the desired type
- if (!type)
- type = dbv.type;
-
- if (dbv.type == type)
- { // type is correct, only move it to miranda's heap
- cgs->pValue->pszVal = mir_strdup(dbv.pszVal);
- }
- else if (type == DBVT_WCHAR)
- {
- if (dbv.type != DBVT_UTF8)
- {
- int len = MultiByteToWideChar(CP_ACP, 0, dbv.pszVal, -1, NULL, 0);
- cgs->pValue->pwszVal = (WCHAR*)mir_alloc((len + 1)*sizeof(WCHAR));
- if (cgs->pValue->pwszVal == NULL)
- rc = 1;
- else
- {
- MultiByteToWideChar(CP_ACP, 0, dbv.pszVal, -1, cgs->pValue->pwszVal, len);
- cgs->pValue->pwszVal[len] = '\0';
- }
- }
- else
- {
- char *savePtr = dbv.pszVal ? strcpy((char*)_alloca(strlennull(dbv.pszVal) + 1), dbv.pszVal) : NULL;
- if (!mir_utf8decode(savePtr, &cgs->pValue->pwszVal))
- rc = 1;
- }
- }
- else if (type == DBVT_UTF8)
- {
- cgs->pValue->pszVal = mir_utf8encode(dbv.pszVal);
- if (cgs->pValue->pszVal == NULL)
- rc = 1;
- }
- else if (type == DBVT_ASCIIZ)
- {
- cgs->pValue->pszVal = mir_strdup(dbv.pszVal);
- mir_utf8decode(cgs->pValue->pszVal, NULL);
- }
-
- cgs->pValue->type = type;
- }
- else if (!strcmpnull(cgs->szModule, m_szModuleName) && (dbv.type == DBVT_BYTE || dbv.type == DBVT_WORD || dbv.type == DBVT_DWORD))
- {
- int code = (dbv.type == DBVT_BYTE) ? dbv.bVal : ((dbv.type == DBVT_WORD) ? dbv.wVal : dbv.dVal);
-
- if (!strcmpnull(cgs->szSetting, "Language1") || !strcmpnull(cgs->szSetting, "Language2") || !strcmpnull(cgs->szSetting, "Language3"))
- rc = LookupDatabaseSetting(languageField, code, cgs->pValue, type);
- else if (!strcmpnull(cgs->szSetting, "Country") || !strcmpnull(cgs->szSetting, "OriginCountry") || !strcmpnull(cgs->szSetting, "CompanyCountry"))
- {
- if (code == 420) code = 42; // conversion of obsolete codes (OMG!)
- else if (code == 421) code = 4201;
- else if (code == 102) code = 1201;
- rc = LookupDatabaseSetting(countryField, code, cgs->pValue, type);
- }
- else if (!strcmpnull(cgs->szSetting, "Gender"))
- rc = LookupDatabaseSetting(genderField, code, cgs->pValue, type);
- else if (!strcmpnull(cgs->szSetting, "MaritalStatus"))
- rc = LookupDatabaseSetting(maritalField, code, cgs->pValue, type);
- else if (!strcmpnull(cgs->szSetting, "StudyLevel"))
- rc = LookupDatabaseSetting(studyLevelField, code, cgs->pValue, type);
- else if (!strcmpnull(cgs->szSetting, "CompanyIndustry"))
- rc = LookupDatabaseSetting(industryField, code, cgs->pValue, type);
- else if (!strcmpnull(cgs->szSetting, "Interest0Cat") || !strcmpnull(cgs->szSetting, "Interest1Cat") || !strcmpnull(cgs->szSetting, "Interest2Cat") || !strcmpnull(cgs->szSetting, "Interest3Cat"))
- rc = LookupDatabaseSetting(interestsField, code, cgs->pValue, type);
- }
- // Release database memory
- ICQFreeVariant(&dbv);
- }
-
- return rc;
-}
-
-
-INT_PTR CIcqProto::ChangeInfoEx(WPARAM wParam, LPARAM lParam)
-{
- if (icqOnline() && wParam)
- {
- PBYTE buf = NULL;
- int buflen = 0;
- BYTE b;
-
- // userinfo
- ppackTLVWord(&buf, &buflen, 0x1C2, (WORD)GetACP());
-
- if (wParam & CIXT_CONTACT)
- { // contact information
- BYTE *pBlock = NULL;
- int cbBlock = 0;
- int nItems = 0;
-
- // Emails
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "e-mail0", 0x78, 0x64, 0x00);
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "e-mail1", 0x78, 0x64, 0x00);
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "e-mail2", 0x78, 0x64, 0x00);
- ppackTLVBlockItems(&buf, &buflen, 0x8C, &nItems, &pBlock, (WORD*)&cbBlock, FALSE);
-
- // Phones
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "Phone", 0x6E, 0x64, 0x01);
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "CompanyPhone", 0x6E, 0x64, 0x02);
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "Cellular", 0x6E, 0x64, 0x03);
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "Fax", 0x6E, 0x64, 0x04);
- nItems += ppackTLVWordStringItemFromDB(&pBlock, &cbBlock, "CompanyFax", 0x6E, 0x64, 0x05);
- ppackTLVBlockItems(&buf, &buflen, 0xC8, &nItems, &pBlock, (WORD*)&cbBlock, FALSE);
-
- ppackTLVByte(&buf, &buflen, 0x1EA, getSettingByte(NULL, "AllowSpam", 0));
- }
-
- if (wParam & CIXT_BASIC)
- { // upload basic user info
- ppackTLVStringUtfFromDB(&buf, &buflen, "Nick", 0x78);
- ppackTLVStringUtfFromDB(&buf, &buflen, "FirstName", 0x64);
- ppackTLVStringUtfFromDB(&buf, &buflen, "LastName", 0x6E);
- ppackTLVStringUtfFromDB(&buf, &buflen, "About", 0x186);
- }
-
- if (wParam & CIXT_MORE)
- {
- b = getSettingByte(NULL, "Gender", 0);
- ppackTLVByte(&buf, &buflen, 0x82, (BYTE)(b ? (b == 'M' ? 2 : 1) : 0));
-
- ppackTLVDateFromDB(&buf, &buflen, "BirthYear", "BirthMonth", "BirthDay", 0x1A4);
-
- ppackTLVWord(&buf, &buflen, 0xAA, getSettingByte(NULL, "Language1", 0));
- ppackTLVWord(&buf, &buflen, 0xB4, getSettingByte(NULL, "Language2", 0));
- ppackTLVWord(&buf, &buflen, 0xBE, getSettingByte(NULL, "Language3", 0));
-
- ppackTLVWord(&buf, &buflen, 0x12C, getSettingByte(NULL, "MaritalStatus", 0));
- }
-
- if (wParam & CIXT_WORK)
- {
- BYTE *pBlock = NULL;
- int cbBlock = 0;
- int nItems = 1;
-
- // Jobs
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "CompanyPosition", 0x64);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "Company", 0x6E);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "CompanyDepartment", 0x7D);
- ppackTLVStringFromDB(&pBlock, &cbBlock, "CompanyHomepage", 0x78);
- ppackTLVWord(&pBlock, &cbBlock, 0x82, getSettingWord(NULL, "CompanyIndustry", 0));
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "CompanyStreet", 0xAA);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "CompanyCity", 0xB4);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "CompanyState", 0xBE);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "CompanyZIP", 0xC8);
- ppackTLVDWord(&pBlock, &cbBlock, 0xD2, getSettingWord(NULL, "CompanyCountry", 0));
- /// TODO: pack unknown data (need to preserve them in Block Items)
- ppackTLVBlockItems(&buf, &buflen, 0x118, &nItems, &pBlock, (WORD*)&cbBlock, TRUE);
-
- // ppackTLVWord(&buf, &buflen, getSettingWord(NULL, "CompanyOccupation", 0), TLV_OCUPATION, 1); // Lost In Conversion
- }
-
- if (wParam & CIXT_EDUCATION)
- {
- BYTE *pBlock = NULL;
- int cbBlock = 0;
- int nItems = 1;
-
- // Studies
- ppackTLVWord(&pBlock, &cbBlock, 0x64, getSettingWord(NULL, "StudyLevel", 0));
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "StudyInstitute", 0x6E);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "StudyDegree", 0x78);
- ppackTLVWord(&pBlock, &cbBlock, 0x8C, getSettingWord(NULL, "StudyYear", 0));
- ppackTLVBlockItems(&buf, &buflen, 0x10E, &nItems, &pBlock, (WORD*)&cbBlock, TRUE);
- }
-
- if (wParam & CIXT_LOCATION)
- {
- BYTE *pBlock = NULL;
- int cbBlock = 0;
- int nItems = 1;
-
- // Home Address
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "Street", 0x64);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "City", 0x6E);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "State", 0x78);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "ZIP", 0x82);
- ppackTLVDWord(&pBlock, &cbBlock, 0x8C, getSettingWord(NULL, "Country", 0));
- ppackTLVBlockItems(&buf, &buflen, 0x96, &nItems, &pBlock, (WORD*)&cbBlock, TRUE);
-
- nItems = 1;
- // Origin Address
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "OriginStreet", 0x64);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "OriginCity", 0x6E);
- ppackTLVStringUtfFromDB(&pBlock, &cbBlock, "OriginState", 0x78);
- ppackTLVDWord(&pBlock, &cbBlock, 0x8C, getSettingWord(NULL, "OriginCountry", 0));
- ppackTLVBlockItems(&buf, &buflen, 0xA0, &nItems, &pBlock, (WORD*)&cbBlock, TRUE);
-
- ppackTLVStringFromDB(&buf, &buflen, "Homepage", 0xFA);
-
- // Timezone
- WORD wTimezone = getSettingByte(NULL, "Timezone", 0);
- if ((wTimezone & 0x0080) == 0x80) wTimezone |= 0xFF00; // extend signed number
- ppackTLVWord(&buf, &buflen, 0x17C, wTimezone);
- }
-
- if (wParam & CIXT_BACKGROUND)
- {
- BYTE *pBlock = NULL;
- int cbBlock = 0;
- int nItems = 0;
-
- // Interests
- nItems += ppackTLVWordStringUtfItemFromDB(&pBlock, &cbBlock, "Interest0Text", 0x6E, 0x64, getSettingWord(NULL, "Interest0Cat", 0));
- nItems += ppackTLVWordStringUtfItemFromDB(&pBlock, &cbBlock, "Interest1Text", 0x6E, 0x64, getSettingWord(NULL, "Interest1Cat", 0));
- nItems += ppackTLVWordStringUtfItemFromDB(&pBlock, &cbBlock, "Interest2Text", 0x6E, 0x64, getSettingWord(NULL, "Interest2Cat", 0));
- nItems += ppackTLVWordStringUtfItemFromDB(&pBlock, &cbBlock, "Interest3Text", 0x6E, 0x64, getSettingWord(NULL, "Interest3Cat", 0));
- ppackTLVBlockItems(&buf, &buflen, 0x122, &nItems, &pBlock, (WORD*)&cbBlock, FALSE);
-
-
- /* WORD w; /// not supported anymore
-
- w = StringToListItemId("Past0", 0);
- ppackTLVWordLNTSfromDB(&buf, &buflen, w, "Past0Text", TLV_PASTINFO);
- w = StringToListItemId("Past1", 0);
- ppackTLVWordLNTSfromDB(&buf, &buflen, w, "Past1Text", TLV_PASTINFO);
- w = StringToListItemId("Past2", 0);
- ppackTLVWordLNTSfromDB(&buf, &buflen, w, "Past2Text", TLV_PASTINFO);
-
- w = StringToListItemId("Affiliation0", 0);
- ppackTLVWordLNTSfromDB(&buf, &buflen, w, "Affiliation0Text", TLV_AFFILATIONS);
- w = StringToListItemId("Affiliation1", 0);
- ppackTLVWordLNTSfromDB(&buf, &buflen, w, "Affiliation1Text", TLV_AFFILATIONS);
- w = StringToListItemId("Affiliation2", 0);
- ppackTLVWordLNTSfromDB(&buf, &buflen, w, "Affiliation2Text", TLV_AFFILATIONS);*/
- }
-
- DWORD dwCookie = icq_changeUserDirectoryInfoServ(buf, (WORD)buflen, DIRECTORYREQUEST_UPDATEOWNER);
-
- SAFE_FREE((void**)&buf);
-
- return dwCookie;
- }
-
- return 0; // Failure
-}
-
-
-INT_PTR CIcqProto::GetAvatarCaps(WPARAM wParam, LPARAM lParam)
-{
- if (wParam == AF_MAXSIZE)
- {
- POINT *size = (POINT*)lParam;
-
- if (size)
- {
- size->x = 64;
- size->y = 64;
-
- return 0;
- }
- }
- else if (wParam == AF_PROPORTION)
- {
- return PIP_NONE;
- }
- else if (wParam == AF_FORMATSUPPORTED)
- {
- if (lParam == PA_FORMAT_JPEG || lParam == PA_FORMAT_GIF || lParam == PA_FORMAT_XML || lParam == PA_FORMAT_BMP)
- return 1;
- else
- return 0;
- }
- else if (wParam == AF_ENABLED)
- {
- if (m_bSsiEnabled && m_bAvatarsEnabled)
- return 1;
- else
- return 0;
- }
- else if (wParam == AF_DONTNEEDDELAYS)
- {
- return 0;
- }
- else if (wParam == AF_MAXFILESIZE)
- { // server accepts images of 7168 bytees, not bigger
- return 7168;
- }
- else if (wParam == AF_DELAYAFTERFAIL)
- { // do not request avatar again if server gave an error
- return 1 * 60 * 60 * 1000; // one hour
- }
- else if (wParam == AF_FETCHALWAYS)
- { // avatars can be fetched all the time (server only operation)
- return 1;
- }
- return 0;
-}
-
-
-INT_PTR CIcqProto::GetAvatarInfo(WPARAM wParam, LPARAM lParam)
-{
- PROTO_AVATAR_INFORMATIONT *pai = (PROTO_AVATAR_INFORMATIONT*)lParam;
- DWORD dwUIN;
- uid_str szUID;
- DBVARIANT dbv = {DBVT_DELETED};
-
- if (!m_bAvatarsEnabled) return GAIR_NOAVATAR;
-
- if (getSetting(pai->hContact, "AvatarHash", &dbv) || dbv.type != DBVT_BLOB || (dbv.cpbVal != 0x14 && dbv.cpbVal != 0x09))
- {
- ICQFreeVariant(&dbv);
- return GAIR_NOAVATAR; // we did not found avatar hash or hash invalid - no avatar available
- }
-
- if (getContactUid(pai->hContact, &dwUIN, &szUID))
- {
- ICQFreeVariant(&dbv);
- return GAIR_NOAVATAR; // we do not support avatars for invalid contacts
- }
-
- int dwPaFormat = getSettingByte(pai->hContact, "AvatarType", PA_FORMAT_UNKNOWN);
-
- if (dwPaFormat != PA_FORMAT_UNKNOWN)
- { // we know the format, test file
- TCHAR tszFile[MAX_PATH * 2 + 4];
-
- GetFullAvatarFileName(dwUIN, szUID, dwPaFormat, tszFile, MAX_PATH * 2);
-
- lstrcpyn(pai->filename, tszFile, SIZEOF(pai->filename)); // Avatar API does not support unicode :-(
- pai->format = dwPaFormat;
-
- if (!IsAvatarChanged(pai->hContact, dbv.pbVal, dbv.cpbVal))
- { // hashes are the same
- if (_taccess(tszFile, 0) == 0)
- {
- ICQFreeVariant(&dbv);
-
- return GAIR_SUCCESS; // we have found the avatar file, whoala
- }
- }
- }
-
- if (IsAvatarChanged(pai->hContact, dbv.pbVal, dbv.cpbVal))
- { // we didn't received the avatar before - this ensures we will not request avatar again and again
- if ((wParam & GAIF_FORCE) != 0 && pai->hContact != 0)
- { // request avatar data
- TCHAR tszFile[MAX_PATH * 2 + 4];
-
- GetAvatarFileName(dwUIN, szUID, tszFile, MAX_PATH * 2);
- GetAvatarData(pai->hContact, dwUIN, szUID, dbv.pbVal, dbv.cpbVal, tszFile);
- lstrcpyn(pai->filename, tszFile, SIZEOF(pai->filename)); // Avatar API does not support unicode :-(
-
- ICQFreeVariant(&dbv);
-
- return GAIR_WAITFOR;
- }
- }
- ICQFreeVariant(&dbv);
-
- return GAIR_NOAVATAR;
-}
-
-
-INT_PTR CIcqProto::GetMyAvatar(WPARAM wParam, LPARAM lParam)
-{
- if (!m_bAvatarsEnabled) return -2;
-
- if (!wParam) return -3;
-
- TCHAR *tszFile = GetOwnAvatarFileName();
- if (tszFile && !_taccess(tszFile, 0))
- {
- _tcsncpy((TCHAR*)wParam, tszFile, (int)lParam);
- SAFE_FREE(&tszFile);
- return 0;
- }
-
- SAFE_FREE(&tszFile);
- return -1;
-}
-
-
-INT_PTR CIcqProto::GrantAuthorization(WPARAM wParam, LPARAM lParam)
-{
- if (icqOnline() && wParam != 0)
- {
- DWORD dwUin;
- uid_str szUid;
-
- if (getContactUid((HANDLE)wParam, &dwUin, &szUid))
- return 0; // Invalid contact
-
- // send without reason, do we need any ?
- icq_sendGrantAuthServ(dwUin, szUid, NULL);
- // auth granted, remove contact menu item
- deleteSetting((HANDLE)wParam, "Grant");
- }
-
- return 0;
-}
-
-int CIcqProto::OnIdleChanged(WPARAM wParam, LPARAM lParam)
-{
- int bIdle = (lParam&IDF_ISIDLE);
- int bPrivacy = (lParam&IDF_PRIVACY);
-
- if (bPrivacy) return 0;
-
- setSettingDword(NULL, "IdleTS", bIdle ? time(0) : 0);
-
- if (m_bTempVisListEnabled) // remove temporary visible users
- sendEntireListServ(ICQ_BOS_FAMILY, ICQ_CLI_REMOVETEMPVISIBLE, BUL_TEMPVISIBLE);
-
- icq_setidle(bIdle ? 1 : 0);
-
- return 0;
-}
-
-INT_PTR CIcqProto::RevokeAuthorization(WPARAM wParam, LPARAM lParam)
-{
- if (icqOnline() && wParam != 0)
- {
- DWORD dwUin;
- uid_str szUid;
-
- if (getContactUid((HANDLE)wParam, &dwUin, &szUid))
- return 0; // Invalid contact
-
- if (MessageBoxUtf(NULL, LPGEN("Are you sure you want to revoke user's authorization (this will remove you from his/her list on some clients) ?"), LPGEN("Confirmation"), MB_ICONQUESTION | MB_YESNO) != IDYES)
- return 0;
-
- icq_sendRevokeAuthServ(dwUin, szUid);
- }
-
- return 0;
-}
-
-
-INT_PTR CIcqProto::SendSms(WPARAM wParam, LPARAM lParam)
-{
- if (icqOnline() && wParam && lParam)
- return icq_sendSMSServ((const char *)wParam, (const char *)lParam);
-
- return 0; // Failure
-}
-
-INT_PTR CIcqProto::SendYouWereAdded(WPARAM wParam, LPARAM lParam)
-{
- if (lParam && icqOnline())
- {
- CCSDATA* ccs = (CCSDATA*)lParam;
- if (ccs->hContact)
- {
- DWORD dwUin, dwMyUin;
-
- if (getContactUid(ccs->hContact, &dwUin, NULL))
- return 1; // Invalid contact
-
- dwMyUin = getContactUin(NULL);
-
- if (dwUin)
- {
- icq_sendYouWereAddedServ(dwUin, dwMyUin);
- return 0; // Success
- }
- }
- }
-
- return 1; // Failure
-}
-
-INT_PTR CIcqProto::SetMyAvatar(WPARAM wParam, LPARAM lParam)
-{
- TCHAR* tszFile = (TCHAR*)lParam;
- int iRet = -1;
-
- if (!m_bAvatarsEnabled || !m_bSsiEnabled) return -2;
-
- if (tszFile)
- { // set file for avatar
- int dwPaFormat = DetectAvatarFormat(tszFile);
- if (dwPaFormat != PA_FORMAT_XML)
- {
- // if it should be image, check if it is valid
- HBITMAP avt = (HBITMAP)CallService(MS_UTILS_LOADBITMAPT, 0, (WPARAM)tszFile);
- if (!avt) return iRet;
- DeleteObject(avt);
- }
-
- TCHAR tszMyFile[MAX_PATH+1];
- GetFullAvatarFileName(0, NULL, dwPaFormat, tszMyFile, MAX_PATH);
- // if not in our storage, copy
- if (lstrcmp(tszFile, tszMyFile) && !CopyFile(tszFile, tszMyFile, FALSE))
- {
- NetLog_Server("Failed to copy our avatar to local storage.");
- return iRet;
- }
-
- BYTE *hash = calcMD5HashOfFile(tszMyFile);
- if (hash)
- {
- BYTE* ihash = (BYTE*)_alloca(0x14);
- // upload hash to server
- ihash[0] = 0; //unknown
- ihash[1] = dwPaFormat == PA_FORMAT_XML ? AVATAR_HASH_FLASH : AVATAR_HASH_STATIC; //hash type
- ihash[2] = 1; //hash status
- ihash[3] = 0x10; //hash len
- memcpy(ihash+4, hash, 0x10);
- updateServAvatarHash(ihash, 0x14);
-
- if (setSettingBlob(NULL, "AvatarHash", ihash, 0x14))
- {
- NetLog_Server("Failed to save avatar hash.");
- }
-
- TCHAR tmp[MAX_PATH];
- CallService(MS_UTILS_PATHTORELATIVET, (WPARAM)tszMyFile, (LPARAM)tmp);
- setSettingStringT(NULL, "AvatarFile", tmp);
-
- iRet = 0;
-
- SAFE_FREE((void**)&hash);
- }
- }
- else
- { // delete user avatar
- deleteSetting(NULL, "AvatarFile");
- setSettingBlob(NULL, "AvatarHash", hashEmptyAvatar, 9);
- updateServAvatarHash(hashEmptyAvatar, 9); // set blank avatar
- iRet = 0;
- }
-
- return iRet;
-}
-
-INT_PTR CIcqProto::SetNickName(WPARAM wParam, LPARAM lParam)
-{
- if (icqOnline())
- {
- setSettingString(NULL, "Nick", (char*)lParam);
-
- return ChangeInfoEx(CIXT_BASIC, 0);
- }
-
- return 0; // Failure
-}
-
-INT_PTR CIcqProto::SetPassword(WPARAM wParam, LPARAM lParam)
-{
- char *pwd = (char*)lParam;
- int len = strlennull(pwd);
-
- if (len && len < PASSWORDMAXLEN)
- {
- strcpy(m_szPassword, pwd);
- m_bRememberPwd = TRUE;
- }
- return 0;
-}
-
-
-// TODO: Adding needs some more work in general
-
-HANDLE CIcqProto::AddToListByUIN(DWORD dwUin, DWORD dwFlags)
-{
- int bAdded;
- HANDLE hContact = HContactFromUIN(dwUin, &bAdded);
- if (hContact)
- {
- if (!(dwFlags & PALF_TEMPORARY) && DBGetContactSettingByte(hContact, "CList", "NotOnList", 0))
- {
- setContactHidden(hContact, 0);
- DBDeleteContactSetting(hContact, "CList", "NotOnList");
- }
-
- return hContact; // Success
- }
-
- return NULL; // Failure
-}
-
-
-HANDLE CIcqProto::AddToListByUID(const char *szUID, DWORD dwFlags)
-{
- int bAdded;
- HANDLE hContact = HContactFromUID(0, szUID, &bAdded);
- if (hContact)
- {
- if (!(dwFlags & PALF_TEMPORARY) && DBGetContactSettingByte(hContact, "CList", "NotOnList", 0))
- {
- setContactHidden(hContact, 0);
- DBDeleteContactSetting(hContact, "CList", "NotOnList");
- }
-
- return hContact; // Success
- }
-
- return NULL; // Failure
-}
-
-
-/////////////////////////////////////////////////////////////////////////////////////////
-
-void CIcqProto::ICQAddRecvEvent(HANDLE hContact, WORD wType, PROTORECVEVENT* pre, DWORD cbBlob, PBYTE pBlob, DWORD flags)
-{
- if (pre->flags & PREF_CREATEREAD)
- flags |= DBEF_READ;
-
- if (pre->flags & PREF_UTF)
- flags |= DBEF_UTF;
-
- if (hContact && DBGetContactSettingByte(hContact, "CList", "Hidden", 0))
- {
- DWORD dwUin;
- uid_str szUid;
-
- //setContactHidden(hContact, 0);
-
- // if the contact was hidden, add to client-list if not in server-list authed
- if (!getSettingWord(hContact, DBSETTING_SERVLIST_ID, 0) || getSettingByte(hContact, "Auth", 0))
- {
- getContactUid(hContact, &dwUin, &szUid);
- icq_sendNewContact(dwUin, szUid); /// FIXME
- }
- }
-
- AddEvent(hContact, wType, pre->timestamp, flags, cbBlob, pBlob);
-}
-
-INT_PTR __cdecl CIcqProto::IcqAddCapability(WPARAM wParam, LPARAM lParam)
-{
- ICQ_CUSTOMCAP *icqCustomCapIn = (ICQ_CUSTOMCAP *)lParam;
- ICQ_CUSTOMCAP *icqCustomCap = (ICQ_CUSTOMCAP *)malloc(sizeof(ICQ_CUSTOMCAP));
- memcpy(icqCustomCap, icqCustomCapIn, sizeof(ICQ_CUSTOMCAP));
- CustomCapList.push_back(icqCustomCap);
-// MessageBoxA(NULL, ((ICQ_CUSTOMCAP *)(lstCustomCaps->items[lstCustomCaps->realCount-1]))->name, "custom cap", MB_OK);
- return 0;
-}
-
-
-INT_PTR __cdecl CIcqProto::IcqCheckCapability(WPARAM wParam, LPARAM lParam)
-{
- int res = 0;
- DBCONTACTGETSETTING dbcgs;
- DBVARIANT dbvariant;
- HANDLE hContact = (HANDLE)wParam;
- ICQ_CUSTOMCAP *icqCustomCap = (ICQ_CUSTOMCAP *)lParam;
- dbcgs.pValue = &dbvariant;
- dbcgs.szModule = m_szModuleName;
- dbcgs.szSetting = "CapBuf";
-
- CallService(MS_DB_CONTACT_GETSETTING, (WPARAM)hContact, (LPARAM)&dbcgs);
-
- if (dbvariant.type == DBVT_BLOB)
- {
- res = MatchCapability(dbvariant.pbVal, dbvariant.cpbVal, (const capstr*)&icqCustomCap->caps, 0x10)?1:0; // FIXME: Why icqCustomCap->caps is not capstr?
- }
-
- CallService(MS_DB_CONTACT_FREEVARIANT,0,(LPARAM)(DBVARIANT*)&dbvariant);
-
- return res;
-}
-
-
-
-/////////////////////////////////////////////////////////////////////////////////////////
-
-INT_PTR icq_getEventTextMissedMessage(WPARAM wParam, LPARAM lParam)
-{
- DBEVENTGETTEXT *pEvent = (DBEVENTGETTEXT *)lParam;
-
- INT_PTR nRetVal = 0;
- char *pszText = NULL;
-
- if (pEvent->dbei->cbBlob > 1)
- {
- switch (((WORD*)pEvent->dbei->pBlob)[0])
- {
- case 0:
- pszText = LPGEN("** This message was blocked by the ICQ server ** The message was invalid.");
- break;
-
- case 1:
- pszText = LPGEN("** This message was blocked by the ICQ server ** The message was too long.");
- break;
-
- case 2:
- pszText = LPGEN("** This message was blocked by the ICQ server ** The sender has flooded the server.");
- break;
-
- case 4:
- pszText = LPGEN("** This message was blocked by the ICQ server ** You are too evil.");
- break;
-
- default:
- pszText = LPGEN("** Unknown missed message event.");
- break;
- }
- if (pEvent->datatype == DBVT_WCHAR)
- {
- WCHAR *pwszText;
- int wchars = MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, pszText, strlennull(pszText), NULL, 0);
-
- pwszText = (WCHAR*)_alloca((wchars + 1) * sizeof(WCHAR));
- pwszText[wchars] = 0;
-
- MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, pszText, strlennull(pszText), pwszText, wchars);
-
- nRetVal = (INT_PTR)mir_wstrdup(TranslateW(pwszText));
- }
- else if (pEvent->datatype == DBVT_ASCIIZ)
- nRetVal = (INT_PTR)mir_strdup(Translate(pszText));
- }
-
- return nRetVal;
-}
generated by cgit v1.2.3 (git 2.25.1) at 2025-03-01 14:29:52 +0000