/*
 *  Plugin of miranda IM(ICQ) for Communicating with users of the XFire Network.
 *
 *  Copyright (C) 2010 by
 *          dufte <dufte@justmail.de>
 *
 *  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 St, Fifth Floor, Boston, MA  02110-1301 USA
 *
 *
 *  Miranda ICQ: the free icq client for MS Windows
 *  Copyright (C) 2000-2008  Richard Hughes, Roland Rabien & Tristan Van de Vreede
 *
 */

#include "stdafx.h"
#include "baseProtocol.h"
#include "Xfire_gamelist.h"
#include "variables.h"
#include <string>
using std::string;

extern int foundgames;
extern HANDLE	 XFireAvatarFolder;
extern HANDLE	 XFireWorkingFolder;
extern INT_PTR StartGame(WPARAM wParam, LPARAM lParam, LPARAM fParam);
extern Xfire_gamelist xgamelist;

//versucht die * in den pfaden der ini mit dem korrekten eintrag zu ersetzen
BOOL CheckPath(char*ppath, char*pathwildcard = NULL)
{
	char* pos = 0;
	char* pos2 = 0;

	pos = strchr(ppath, '*');
	if (pos)
	{
		if (pathwildcard)
		{
			strcpy_s(pathwildcard, XFIRE_MAX_STATIC_STRING_LEN, ppath);
		}

		pos++;
		*pos = 0;
		pos++;

		//versuch die exe zu finden
		WIN32_FIND_DATAA wfd;
		HANDLE fHandle = FindFirstFileA(ppath, &wfd);  // . skippen
		if (fHandle == INVALID_HANDLE_VALUE)
			return FALSE;
		if(FindNextFileA(fHandle, &wfd)) { // .. auch skippen
			while (FindNextFileA(fHandle, &wfd)) // erstes file
			{
				if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) // nur verzeichnisse sind interessant
				{
					char temp[XFIRE_MAX_STATIC_STRING_LEN];

					strncpy(temp, ppath,XFIRE_MAX_STATIC_STRING_LEN-1);
					*(temp + strlen(temp) - 1) = 0;
					strncat(temp, wfd.cFileName,XFIRE_MAX_STATIC_STRING_LEN-1);
					strncat(temp, "\\",XFIRE_MAX_STATIC_STRING_LEN-1);
					strncat(temp, pos,XFIRE_MAX_STATIC_STRING_LEN-1);

					if (GetFileAttributesA(temp) != 0xFFFFFFFF) { //exe vorhanden???? unt hint?
						//gefundenes in path kopieren
						FindClose(fHandle);
						strcpy(ppath, temp);
						return TRUE;
					}
				}
			}
		}
		FindClose(fHandle);
	}
	else
	{
		if (GetFileAttributesA(ppath) != 0xFFFFFFFF) { //exe vorhanden???? unt hint?
			//gefundenes in path kopieren
			return TRUE;
		}
	}

	return FALSE;
}

INT_PTR CALLBACK DlgSearchDialogProc(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
	switch (msg)
	{
	case WM_INITDIALOG:
	{
		TranslateDialogDefault(hwndDlg);
		return TRUE;
	}
	}

	return FALSE;
}

void ShowSearchDialog(LPVOID lparam)
{
	HWND* hwnd = (HWND*)lparam;
	HWND myhwnd = CreateDialog(hinstance, MAKEINTRESOURCE(IDD_SEARCHING), NULL, DlgSearchDialogProc);

	if (myhwnd == NULL)
		return;

	*hwnd = myhwnd;

	ShowWindow(myhwnd, SW_SHOW);

	//nachrichten schleife
	MSG msg;
	while (GetMessage(&msg, myhwnd, 0, 0))
	{
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}
}

