/* 
Copyright (C) 2012 Mataes

This is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.

This 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
Library General Public License for more details.

You should have received a copy of the GNU Library General Public
License along with this file; see the file license.txt.  If
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  
*/

#include "common.h"

HANDLE hNetlibUser = NULL, hNetlibHttp;
BOOL UpdateListFlag = FALSE;

BOOL IsMyContact(HANDLE hContact)
{
	const char* szProto = (char*)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);
	return szProto != NULL && strcmp(MODULE, szProto) == 0;
}

VOID NetlibInit()
{
	NETLIBUSER nlu = {0};
	nlu.cbSize = sizeof(nlu);
	nlu.flags = NUF_OUTGOING | NUF_INCOMING | NUF_HTTPCONNS | NUF_TCHAR;	// | NUF_HTTPGATEWAY;
	nlu.ptszDescriptiveName = TranslateT("NewsAggr HTTP connection");
	nlu.szSettingsModule = MODULE;
	hNetlibUser = (HANDLE)CallService(MS_NETLIB_REGISTERUSER, 0, (LPARAM)&nlu);
}

VOID NetlibUnInit()
{
	Netlib_CloseHandle(hNetlibUser);
	hNetlibUser = NULL;
}

static void arrayToHex(BYTE* data, size_t datasz, char* res)
{
	char* resptr = res;
	for (unsigned i=0; i<datasz ; i++)
	{
		const BYTE ch = data[i];

		const char ch0 = (char)(ch >> 4);
		*resptr++ = (char)((ch0 <= 9) ? ('0' + ch0) : (('a' - 10) + ch0));

		const char ch1 = (char)(ch & 0xF);
		*resptr++ = (char)((ch1 <= 9) ? ('0' + ch1) : (('a' - 10) + ch1));
	}
	*resptr = '\0';
} 

int GetImageFormat(const TCHAR* ext)
{
	if(lstrcmp(ext,_T(".jpg")) || lstrcmp(ext,_T(".jpeg")))
	{
		return PA_FORMAT_JPEG;
	}
	else if(lstrcmp(ext,_T(".png")))
	{
		return PA_FORMAT_PNG;
	}
	else if(lstrcmp(ext,_T(".gif")))
	{
		return PA_FORMAT_GIF;
	}
	else if(lstrcmp(ext,_T(".ico")))
	{
		return PA_FORMAT_ICON;
	}
	else if(lstrcmp(ext,_T(".bmp")))
	{
		return PA_FORMAT_BMP;
	}
	else if(lstrcmp(ext,_T(".swf")))
	{
		return PA_FORMAT_SWF;
	}
	else if(lstrcmp(ext,_T(".xml")))
	{
		return PA_FORMAT_XML;
	}
	else if(lstrcmp(ext,_T(".jpg")) || lstrcmp(ext,_T(".jpeg")))
	{
		return PA_FORMAT_JPEG;
	}
	else
	{
		return PA_FORMAT_UNKNOWN;
	}
}
void CreateAuthString(char* auth, HANDLE hContact, HWND hwndDlg)
{
    char *user = NULL, *pass = NULL;
	TCHAR *tlogin = NULL, *tpass = NULL, buf[MAX_PATH] = {0};
	if (hContact && DBGetContactSettingByte(hContact, MODULE, "UseAuth", 0))
	{
		DBVARIANT dbLogin = {0};
		if (!DBGetContactSettingTString(hContact, MODULE, "Login", &dbLogin))
		{
			tlogin = (TCHAR*)mir_alloc(_tcslen(dbLogin.ptszVal)*sizeof(TCHAR));
			memcpy(tlogin, dbLogin.ptszVal, _tcslen(dbLogin.ptszVal)*sizeof(TCHAR));
			tlogin[_tcslen(dbLogin.ptszVal)] = 0;
			DBFreeVariant(&dbLogin);
		}
		DBVARIANT dbPass = {0};
		if (!DBGetContactSettingTString(hContact, MODULE, "Password", &dbPass))
		{
			tpass = (TCHAR*)mir_alloc(_tcslen(dbPass.ptszVal)*sizeof(TCHAR));
			memcpy(tpass, dbPass.ptszVal, _tcslen(dbPass.ptszVal)*sizeof(TCHAR));
			tpass[_tcslen(dbPass.ptszVal)] = 0;
			DBFreeVariant(&dbPass);
		}
	}
	else if (hwndDlg && IsDlgButtonChecked(hwndDlg, IDC_USEAUTH))
	{
		GetDlgItemText(hwndDlg, IDC_LOGIN, buf, SIZEOF(buf));
		tlogin = buf;
		GetDlgItemText(hwndDlg, IDC_PASSWORD, buf, SIZEOF(buf));
		tpass = buf;
	}
	user = mir_t2a(tlogin);
	pass = mir_t2a(tpass);

	char str[MAX_PATH];
    int len = mir_snprintf(str, SIZEOF(str), "%s:%s", user, pass);
	mir_free(user);
	mir_free(pass);

	strcpy(auth, "Basic ");
	NETLIBBASE64 nlb = { auth+6, 250, (PBYTE)str, len };
	CallService(MS_NETLIB_BASE64ENCODE, 0, LPARAM(&nlb));
}

