/*

Miranda IM: the free IM client for Microsoft* Windows*

Copyright 2000-2009 Miranda ICQ/IM project, 
all portions of this codebase are copyrighted to the people
listed in contributors.txt.

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 "..\..\core\commonheaders.h"

#define MS_SYSTEM_GET_MD5I	"Miranda/System/GetMD5I"

INT_PTR ResizeDialog(WPARAM wParam, LPARAM lParam);
int InitOpenUrl(void);
int InitWindowList(void);
int InitPathUtils(void);
void FreeWindowList(void);
int InitHyperlink(void);
int InitColourPicker(void);
int InitJson(void);
int InitBitmapFilter(void);
void InitXmlApi(void);
void InitTimeZones(void);
void UninitTimeZones(void);
int InitCrypt(void);

static BOOL bModuleInitialized = FALSE;

static struct CountryListEntry countries[] = {
	{0   , "Unspecified"}, 
	{9999, "Other"}, 
	{0xFFFF, "Unknown"}, 
	{93  , "Afghanistan"}, 
	{355 , "Albania"}, 
	{213 , "Algeria"}, 
	{376 , "Andorra"}, 
	{244 , "Angola"}, 
	{1264, "Anguilla"}, 	/* change county code to NANP (from 101) */
	{1268, "Antigua and Barbuda"}, 	/* change county code to NANP (from 1021) */
//	{5902, "Antilles"}, 	/* removed: it is not a country, it's a group of islands from diffrent countries (all are included in the list)*/
	{54  , "Argentina"}, 
	{374 , "Armenia"}, 
	{297 , "Aruba"}, 
	{247 , "Ascension Island"}, 
	{61   , "Australia"}, 
	{6720 , "Australia, Antarctic Territory"}, 	/* added country code 672(0)*/
	{614  , "Australia, Christmas Island"}, 	/* rename (from Christmas Island) and change to official county code 61(4) (from 672) */
	{61891, "Australia, Cocos (Keeling) Islands"}, 	/* rename and change to official county code 61(891) (from 6102) */
	{6723 , "Australia, Norfolk Island"}, 	/* rename (from Norfolk Island) and change to official county code 672(3) (from 6722) */
	{43  , "Austria"}, 
	{994 , "Azerbaijan"}, 
	{1242, "Bahamas"}, 	/* change county code to NANP (from 103) */
	{973 , "Bahrain"}, 
	{880 , "Bangladesh"}, 
	{1246, "Barbados"}, 	/* change county code to NANP (from 103) */
//	{120 , "Barbuda"}, 	/* removed: it is not a country and no special island, see Antigua and Barbuda*/
	{375 , "Belarus"}, 
	{32  , "Belgium"}, 
	{501 , "Belize"}, 
	{229 , "Benin"}, 
	{1441, "Bermuda"}, 	/* change county code to NANP (from 105) */
	{975 , "Bhutan"}, 
	{591 , "Bolivia"}, 
	{387 , "Bosnia and Herzegovina"}, 
	{267 , "Botswana"}, 
	{55  , "Brazil"}, 
	{673 , "Brunei"}, 
	{359 , "Bulgaria"}, 
	{226 , "Burkina Faso"}, 
	{257 , "Burundi"}, 
	{855 , "Cambodia"}, 
	{237 , "Cameroon"}, 
	{1002, "Canada"}, 	/* change county code to NANP (from 107 to virtual 1(002) -> reflect NANP*/
	{238 , "Cape Verde Islands"}, 
	{1345, "Cayman Islands"}, 	/* change county code to NANP (from 108) */
	{236 , "Central African Republic"}, 
	{235 , "Chad"}, 
	{56  , "Chile, Republic of"}, 
	{86  , "China"}, 