void Scan4Games(LPVOID lparam)
{
	int i = 2;
	unsigned int i2 = 1;
	BOOL split = FALSE;
	int notfound = 0;
	char* pos = 0;
	char* pos2 = 0;
	char *cutforlaunch = 0;
	char temp[10] = "";
	char inipath[XFIRE_MAX_STATIC_STRING_LEN] = "";
	char ret[XFIRE_MAX_STATIC_STRING_LEN] = "";
	char gamename[XFIRE_MAX_STATIC_STRING_LEN] = "";
	char ret2[XFIRE_MAX_STATIC_STRING_LEN] = "";
	char gamelist[XFIRE_MAX_STATIC_STRING_LEN] = "";
	BOOL multiexe = FALSE;
	BOOL somethingfound = TRUE;
	int i3 = 0;
	DWORD gpps = 1;
	DWORD last_gpps = 0;
	static BOOL searching = FALSE;

	//ich suche schon,also raushier
	if (searching)
	{
		MSGBOX("Game searching is already running!");
		return;
	}
	if (xgamelist.Ingame())
	{
		MSGBOX("A game is currently running, please close the game.");
		return;
	}

	//gamelist blocken, damit nur 1 thread es ausführt/nutzt
	xgamelist.Block(TRUE);

	searching = TRUE;

	//säubert die gameliste für eine neuauslesung
	xgamelist.clearGamelist();

	//prüfe ob schon gescannt wurde, dann das aus der db nehmen, beschleunigt den start
	foundgames = db_get_w(NULL, protocolname, "foundgames", -1);

	//um bei einer neuen version einen rescan zuforcen, bei bestimmten wert found auf 0 resetten
	if (db_get_w(NULL, protocolname, "scanver", 0) != XFIRE_SCAN_VAL)
		foundgames = -1;

	BOOL loadgamesfromdb = FALSE;
	if (db_get_b(NULL, protocolname, "scanalways", 0) == 0)
		loadgamesfromdb = TRUE;
	else
	{
		if (db_get_b(NULL, protocolname, "scanalways", 0) == 2)
		{
			time_t zeit;
			struct tm *t;
			time(&zeit);
			t = localtime(&zeit);

			if (t != NULL)
			{
				if (t->tm_yday != db_get_w(NULL, protocolname, "scanalways_t", 0))
				{
					db_set_w(NULL, protocolname, "scanalways_t", t->tm_yday);
				}
				else
					loadgamesfromdb = TRUE;
			}
		}
	}

	//spiele von db laden
	if (loadgamesfromdb)
		if (foundgames > 0)
		{
		//spieliste einlesen
		xgamelist.readGamelist(foundgames);
		//menüpunkte anlegen
		xgamelist.createStartmenu();

		//gamelist unblocken
		xgamelist.Block(FALSE);

		searching = FALSE;
		return;
		}
		else if (foundgames == 0)
		{
			searching = FALSE;
			//dummymenü punkt entfernen
			//CallService(MS_CLIST_REMOVEMAINMENUITEM, ( WPARAM )dummymenu, 0 );	

			//gamelist unblocken
			xgamelist.Block(FALSE);

			return;
		}
		else
			foundgames = 0;
	else
		foundgames = 0;

	HWND hwnd = NULL;

	//suche dialog anzeigen
	if (!db_get_b(NULL, protocolname, "dontdissstatus", 0))
	{
		mir_forkthread(ShowSearchDialog, &hwnd);
	}

	strcpy(inipath, XFireGetFoldersPath("IniFile"));
	strcat(inipath, "xfire_games.ini");

	//erstmal db säubern
	xgamelist.clearDatabase();

	//maximal 200 notfounds, um die nicht belegten id's zu überspringen
	while (notfound < 200)
	{
		//2 gameids?
		if (split)
			mir_snprintf(temp, SIZEOF(temp), "%i_%i", i, i2);
		else
			mir_snprintf(temp, SIZEOF(temp), "%i", i);

		//MessageBox(0,temp,temp,0);

		//letztes ergeniss sichern
		last_gpps = gpps;

		//las ma mal suchen...
		gpps = xfire_GetPrivateProfileString(temp, "LongName", "", gamename, 255, inipath);

		char entrytype[100] = "";
		if (gpps != NULL) xfire_GetPrivateProfileString(temp, "SoftwareType", "", entrytype, 100, inipath);

		//kein eintrag? voicechat? musiapplicationen? schon in der gameliste?
		if (gpps != NULL && strcmp(entrytype, "Music") != 0 && strcmp(entrytype, "VoiceChat") != 0 && !xgamelist.Gameinlist(i)) //was gefunden und noch nicht eintragen?
		{
			BOOL MatchExe = FALSE;
			//MatchExe Games in der automatischen Suche skippen
			if (xfire_GetPrivateProfileString(temp, "MatchExe", "", ret, 255, inipath))
				MatchExe = TRUE;

			//Registryschlüssel auslesen und pfad auf exe prüfen
			xfire_GetPrivateProfileString(temp, "LauncherDirKey", "", ret, 255, inipath);
			strcpy(ret2, ret);

			//ersten part des registry schlüssel raustrennen
			pos = strchr(ret2, '\\');
			if (!MatchExe && pos != 0)
			{
				HKEY hkey, hsubk;

				*pos = 0; //string trennen
				pos++;

				pos2 = strrchr(pos, '\\'); //key trennen
				if (pos2 != 0)
				{
					*pos2 = 0;
					pos2++;

					//HKEY festlegen
					switch (*(ret2 + 6))
					{
					case 'L':
						hkey = HKEY_CLASSES_ROOT;
						break;
					case 'U':
						hkey = HKEY_CURRENT_USER;
						break;
					case 'O':
						hkey = HKEY_LOCAL_MACHINE;
						break;
					default:
						hkey = NULL;
					}
				}
				else
					hkey = NULL;

				if (hkey) //nur wenn der key erkannt wurde
				{
					if (RegOpenKeyA(hkey, pos, &hsubk) == ERROR_SUCCESS) //key versuchen zu "öffnen"
					{
						char path[XFIRE_MAX_STATIC_STRING_LEN] = "";
						char path_r[XFIRE_MAX_STATIC_STRING_LEN] = "";
						DWORD size = sizeof(path);

						//key lesen
						if (RegQueryValueExA(hsubk, pos2, NULL, NULL, (LPBYTE)path, &size) == ERROR_SUCCESS)
						{
							//zusätzlichen pfad anhängen
							if (xfire_GetPrivateProfileString(temp, "LauncherDirAppend", "", ret2, 255, inipath))
							{
								if (*(path + strlen(path) - 1) == '\\'&&*(ret2) == '\\')
									strcat(path, (ret2 + 1));
								else
									strcat(path, ret2);
							}

							if (xfire_GetPrivateProfileString(temp, "LauncherDirTruncAt", "", ret2, 255, inipath))
							{
								//mögliches erstes anführungszeichen entfernen
								if (*(path) == '"')
								{
									pos2 = path;
									pos2++;

									strcpy(path, pos2);
								}

								//mögliche weitere anführungszeichen entfernen
								pos = strchr(path, '"');
								if (pos != 0)
									*pos = 0;

								if (*(path + strlen(path) - 1) != '\\')
									*(path + strlen(path) - strlen(ret2)) = 0;
							}

							if (*(path + strlen(path) - 1) != '\\')
								strcat(path, "\\");


							//dateiname auslesen
							if (xfire_GetPrivateProfileString(temp, "InstallHint", "", ret2, 255, inipath))
							{
								char pathtemp[XFIRE_MAX_STATIC_STRING_LEN];
								strcpy(pathtemp, path);
								strcat(pathtemp, ret2);

								if (CheckPath(pathtemp))
								{
									if (xfire_GetPrivateProfileString(temp, "DetectExe", "", ret, 255, inipath))
									{
										cutforlaunch = path + strlen(path);
										strcpy(pathtemp, path);

										//wenn backslash bei detectexe, dann diesen skippen (eveonline bug)
										if (ret[0] == '\\')
										{
											strcat(pathtemp, (char*)&ret[1]);
										}
										else
										{
											strcat(pathtemp, ret);
										}

										if (CheckPath(pathtemp))
										{
											strcpy(path, pathtemp);
										}
										else
										{
											*(path) = 0;
										}
									}
									else if (xfire_GetPrivateProfileString(temp, "LauncherExe", "", ret2, 255, inipath))
									{
										cutforlaunch = path + strlen(path);
										strcat(path, ret2);
									}
								}
								else
								{
									*(path) = 0;
								}
							}
							else if (xfire_GetPrivateProfileString(temp, "DetectExe[0]", "", ret2, 255, inipath))
							{
								cutforlaunch = path + strlen(path);
								strcat(path, ret2);
								multiexe = TRUE;
								if (!CheckPath(path, path_r))
								{
									*(path) = 0;
								}
							}
							else if (xfire_GetPrivateProfileString(temp, "DetectExe", "", ret2, 255, inipath))
							{
								cutforlaunch = path + strlen(path);

								//wenn backslash bei detectexe, dann diesen skippen (eveonline bug)
								if (ret2[0] == '\\')
								{
									strcat(path, (char*)&ret2[1]);
								}
								else
								{
									strcat(path, ret2);
								}

								if (!CheckPath(path, path_r))
								{
									*(path) = 0;
								}
							}
							else if (xfire_GetPrivateProfileString(temp, "LauncherExe", "", ret2, 255, inipath))
							{
								cutforlaunch = path + strlen(path);
								strcat(path, ret2);
							}


							//prüfe ob existent, dann ist das spiel installiert
							if (path[0] != 0 && GetFileAttributesA(path) != 0xFFFFFFFF)
							{
								Xfire_game* newgame = new Xfire_game();
								newgame->id = i;

								//8.3 pfade umwandeln
								//GetLongPathNameA(path,path,sizeof(path));

								//lowercase pfad
								for (unsigned int ii = 0; ii < strlen(path); ii++)
									path[ii] = tolower(path[ii]);

								if (path_r[0] == 0)
									newgame->setString(path, &newgame->path);
								else
								{
									//lowercase wildcard pfad
									for (unsigned int ii = 0; ii < strlen(path_r); ii++)
										path_r[ii] = tolower(path_r[ii]);
									newgame->setString(path_r, &newgame->path);
								}

								//spiel mit mehreren exefiles
								if (multiexe)
								{
									multiexe = FALSE;
									for (int i = 1; i < 9; i++)
									{
										mir_snprintf(ret, SIZEOF(ret), "DetectExe[%d]", i);
										if (xfire_GetPrivateProfileString(temp, ret, "", ret2, 512, inipath))
										{
											char* pos = strrchr(path, '\\');
											if (pos != 0)
											{
												pos++;
												*pos = 0;
											}
											strcat(path, ret2);
											if (!CheckPath(path))
											{
												*(path) = 0;
											}
											else
											{
												for (unsigned int i2 = 0; i2 < strlen(path); i2++)
													path[i2] = tolower(path[i2]);

												char* mpathtemp = new char[strlen(path) + 1];
												strcpy(mpathtemp, path);
												newgame->mpath.push_back(mpathtemp);
											}
										}
									}
								}

								//für launcherstring anpassen
								char* pos = strrchr(path, '\\');
								if (pos != 0)
								{
									pos++;
									*pos = 0;
								}
								xfire_GetPrivateProfileString(temp, "LauncherExe", "", ret2, 255, inipath); // anfügen
								if (cutforlaunch != 0) *cutforlaunch = 0;

								//pfad aufbereiten
								char launchpath[XFIRE_MAX_STATIC_STRING_LEN] = "";
								strcpy(launchpath, path);
								//letzten backslash entfernen
								if (launchpath[strlen(launchpath) - 1] == '\\') launchpath[strlen(launchpath) - 1] = 0;

								strcat(path, ret2);

								newgame->setString(path, &newgame->launchparams);
								newgame->appendString(" ", &newgame->launchparams);

								xfire_GetPrivateProfileString(temp, "Launch", "", ret2, 512, inipath);
								str_replace(ret2, "%UA_LAUNCHER_EXE_DIR%", launchpath);
								str_replace(ret2, "%UA_LAUNCHER_EXE_PATH%", ""); //erstmal unwichtige sachen entfernen
								//str_replace(ret2,"%UA_LAUNCHER_EXTRA_ARGS%",""); // - auch entfernen	
								str_replace(ret2, "%UA_LAUNCHER_LOGIN_ARGS%", ""); // - auch entfernen	

								newgame->appendString(ret2, &newgame->launchparams);

								/*if (xfire_GetPrivateProfileString(temp, "LauncherLoginArgs", "", ret2, 512, inipath))
								{
								str_replace(xf[foundgames].launchparams,"%UA_LAUNCHER_LOGIN_ARGS%",ret2); // - auch entfernen
								}
								else*/
								//	str_replace(xf[foundgames].launchparams,"%UA_LAUNCHER_LOGIN_ARGS%",""); // - auch entfernen	

								if (xfire_GetPrivateProfileString(temp, "LauncherPasswordArgs", "", ret2, 512, inipath))
									newgame->setString(ret2, &newgame->pwparams);

								if (xfire_GetPrivateProfileString(temp, "LauncherNetworkArgs", "", ret2, 512, inipath))
									newgame->setString(ret2, &newgame->networkparams);

								if (xfire_GetPrivateProfileString(temp, "CommandLineMustContain[0]", "", ret2, 512, inipath))
									newgame->setString(ret2, &newgame->mustcontain);

								if (xfire_GetPrivateProfileString(temp, "XUSERSendId", "", ret2, 512, inipath))
									newgame->send_gameid = atoi(ret2);

								if (xfire_GetPrivateProfileString(temp, "XUSERSetStatusMsg", "", ret2, 512, inipath))
									newgame->setstatusmsg = atoi(ret2);

								//launcherurl?
								if (xfire_GetPrivateProfileString(temp, "LauncherUrl", "", ret2, 512, inipath))
									newgame->setString(ret2, &newgame->launchparams);

								//soll alle string, welche nicht in der commandline eines spiels sein soll in einen string pakcen semikolon getrennt
								mir_snprintf(ret, SIZEOF(ret), "CommandLineMustNotContain[0]");
								int i = 0;

								while (xfire_GetPrivateProfileString(temp, ret, "", ret2, 512, inipath))
								{
									if (!newgame->notcontain) newgame->setString("", &newgame->notcontain);
									if (i > 0)
										newgame->appendString(";", &newgame->notcontain);
									newgame->appendString(ret2, &newgame->notcontain);

									i++;
									mir_snprintf(ret, SIZEOF(ret), "CommandLineMustNotContain[%d]", i);
								}

								newgame->setNameandIcon();

								strcat(gamelist, gamename);
								strcat(gamelist, ", ");
								if (foundgames % 2 == 1)
									strcat(gamelist, "\r\n");

								xgamelist.Addgame(newgame);

								foundgames++;

								split = FALSE;
							}

						}

						RegCloseKey(hsubk);
					}
				}

			}
			else if (!MatchExe && xfire_GetPrivateProfileString(temp, "LauncherDirDefault", "", ret2, 255, inipath))
			{
				if (xfire_GetPrivateProfileString(temp, "LauncherExe", "", ret, 255, inipath))
				{
					strcat(ret2, "\\");
					strcat(ret2, ret);
				}

				str_replace(ret2, "%WINDIR%", getenv("WINDIR"));
				str_replace(ret2, "%ProgramFiles%", getenv("ProgramFiles"));

				//prüfe ob existent, dann ist das spiel installiert
				if (GetFileAttributesA(ret2) != 0xFFFFFFFF)
				{

					Xfire_game* newgame = new Xfire_game();

					newgame->id = i;

					//8.3 pfade umwandeln
					//GetLongPathNameA(ret2,ret2,sizeof(ret2));

					//lowercase pfad
					for (unsigned int i = 0; i < strlen(ret2); i++)
						ret2[i] = tolower(ret2[i]);

					newgame->setString(ret2, &newgame->path);

					//launch parameterstring

					//pfad aufbereiten
					char launchpath[XFIRE_MAX_STATIC_STRING_LEN] = "";
					strcpy(launchpath, ret2);
					if (strrchr(launchpath, '\\') != 0)
					{
						*(strrchr(launchpath, '\\')) = 0;
					}

					newgame->setString(ret2, &newgame->launchparams);
					newgame->appendString(" ", &newgame->launchparams);

					xfire_GetPrivateProfileString(temp, "Launch", "", ret2, 512, inipath);

					str_replace(ret2, "%UA_LAUNCHER_EXE_DIR%", launchpath);

					str_replace(ret2, "%UA_LAUNCHER_EXE_PATH%", ""); //unwichtige sachen entfernen
					//str_replace(ret2,"%UA_LAUNCHER_EXTRA_ARGS%",""); // - auch entfernen	
					str_replace(ret2, "%UA_LAUNCHER_LOGIN_ARGS%", ""); // - auch entfernen

					newgame->appendString(ret2, &newgame->launchparams);

					if (xfire_GetPrivateProfileString(temp, "LauncherPasswordArgs", "", ret2, 512, inipath))
						newgame->setString(ret2, &newgame->pwparams);

					if (xfire_GetPrivateProfileString(temp, "LauncherNetworkArgs", "", ret2, 512, inipath))
						newgame->setString(ret2, &newgame->networkparams);

					if (xfire_GetPrivateProfileString(temp, "CommandLineMustContain[0]", "", ret2, 512, inipath))
						newgame->setString(ret2, &newgame->mustcontain);

					if (xfire_GetPrivateProfileString(temp, "XUSERSendId", "", ret2, 512, inipath))
						newgame->send_gameid = atoi(ret2);

					if (xfire_GetPrivateProfileString(temp, "XUSERSetStatusMsg", "", ret2, 512, inipath))
						newgame->setstatusmsg = atoi(ret2);

					//soll alle string, welche nicht in der commandline eines spiels sein soll in einen string pakcen semikolon getrennt
					mir_snprintf(ret, SIZEOF(ret), "CommandLineMustNotContain[0]");
					int i = 0;

					while (xfire_GetPrivateProfileString(temp, ret, "", ret2, 512, inipath))
					{
						if (!newgame->notcontain) newgame->setString("", &newgame->notcontain);
						if (i > 0)
							newgame->appendString(";", &newgame->notcontain);
						newgame->appendString(ret2, &newgame->notcontain);

						i++;
						mir_snprintf(ret, SIZEOF(ret), "CommandLineMustNotContain[%d]", i);
					}

					newgame->setNameandIcon();

					strcat(gamelist, gamename);
					strcat(gamelist, ", ");
					if (foundgames % 2 == 1)
						strcat(gamelist, "\r\n");

					xgamelist.Addgame(newgame);

					foundgames++;

					split = FALSE;
				}

			}

			if (split)
				i2++;
			else
				i++;
			notfound = 0;
		}
		else if (split == FALSE) // nichts gefunden, dann die 2. gameid probieren (games die zb über steam und normal installiert werden können, haben eine 2. id)
		{
			i2 = 1;
			split = TRUE;
		}
		else if (split == TRUE&&last_gpps != NULL) // keine weiteren einträge mit der 2. id gefunden, also wieder mit der normalen weitersuchen
		{
			split = FALSE;
			i++;
			i2 = 0;
		}
		else if (split == TRUE&&last_gpps == NULL) // überhaupt nix gefunden, vllt nicht belegete id's, überspringen und "notfound" hochsetzen
		{
			split = FALSE;
			i2 = 0;
			if (i == 35) //großer sprung unbenutzer id's
				i += 4000;
			i++;
			notfound++;
		}
	}

	if (hwnd)SetDlgItemText(hwnd, IDC_CURRENTGAME, TranslateT("Write to database..."));

	//gefundene games in db eintragen
	xgamelist.writeDatabase();

	//scanversion setzen, um ungewollten rescan zu vermeiden
	db_set_w(NULL, protocolname, "scanver", XFIRE_SCAN_VAL);

	EndDialog(hwnd, 0);

	if (!db_get_b(NULL, protocolname, "dontdisresults", 0))
	{
		int p = strlen(gamelist) - 2;
		if (p > -1)
			gamelist[p] = 0; //letztes koma killen
		mir_snprintf(ret, SIZEOF(ret), Translate("Games found:%s%s"), "\r\n\r\n", gamelist);
		MSGBOX(ret);
	}

	searching = FALSE;

	xgamelist.createStartmenu();

	//gamelist unblocken
	xgamelist.Block(FALSE);
}