VOID GetNewsData(TCHAR *tszUrl, char** szData, HANDLE hContact, HWND hwndDlg)
{
	char* szRedirUrl  = NULL;
	NETLIBHTTPREQUEST nlhr = {0};
	NETLIBHTTPHEADER headers[5];

	// initialize the netlib request
	nlhr.cbSize = sizeof(nlhr);
	nlhr.requestType = REQUEST_GET;
	nlhr.flags = NLHRF_NODUMP | NLHRF_HTTP11;
	char *szUrl = mir_t2a(tszUrl);
	nlhr.szUrl = szUrl;
	nlhr.nlc = hNetlibHttp;

	// change the header so the plugin is pretended to be IE 6 + WinXP
	nlhr.headers = headers;
	nlhr.headers[0].szName  = "User-Agent";
	nlhr.headers[0].szValue = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)";
	nlhr.headers[1].szName  = "Cache-Control";
	nlhr.headers[1].szValue = "no-cache";
	nlhr.headers[2].szName  = "Pragma";
	nlhr.headers[2].szValue = "no-cache";
	nlhr.headers[3].szName  = "Connection";
	nlhr.headers[3].szValue = "close";
	nlhr.headers[4].szName  = "Accept";
	nlhr.headers[4].szValue = "ext/html, application/xml";
	if (DBGetContactSettingByte(hContact, MODULE, "UseAuth", 0) || IsDlgButtonChecked(hwndDlg, IDC_USEAUTH))
	{
		nlhr.headersCount = 6;
		nlhr.headers[5].szName  = "Authorization";
	
		char auth[256];
		CreateAuthString(auth, hContact, hwndDlg);
		nlhr.headers[5].szValue = auth;
	}
	else
		nlhr.headersCount = 5;

	// download the page
	NETLIBHTTPREQUEST *nlhrReply = (NETLIBHTTPREQUEST*)CallService(MS_NETLIB_HTTPTRANSACTION, (WPARAM)hNetlibUser, (LPARAM)&nlhr);
	if (nlhrReply) 
	{
		// if the recieved code is 200 OK
		switch(nlhrReply->resultCode)
		{
			case 200: 
			{
				if (nlhrReply->dataLength)
				{
					// allocate memory and save the retrieved data
					*szData = (char *)mir_alloc(nlhrReply->dataLength + 2);
					memcpy(*szData, nlhrReply->pData, nlhrReply->dataLength);
					(*szData)[nlhrReply->dataLength] = 0;
				}
				break;
			}

			case 401:
			{
				//ShowMessage(0, TranslateT("Cannot upload VersionInfo. Incorrect username or password"));
				break;
			}

			case 301:
			case 302:
			case 307:
				// get the url for the new location and save it to szInfo
				// look for the reply header "Location"
				for (int i=0; i<nlhrReply->headersCount; i++) 
				{
					if (!strcmp(nlhrReply->headers[i].szName, "Location")) 
					{
						size_t rlen = 0;
						if (nlhrReply->headers[i].szValue[0] == '/')
						{
							const char* szPath;
							const char* szPref = strstr(szUrl, "://");
							szPref = szPref ? szPref + 3 : szUrl;
							szPath = strchr(szPref, '/');
							rlen = szPath != NULL ? szPath - szUrl : strlen(szUrl); 
						}

						szRedirUrl = (char*)mir_realloc(szRedirUrl, 
							rlen + strlen(nlhrReply->headers[i].szValue)*3 + 1);

						strncpy(szRedirUrl, szUrl, rlen);
						strcpy(szRedirUrl+rlen, nlhrReply->headers[i].szValue); 
							
						nlhr.szUrl = szRedirUrl;
						break;
					}
				}
				break;

			default:
				//ShowMessage(0, TranslateT("Cannot upload VersionInfo. Unknown error"));
				break;
		}
		CallService(MS_NETLIB_FREEHTTPREQUESTSTRUCT, 0, (LPARAM)nlhrReply);
	}
	mir_free(szUrl);
}

VOID CreateList (HWND hwndList)
{
	SendMessage(hwndList, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, LVS_EX_FULLROWSELECT | LVS_EX_CHECKBOXES);	

	LVCOLUMN lvc = {0}; 
	// Initialize the LVCOLUMN structure.
	// The mask specifies that the format, width, text, and
	// subitem members of the structure are valid. 
	lvc.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM; 
	lvc.fmt = LVCFMT_LEFT;
	  
	lvc.iSubItem = 0;
	lvc.pszText = TranslateT("Feed");	
	lvc.cx = 160;     // width of column in pixels
	ListView_InsertColumn(hwndList, 0, &lvc);

	lvc.iSubItem = 1;
	lvc.pszText = TranslateT("URL");	
	lvc.cx = 280;     // width of column in pixels
	ListView_InsertColumn(hwndList, 1, &lvc);
}

VOID UpdateList (HWND hwndList)
{
	LVITEM lvI = {0};

	// Some code to create the list-view control.
	// Initialize LVITEM members that are common to all
	// items.
	HANDLE hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
	int i = 0;
	while (hContact != NULL) 
	{
		if (IsMyContact(hContact)) 
		{
			UpdateListFlag = TRUE;
			lvI.mask = LVIF_TEXT;
			lvI.iSubItem = 0;
			DBVARIANT dbNick = {0};
			if (!DBGetContactSettingTString(hContact, MODULE, "Nick", &dbNick))
			{
				lvI.pszText = dbNick.ptszVal;
				lvI.iItem = i;
				ListView_InsertItem(hwndList, &lvI);
				lvI.iSubItem = 1;
				DBVARIANT dbURL = {0};
				if (!DBGetContactSettingTString(hContact, MODULE, "URL", &dbURL))
				{
					lvI.pszText = dbURL.ptszVal;
					ListView_SetItem(hwndList, &lvI);
					i += 1;
					ListView_SetCheckState(hwndList, lvI.iItem, DBGetContactSettingByte(hContact, MODULE, "CheckState", 1));
					DBFreeVariant(&dbURL);
				}
				DBFreeVariant(&dbNick);
			}
		}
		hContact = (HANDLE)CallService(MS_DB_CONTACT_FINDNEXT, (WPARAM)hContact, 0);
	}
	UpdateListFlag = FALSE;
}

VOID DeleteAllItems(HWND hwndList)
{	
	ListView_DeleteAllItems(hwndList);
}