//	{6101, "Cocos-Keeling Islands"}, 	/* removed (double): see Australia, Cocos (Keeling) Islands */
	{57  , "Colombia"}, 
	{269 , "Comoros"}, 	/* change county code (from 2691) */
	{243 , "Congo, Democratic Republic of (Zaire)"}, 
	{242 , "Congo, Republic of the"}, 
	{682 , "Cook Islands"}, 
	{506 , "Costa Rica"}, 
	{225 , "Cote d'Ivoire (Ivory Coast)"}, 
	{385 , "Croatia"}, 
	{53  , "Cuba"}, 
	{357 , "Greek, Republic of South Cyprus"}, 	/* rename coz Turkey, Republic of Northern Cyprus */
	{420 , "Czech Republic"}, 
	{45  , "Denmark"}, 
	{246 , "Diego Garcia"}, 
	{253 , "Djibouti"}, 
	{1767, "Dominica"}, 	/* change county code to NANP (from 109) */
	{1809, "Dominican Republic"}, 	/* change county code to NANP 809, 829, 849 (from 110) */
	{593 , "Ecuador"}, 
	{20  , "Egypt"}, 
	{503 , "El Salvador"}, 
	{240 , "Equatorial Guinea"}, 
	{291 , "Eritrea"}, 
	{372 , "Estonia"}, 
	{251 , "Ethiopia"}, 
	{3883, "Europe"}, 	/* add county code  +388 3 official European Telephony Numbering Space*/
	{298 , "Faeroe Islands"}, 
	{500 , "Falkland Islands"}, 
	{679 , "Fiji"}, 
	{358 , "Finland"}, 
	{33  , "France"}, 
	{5901, "French Antilles"}, 
	{594 , "French Guiana"}, 
	{689 , "French Polynesia"}, 
	{241 , "Gabon"}, 
	{220 , "Gambia"}, 
	{995 , "Georgia"}, 
	{49  , "Germany"}, 
	{233 , "Ghana"}, 
	{350 , "Gibraltar"}, 
	{30  , "Greece"}, 
	{299 , "Greenland"}, 
	{1473, "Grenada"}, 	/* change county code to NANP (from 111) */
	{590 , "Guadeloupe"}, 
	{1671, "Guam, US Territory of"}, 	/* change county code to NANP (from 671) */
	{502 , "Guatemala"}, 
	{224 , "Guinea"}, 
	{245 , "Guinea-Bissau"}, 
	{592 , "Guyana"}, 
	{509 , "Haiti"}, 
	{504 , "Honduras"}, 
	{852 , "Hong Kong"}, 
	{36  , "Hungary"}, 
	{354 , "Iceland"}, 
	{91  , "India"}, 
	{62  , "Indonesia"}, 
	{98  , "Iran (Islamic Republic of)"}, 
	{964 , "Iraq"}, 
	{353 , "Ireland"}, 
	{972 , "Israel"}, 
	{39  , "Italy"}, 
	{1876, "Jamaica"}, 	/* change county code to NANP (from 112) */
	{81  , "Japan"}, 
	{962 , "Jordan"}, 
	{705 , "Kazakhstan"}, 
	{254 , "Kenya"}, 
	{686 , "Kiribati"}, 
	{850 , "Korea, North"}, 
	{82  , "Korea, South"}, 
	{965 , "Kuwait"}, 
	{996 , "Kyrgyzstan"}, 	/* change county code (from 706) */
	{856 , "Laos"}, 
	{371 , "Latvia"}, 
	{961 , "Lebanon"}, 
	{266 , "Lesotho"}, 
	{231 , "Liberia"}, 
	{218 , "Libyan Arab Jamahiriya"}, 
	{423 , "Liechtenstein"}, 	/* change county code (from 4101) */
	{370 , "Lithuania"}, 
	{352 , "Luxembourg"}, 
	{853 , "Macau"}, 
	{389 , "Macedonia, Republic of"}, 	/* rename coz war */
	{261 , "Madagascar"}, 
	{265 , "Malawi"}, 
	{60  , "Malaysia"}, 
	{960 , "Maldives"}, 
	{223 , "Mali"}, 
	{356 , "Malta"}, 
	{692 , "Marshall Islands"}, 
	{596 , "Martinique"}, 
	{222 , "Mauritania"}, 
	{230 , "Mauritius"}, 
	{262 , "Mayotte Island"}, 	/* change county code coz bug (from 269) */
	{52  , "Mexico"}, 
	{691 , "Micronesia, Federated States of"}, 
	{373 , "Moldova, Republic of"}, 
	{377 , "Monaco"}, 
	{976 , "Mongolia"}, 
	{1664, "Montserrat"}, 	/* change county code to NANP (from 113) */
	{212 , "Morocco"}, 
	{258 , "Mozambique"}, 
	{95  , "Myanmar"}, 
	{264 , "Namibia"}, 
	{674 , "Nauru"}, 
	{977 , "Nepal"}, 
	{31  , "Netherlands"}, 
	{599  , "Netherlands Antilles"}, 	/* dissolved 2010 */
	{5995 , "St. Maarten"}, 	/* add new country in 2010 (from Netherlands Antilles) */
	{5999 , "Curacao"}, 	/* add new country in 2010 (from Netherlands Antilles) */
	{5997 , "Netherlands (Bonaire Island)"}, 	/* add new Part of Netherlands in 2010 (from Netherlands Antilles) */
	{59946, "Netherlands (Saba Island)"}, 	/* add new Part of Netherlands in 2010 (from Netherlands Antilles) */
	{59938, "Netherlands (St. Eustatius Island)"}, 	/* add new Part of Netherlands in 2010 (from Netherlands Antilles) */
	//	{114 , "Nevis"}, 	/* removed: it is not a country, it's part of Saint Kitts and Nevis*/
	{687 , "New Caledonia"}, 
	{64  , "New Zealand"}, 
	{505 , "Nicaragua"}, 
	{227 , "Niger"}, 
	{234 , "Nigeria"}, 
	{683 , "Niue"}, 
	{1670, "Northern Mariana Islands, US Territory of"}, 	/* added NANP */
	{47  , "Norway"}, 
	{968 , "Oman"}, 
	{92  , "Pakistan"}, 
	{680 , "Palau"}, 
	{507 , "Panama"}, 
	{675 , "Papua New Guinea"}, 
	{595 , "Paraguay"}, 
	{51  , "Peru"}, 
	{63  , "Philippines"}, 
	{48  , "Poland"}, 
	{351 , "Portugal"}, 
	{1939, "Puerto Rico"}, 	/* change county code to NANP 939, 787 (from 121) */
	{974 , "Qatar"}, 
	{262 , "Reunion Island"}, 
	{40  , "Romania"}, 
