Tlen moved to deprecated (#1050)

1 files changed, 0 insertions, 444 deletions

diff --git a/protocols/Tlen/src/tlen_util.cpp b/protocols/Tlen/src/tlen_util.cpp
deleted file mode 100644
index b0efd769ba..0000000000
--- a/protocols/Tlen/src/tlen_util.cpp
+++ /dev/null
@@ -1,444 +0,0 @@
-/*

-

-Jabber Protocol Plugin for Miranda IM

-Tlen Protocol Plugin for Miranda NG

-Copyright (C) 2002-2004  Santithorn Bunchua

-Copyright (C) 2004-2007  Piotr Piastucki

-

-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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

-

-*/

-

-#include "stdafx.h"

-#include "tlen_list.h"

-#include <ctype.h>

-#include <win2k.h>

-

-void TlenSerialInit(TlenProtocol *proto)

-{

-	proto->serial = 0;

-}

-

-unsigned int TlenSerialNext(TlenProtocol *proto)

-{

-	unsigned int ret;

-

-	mir_cslock lck(proto->csSerial);

-	ret = proto->serial;

-	proto->serial++;

-	return ret;

-}

-

-// Caution: DO NOT use TlenSend() to send binary (non-string) data

-

-int TlenSend(TlenProtocol *proto, const char *fmt, ...)

-{

-	char *str;

-	int size;

-	va_list vararg;

-	int result = 0;

-

-	mir_cslock lck(proto->csSend);

-

-	va_start(vararg, fmt);

-	size = 512;

-	str = (char *)mir_alloc(size);

-	while (mir_vsnprintf(str, size, fmt, vararg) == -1) {

-		size += 512;

-		str = (char *)mir_realloc(str, size);

-	}

-	va_end(vararg);

-

-	proto->debugLogA("SEND:%s", str);

-	size = (int)mir_strlen(str);

-	if (proto->threadData != nullptr) {

-		if (proto->threadData->useAES) {

-			result = TlenWsSendAES(proto, str, size, &proto->threadData->aes_out_context, proto->threadData->aes_out_iv);

-		}

-		else {

-			result = TlenWsSend(proto, proto->threadData->s, str, size);

-		}

-	}

-

-	mir_free(str);

-	return result;

-}

-

-char *TlenResourceFromJID(const char *jid2)

-{

-	char *p;

-	char *nick;

-	char* jid = mir_strdup(jid2);

-

-	p = strchr(jid, '/');

-	if (p != nullptr && p[1] != '\0') {

-		p++;

-		if ((nick = (char *)mir_alloc(1 + mir_strlen(jid) - (p - jid))) != nullptr) {

-			strncpy(nick, p, mir_strlen(jid) - (p - jid));

-			nick[mir_strlen(jid) - (p - jid)] = '\0';

-		}

-	}

-	else {

-		nick = mir_strdup(jid);

-	}

-

-	mir_free(jid);

-	return nick;

-}

-

-char *TlenNickFromJID(const char *jid2)

-{

-	char *p;

-	char *nick;

-	char* jid = mir_strdup(jid2);

-

-	if ((p = strchr(jid, '@')) == nullptr)

-		p = strchr(jid, '/');

-	if (p != nullptr) {

-		if ((nick = (char *)mir_alloc((p - jid) + 1)) != nullptr) {

-			strncpy(nick, jid, p - jid);

-			nick[p - jid] = '\0';

-		}

-	}

-	else {

-		nick = mir_strdup(jid);

-	}

-

-	mir_free(jid);

-	return nick;

-}

-

-char *TlenLoginFromJID(const char *jid2)

-{

-	char *p;

-	char *nick;

-	char* jid = mir_strdup(jid2);

-

-	p = strchr(jid, '/');

-	if (p != nullptr) {

-		if ((nick = (char *)mir_alloc((p - jid) + 1)) != nullptr) {

-			strncpy(nick, jid, p - jid);

-			nick[p - jid] = '\0';

-		}

-	}

-	else {

-		nick = mir_strdup(jid);

-	}

-

-	mir_free(jid);

-	return nick;

-}

-

-char *TlenLocalNickFromJID(const char *jid)

-{

-	char *p;

-	char *localNick;

-

-	p = TlenNickFromJID(jid);

-	localNick = TlenTextDecode(p);

-	mir_free(p);

-	return localNick;

-}

-

-char *TlenSha1(char *str)

-{

-	mir_sha1_ctx sha;

-	DWORD digest[5];

-	char* result;

-

-	if (str == nullptr)

-		return nullptr;

-

-	mir_sha1_init(&sha);

-	mir_sha1_append(&sha, (BYTE*)str, (int)mir_strlen(str));

-	mir_sha1_finish(&sha, (BYTE*)digest);

-	if ((result = (char *)mir_alloc(41)) == nullptr)

-		return nullptr;

-	sprintf(result, "%08x%08x%08x%08x%08x", (int)htonl(digest[0]), (int)htonl(digest[1]), (int)htonl(digest[2]), (int)htonl(digest[3]), (int)htonl(digest[4])); //!!!!!!!!!!!

-	return result;

-}

-

-char *TlenSha1(char *str, int len)

-{

-	mir_sha1_ctx sha;

-	BYTE digest[20];

-	char* result;

-	int i;

-

-	if (str == nullptr)

-		return nullptr;

-

-	mir_sha1_init(&sha);

-	mir_sha1_append(&sha, (BYTE*)str, len);

-	mir_sha1_finish(&sha, digest);

-	if ((result = (char*)mir_alloc(20)) == nullptr)

-		return nullptr;

-	for (i = 0; i < 20; i++)

-		result[i] = digest[4 * (i >> 2) + (3 - (i & 0x3))];

-	return result;

-}

-

-char *TlenPasswordHash(const char *str)

-{

-	int magic1 = 0x50305735, magic2 = 0x12345671, sum = 7;

-	char *p, *res;

-

-	if (str == nullptr) return nullptr;

-	for (p = (char *)str; *p != '\0'; p++) {

-		if (*p != ' ' && *p != '\t') {

-			magic1 ^= (((magic1 & 0x3f) + sum) * ((char)*p)) + (magic1 << 8);

-			magic2 += (magic2 << 8) ^ magic1;

-			sum += ((char)*p);

-		}

-	}

-	magic1 &= 0x7fffffff;

-	magic2 &= 0x7fffffff;

-	res = (char *)mir_alloc(17);

-	sprintf(res, "%08x%08x", magic1, magic2); //!!!!!!!!!!!

-	return res;

-}

-

-char *TlenUrlEncode(const char *str)

-{

-	char *p, *q, *res;

-	unsigned char c;

-

-	if (str == nullptr) return nullptr;

-	res = (char *)mir_alloc(3 * mir_strlen(str) + 1);

-	for (p = (char *)str, q = res; *p != '\0'; p++, q++) {

-		if (*p == ' ') {

-			*q = '+';

-		}

-		else if (*p < 0x20 || *p >= 0x7f || strchr("%&+:'<>\"", *p) != nullptr) {

-			// Convert first from CP1252 to ISO8859-2

-			switch ((unsigned char)*p) {

-			case 0xa5: c = (unsigned char)0xa1; break;

-			case 0x8c: c = (unsigned char)0xa6; break;

-			case 0x8f: c = (unsigned char)0xac; break;

-			case 0xb9: c = (unsigned char)0xb1; break;

-			case 0x9c: c = (unsigned char)0xb6; break;

-			case 0x9f: c = (unsigned char)0xbc; break;

-			default: c = (unsigned char)*p; break;

-			}

-			sprintf(q, "%%%02X", c); //!!!!!!!!!!!

-			q += 2;

-		}

-		else {

-			*q = *p;

-		}

-	}

-	*q = '\0';

-	return res;

-}

-

-void TlenUrlDecode(char *str)

-{

-	char *p, *q;

-	unsigned int code;

-

-	if (str == nullptr) return;

-	for (p = q = str; *p != '\0'; p++, q++) {

-		if (*p == '+') {

-			*q = ' ';

-		}

-		else if (*p == '%' && *(p + 1) != '\0' && isxdigit(*(p + 1)) && *(p + 2) != '\0' && isxdigit(*(p + 2))) {

-			sscanf(p + 1, "%2x", &code);

-			*q = (char)code;

-			// Convert from ISO8859-2 to CP1252

-			switch ((unsigned char)*q) {

-			case 0xa1: *q = (char)0xa5; break;

-			case 0xa6: *q = (char)0x8c; break;

-			case 0xac: *q = (char)0x8f; break;

-			case 0xb1: *q = (char)0xb9; break;

-			case 0xb6: *q = (char)0x9c; break;

-			case 0xbc: *q = (char)0x9f; break;

-			}

-			p += 2;

-		}

-		else {

-			*q = *p;

-		}

-	}

-	*q = '\0';

-}

-

-char * TlenGroupDecode(const char *str)

-{

-	char *p, *q;

-	if (str == nullptr) return nullptr;

-	p = q = TlenTextDecode(str);

-	for (; *p != '\0'; p++) {

-		if (*p == '/') {

-			*p = '\\';

-		}

-	}

-	return q;

-}

-

-char * TlenGroupEncode(const char *str)

-{

-	char *p, *q;

-	if (str == nullptr) return nullptr;

-	p = q = mir_strdup(str);

-	for (; *p != '\0'; p++) {

-		if (*p == '\\') {

-			*p = '/';

-		}

-	}

-	p = TlenTextEncode(q);

-	mir_free(q);

-	return p;

-}

-

-char *TlenTextEncode(const char *str)

-{

-	char *s1;

-

-	if (str == nullptr) return nullptr;

-	if ((s1 = TlenUrlEncode(str)) == nullptr)

-		return nullptr;

-	return s1;

-}

-

-char *TlenTextDecode(const char *str)

-{

-	char *s1;

-

-	if (str == nullptr) return nullptr;

-	s1 = mir_strdup(str);

-	TlenUrlDecode(s1);

-	return s1;

-}

-

-/*

- *	Apply Polish Daylight Saving Time rules to get "DST-unbiased" timestamp

- */

-

-time_t  TlenTimeToUTC(time_t time) {

-	struct tm *timestamp;

-	timestamp = gmtime(&time);

-	if ((timestamp->tm_mon > 2 && timestamp->tm_mon < 9) ||

-		(timestamp->tm_mon == 2 && timestamp->tm_mday - timestamp->tm_wday >= 25) ||

-		(timestamp->tm_mon == 9 && timestamp->tm_mday - timestamp->tm_wday < 25)) {

-		//time -= 3600;

-	}

-	else {

-		//time += 3600;

-	}

-	return time;

-}

-

-time_t TlenIsoToUnixTime(char *stamp)

-{

-	struct tm timestamp;

-	char date[9];

-	char *p;

-	int i, y;

-	time_t t;

-

-	if (stamp == nullptr) return (time_t)0;

-

-	p = stamp;

-

-	// Get the date part

-	for (i = 0; *p != '\0' && i < 8 && isdigit(*p); p++, i++)

-		date[i] = *p;

-

-	// Parse year

-	if (i == 6) {

-		// 2-digit year (1970-2069)

-		y = (date[0] - '0') * 10 + (date[1] - '0');

-		if (y < 70) y += 100;

-	}

-	else if (i == 8) {

-		// 4-digit year

-		y = (date[0] - '0') * 1000 + (date[1] - '0') * 100 + (date[2] - '0') * 10 + date[3] - '0';

-		y -= 1900;

-	}

-	else

-		return (time_t)0;

-	timestamp.tm_year = y;

-	// Parse month

-	timestamp.tm_mon = (date[i - 4] - '0') * 10 + date[i - 3] - '0' - 1;

-	// Parse date

-	timestamp.tm_mday = (date[i - 2] - '0') * 10 + date[i - 1] - '0';

-

-	// Skip any date/time delimiter

-	for (; *p != '\0' && !isdigit(*p); p++);

-

-	// Parse time

-	if (sscanf(p, "%d:%d:%d", &(timestamp.tm_hour), &(timestamp.tm_min), &(timestamp.tm_sec)) != 3)

-		return (time_t)0;

-

-	timestamp.tm_isdst = 0;	// DST is already present in _timezone below

-	_tzset();

-	t = mktime(&timestamp);

-	t -= _timezone;

-	t = TlenTimeToUTC(t);

-

-	if (t >= 0)

-		return t;

-	else

-		return (time_t)0;

-}

-

-void TlenStringAppend(char **str, int *sizeAlloced, const char *fmt, ...)

-{

-	va_list vararg;

-	char *p;

-	int size, len;

-

-	if (str == nullptr) return;

-

-	if (*str == nullptr || *sizeAlloced <= 0) {

-		*sizeAlloced = size = 2048;

-		*str = (char *)mir_alloc(size);

-		len = 0;

-	}

-	else {

-		len = (int)mir_strlen(*str);

-		size = *sizeAlloced - (int)mir_strlen(*str);

-	}

-

-	p = *str + len;

-	va_start(vararg, fmt);

-	while (mir_vsnprintf(p, size, fmt, vararg) == -1) {

-		size += 2048;

-		(*sizeAlloced) += 2048;

-		*str = (char *)mir_realloc(*str, *sizeAlloced);

-		p = *str + len;

-	}

-	va_end(vararg);

-}

-

-BOOL IsAuthorized(TlenProtocol *proto, const char *jid)

-{

-	TLEN_LIST_ITEM *item = TlenListGetItemPtr(proto, LIST_ROSTER, jid);

-	if (item != nullptr) {

-		return item->subscription == SUB_BOTH || item->subscription == SUB_FROM;

-	}

-	return FALSE;

-}

-

-

-void TlenLogMessage(TlenProtocol *proto, MCONTACT hContact, DWORD flags, const char *message)

-{

-	int size = (int)mir_strlen(message) + 2;

-	char *localMessage = (char *)mir_alloc(size);

-	mir_strcpy(localMessage, message);

-	localMessage[size - 1] = '\0';

-	TlenDBAddEvent(proto, hContact, EVENTTYPE_MESSAGE, flags, (PBYTE)message, (DWORD)size);

-	mir_free(localMessage);

-}