/*
IRC plugin for Miranda IM

Copyright (C) 2003 Jörgen Persson

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 "irc.h"
#include <algorithm>
extern MM_INTERFACE		mmi;

extern char *			IRCPROTONAME;
extern bool				bMbotInstalled;
extern PREFERENCES*		prefs;

int Scripting_InsertRawIn(WPARAM wParam,LPARAM lParam)
{
	char * pszRaw = (char *) lParam;

	if(bMbotInstalled && prefs->ScriptingEnabled && pszRaw && g_ircSession)
	{
		g_ircSession.InsertIncomingEvent(pszRaw);
		return 0;
	}

	return 1;
}
 
int Scripting_InsertRawOut(WPARAM wParam,LPARAM lParam)
{
	char * pszRaw = (char *) lParam;
	if(bMbotInstalled && prefs->ScriptingEnabled && pszRaw && g_ircSession)
	{	
		String S = ReplaceString(pszRaw, "%", "%%%%");
		g_ircSession.NLSendNoScript((const unsigned char *)S.c_str(), lstrlen(S.c_str()));
		return 0;
	}

	return 1;
}

int Scripting_InsertGuiIn(WPARAM wParam,LPARAM lParam)
{
	GCEVENT * gce = (GCEVENT *) lParam;
	WPARAM_GUI_IN * wgi = (WPARAM_GUI_IN *) wParam;


	if(bMbotInstalled && prefs->ScriptingEnabled && gce)
	{	
		char * p1 = NULL;
		String S;
		if(gce->pDest && gce->pDest->pszID)
		{
			p1 = gce->pDest->pszID;
			S = MakeWndID(gce->pDest->pszID);
			gce->pDest->pszID = (char *)S.c_str();
		}
		gce->cbSize = sizeof(GCEVENT);

		CallService(MS_GC_EVENT, wgi?wgi->wParam:0, (LPARAM)gce);

		if(p1)
			gce->pDest->pszID = p1;
		return 0;
	}

	return 1;
}

//helper functions
static void __stdcall OnHook(void * pi)
{
	GCHOOK * gch = (GCHOOK *) pi;

	Service_GCEventHook(1, (LPARAM) gch);

	if(gch->pszUID)
		free(gch->pszUID);
	if(gch->pszText)
		free(gch->pszText);
	if(gch->pDest->pszID)
		free(gch->pDest->pszID);
	if(gch->pDest->pszModule)
		free(gch->pDest->pszModule);
	delete gch->pDest;
	delete gch;
}
static void __cdecl GuiOutThread(LPVOID di)
{	
	GCHOOK * gch = (GCHOOK *) di;
	CallFunctionAsync(OnHook, (void *)gch);
}

int Scripting_InsertGuiOut(WPARAM wParam,LPARAM lParam)
{

	GCHOOK * gch = (GCHOOK *) lParam;

	if(bMbotInstalled && prefs->ScriptingEnabled && gch)
	{	
		GCHOOK * gchook = new GCHOOK;
		gchook->pDest = new GCDEST;

		gchook->dwData = gch->dwData;
		gchook->pDest->iType = gch->pDest->iType;
		if(gch->pszText)
			gchook->pszText = strdup(gch->pszText);
		else gchook->pszText = NULL;

		if(gch->pszUID)
			gchook->pszUID = strdup(gch->pszUID);
		else gchook->pszUID = NULL;

		if(gch->pDest->pszID)
		{
			String S = MakeWndID(gch->pDest->pszID);
			gchook->pDest->pszID = strdup(S.c_str());
		}
		else gchook->pDest->pszID = NULL;

		if(gch->pDest->pszModule)
			gchook->pDest->pszModule = strdup(gch->pDest->pszModule);
		else gchook->pDest->pszModule = NULL;

		forkthread(GuiOutThread, NULL, gchook);

		return 0;
	}

	return 1;
}


BOOL Scripting_TriggerMSPRawIn(char ** pszRaw)
{
	int iVal = CallService(MS_MBOT_IRC_RAW_IN, (WPARAM)IRCPROTONAME, (LPARAM)pszRaw);
	if (iVal == 0)
		return TRUE;
	return iVal > 0?FALSE:TRUE;

}

BOOL Scripting_TriggerMSPRawOut(char ** pszRaw)
{

	int iVal =  CallService(MS_MBOT_IRC_RAW_OUT, (WPARAM)IRCPROTONAME, (LPARAM)pszRaw);
	if (iVal == 0)
		return TRUE;
	return iVal > 0?FALSE:TRUE;
}

BOOL Scripting_TriggerMSPGuiIn(WPARAM * wparam, GCEVENT * gce)
{
	WPARAM_GUI_IN wgi = {0};

	wgi.pszModule = IRCPROTONAME;
	wgi.wParam = *wparam;
	if (gce->time == 0)
		gce->time = time(0);

	int iVal =  CallService(MS_MBOT_IRC_GUI_IN, (WPARAM)&wgi, (LPARAM)gce);
	if (iVal == 0)
	{
		*wparam = wgi.wParam;
		return TRUE;
	}

	return iVal > 0?FALSE:TRUE;
}

BOOL Scripting_TriggerMSPGuiOut(GCHOOK * gch)
{

	int iVal =  CallService(MS_MBOT_IRC_GUI_OUT, (WPARAM)IRCPROTONAME, (LPARAM)gch);
	if (iVal == 0)
		return TRUE;
	return iVal > 0?FALSE:TRUE;
}

int Scripting_GetIrcData(WPARAM wparam, LPARAM lparam)
{

	if(bMbotInstalled && prefs->ScriptingEnabled && lparam)
	{
		String sString = (char *) lparam;
		String sRequest, sOutput, sChannel;
		int i = sString.find("|",0);

		if(i != string::npos)
		{
			sRequest = sString.substr(0, i);
			sChannel = sString.substr(i+1, sString.length());

		}
		else
			sRequest = sString;


		transform (sRequest.begin(),sRequest.end(), sRequest.begin(), tolower);

		if (sRequest == "ownnick" && g_ircSession)
			sOutput = g_ircSession.GetInfo().sNick;

		else if (sRequest == "network" && g_ircSession)
			sOutput = g_ircSession.GetInfo().sNetwork;

		else if (sRequest == "primarynick")
			sOutput = prefs->Nick;

		else if (sRequest == "secondarynick")
			sOutput = prefs->AlternativeNick;

		else if (sRequest == "myip")
			sOutput = prefs->ManualHost?prefs->MySpecifiedHostIP:prefs->IPFromServer?prefs->MyHost:prefs->MyLocalHost;

		else if (sRequest == "usercount" && sChannel != "")
		{
			String S = MakeWndID(sChannel);
			GC_INFO gci = {0};
			gci.Flags = BYID|COUNT;
			gci.pszModule = IRCPROTONAME;
			gci.pszID = (char *)S.c_str();
			if(!CallService(MS_GC_GETINFO, 0, (LPARAM)&gci))
			{
				char szTemp[40];
				_snprintf(szTemp, 35, "%u", gci.iCount);
				sOutput = szTemp;
			}
		}
		else if (sRequest == "userlist" && sChannel != "")
		{
			String S = MakeWndID(sChannel);
			GC_INFO gci = {0};
			gci.Flags = BYID|USERS;
			gci.pszModule = IRCPROTONAME;
			gci.pszID = (char *)S.c_str();
			if(!CallService(MS_GC_GETINFO, 0, (LPARAM)&gci))
				sOutput = gci.pszUsers;
		}
		else if (sRequest == "channellist")
		{
			String S = "";
			int i = CallService(MS_GC_GETSESSIONCOUNT, 0, (LPARAM)IRCPROTONAME);
			if(i >= 0)
			{
				int j = 0;
				while (j < i)
				{
					GC_INFO gci = {0};
					gci.Flags = BYINDEX|ID;
					gci.pszModule = IRCPROTONAME;
					gci.iItem = j;
					if(!CallService(MS_GC_GETINFO, 0, (LPARAM)&gci))
					{
						if(lstrcmpi(gci.pszID, "network log"))
						{
							int k;
							String S1 = gci.pszID;
							k = S1.find(" ", 0);
							if(k != string::npos)
								S1 = S1.substr(0, k);
							S += S1;
							S += " ";
						}
					}
					j++;
				}
			}
			if (S != "")
				sOutput = S;
		}
		// send it to mbot
		if(sOutput != "")
		{
			char * pTemp = (char *)mmi.mmi_malloc(sOutput.length() + 1);
			lstrcpyn(pTemp, sOutput.c_str(), sOutput.length() + 1);
			return (int) pTemp;
		}
	}
	return 0;

}