//	{6701, "Rota Island"}, 	/* removed: it is not a country it is part of Northern Mariana Islands, US Territory of */
	{7   , "Russia"}, 
	{250 , "Rwanda"}, 
	{1684, "Samoa (USA)"}, 	/* rename (from American Samoa) change county code to NANP (from 684) */
	{685 , "Samoa, Western"}, 	/* rename (from Western Samoa) */
	{290 , "Saint Helena"}, 
//	{115 , "Saint Kitts"}, 	/* removed: it is not a country it is part of Saint Kitts and Nevis*/
	{1869, "Saint Kitts and Nevis"}, 	/* change county code to NANP (from 1141) */
	{1758, "Saint Lucia"}, 	/* change county code to NANP (from 122) */
	{508 , "Saint Pierre and Miquelon"}, 
	{1784, "Saint Vincent and the Grenadines"}, 	/* change county code to NANP (from 116) */
//	{670 , "Saipan Island"}, 	/* removed: it is not a country it is part of Northern Mariana Islands, US Territory of */
	{378 , "San Marino"}, 
	{239 , "Sao Tome and Principe"}, 
	{966 , "Saudi Arabia"}, 
	{442 , "Scotland"}, 
	{221 , "Senegal"}, 
	{248 , "Seychelles"}, 
	{232 , "Sierra Leone"}, 
	{65  , "Singapore"}, 
	{421 , "Slovakia"}, 
	{386 , "Slovenia"}, 
	{677 , "Solomon Islands"}, 
	{252 , "Somalia"}, 
	{27  , "South Africa"}, 
	{34  , "Spain"}, 
	{3492, "Spain, Canary Islands"}, 	/*rename and change county code to 34(92) spain + canary code*/
	{94  , "Sri Lanka"}, 
	{249 , "Sudan"}, 
	{597 , "Suriname"}, 
	{268 , "Swaziland"}, 
	{46  , "Sweden"}, 
	{41  , "Switzerland"}, 
	{963 , "Syrian Arab Republic"}, 
	{886 , "Taiwan"}, 
	{992 , "Tajikistan"}, 	/* change county code (from 708) */
	{255 , "Tanzania"}, 
	{66  , "Thailand"}, 
