/*
 *  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
 *
 *  Based on J. Lawler              - BaseProtocol
 *			 Herbert Poul/Beat Wolf - xfirelib
 *
 *  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 <string>

HWND ghwndDlg=NULL;
extern HANDLE XFireWorkingFolder;
extern Xfire_gamelist xgamelist;


//als funktion, damit es per thread geladen werden kann
void LoadProfilStatus(LPVOID lparam) {
	if (!lparam || !ghwndDlg)
		return;

	//dl
	char url[255]="http://miniprofile.xfire.com/bg/sh/type/1/";
	char* buf=NULL;
	unsigned int size=0;
	strcat_s(url,255,(char*)lparam);
	strcat_s(url,255,".png");

	//versuche das icon aus dem inet zulasen
	if (GetWWWContent2(url,NULL,FALSE,&buf,&size))
	{
		//aus dem buffer ein hicon erzeugen
		HBITMAP hbitmap=xgamelist.createHBITMAPfromdata(buf,size);
		//speicher freigeben
		delete[] buf;
		SendMessage(GetDlgItem(ghwndDlg,IDC_PROFILIMG),STM_SETIMAGE,IMAGE_BITMAP,(LPARAM)hbitmap);
	}
	delete[] lparam;
}

void SetItemTxt(HWND hwndDlg,int feldid,char*feld,MCONTACT hcontact,int type)
{
	DBVARIANT dbv;
	if (!db_get(hcontact,protocolname,feld,&dbv)) {
		if (type==1)
		{
			char temp[255];
			mir_snprintf(temp, SIZEOF(temp), "%i", dbv.wVal);
			SetDlgItemTextA(hwndDlg,feldid,temp);
		}
		else
		{
			SetDlgItemTextA(hwndDlg,feldid,dbv.pszVal);
		}
		db_free(&dbv);
		EnableDlgItem(hwndDlg,feldid,TRUE);
	}
	else
	{
		SetDlgItemText(hwndDlg,feldid,TranslateT("<not specified>"));
		EnableDlgItem(hwndDlg,feldid,FALSE);
	}
}

static int GetIPPortUDetails(MCONTACT wParam,char* feld1,char* feld2)
{
	char temp[255];
    HGLOBAL clipbuffer;
	char* buffer;

	if (db_get_w((MCONTACT)wParam, protocolname, feld2, -1)==0)
		return 0;

	DBVARIANT dbv;
	if (db_get_s((MCONTACT)wParam, protocolname, feld1,&dbv))
		return 0;

	mir_snprintf(temp, SIZEOF(temp), "%s:%d", dbv.pszVal, db_get_w((MCONTACT)wParam, protocolname, feld2, -1));

	db_free(&dbv);

	if (OpenClipboard(NULL))
	{
		EmptyClipboard();

		clipbuffer = GlobalAlloc(GMEM_DDESHARE, strlen(temp)+1);
		buffer = (char*)GlobalLock(clipbuffer);
		strcpy(buffer, LPCSTR(temp));
		GlobalUnlock(clipbuffer);

		SetClipboardData(CF_TEXT, clipbuffer);
		CloseClipboard();
	}

	return 0;
}

void addToList(HWND listbox,MCONTACT hContact,char*key,char*val)
{
	DBVARIANT dbv;
	if (!db_get(hContact,protocolname,val,&dbv))
	{
		LVITEMA lvitem;
		memset(&lvitem,0,sizeof(lvitem));
		lvitem.mask=LVIF_TEXT;
		lvitem.cchTextMax=255;
		lvitem.iItem=0;
		lvitem.iSubItem=0;
		lvitem.pszText=key;
		SendMessageA(listbox,LVM_INSERTITEM,0,(LPARAM)&lvitem);
		lvitem.iSubItem++;
		lvitem.pszText=dbv.pszVal;
		SendMessageA(listbox,LVM_SETITEM,0,(LPARAM)&lvitem);
		db_free(&dbv);
	}
}

void setGameInfo(HWND listbox,char *mbuf)
{
	int ii=0;
	char temp[255];
	char mod=0;
	char item=0;
	char *mbuf2=(char*)mbuf;
	LVITEMA lvitem;
	memset(&lvitem,0,sizeof(lvitem));
	lvitem.mask=LVIF_TEXT;
	lvitem.cchTextMax=255;

	while(*mbuf2!=0)
	{
		if (*mbuf2==1&&mod==0)
		{
			temp[ii]=0;
			mod=1;
			lvitem.iItem=item;
			lvitem.iSubItem=0;
			lvitem.pszText=temp;
			SendMessageA(listbox,LVM_INSERTITEM,0,(LPARAM)&lvitem);
			item++;
			ii=-1;
		}
		else if (*mbuf2==2&&mod==1)
		{
			temp[ii]=0;
			mod=0;
			lvitem.iSubItem++;
			lvitem.pszText=temp;
			SendMessageA(listbox,LVM_SETITEM,0,(LPARAM)&lvitem);
			ii=-1;
		}
		else
			temp[ii]=*mbuf2;
		mbuf2++;
		ii++;
	}
}

static INT_PTR CALLBACK DlgProcUserDetails(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
	static char path[XFIRE_MAX_STATIC_STRING_LEN]="";
	static WCHAR wpath[256];
	static HICON gameicon=0;
	static HICON voiceicon=0;
	static MCONTACT uhandle=0;
	static HWND listbox;
	LVCOLUMNA pcol;

	switch (msg)
	{
		case WM_INITDIALOG:
		{
			TranslateDialogDefault(hwndDlg);

			ghwndDlg=hwndDlg;

			listbox=GetDlgItem(hwndDlg,IDC_GAMEINFOLIST);
			pcol.mask=LVCF_WIDTH  | LVCF_SUBITEM | LVCF_TEXT;
			pcol.pszText="Key";
			pcol.cx=65;
			pcol.fmt=LVCFMT_LEFT;
			SendMessageA(listbox,LVM_INSERTCOLUMNA,1,(LPARAM)&pcol);
			pcol.cx=80;
			pcol.pszText="Value";
			SendMessageA(listbox,LVM_INSERTCOLUMNA,2,(LPARAM)&pcol);

			HFONT hFont;
			LOGFONT lfFont;

			memset(&lfFont, 0x00, sizeof(lfFont));
			memcpy(lfFont.lfFaceName, TEXT("Arial"), 8);

			lfFont.lfHeight   = 13;
			lfFont.lfWeight   = FW_BOLD;
			lfFont.lfCharSet  = ANSI_CHARSET;
			lfFont.lfOutPrecision = OUT_DEFAULT_PRECIS;
			lfFont.lfClipPrecision = CLIP_DEFAULT_PRECIS;
			lfFont.lfQuality  = DEFAULT_QUALITY;

			// Create the font from the LOGFONT structure passed.
			hFont = CreateFontIndirect (&lfFont);

			SendMessageA(listbox,WM_SETFONT,(WPARAM)hFont,TRUE);

			return TRUE;
		}
		case WM_CTLCOLORSTATIC:
			{
			break;
			}

		case WM_NOTIFY:
		{
			switch (((LPNMHDR)lParam)->idFrom)
			  {
		        
			  case 0:
				{
				  switch (((LPNMHDR)lParam)->code)
				  {
		            
				  case PSN_INFOCHANGED:
					{
					  char* szProto;
					  MCONTACT hContact = (MCONTACT)((LPPSHNOTIFY)lParam)->lParam;
					  uhandle=hContact; //handle sichern

					  if (hContact == NULL)
						szProto = protocolname;
					  else
						szProto = GetContactProto(hContact);

					  if (szProto == NULL)
						break;

					  //alle items aus der liste entfernen
					  SendMessage(listbox,LVM_DELETEALLITEMS,0,0);

					  if (hContact)
					  {
							DBVARIANT dbv;
							if (!db_get(hContact,protocolname,"Username",&dbv))
							{
								int usernamesize=strlen(dbv.pszVal)+1;
								char* username=new char[usernamesize];
								if (username)
								{
									strcpy_s(username,usernamesize,dbv.pszVal);
									mir_forkthread(LoadProfilStatus,(LPVOID)username);
								}
								//LoadProfilStatus
								db_free(&dbv);
							}

							if (!db_get(hContact,protocolname,"GameInfo",&dbv))
							{
								setGameInfo(listbox,dbv.pszVal);
								db_free(&dbv);
							}

							addToList(listbox,hContact,"Servername","ServerName");
							addToList(listbox,hContact,"GameType","GameType");
							addToList(listbox,hContact,"Map","Map");
							addToList(listbox,hContact,"Players","Players");		

							SetItemTxt(hwndDlg,IDC_DNICK,"Nick",hContact,0);
							SetItemTxt(hwndDlg,IDC_DUSERNAME,"Username",hContact,0);

							SetItemTxt(hwndDlg,IDC_GIP,"ServerIP",hContact,0);
							SetItemTxt(hwndDlg,IDC_VIP,"VServerIP",hContact,0);
							SetItemTxt(hwndDlg,IDC_GPORT,"Port",hContact,1);
							SetItemTxt(hwndDlg,IDC_VPORT,"VPort",hContact,1);

							SetItemTxt(hwndDlg,IDC_GAME,"RGame",hContact,0);
							SetItemTxt(hwndDlg,IDC_VNAME,"RVoice",hContact,0);

							//render icons
							{
								DBVARIANT dbv;

								if (!db_get(hContact,protocolname,"GameId",&dbv))
								{
									SendMessage(GetDlgItem(hwndDlg,IDC_GAMEICO),STM_SETICON,(WPARAM)xgamelist.iconmngr.getGameIcon(dbv.wVal),0);
									db_free(&dbv);
								}							
								if (!db_get(hContact,protocolname,"VoiceId",&dbv))
								{
									SendMessage(GetDlgItem(hwndDlg,IDC_VOICEICO),STM_SETICON,(WPARAM)xgamelist.iconmngr.getGameIcon(dbv.wVal),0);
									db_free(&dbv);
								}
								
								if (db_get(hContact,protocolname,"ServerIP",&dbv))
								{
									EnableWindow(GetDlgItem(hwndDlg,IDC_COPYGAME),FALSE);
									db_free(&dbv);
								}
								if (db_get(hContact,protocolname,"VServerIP",&dbv))
								{
									EnableWindow(GetDlgItem(hwndDlg,IDC_COPYVOICE),FALSE);
									db_free(&dbv);
								}
								
								//ShowWindow(GetDlgItem(hwndDlg,IDC_VOICEICO),FALSE)
							}
					  }
					}
					break;
				  }
				}
				break;
			  }
		}
		break;
		case WM_COMMAND:
			{
				switch(wParam)
				{
				case IDC_COPYGAME:
					GetIPPortUDetails(uhandle,"ServerIP","Port");
					break;
				case IDC_COPYVOICE:
					GetIPPortUDetails(uhandle,"VServerIP","VPort");
					break;
				}
			}
	}
	return FALSE;
}

/*static BOOL CALLBACK DlgProcUserDetails2(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
	char profil[2056]="";
	switch (msg)
	{
		case WM_INITDIALOG:
		{
			return TRUE;
		}
		case WM_NOTIFY:
		{
			switch (((LPNMHDR)lParam)->idFrom)
			{
				case 0:
				{
					switch (((LPNMHDR)lParam)->code)
					{
						case PSN_INFOCHANGED:
						{
							char* szProto;
							MCONTACT hContact = (MCONTACT)((LPPSHNOTIFY)lParam)->lParam;

							if (hContact == NULL)
								szProto = protocolname;
							else
								szProto = GetContactProto(hContact);

							if (szProto == NULL)
								break;

							if (hContact) {
								DBVARIANT dbv;
								
								char img[256]="";
								char username[256]="";
								char nick[256]="";
								char status[256]="";
								char game[512]="";
								if (!db_get(hContact,"ContactPhoto","File",&dbv))
								{
									mir_snprintf(img,256,"<img src=\"%s\">",dbv.pszVal);
									db_free(&dbv);
								}
								if (!db_get(hContact,protocolname,"Username",&dbv))
								{
									mir_snprintf(username,256,"<b>Username:</b> %s<br>",dbv.pszVal);
									db_free(&dbv);
								}
								if (!db_get(hContact,protocolname,"Nick",&dbv))
								{
									mir_snprintf(nick,256,"<b>Nick:</b> %s<br>",dbv.pszVal);
									db_free(&dbv);
								}
								if (!db_get(hContact,protocolname,"XStatusMsg",&dbv))
								{
									mir_snprintf(status,256,"<b>Status:</b> %s<br>",dbv.pszVal);
									db_free(&dbv);
								}
								if (!db_get(hContact,protocolname,"RGame",&dbv))
								{
									mir_snprintf(game,512,"<fieldset style='border:1px solid #0091d5;background-color:#0d2c3e;margin-bottom:8px;'><legend>Spiel</legend><table><tr><td valign=top style='font-family:Arial;font-size:11px;color:#fff;'><b><u>%s</u></b></td></tr></table></fieldset>",dbv.pszVal);
									db_free(&dbv);
								}
								mir_snprintf(profil,2056,"mshtml:<div style='position:absolute;top:0;left:0;border:1px solid #0091d5;background-color:#000;padding:6px;width:334px;height:249px'><table><tr><td valign=top>%s</td><td valign=top style='font-family:Arial;font-size:11px;color:#fff;'>%s%s%s</td></tr><tr><td valign=top colspan=\"2\" style='font-family:Arial;font-size:11px;color:#fff;'>%s%s</td></tr></table></div>",img,username,nick,status,game);
								HWND hWnd = ::CreateWindow("AtlAxWin", profil,
								WS_CHILD|WS_VISIBLE, 0, 0, 334, 249, hwndDlg, NULL,
								::GetModuleHandle(NULL), NULL);
							}
						}
					}
				}
			}
		}
	}
	return FALSE;
}*/

int OnDetailsInit(WPARAM wParam,LPARAM lParam)
{
	if (!IsXFireContact((MCONTACT)lParam))
		return 0;

	OPTIONSDIALOGPAGE odp = { sizeof(odp) };
	odp.hInstance = hinstance;
	odp.pfnDlgProc = DlgProcUserDetails;
	odp.position = -1900000000;
	odp.pszTemplate = MAKEINTRESOURCEA(IDD_UD);
	odp.pszTitle = LPGEN("XFire");
	UserInfo_AddPage(wParam, &odp);
	return 0;
}