time_t __stdcall DateToUnixTime(TCHAR* stamp, BOOL FeedType)
{
	struct tm timestamp;
	TCHAR date[9];
	int i, y;
	time_t t;

	if ( stamp == NULL ) return ( time_t ) 0;

	TCHAR *p = stamp;

	if (FeedType)
	{
		// skip '-' chars
		int si = 0, sj = 0;
		while (1) {
			if ( p[si] == _T('-') )
				si++;
			else
				if ( !( p[sj++] = p[si++] ))
					break;
		};
	}
	else
	{
		TCHAR weekday[4], monthstr[4], timezonesign[2];
		INT day, month, year, hour, min, sec, timezoneh, timezonem;
		if (_tcsstr(p, _T(",")))
		{
			_stscanf( p, _T("%3s, %d %3s %d %d:%d:%d %1s%02d%02d"), &weekday, &day, &monthstr, &year, &hour, &min, &sec, &timezonesign, &timezoneh, &timezonem);
			if (lstrcmpi(monthstr, _T("Jan")) ==0)
				month = 1;
			if (lstrcmpi(monthstr, _T("Feb")) ==0)
				month = 2;
			if (lstrcmpi(monthstr, _T("Mar")) ==0)
				month = 3;
			if (lstrcmpi(monthstr, _T("Apr")) ==0)
				month = 4;
			if (lstrcmpi(monthstr, _T("May")) ==0)
				month = 5;
			if (lstrcmpi(monthstr, _T("Jun")) ==0)
				month = 6;
			if (lstrcmpi(monthstr, _T("Jul")) ==0)
				month = 7;
			if (lstrcmpi(monthstr, _T("Aug")) ==0)
				month = 8;
			if (lstrcmpi(monthstr, _T("Sep")) ==0)
				month = 9;
			if (lstrcmpi(monthstr, _T("Oct")) ==0)
				month = 10;
			if (lstrcmpi(monthstr, _T("Nov")) ==0)
				month = 11;
			if (lstrcmpi(monthstr, _T("Dec")) ==0)
				month = 12;
			if (lstrcmp(timezonesign, _T("+")) ==0)
				mir_sntprintf(p, 4+2+2+1+2+1+2+1+2+1, _T("%04d%02d%02dT%02d:%02d:%02d"), year, month, day, hour-timezoneh, min-timezonem, sec);
			else if (lstrcmp(timezonesign, _T("-")) ==0)
				mir_sntprintf(p, 4+2+2+1+2+1+2+1+2+1, _T("%04d%02d%02dT%02d:%02d:%02d"), year, month, day, hour+timezoneh, min+timezonem, sec);
			else
				mir_sntprintf(p, 4+2+2+1+2+1+2+1+2+1, _T("%04d%02d%02dT%02d:%02d:%02d"), year, month, day, hour, min, sec);
		}
		else
		{
			_stscanf( p, _T("%d-%d-%d %d:%d:%d %1s%02d%02d"), &year, &month, &day,  &hour, &min, &sec, &timezonesign, &timezoneh, &timezonem);
			if (lstrcmp(timezonesign, _T("+")) ==0)
				mir_sntprintf(p, 4+2+2+1+2+1+2+1+2+1, _T("%04d%02d%02dT%02d:%02d:%02d"), year, month, day, hour-timezoneh, min-timezonem, sec);
			else if (lstrcmp(timezonesign, _T("-")) ==0)
				mir_sntprintf(p, 4+2+2+1+2+1+2+1+2+1, _T("%04d%02d%02dT%02d:%02d:%02d"), year, month, day, hour+timezoneh, min+timezonem, sec);
			else
				mir_sntprintf(p, 4+2+2+1+2+1+2+1+2+1, _T("%04d%02d%02dT%02d:%02d:%02d"), year, month, day, hour, min, sec);
		}
	}
	// 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 ( _stscanf( p, _T("%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
	t = mktime( &timestamp );

	_tzset();
	t -= _timezone;

	if ( t >= 0 )
		return t;
	else
		return ( time_t ) 0;
}

TCHAR* StrReplace (TCHAR* Search, TCHAR* Replace, TCHAR* Resource)
{
	int i = 0;
	int SearchLen = (int)_tcslen(Search);
	TCHAR* Work = mir_tstrdup(Replace);
	int ReplaceLen = (int)_tcslen(Work);

	TCHAR* Pointer = _tcsstr(Resource, Search);

	while (Pointer != NULL)
	{
		int PointerLen = (int)_tcslen(Pointer);
		int ResourceLen = (int)_tcslen(Resource);

		TCHAR* NewText = (TCHAR*)mir_calloc((ResourceLen - SearchLen + ReplaceLen + 1)*sizeof(TCHAR));

		_tcsncpy(NewText, Resource, ResourceLen - PointerLen);
		_tcscat(NewText, Work);
		_tcscat(NewText, Pointer + SearchLen);

		Resource = (TCHAR*)mir_alloc((ResourceLen - SearchLen + ReplaceLen + 1)*sizeof(TCHAR));

		for (i = 0; i < (ResourceLen - SearchLen + ReplaceLen); i++)
			Resource[i] = NewText[i];
		Resource[i] = 0;
		mir_free(NewText);

		Pointer = _tcsstr(Resource + (ResourceLen - PointerLen + ReplaceLen), Search);
	}
	mir_free(Work);

	return Resource;
}