//	{6702, "Tinian Island"}, 	/* removed: it is not a country it is part of Northern Mariana Islands, US Territory of */
	{670 , "Timor, East"}, 	/* added (is part off Northern Mariana Islands but not US Territory*/
	{228 , "Togo"}, 
	{690 , "Tokelau"}, 
	{676 , "Tonga"}, 
	{1868, "Trinidad and Tobago"}, 	/* change county code to NANP (from 1141) */
	{216 , "Tunisia"}, 
	{90   , "Turkey"}, 
	{90392, "Turkey, Republic of Northern Cyprus"}, 	/* added (is diffrent from Greek part)*/
	{993 , "Turkmenistan"}, 	/* change county code (from 709) */
	{1649, "Turks and Caicos Islands"}, 	/* change county code to NANP (from 118) */
	{688 , "Tuvalu"}, 
	{256 , "Uganda"}, 
	{380 , "Ukraine"}, 
	{971 , "United Arab Emirates"}, 
	{44  , "United Kingdom"}, 
	{598 , "Uruguay"}, 
	{1   , "USA"}, 
	{998 , "Uzbekistan"}, 	/* change county code (from 711) */
	{678 , "Vanuatu"}, 
	{379 , "Vatican City"}, 
	{58  , "Venezuela"}, 
	{84  , "Vietnam"}, 
	{1284, "Virgin Islands (UK)"}, 	/* change county code to NANP (from 105) - rename coz Virgin Islands (USA) */
	{1340, "Virgin Islands (USA)"}, 	/* change county code to NANP (from 123) */
	{441 , "Wales"}, 
	{681 , "Wallis and Futuna Islands"}, 
	{967 , "Yemen"}, 
	{38  , "Yugoslavia"}, 	/* added for old values like birth-country */
	{381 , "Serbia, Republic of"}, 	/* rename need (from Yugoslavia)*/
	{383 , "Kosovo, Republic of"}, 	/*change country code (from 3811),  rename need (from Yugoslavia - Serbia) */
	{382 , "Montenegro, Republic of"}, 	/* rename need (from Yugoslavia - Montenegro) */
	{260 , "Zambia"}, 
	{263 , "Zimbabwe"}, 
};

static INT_PTR GetCountryByNumber(WPARAM wParam, LPARAM)
{
	int i;

	for (i=0; i < SIZEOF(countries); i++)
		if ((int)wParam == countries[i].id) return (INT_PTR)countries[i].szName;
	return (INT_PTR)NULL;
}

static INT_PTR GetCountryList(WPARAM wParam, LPARAM lParam)
{
	*(int*)wParam = SIZEOF(countries);
	*(struct CountryListEntry**)lParam = countries;
	return 0;
}

/////////////////////////////////////////////////////////////////////////////////////////

