// Copyright © 2010 sss
// 
// 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 "commonheaders.h"


char *send_msg = NULL;

int SendMsgSvc(WPARAM w, LPARAM l)
{
	CCSDATA *ccs = (CCSDATA*)l;
	if (!ccs)
		return CallService(MS_PROTO_CHAINSEND, w, l);

	char *msg = (char*)(ccs->lParam);
	if (!msg)
		return CallService(MS_PROTO_CHAINSEND, w, l);
	HANDLE hContact = ccs->hContact;
	if(isProtoMetaContacts(hContact))
		hContact = metaGetMostOnline(hContact);
	
	TCHAR *tmp = mir_a2t(msg);
	wstring str = tmp;
	mir_free(tmp);
	wstring str_low = str;
	for(unsigned int i = 0; i< str_low.length(); i++)
	{
		str_low[i] = _totlower(str_low[i]);
	}

	int i = 0;
	char setting[32];
	mir_snprintf(setting, 31, "szSourceWord%d", i);
	TCHAR *buf = UniGetContactSettingUtf(NULL, szReplacerModuleName, setting, _T(""));
	wstring::size_type p1 = 0;
	while(_tcslen(buf) > 0)
	{
		mir_snprintf(setting, 31, "szTargetWords%d", i);
		TCHAR *buf2 = UniGetContactSettingUtf(NULL, szReplacerModuleName, setting, _T(""));
		wstring tmp = buf2;
		mir_free(buf2);
		wstring::size_type p1 = 0, p2 = 0, end = 0;
		p1 = tmp.find(_T("†")); //nice delimiter
		int c = 0;
		TCHAR *words[1024]; //fucked msvc does not support variable massive size (
		for(;;)
		{
			if(p1 == wstring::npos)
				break;
			if(!c)
			{
				words[c] = mir_wstrdup(tmp.substr(0, p1).c_str());
				p2 = end = p1;
			}
			else
			{
				p2 = tmp.find(_T("†"), p1+1);
				if(p2 < end || p2 == p1)
					break;
				else if(p2 == wstring::npos)
					break;
				p1++;
				words[c] = mir_wstrdup(tmp.substr(p1, p2-p1).c_str());
				end = p2;
			}
			p1 = p2;
			c++;
		}
		if(c)
		{
			p1 = 0;
			wstring::size_type end = 0;
			CharLowerBuff(buf, _tcslen(buf));
			while((p1 = str_low.find(buf), p1) != wstring::npos)
			{
				if(p1 < end)
					break;
				int p = (c>1)?(rand()%(c-1)):0;
				str.replace(p1, (wstring::size_type)_tcslen(buf), words[p]);
				p1+=_tcslen(words[p]);
				end = p1;
			}
		}
		mir_free(buf);
		for(int cc = 0; cc < c; cc++)
			mir_free(words[cc]);
		i++;
		mir_snprintf(setting, 31, "szSourceWord%d", i);
		buf = UniGetContactSettingUtf(NULL, szReplacerModuleName, setting, _T(""));
	}
	ccs->lParam = (LPARAM)mir_utf8encodeW(str.c_str());

	return CallService(MS_PROTO_CHAINSEND, w, l);
}