BOOL DownloadFile(LPCTSTR tszURL, LPCTSTR tszLocal)
{
	HANDLE hFile = NULL;
	DWORD dwBytes;

	NETLIBHTTPREQUEST nlhr = {0};
	nlhr.cbSize = sizeof(nlhr);
	nlhr.requestType = REQUEST_GET;
	nlhr.flags = NLHRF_DUMPASTEXT | NLHRF_HTTP11;
	char* szUrl = mir_t2a(tszURL);
	nlhr.szUrl = szUrl;
	nlhr.headersCount = 4;
	nlhr.headers=(NETLIBHTTPHEADER*)mir_alloc(sizeof(NETLIBHTTPHEADER)*nlhr.headersCount);
	nlhr.headers[0].szName   = "User-Agent";
	nlhr.headers[0].szValue = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)";
	nlhr.headers[1].szName  = "Connection";
	nlhr.headers[1].szValue = "close";
	nlhr.headers[2].szName  = "Cache-Control";
	nlhr.headers[2].szValue = "no-cache";
	nlhr.headers[3].szName  = "Pragma";
	nlhr.headers[3].szValue = "no-cache";

	bool ret = false;
	NETLIBHTTPREQUEST *pReply = (NETLIBHTTPREQUEST*)CallService(MS_NETLIB_HTTPTRANSACTION, (WPARAM)hNetlibUser,(LPARAM)&nlhr);

	if(pReply)
	{
		if ((200 == pReply->resultCode) && (pReply->dataLength > 0)) 
		{
			char *date = NULL, *size = NULL;
			for (int i = 0; i < pReply->headersCount; i++)
			{
				if (lstrcmpiA(pReply->headers[i].szName, "Last-Modified") == 0)
				{
					date = pReply->headers[i].szValue;
					continue;
				}
				if (lstrcmpiA(pReply->headers[i].szName, "Content-Length") == 0)
				{
					size = pReply->headers[i].szValue;
					continue;
				}
			}
			if (date != NULL && size != NULL)
			{
				TCHAR *tdate = mir_a2t(date);
				TCHAR *tsize = mir_a2t(size);
				int fh;
				struct _stat buf;

		        fh = _topen(tszLocal, _O_RDONLY);
				if (fh != -1)
				{
					_fstat(fh, &buf);
					time_t modtime = DateToUnixTime(tdate, 0);
					time_t filemodtime = mktime(localtime(&buf.st_atime));
					if (modtime > filemodtime && buf.st_size != _ttoi(tsize))
					{
						hFile = CreateFile(tszLocal, GENERIC_READ | GENERIC_WRITE, NULL, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
						WriteFile(hFile, pReply->pData, (DWORD)pReply->dataLength, &dwBytes, NULL);
						ret = true;
					}
					_close(fh);
				}
				else
				{
					hFile = CreateFile(tszLocal, GENERIC_READ | GENERIC_WRITE, NULL, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
					WriteFile(hFile, pReply->pData, (DWORD)pReply->dataLength, &dwBytes, NULL);
					ret = true;
				}
				mir_free(tdate);
				mir_free(tsize);
			}
			else
			{
				hFile = CreateFile(tszLocal, GENERIC_READ | GENERIC_WRITE, NULL, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
				WriteFile(hFile, pReply->pData, (DWORD)pReply->dataLength, &dwBytes, NULL);
				ret = true;
			}
		}
		CallService(MS_NETLIB_FREEHTTPREQUESTSTRUCT,0,(LPARAM)pReply);
	}

	mir_free(szUrl);
	mir_free(nlhr.headers);

	if (hFile)
		CloseHandle(hFile);

	return ret;
}

size_t PathToRelative(const TCHAR *pSrc, TCHAR *pOut)
{	return CallService( MS_UTILS_PATHTORELATIVET, (WPARAM)pSrc, (LPARAM)pOut );
}

TCHAR* CheckFeed(TCHAR* tszURL, HWND hwndDlg)
{
	char *szData = NULL;
	DBVARIANT dbVar = {0};
	if (CallProtoService(MODULE, PS_GETSTATUS, 0, 0) != ID_STATUS_OFFLINE)
	{
		GetNewsData(tszURL, &szData, NULL, hwndDlg);
		if (szData)
		{
			TCHAR *tszData = mir_a2t(szData);
			int bytesParsed = 0;
			HXML hXml = xi.parseString(tszData, &bytesParsed, NULL);
			BOOL UtfEncode = FALSE;
			TCHAR *newtszData = mir_utf8decodeT(szData);
			if (newtszData)
			{
				UtfEncode = TRUE;
				mir_free(newtszData);
			}
			mir_free(tszData);
			mir_free(szData);
			if(hXml != NULL)
			{
				int childcount = 0;
				HXML node = xi.getChild(hXml, childcount);
				while(node)
				{
					if (lstrcmpi(xi.getName(node), _T("rss")) == 0 || lstrcmpi(xi.getName(node), _T("rdf")) == 0)
					{
						HXML chan = xi.getChild(node, 0);
						for (int j = 0; j < xi.getChildCount(chan); j++)
						{
							HXML child = xi.getChild(chan, j);
							if (lstrcmpi(xi.getName(child), _T("title")) == 0)
							{
								TCHAR mes[MAX_PATH];
								mir_sntprintf(mes, SIZEOF(mes), TranslateT("%s\nis a valid feed's address."), tszURL);
								MessageBox(NULL, mes, TranslateT("New Aggregator"), MB_OK|MB_ICONINFORMATION);
								TCHAR *tszTitle = (TCHAR*)xi.getText(child);
								if (UtfEncode)
								{
									char* szstring = mir_t2a(tszTitle);
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									tszTitle = (TCHAR*)mir_alloc(sizeof(TCHAR)*lstrlen(tszstring)+1);
									_tcscpy(tszTitle, tszstring);
									mir_free(tszstring);
									mir_free(szstring);
								}
								return tszTitle;
							}
						}
					}
					else if (lstrcmpi(xi.getName(node), _T("feed")) == 0)
					{
						for (int j = 0; j < xi.getChildCount(node); j++)
						{
							HXML child = xi.getChild(node, j);
							if (lstrcmpi(xi.getName(child), _T("title")) == 0)
							{
								TCHAR mes[MAX_PATH];
								mir_sntprintf(mes, SIZEOF(mes), TranslateT("%s\nis a valid feed's address."), tszURL);
								MessageBox(NULL, mes, TranslateT("New Aggregator"), MB_OK|MB_ICONINFORMATION);
								TCHAR *tszTitle = (TCHAR*)xi.getText(child);
								if (UtfEncode)
								{
									char* szstring = mir_t2a(tszTitle);
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									tszTitle = (TCHAR*)mir_alloc(sizeof(TCHAR)*lstrlen(tszstring)+1);
									_tcscpy(tszTitle, tszstring);
									mir_free(tszstring);
									mir_free(szstring);
								}
								return tszTitle;
							}
						}
					}
					childcount +=1;
					node = xi.getChild(hXml, childcount);
				}
			}
			xi.destroyNode(hXml);
		}
		else
		{
			TCHAR mes[MAX_PATH];
			mir_sntprintf(mes, SIZEOF(mes), TranslateT("%s\nis a not valid feed's address."), tszURL);
			MessageBox(NULL, mes, TranslateT("New Aggregator"), MB_OK|MB_ICONERROR);
		}
	}
	return NULL;
}

VOID CheckCurrentFeed(HANDLE hContact)
{
	char *szData = NULL;
	DBVARIANT dbURL = {0};
	if (DBGetContactSettingTString(hContact, MODULE, "URL", &dbURL))
		return;
	else if ((DBGetContactSettingWord(hContact, MODULE, "Status", ID_STATUS_OFFLINE) != ID_STATUS_OFFLINE) && DBGetContactSettingByte(hContact, MODULE, "CheckState", 1) != 0)
	{
		GetNewsData(dbURL.ptszVal, &szData, hContact, NULL);
		DBFreeVariant(&dbURL);
		if (szData)
		{
			TCHAR *tszData = mir_a2t(szData);
			int bytesParsed = 0;
			HXML hXml = xi.parseString(tszData, &bytesParsed, NULL);
			BOOL UtfEncode = FALSE;
			TCHAR *newtszData = mir_utf8decodeT(szData);
			if (newtszData)
			{
				UtfEncode = TRUE;
				mir_free(newtszData);
			}
			mir_free(tszData);
			mir_free(szData);
			if(hXml != NULL)
			{
				int childcount = 0;
				HXML node = xi.getChild(hXml, childcount);
				while(node)
				{
					if (lstrcmpi(xi.getName(node), _T("rss")) == 0 || lstrcmpi(xi.getName(node), _T("rdf")) == 0)
					{
						if (lstrcmpi(xi.getName(node), _T("rss")) == 0)
						{
							for (int i = 0; i < xi.getAttrCount(node); i++)
							{
								if (lstrcmpi(xi.getAttrName(node, i), _T("version")) == 0)
								{
									TCHAR ver[MAX_PATH];
									mir_sntprintf(ver, SIZEOF(ver), _T("RSS %s"), xi.getAttrValue(node, xi.getAttrName(node, i)));
									DBWriteContactSettingTString(hContact, MODULE, "MirVer", ver);
									break;
								}
							}
						}
						else if (lstrcmpi(xi.getName(node), _T("rdf")) == 0)
						{
							DBWriteContactSettingTString(hContact, MODULE, "MirVer", _T("RSS 1.0"));
						}

						HXML chan = xi.getChild(node, 0);
						for (int j = 0; j < xi.getChildCount(chan); j++)
						{
							HXML child = xi.getChild(chan, j);
							if (lstrcmpi(xi.getName(child), _T("title")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "FirstName", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "FirstName", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("link")) == 0)
							{
								DBWriteContactSettingTString(hContact, MODULE, "Homepage", xi.getText(child));
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("description")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "About", tszstring);
									DBWriteContactSettingTString(hContact, "CList", "StatusMsg", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "About", tszstring);
									DBWriteContactSettingTString(hContact, "CList", "StatusMsg", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("language")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Language1", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Language1", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("managingEditor")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "e-mail", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "e-mail", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("category")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Interest0Text", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Interest0Text", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("image")) == 0)
							{
								for (int x = 0; x < xi.getChildCount(child); x++)
								{
									HXML imageval = xi.getChild(child, x);
									if (lstrcmpi(xi.getName(imageval), _T("url")) == 0)
									{
										LPCTSTR url = xi.getText(imageval);
										DBWriteContactSettingTString(hContact, MODULE, "ImageURL", url);

										PROTO_AVATAR_INFORMATIONT pai = {NULL};
										pai.cbSize = sizeof(pai);
										pai.hContact = hContact;
										DBVARIANT dbVar = {0};

										if (!DBGetContactSettingTString(hContact, MODULE, "Nick", &dbVar))
										{
											TCHAR *ext = _tcsrchr((TCHAR*)url, _T('.')) + 1;
											pai.format = GetImageFormat(ext);

											TCHAR *filename = dbVar.ptszVal;
											mir_sntprintf(pai.filename, SIZEOF(pai.filename), _T("%s\\%s.%s"), tszRoot, filename, ext);
											if (DownloadFile(url, pai.filename))
											{
												DBWriteContactSettingTString(hContact, MODULE, "ImagePath", pai.filename);
												ProtoBroadcastAck(MODULE, hContact, ACKTYPE_AVATAR, ACKRESULT_SUCCESS, (HANDLE) &pai, NULL);
											}
											else
												ProtoBroadcastAck(MODULE, hContact, ACKTYPE_AVATAR, ACKRESULT_FAILED, (HANDLE) &pai, NULL);
											DBFreeVariant(&dbVar);
											break;
										}
									}
									else
									{
										DBDeleteContactSetting(hContact, MODULE, "ImageURL");
										DBDeleteContactSetting(hContact, MODULE, "ImagePath");
									}
								}
							}
							if (lstrcmpi(xi.getName(child), _T("lastBuildDate")) == 0 && xi.getText(child))
							{
								TCHAR *lastupdtime = (TCHAR*)xi.getText(child);
								time_t stamp = DateToUnixTime(lastupdtime, 0);
								double deltaupd = difftime(time(NULL), stamp);
								double deltacheck = difftime(time(NULL), DBGetContactSettingDword(hContact, MODULE, "LastCheck", 0));
								if (deltaupd - deltacheck >= 0)
								{
									DBWriteContactSettingDword(hContact, MODULE, "LastCheck", time(NULL));
									xi.destroyNode(hXml);
									return;
								}
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("item")) == 0)
							{
								TCHAR *title = NULL, *link = NULL, *datetime = NULL, *descr = NULL, *author = NULL, *comments = NULL, *guid = NULL, *category = NULL;
								for (int z = 0; z < xi.getChildCount(child); z++)
								{
									HXML itemval = xi.getChild(child, z);
									if (lstrcmpi(xi.getName(itemval), _T("title")) == 0)
									{
										title = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("link")) == 0)
									{
										link = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("pubDate")) == 0)
									{
										datetime = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("dc:date")) == 0)
									{
										datetime = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("description")) == 0)
									{
										descr = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("author")) == 0)
									{
										author = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("comments")) == 0)
									{
										comments = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("guid")) == 0)
									{
										guid = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("category")) == 0)
									{
										category = (TCHAR*)xi.getText(itemval);
										continue;
									}
								}
								TCHAR* message;
								DBVARIANT dbMsg = {0};
								if (DBGetContactSettingTString(hContact, MODULE, "MsgFormat", &dbMsg))
									message = _T(TAGSDEFAULT);
								else
								{
									message = (TCHAR*)mir_alloc(_tcslen(dbMsg.ptszVal)*sizeof(TCHAR));
									memcpy(message, dbMsg.ptszVal, _tcslen(dbMsg.ptszVal)*sizeof(TCHAR));
									message[_tcslen(dbMsg.ptszVal)] = 0;
									DBFreeVariant(&dbMsg);
								}
								if (lstrcmp(title, NULL) == 0)
									message = StrReplace(_T("#<title>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<title>#"), title, message);
								if (lstrcmp(link, NULL) == 0)
									message = StrReplace(_T("#<link>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<link>#"), link, message);
								if (lstrcmp(descr, NULL) == 0)
									message = StrReplace(_T("#<description>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<description>#"), descr, message);
								if (lstrcmp(author, NULL) == 0)
									message = StrReplace(_T("#<author>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<author>#"), author, message);
								if (lstrcmp(comments, NULL) == 0)
									message = StrReplace(_T("#<comments>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<comments>#"), comments, message);
								if (lstrcmp(guid, NULL) == 0)
									message = StrReplace(_T("#<guid>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<guid>#"), guid, message);
								if (lstrcmp(category, NULL) == 0)
									message = StrReplace(_T("#<category>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<category>#"), category, message);

								message = StrReplace(_T("<br>"), _T("\n"), message);
								message = StrReplace(_T("<br/>"), _T("\n"), message);
								message = StrReplace(_T("<br />"), _T("\n"), message);

								char* pszUtf;
								if (!UtfEncode)
									pszUtf = mir_utf8encodeT(message);
								else
									pszUtf = mir_t2a(message);
								decode_html_entities_utf8(pszUtf, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(pszUtf);
								strcpy(pszUtf, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								xRegEx = "^\\s+";
								xStr = pszUtf;
								strcpy(pszUtf, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());

								time_t stamp;
								if (lstrcmpi(datetime, NULL) ==0)
									stamp = time(NULL);
								else
									stamp = DateToUnixTime(datetime, 0);

								DBEVENTINFO olddbei = { 0 };
								HANDLE		hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDFIRST, (WPARAM)hContact, 0);
								BOOL MesExist = FALSE;
								while(hDbEvent)
								{
									ZeroMemory(&olddbei, sizeof(olddbei));
									olddbei.cbSize = sizeof(olddbei);
									olddbei.cbBlob = CallService(MS_DB_EVENT_GETBLOBSIZE, (WPARAM)hDbEvent, 0);
									olddbei.pBlob = (PBYTE)mir_alloc(olddbei.cbBlob);
									CallService(MS_DB_EVENT_GET, (WPARAM)hDbEvent, (LPARAM)&olddbei);
									if (olddbei.cbBlob == lstrlenA(pszUtf) + 1 && lstrcmpA((char*)olddbei.pBlob, pszUtf) == 0)
										MesExist = TRUE;
									hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDNEXT, (WPARAM)hDbEvent, 0);
									mir_free(olddbei.pBlob);
								}

								if (!MesExist)
								{
									DBEVENTINFO dbei = {0};
									dbei.cbSize = sizeof(dbei);
									dbei.eventType = EVENTTYPE_MESSAGE;
									dbei.flags = DBEF_UTF;
									dbei.szModule = MODULE;
									dbei.timestamp = stamp;
									dbei.cbBlob = lstrlenA(pszUtf) + 1;
									dbei.pBlob = (PBYTE)pszUtf;
									CallService(MS_DB_EVENT_ADD, (WPARAM)hContact, (LPARAM)&dbei);
								}
								mir_free(pszUtf);
								mir_free(message);
							}
						}
					}
					else if (lstrcmpi(xi.getName(node), _T("feed")) == 0)
					{
						DBWriteContactSettingTString(hContact, MODULE, "MirVer", _T("Atom 3"));
						for (int j = 0; j < xi.getChildCount(node); j++)
						{
							HXML child = xi.getChild(node, j);
							if (lstrcmpi(xi.getName(child), _T("title")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "FirstName", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "FirstName", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("link")) == 0)
							{
								for (int x = 0; x < xi.getAttrCount(child); x++)
								{
									if (lstrcmpi(xi.getAttrName(child, x), _T("rel")) == 0)
									{
										if (lstrcmpi(xi.getAttrValue(child, xi.getAttrName(child, x)), _T("self")) == 0)
											break;
									}
									if (lstrcmpi(xi.getAttrName(child, x), _T("href")) == 0)
									{
										DBWriteContactSettingTString(hContact, MODULE, "Homepage", xi.getAttrValue(child, xi.getAttrName(child, x)));
									}
								}
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("subtitle")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "About", tszstring);
									DBWriteContactSettingTString(hContact, "CList", "StatusMsg", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "About", tszstring);
									DBWriteContactSettingTString(hContact, "CList", "StatusMsg", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("language")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Language1", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Language1", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("author")) == 0)
							{
								for (int x = 0; x < xi.getChildCount(child); x++)
								{
									HXML authorval = xi.getChild(child, x);
									if (lstrcmpi(xi.getName(authorval), _T("name")) == 0)
									{
										DBWriteContactSettingTString(hContact, MODULE, "e-mail", xi.getText(authorval));
										break;
									}
								}
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("category")) == 0 && xi.getText(child))
							{
								char* szstring = mir_t2a(xi.getText(child));
								decode_html_entities_utf8(szstring, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(szstring);
								strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								if (UtfEncode)
								{
									TCHAR* tszstring = mir_utf8decodeT(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Interest0Text", tszstring);
									mir_free(tszstring);
								}
								else
								{
									TCHAR* tszstring = mir_a2t(szstring);
									DBWriteContactSettingTString(hContact, MODULE, "Interest0Text", tszstring);
									mir_free(tszstring);
								}
								mir_free(szstring);
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("icon")) == 0)
							{
								for (int x = 0; x < xi.getChildCount(child); x++)
								{
									HXML imageval = xi.getChild(child, x);
									if (lstrcmpi(xi.getName(imageval), _T("url")) == 0)
									{
										LPCTSTR url = xi.getText(imageval);
										DBWriteContactSettingTString(hContact, MODULE, "ImageURL", url);

										PROTO_AVATAR_INFORMATIONT pai = {NULL};
										pai.cbSize = sizeof(pai);
										pai.hContact = hContact;
										DBVARIANT dbVar = {0};

										if (!DBGetContactSettingTString(hContact, MODULE, "Nick", &dbVar))
										{
											TCHAR *ext = _tcsrchr((TCHAR*)url, _T('.')) + 1;
											pai.format = GetImageFormat(ext);

											TCHAR *filename = dbVar.ptszVal;
											mir_sntprintf(pai.filename, SIZEOF(pai.filename), _T("%s\\%s.%s"), tszRoot, filename, ext);
											if (DownloadFile(url, pai.filename))
											{
												DBWriteContactSettingTString(hContact, MODULE, "ImagePath", pai.filename);
												ProtoBroadcastAck(MODULE, hContact, ACKTYPE_AVATAR, ACKRESULT_SUCCESS, (HANDLE) &pai, NULL);
											}
											else
												ProtoBroadcastAck(MODULE, hContact, ACKTYPE_AVATAR, ACKRESULT_FAILED, (HANDLE) &pai, NULL);
											DBFreeVariant(&dbVar);
											break;
										}
									}
									else
									{
										DBDeleteContactSetting(hContact, MODULE, "ImageURL");
										DBDeleteContactSetting(hContact, MODULE, "ImagePath");
									}
								}
							}
							if (lstrcmpi(xi.getName(child), _T("updated")) == 0 && xi.getText(child))
							{
								TCHAR *lastupdtime = (TCHAR*)xi.getText(child);
								time_t stamp = DateToUnixTime(lastupdtime, 1);
								double deltaupd = difftime(time(NULL), stamp);
								double deltacheck = difftime(time(NULL), DBGetContactSettingDword(hContact, MODULE, "LastCheck", 0));
								if (deltaupd - deltacheck >= 0)
								{
									DBWriteContactSettingDword(hContact, MODULE, "LastCheck", time(NULL));
									xi.destroyNode(hXml);
									return;
								}
								continue;
							}
							if (lstrcmpi(xi.getName(child), _T("entry")) == 0)
							{
								TCHAR *title = NULL, *link = NULL, *datetime = NULL, *descr = NULL, *author = NULL, *comments = NULL, *guid = NULL, *category = NULL;
								for (int z = 0; z < xi.getChildCount(child); z++)
								{
									HXML itemval = xi.getChild(child, z);
									if (lstrcmpi(xi.getName(itemval), _T("title")) == 0 && xi.getText(itemval))
									{
										char* szstring = mir_t2a(xi.getText(itemval));
										decode_html_entities_utf8(szstring, 0);
										boost::regex xRegEx("<(.|\n)*?>");
										std::string xStr(szstring);
										strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
										title = mir_a2t(szstring);
										mir_free(szstring);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("link")) == 0)
									{
										for (int x = 0; x < xi.getAttrCount(itemval); x++)
										{
											if (lstrcmpi(xi.getAttrName(itemval, x), _T("href")) == 0)
											{
												link = (TCHAR*)xi.getAttrValue(itemval, xi.getAttrName(itemval, x));
												break;
											}
										}
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("updated")) == 0)
									{
										datetime = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if ((lstrcmpi(xi.getName(itemval), _T("summary")) == 0 || lstrcmpi(xi.getName(itemval), _T("content")) == 0) && xi.getText(itemval))
									{
										char* szstring = mir_t2a(xi.getText(itemval));
										decode_html_entities_utf8(szstring, 0);
										boost::regex xRegEx("<(.|\n)*?>");
										std::string xStr(szstring);
										strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
										descr = mir_a2t(szstring);
										mir_free(szstring);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("author")) == 0)
									{
										for (int x = 0; x < xi.getChildCount(itemval); x++)
										{
											HXML authorval = xi.getChild(itemval, x);
											if (lstrcmpi(xi.getName(authorval), _T("name")) == 0 && xi.getText(authorval))
											{
												char* szstring = mir_t2a(xi.getText(authorval));
												decode_html_entities_utf8(szstring, 0);
												boost::regex xRegEx("<(.|\n)*?>");
												std::string xStr(szstring);
												strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
												author = mir_a2t(szstring);
												mir_free(szstring);
												break;
											}
										}
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("comments")) == 0 && xi.getText(itemval))
									{
										char* szstring = mir_t2a(xi.getText(itemval));
										decode_html_entities_utf8(szstring, 0);
										boost::regex xRegEx("<(.|\n)*?>");
										std::string xStr(szstring);
										strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
										comments = mir_a2t(szstring);
										mir_free(szstring);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("id")) == 0)
									{
										guid = (TCHAR*)xi.getText(itemval);
										continue;
									}
									if (lstrcmpi(xi.getName(itemval), _T("category")) == 0)
									{
										for (int x = 0; x < xi.getAttrCount(itemval); x++)
										{
											if (lstrcmpi(xi.getAttrName(itemval, x), _T("term")) == 0 && xi.getText(itemval))
											{
												char* szstring = mir_t2a(xi.getAttrValue(itemval, xi.getAttrName(itemval, x)));
												decode_html_entities_utf8(szstring, 0);
												boost::regex xRegEx("<(.|\n)*?>");
												std::string xStr(szstring);
												strcpy(szstring, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
												category = mir_a2t(szstring);
												mir_free(szstring);
												break;
											}
										}
										continue;
									}
								}
								TCHAR* message;
								DBVARIANT dbMsg = {0};
								if (DBGetContactSettingTString(hContact, MODULE, "MsgFormat", &dbMsg))
									message = _T(TAGSDEFAULT);
								else
								{
									message = (TCHAR*)mir_alloc(_tcslen(dbMsg.ptszVal)*sizeof(TCHAR));
									memcpy(message, dbMsg.ptszVal, _tcslen(dbMsg.ptszVal)*sizeof(TCHAR));
									message[_tcslen(dbMsg.ptszVal)] = 0;
									DBFreeVariant(&dbMsg);
								}
								if (lstrcmp(title, NULL) == 0)
									message = StrReplace(_T("#<title>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<title>#"), title, message);
								if (lstrcmp(link, NULL) == 0)
									message = StrReplace(_T("#<link>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<link>#"), link, message);
								if (lstrcmp(descr, NULL) == 0)
									message = StrReplace(_T("#<description>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<description>#"), descr, message);
								if (lstrcmp(author, NULL) == 0)
									message = StrReplace(_T("#<author>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<author>#"), author, message);
								if (lstrcmp(comments, NULL) == 0)
									message = StrReplace(_T("#<comments>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<comments>#"), comments, message);
								if (lstrcmp(guid, NULL) == 0)
									message = StrReplace(_T("#<guid>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<guid>#"), guid, message);
								if (lstrcmp(category, NULL) == 0)
									message = StrReplace(_T("#<category>#"), TranslateT("empty"), message);
								else
									message = StrReplace(_T("#<category>#"), category, message);

								message = StrReplace(_T("<br>"), _T("\n"), message);
								message = StrReplace(_T("<br/>"), _T("\n"), message);
								message = StrReplace(_T("<br />"), _T("\n"), message);

								char* pszUtf;
								if (!UtfEncode)
									pszUtf = mir_utf8encodeT(message);
								else
									pszUtf = mir_t2a(message);
								decode_html_entities_utf8(pszUtf, 0);
								boost::regex xRegEx("<(.|\n)*?>");
								std::string xStr(pszUtf);
								strcpy(pszUtf, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());
								xRegEx = "^\\s+";
								xStr = pszUtf;
								strcpy(pszUtf, boost::regex_replace(xStr, xRegEx, "", boost::match_default | boost::format_perl).c_str());

								time_t stamp;
								if (lstrcmpi(datetime, NULL) ==0)
									stamp = time(NULL);
								else
									stamp = DateToUnixTime(datetime, 1);

								DBEVENTINFO olddbei = { 0 };
								HANDLE		hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDFIRST, (WPARAM)hContact, 0);
								BOOL MesExist = FALSE;
								while(hDbEvent)
								{
									ZeroMemory(&olddbei, sizeof(olddbei));
									olddbei.cbSize = sizeof(olddbei);
									olddbei.cbBlob = CallService(MS_DB_EVENT_GETBLOBSIZE, (WPARAM)hDbEvent, 0);
									olddbei.pBlob = (PBYTE)malloc(olddbei.cbBlob);
									CallService(MS_DB_EVENT_GET, (WPARAM)hDbEvent, (LPARAM)&olddbei);
									if (olddbei.cbBlob == lstrlenA(pszUtf) + 1 && lstrcmpA((char*)olddbei.pBlob, pszUtf) == 0)
										MesExist = TRUE;
									hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDNEXT, (WPARAM)hDbEvent, 0);
								}

								if (!MesExist)
								{
									DBEVENTINFO dbei = {0};
									dbei.cbSize = sizeof(dbei);
									dbei.eventType = EVENTTYPE_MESSAGE;
									dbei.flags = DBEF_UTF;
									dbei.szModule = MODULE;
									dbei.timestamp = stamp;
									dbei.cbBlob = lstrlenA(pszUtf) + 1;
									dbei.pBlob = (PBYTE)pszUtf;
									CallService(MS_DB_EVENT_ADD, (WPARAM)hContact, (LPARAM)&dbei);
								}
								mir_free(pszUtf);
							}
						}
					}
					childcount +=1;
					node = xi.getChild(hXml, childcount);
				}
				xi.destroyNode(hXml);
			}
		}
		DBWriteContactSettingDword(hContact, MODULE, "LastCheck", time(NULL));
	}
}