static INT_PTR SaveWindowPosition(WPARAM, LPARAM lParam)
{
	SAVEWINDOWPOS *swp = (SAVEWINDOWPOS*)lParam;
	WINDOWPLACEMENT wp;
	char szSettingName[64];

	wp.length = sizeof(wp);
	GetWindowPlacement(swp->hwnd, &wp);
	mir_snprintf(szSettingName, SIZEOF(szSettingName), "%sx", swp->szNamePrefix);
	DBWriteContactSettingDword(swp->hContact, swp->szModule, szSettingName, wp.rcNormalPosition.left);
	mir_snprintf(szSettingName, SIZEOF(szSettingName), "%sy", swp->szNamePrefix);
	DBWriteContactSettingDword(swp->hContact, swp->szModule, szSettingName, wp.rcNormalPosition.top);
	mir_snprintf(szSettingName, SIZEOF(szSettingName), "%swidth", swp->szNamePrefix);
	DBWriteContactSettingDword(swp->hContact, swp->szModule, szSettingName, wp.rcNormalPosition.right-wp.rcNormalPosition.left);
	mir_snprintf(szSettingName, SIZEOF(szSettingName), "%sheight", swp->szNamePrefix);
	DBWriteContactSettingDword(swp->hContact, swp->szModule, szSettingName, wp.rcNormalPosition.bottom-wp.rcNormalPosition.top);
	return 0;
}


static INT_PTR AssertInsideScreen(WPARAM wParam, LPARAM lParam)
{
	LPRECT rc = (LPRECT) wParam;
	if (rc == NULL)
		return -1;

	RECT rcScreen;
	SystemParametersInfo(SPI_GETWORKAREA, 0, &rcScreen, FALSE);

	if (MyMonitorFromWindow) 
	{
		if (MyMonitorFromRect(rc, MONITOR_DEFAULTTONULL))
			return 0;

		MONITORINFO mi = {0};
		HMONITOR hMonitor = MyMonitorFromRect(rc, MONITOR_DEFAULTTONEAREST);
		mi.cbSize = sizeof(mi);
		if (MyGetMonitorInfo(hMonitor, &mi))
			rcScreen = mi.rcWork;
	}
	else 
	{
		RECT rcDest;
		if (IntersectRect(&rcDest, &rcScreen, rc))
			return 0;
	}

	if (rc->top >= rcScreen.bottom)
		OffsetRect(rc, 0, rcScreen.bottom - rc->bottom);
	else if (rc->bottom <= rcScreen.top)
		OffsetRect(rc, 0, rcScreen.top - rc->top);
	if (rc->left >= rcScreen.right)
		OffsetRect(rc, rcScreen.right - rc->right, 0);
	else if (rc->right <= rcScreen.left)
		OffsetRect(rc, rcScreen.left - rc->left, 0);

	return 1;
}

static INT_PTR RestoreWindowPosition(WPARAM wParam, LPARAM lParam)
{
	SAVEWINDOWPOS *swp = (SAVEWINDOWPOS*)lParam;
	WINDOWPLACEMENT wp;
	char szSettingName[64];
	int x, y;

	wp.length = sizeof(wp);
	GetWindowPlacement(swp->hwnd, &wp);
	mir_snprintf(szSettingName, SIZEOF(szSettingName), "%sx", swp->szNamePrefix);
	x = DBGetContactSettingDword(swp->hContact, swp->szModule, szSettingName, -1);
	mir_snprintf(szSettingName, SIZEOF(szSettingName), "%sy", swp->szNamePrefix);
	y = (int)DBGetContactSettingDword(swp->hContact, swp->szModule, szSettingName, -1);
	if (x == -1) return 1;
	if (wParam&RWPF_NOSIZE) {
		OffsetRect(&wp.rcNormalPosition, x-wp.rcNormalPosition.left, y-wp.rcNormalPosition.top);
	}
	else {
		wp.rcNormalPosition.left = x;
		wp.rcNormalPosition.top = y;
		mir_snprintf(szSettingName, SIZEOF(szSettingName), "%swidth", swp->szNamePrefix);
		wp.rcNormalPosition.right = wp.rcNormalPosition.left+DBGetContactSettingDword(swp->hContact, swp->szModule, szSettingName, -1);
		mir_snprintf(szSettingName, SIZEOF(szSettingName), "%sheight", swp->szNamePrefix);
		wp.rcNormalPosition.bottom = wp.rcNormalPosition.top+DBGetContactSettingDword(swp->hContact, swp->szModule, szSettingName, -1);
	}
	wp.flags = 0;
	if (wParam & RWPF_HIDDEN)
		wp.showCmd = SW_HIDE;
	if (wParam & RWPF_NOACTIVATE)
		wp.showCmd = SW_SHOWNOACTIVATE;

	if ( !(wParam & RWPF_NOMOVE))
		AssertInsideScreen((WPARAM) &wp.rcNormalPosition, 0);

	SetWindowPlacement(swp->hwnd, &wp);
	return 0;
}

/////////////////////////////////////////////////////////////////////////////////////////
static INT_PTR RestartMiranda(WPARAM, LPARAM)
{
	TCHAR mirandaPath[ MAX_PATH ], cmdLine[ 100 ];
	PROCESS_INFORMATION pi;
	STARTUPINFO si = { 0 };
	si.cb = sizeof(si);
	GetModuleFileName(NULL, mirandaPath, SIZEOF(mirandaPath));
	mir_sntprintf(cmdLine, SIZEOF(cmdLine), _T("/restart:%d"), GetCurrentProcessId());
	CallService("CloseAction", 0, 0);
	CreateProcess(mirandaPath, cmdLine, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
	return 0;
}

/////////////////////////////////////////////////////////////////////////////////////////

typedef BOOL (APIENTRY *PGENRANDOM)(PVOID, ULONG);

static INT_PTR GenerateRandom(WPARAM wParam, LPARAM lParam)
{
	if (wParam == 0 || lParam == 0) return 0;

	PGENRANDOM pfnRtlGenRandom = NULL;
	HMODULE hModule = GetModuleHandleA("advapi32");
	if (hModule)
	{
		pfnRtlGenRandom = (PGENRANDOM)GetProcAddress(hModule, "SystemFunction036");
		if (pfnRtlGenRandom)
		{
			if ( !pfnRtlGenRandom((PVOID)lParam, wParam))
				pfnRtlGenRandom = NULL;
		}
	}
	if (pfnRtlGenRandom == NULL)
	{
		srand(GetTickCount());
		unsigned short* buf = (unsigned short*)lParam;
		for (; (long)(wParam-=2) >= 0;)
			*(buf++) = (unsigned short)rand();
		if (lParam < 0)
			*(char*)buf = (char)(rand() & 0xFF);
	}
	return 0;
}

/////////////////////////////////////////////////////////////////////////////////////////
int LoadUtilsModule(void)
{
	bModuleInitialized = TRUE;

	CreateServiceFunction(MS_UTILS_RESIZEDIALOG, ResizeDialog);
	CreateServiceFunction(MS_UTILS_SAVEWINDOWPOSITION, SaveWindowPosition);
	CreateServiceFunction(MS_UTILS_RESTOREWINDOWPOSITION, RestoreWindowPosition);
	CreateServiceFunction(MS_UTILS_ASSERTINSIDESCREEN, AssertInsideScreen);
	CreateServiceFunction(MS_UTILS_GETCOUNTRYBYNUMBER, GetCountryByNumber);
	CreateServiceFunction(MS_UTILS_GETCOUNTRYLIST, GetCountryList);
	CreateServiceFunction(MS_UTILS_GETRANDOM, GenerateRandom);
	CreateServiceFunction(MS_SYSTEM_RESTART, RestartMiranda);

	InitOpenUrl();
	InitWindowList();
	InitHyperlink();
	InitPathUtils();
	InitColourPicker();
	InitBitmapFilter();
	InitXmlApi();
	InitJson();
	InitTimeZones();
	InitCrypt();
	return 0;
}

void UnloadUtilsModule(void)
{
	if ( !bModuleInitialized)
		return;

	FreeWindowList();
	UninitTimeZones();
}