/*
MetaContacts Plugin for Miranda IM.

Copyright © 2004 Universite Louis PASTEUR, STRASBOURG.

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.
*/

/** @file meta_utils.c 
*
* Diverses functions useful in different places.
*/

#include "metacontacts.h"

HANDLE invisiGroup;
POINT menuMousePoint;

INT_PTR MyDBWriteContactSetting(HANDLE hContact, const char *szModule, const char *szSetting, DBVARIANT *dbv) {
	DBCONTACTWRITESETTING dcws;
	dcws.szModule = szModule;
	dcws.szSetting = szSetting;
	dcws.value = *dbv;
	return CallService(MS_DB_CONTACT_WRITESETTING, (WPARAM)hContact, (LPARAM)&dcws);
}

INT_PTR MyDBGetContactSetting(HANDLE hContact, const char *szModule, const char *szSetting, DBVARIANT *dbv) {
	static BOOL strsvc, strsvcset = FALSE;
	memset(dbv, 0, sizeof(DBVARIANT));

	if (!strsvcset) {strsvc = ServiceExists(MS_DB_CONTACT_GETSETTING_STR); strsvcset = TRUE;}
	
	// preserve unicode strings - this service should return other data types unchanged
	if (strsvc) return DBGetContactSettingW(hContact, szModule, szSetting, dbv);
	
	return DBGetContactSetting(hContact, szModule, szSetting, dbv);
}

int Meta_EqualDBV(DBVARIANT *dbv, DBVARIANT *id) {
	DWORD res = 1;
	int i;
	if (dbv->type == id->type)
	{	// If the id parameter and the value returned by the DBGetContactSetting
		// are the same, this is the correct HANDLE, return it.
		switch(dbv->type)
		{
			case DBVT_DELETED:
				return 1;
			case DBVT_BYTE:
				if (dbv->bVal == id->bVal)
					return 1;
			case DBVT_WORD:
				if (dbv->wVal == id->wVal)
					return 1;
			case DBVT_DWORD:
				if (dbv->dVal == id->dVal)
					return 1;
				break;
			case DBVT_ASCIIZ:
			case DBVT_UTF8:
				if (!strcmp(dbv->pszVal,id->pszVal))
					return 1;
			case DBVT_WCHAR:
				if (!wcscmp(dbv->pwszVal,id->pwszVal))
					return 1;
			case DBVT_BLOB:
				if (dbv->cpbVal == id->cpbVal)
				{
					for (i=dbv->cpbVal;res && i<=0;i--)
						res = (dbv->pbVal[i] == id->pbVal[i]);
					if (res)
					{
						return 1;
					}
				}
				break;
		} // end switch
	} // end if (dbv.type == id.type)

	return 0;
}

/** Retrieve a \c HANDLE from a protocol and an identifier
*
* @param protocol :	Name of the protocol
* @param id :		Unique field identifiying the contact searched
*
* @return			a \c HANDLE to the specified contact or \c NULL
					if no contact has been found.
*/
HANDLE Meta_GetHandle(const char *protocol, DBVARIANT *id)
{
	char *field;
	DBVARIANT dbv;
	HANDLE hUser;
	DWORD i,res = 1;
	// Get the field identifying the contact in the database.
	char str[MAXMODULELABELLENGTH];
	strcpy(str,protocol);
	strcat(str,PS_GETCAPS);
	if (!ServiceExists(str))
		return NULL;
	
	field = (char *)CallProtoService(protocol,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0);
	hUser = db_find_first();
	while(hUser)
	{	// Scan the database and retrieve the field for each contact
		if (!DBGetContactSetting(hUser,protocol,field,&dbv))
		{
			if (dbv.type == id->type)
			{	// If the id parameter and the value returned by the DBGetContactSetting
				// are the same, this is the correct HANDLE, return it.
				switch(dbv.type)
				{
					case DBVT_DELETED:
						break;
					case DBVT_BYTE:
						if (dbv.bVal == id->bVal)
							return hUser;
						break;
					case DBVT_WORD:
						if (dbv.wVal == id->wVal)
							return hUser;
						break;
					case DBVT_DWORD:
						if (dbv.dVal == id->dVal)
							return hUser;
						break;
					case DBVT_ASCIIZ:
					case DBVT_UTF8:
						if (!strcmp(dbv.pszVal,id->pszVal))
						{
							DBFreeVariant(&dbv);
							return hUser;
						}
						else
						{
							DBFreeVariant(&dbv);
							break;
						}
					case DBVT_WCHAR:
						if (!wcscmp(dbv.pwszVal,id->pwszVal))
						{
							DBFreeVariant(&dbv);
							return hUser;
						}
						else
						{
							DBFreeVariant(&dbv);
							break;
						}
					case DBVT_BLOB:
						if (dbv.cpbVal == id->cpbVal)
						{
							for (i=dbv.cpbVal;res && i<=0;i--)
								res = (dbv.pbVal[i] == id->pbVal[i]);
							if (res)
							{
								DBFreeVariant(&dbv);
								return hUser;
							}
						}
						DBFreeVariant(&dbv);
						break;
				} // end switch
			} else
				DBFreeVariant(&dbv);
		} // end if (!DBGetContactSetting(hUser,protocol,field,&dbv))
		// This contact wasn't the good one, go to the next.
		hUser = db_find_next(hUser);
	} // end while
	return NULL;
}

/** Update the MetaContact login, depending on the protocol desired
*
* The login of the "MetaContacts" protocol will be copied from the login
* of the specified protocol.
*
* @param proto :	The name of the protocol used to get the login that will be
*					affected to the "MetaContacts" protocol.
*
* @return			O on success, 1 otherwise.
*/
int Meta_SetNick(char *proto)
{
	CONTACTINFO ci;
	ci.cbSize = sizeof(CONTACTINFO);
	ci.dwFlag = CNF_DISPLAY;
	ci.hContact = NULL;
	ci.szProto = proto;
	if (CallService(MS_CONTACT_GETCONTACTINFO,0,(LPARAM)&ci))
		return 1;
	switch(ci.type)
	{
		case CNFT_BYTE:
			if (DBWriteContactSettingByte(NULL,META_PROTO,"Nick",ci.bVal))
				return 1;
			break;
		case CNFT_WORD:
			if (DBWriteContactSettingWord(NULL,META_PROTO,"Nick",ci.wVal))
				return 1;
			break;
		case CNFT_DWORD:
			if (DBWriteContactSettingDword(NULL,META_PROTO,"Nick",ci.dVal))
				return 1;
			break;
		case CNFT_ASCIIZ:
			if (DBWriteContactSettingString(NULL,META_PROTO,"Nick",ci.pszVal))
				return 1;
			mir_free(ci.pszVal);
			break;
		default:
			if (DBWriteContactSettingString(NULL,META_PROTO,"Nick",(char *)Translate("Sender")))
				return 1;
			break;
	}
	return 0;
}

/** Assign a contact (src) to a metacontact (dest)
*
* @param src			\c HANDLE to a contact that should be assigned
* @param dest			\c HANDLE to a metacontact that will host the contact
* @param set_as_default	\c bool flag to indicate whether the new contact becomes the default
*
* @return		TRUE on success, FALSE otherwise
*/
BOOL Meta_Assign(HANDLE src, HANDLE dest, BOOL set_as_default)
{
	DBCONTACTWRITESETTING cws;
	DWORD metaID;
	char *proto,
		*field;
	DWORD num_contacts;
	char buffer[512], buffer2[512];
	WORD status;
	HANDLE most_online;
		
	if ((metaID=DBGetContactSettingDword(dest,META_PROTO,META_ID,(DWORD)-1))==-1) {
		MessageBox(0, Translate("Could not get MetaContact id"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}
	if ((num_contacts=DBGetContactSettingDword(dest,META_PROTO,"NumContacts",(DWORD)-1))==-1) {
		MessageBox(0, Translate("Could not retreive MetaContact contact count"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}
	if (!(proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)src,0))) {
		MessageBox(0, Translate("Could not retreive contact protocol"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// Get the login of the subcontact
	field = (char *)CallProtoService(proto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0);
	if (DBGetContactSetting(src,proto,field,&cws.value)) {
		MessageBox(0, Translate("Could not get unique id of contact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// Check that is is 'on the list'
	if (DBGetContactSettingByte(src, "CList", "NotOnList", 0) == 1) {
		MessageBox(0, Translate("Contact is 'Not on List' - please add the contact to your contact list before assigning."), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		DBFreeVariant(&cws.value);
		return FALSE;
	}

	num_contacts++;
	if (num_contacts >= MAX_CONTACTS) {
		MessageBox(0, Translate("MetaContact is full"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		DBFreeVariant(&cws.value);
		return FALSE;
	}

	// write the contact's protocol
	strcpy(buffer, "Protocol");
	strcat(buffer, _itoa((int)(num_contacts -1), buffer2, 10));

	if (DBWriteContactSettingString(dest, META_PROTO, buffer, proto)) {
		MessageBox(0, Translate("Could not write contact protocol to MetaContact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		DBFreeVariant(&cws.value);
		return FALSE;
	}

	// write the login
	strcpy(buffer, "Login");
	strcat(buffer, _itoa((int)(num_contacts - 1), buffer2, 10));

	cws.szModule=META_PROTO;
	cws.szSetting=buffer;

	if (CallService(MS_DB_CONTACT_WRITESETTING,(WPARAM)dest,(LPARAM)&cws)) {
		MessageBox(0, Translate("Could not write unique id of contact to MetaContact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		DBFreeVariant(&cws.value);
		return FALSE;
	}

	DBFreeVariant(&cws.value);

	// If we can get the nickname of the subcontact...
	if (!DBGetContactSetting(src,proto,"Nick",&cws.value)) {
		// write the nickname
		strcpy(buffer, "Nick");
		strcat(buffer, _itoa((int)(num_contacts - 1), buffer2, 10));

		cws.szModule=META_PROTO;
		cws.szSetting=buffer;

		if (CallService(MS_DB_CONTACT_WRITESETTING,(WPARAM)dest,(LPARAM)&cws)) {
			MessageBox(0, Translate("Could not write nickname of contact to MetaContact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
			return FALSE;
		}

		DBFreeVariant(&cws.value);
	}

	{
		// Get the displayname of the subcontact
		char *name = (char *)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)src, 0);
		wchar_t *wname = (wchar_t *)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)src, GCDNF_UNICODE);

		// write the display name
		strcpy(buffer, "CListName");
		strcat(buffer, _itoa((int)(num_contacts - 1), buffer2, 10));

		if (wname && strncmp(name, (char *)wname, strlen(name)) != 0) {
			DBWriteContactSettingWString(dest, META_PROTO, buffer, wname);
		} else
			DBWriteContactSettingString(dest, META_PROTO, buffer, name);

		// Get the status
		if (!proto)
			status = ID_STATUS_OFFLINE;
		else
			status = DBGetContactSettingWord(src, proto, "Status", ID_STATUS_OFFLINE);
	}

	// write the status
	strcpy(buffer, "Status");
	strcat(buffer, _itoa((int)(num_contacts - 1), buffer2, 10));
	if (DBWriteContactSettingWord(dest, META_PROTO, buffer, status)) {
		MessageBox(0, Translate("Could not write contact status to MetaContact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// write the handle
	strcpy(buffer, "Handle");
	strcat(buffer, _itoa((int)(num_contacts - 1), buffer2, 10));
	if (DBWriteContactSettingDword(dest, META_PROTO, buffer, (DWORD)src)) {
		MessageBox(0, Translate("Could not write contact handle to MetaContact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// write status string
	strcpy(buffer, "StatusString");
	strcat(buffer, _itoa((int)(num_contacts - 1), buffer2, 10));
	Meta_GetStatusString(status, buffer2, 512);
	if (DBWriteContactSettingString(dest, META_PROTO, buffer, buffer2)) {
		MessageBox(0, Translate("Could not write contact status string to MetaContact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// Write the link in the contact
	if (DBWriteContactSettingDword(src,META_PROTO,META_LINK,metaID)) {
		MessageBox(0, Translate("Could not write MetaContact id to contact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// Write the contact number in the contact
	if (DBWriteContactSettingDword(src,META_PROTO,"ContactNumber",(DWORD)(num_contacts - 1))) {
		MessageBox(0, Translate("Could not write MetaContact contact number to contact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// Write the handle in the contact
	if (DBWriteContactSettingDword(src,META_PROTO,"Handle",(DWORD)dest)) {
		MessageBox(0, Translate("Could not write MetaContact contact number to contact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	// update count of contacts
	if (DBWriteContactSettingDword(dest,META_PROTO,"NumContacts",num_contacts)) {
		MessageBox(0, Translate("Could not write contact count to MetaContact"), Translate("Assignment Error"), MB_OK | MB_ICONWARNING);
		return FALSE;
	}

	if (set_as_default) {
		DBWriteContactSettingDword(dest, META_PROTO, "Default", (WORD)(num_contacts - 1));
		NotifyEventHooks(hEventDefaultChanged, (WPARAM)dest, (LPARAM)src);
	}

	DBWriteContactSettingByte(src, META_PROTO, "IsSubcontact", 1);
	// set nick to most online contact that can message
	most_online = Meta_GetMostOnline(dest);
	Meta_CopyContactNick(dest, most_online);

	// set status to that of most online contact
	Meta_FixStatus(dest);

	// if the new contact is the most online contact with avatar support, get avatar info
	most_online = Meta_GetMostOnlineSupporting(dest, PFLAGNUM_4, PF4_AVATARS);
	if (most_online == src) {
		PROTO_AVATAR_INFORMATIONT AI;

		AI.cbSize = sizeof(AI);
		AI.hContact = dest;
		AI.format = PA_FORMAT_UNKNOWN;
		_tcscpy(AI.filename, _T("X"));

		if ((int)CallProtoService(META_PROTO, PS_GETAVATARINFOT, 0, (LPARAM)&AI) == GAIR_SUCCESS)
	        DBWriteContactSettingTString(dest, "ContactPhoto", "File",AI.filename);
	}

	// Hide the contact
	Meta_SetGroup(src);

	// copy history
	if (options.copy_subcontact_history)
		copyHistory(src, dest);

	// Ignore status if the option is on
	if (options.suppress_status)
		CallService(MS_IGNORE_IGNORE, (WPARAM)src, (WPARAM)IGNOREEVENT_USERONLINE);

	// copy other data
	Meta_CopyData(dest);

	NotifyEventHooks(hSubcontactsChanged, (WPARAM)dest, 0);
	return TRUE;
}


/**
*	Convenience method - get most online contact supporting messaging
*
*/
HANDLE Meta_GetMostOnline(HANDLE hMeta) {
	return Meta_GetMostOnlineSupporting(hMeta, PFLAGNUM_1, PF1_IM);
}
/** Get the 'most online' contact for a meta contact (according to above order) which supports the specified
* protocol service, and copies nick from that contact
*
* @param hMeta	\c HANDLE to a metacontact
*
* @return		\c HANDLE to a contact
*/

HANDLE Meta_GetMostOnlineSupporting(HANDLE hMeta, int pflagnum, unsigned long capability) {
	int most_online_status = ID_STATUS_OFFLINE;
	HANDLE most_online_contact = NULL, hContact;
	int i, status, default_contact_number, num_contacts;
	unsigned long caps = 0;
	char *proto, *most_online_proto;

	// you can't get more online than having the default contact ONLINE - so check that first
	if ((default_contact_number = DBGetContactSettingDword(hMeta,META_PROTO,"Default",(DWORD)-1)) == (DWORD)-1)
	{
		// This is a simple contact - return NULL to signify error.
		// (this should normally not happen, since all meta contacts have a default contact)
		return NULL;
	}

	// if the default is beyond the end of the list (eek!) return null
	if (default_contact_number >= (num_contacts = DBGetContactSettingDword(hMeta, META_PROTO, "NumContacts", 0)))
		return NULL;

	most_online_contact = Meta_GetContactHandle(hMeta, default_contact_number);
	proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)most_online_contact, 0);
	caps = proto ? CallProtoService(proto, PS_GETCAPS, (WPARAM)pflagnum, 0) : 0;
	if (proto && strcmp(proto, "IRC") == 0) caps |= PF1_IM;
	// we are forced to do use default for sending - '-1' capability indicates no specific capability, but respect 'Force Default'
	if (proto && DBGetContactSettingByte(hMeta, META_PROTO, "ForceDefault", 0) && capability != 0 && (capability == -1 || (caps & capability) == capability)) // capability is 0 when we're working out status
		return most_online_contact;

	// a subcontact is being temporarily 'forced' to do sending
	if ((most_online_contact = (HANDLE)DBGetContactSettingDword(hMeta, META_PROTO, "ForceSend", 0))) {
		caps = proto ? CallProtoService(proto, PS_GETCAPS, (WPARAM)pflagnum, 0) : 0;
		if (proto && strcmp(proto, "IRC") == 0) caps |= PF1_IM;
		if (proto && (caps & capability) == capability && capability != 0) // capability is 0 when we're working out status
			return most_online_contact;
	}

	most_online_contact = Meta_GetContactHandle(hMeta, default_contact_number);
	proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)most_online_contact, 0);
	if (proto && CallProtoService(proto, PS_GETSTATUS, 0, 0) >= ID_STATUS_ONLINE) {
		caps = proto ? CallProtoService(proto, PS_GETCAPS, (WPARAM)pflagnum, 0) : 0;
		if (proto && strcmp(proto, "IRC") == 0) caps |= PF1_IM;
		if (proto && (capability == -1 || (caps & capability) == capability)) {
			most_online_status = DBGetContactSettingWord(most_online_contact, proto, "Status", ID_STATUS_OFFLINE);

			// if our default is not offline, and option to use default is set - return default
			// and also if our default is online, return it
			if (most_online_status == ID_STATUS_ONLINE || (most_online_status != ID_STATUS_OFFLINE && options.always_use_default)) {
				return most_online_contact;
			}
		} else
			most_online_status = ID_STATUS_OFFLINE;
	} else
		most_online_status = ID_STATUS_OFFLINE;

	most_online_proto = proto;
	// otherwise, check all the subcontacts for the one closest to the ONLINE state which supports the required capability
	for (i = 0; i < num_contacts; i++) {
		if (i == default_contact_number) // already checked that (i.e. initial value of most_online_contact and most_online_status are those of the default contact)
			continue;

		hContact = Meta_GetContactHandle(hMeta, i);
		proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);

		if (!proto || CallProtoService(proto, PS_GETSTATUS, 0, 0) < ID_STATUS_ONLINE) // proto offline or connecting
			continue;

		caps = proto ? CallProtoService(proto, PS_GETCAPS, (WPARAM)pflagnum, 0) : 0;
		if (proto && strcmp(proto, "IRC") == 0) caps |= PF1_IM;
		if (proto && (capability == -1 || (caps & capability) == capability)) {

			status = DBGetContactSettingWord(hContact, proto, "Status", ID_STATUS_OFFLINE);

			if (status == ID_STATUS_ONLINE) {
				most_online_contact = hContact;
				most_online_proto = proto;
				return most_online_contact;
			} else if (status <= ID_STATUS_OFFLINE) // status below ID_STATUS_OFFLINE is a connecting status
				continue;
			else {
				if (GetRealPriority(proto, status) < GetRealPriority(most_online_proto, most_online_status)) {
					most_online_status = status;
					most_online_contact = hContact;
					most_online_proto = proto;
				}
			}
		}
	}

	// no online contacts? if we're trying to message, use 'send offline' contact
	if (most_online_status == ID_STATUS_OFFLINE && capability == PF1_IM) {
		HANDLE hOffline = Meta_GetContactHandle(hMeta, DBGetContactSettingDword(hMeta, META_PROTO, "OfflineSend", (DWORD)-1));
		if (hOffline)
			most_online_contact = hOffline;
	}

	return most_online_contact;
}

int Meta_GetContactNumber(HANDLE hContact) {
	return DBGetContactSettingDword(hContact, META_PROTO, "ContactNumber", -1);
}

BOOL dbv_same(DBVARIANT *dbv1, DBVARIANT *dbv2) {
	if (dbv1->type != dbv2->type) return FALSE;

	switch(dbv1->type) {
	case DBVT_BYTE:
		return dbv1->bVal == dbv2->bVal;
	case DBVT_WORD:
		return dbv1->wVal == dbv2->wVal;
	case DBVT_DWORD:
		return dbv1->dVal == dbv2->dVal;
	case DBVT_ASCIIZ:
		return !strcmp(dbv1->pszVal, dbv2->pszVal);
	case DBVT_BLOB:
		return (dbv1->cpbVal == dbv2->cpbVal && !memcmp(dbv1->pbVal, dbv2->pbVal, dbv1->cpbVal));
		break;
	default:
		return FALSE;
	}
}

 void copy_settings_array(HANDLE hMeta, char *module, const char *settings[], int num_settings) {
	int num_contacts = DBGetContactSettingDword(hMeta, META_PROTO, "NumContacts", (DWORD)-1),
		default_contact = DBGetContactSettingDword(hMeta, META_PROTO, "Default", (DWORD)-1),
		most_online = Meta_GetContactNumber(Meta_GetMostOnline(hMeta));

	HANDLE hContact;
	int i, j;
	char *used_mod;
	
	DBVARIANT dbv1, dbv2;
	BOOL free, got_val, bDataWritten;

	BOOL use_default = FALSE;
	int source_contact = (use_default ? default_contact : most_online);

	if (source_contact < 0 || source_contact >= num_contacts) return;

	for (i = 0; i < num_settings; i++) {
		bDataWritten = FALSE;
		for (j = 0; j < num_contacts && !bDataWritten; j++) {
			// do source (most online) first
			if (j == 0) 
				hContact = Meta_GetContactHandle(hMeta, source_contact);
			else if (j <= source_contact)
				hContact = Meta_GetContactHandle(hMeta, j - 1);
			else
				hContact = Meta_GetContactHandle(hMeta, j);

			if (hContact) {
				if (!module) {
					used_mod = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);
					if (!used_mod) continue; // next contact
				} else
					used_mod = module;

				if (j == 0 && strcmp(settings[i], "MirVer") == 0) { //Always reset MirVer
					DBDeleteContactSetting(hMeta, (module ? used_mod : META_PROTO), settings[i]);
				}
					
				got_val = !MyDBGetContactSetting(hContact, used_mod, settings[i], &dbv2);
				if (got_val) {
					free = !MyDBGetContactSetting(hMeta, (module ? used_mod : META_PROTO), settings[i], &dbv1);
					
					if (strcmp(settings[i], "MirVer") == 0) {
						if (DBGetContactSettingWord(hContact, used_mod, "Status", ID_STATUS_OFFLINE) != ID_STATUS_OFFLINE) {
							if (!free || (dbv1.pszVal == NULL || strcmp(dbv1.pszVal, "") == 0 || strlen(dbv1.pszVal) < 2)) {
								MyDBWriteContactSetting(hMeta, (module ? used_mod : META_PROTO), settings[i], &dbv2);
								bDataWritten = TRUE; //only break if found something to copy
							}
						}

					} else {
						if (!free || !dbv_same(&dbv1, &dbv2)) {
							MyDBWriteContactSetting(hMeta, (module ? used_mod : META_PROTO), settings[i], &dbv2);
							if (dbv2.type == DBVT_ASCIIZ || dbv2.type == DBVT_UTF8) {
								if (dbv2.pszVal != NULL && strcmp(dbv2.pszVal, "") != 0)
									bDataWritten = TRUE; //only break if found something to copy
							} else if (dbv2.type == DBVT_WCHAR) {
								if (dbv2.pwszVal != 0 && wcscmp(dbv2.pwszVal, L"") != 0)
									bDataWritten = TRUE; //only break if found something to copy
							} else
								bDataWritten = TRUE; //only break if found something to copy
						}
						else
							bDataWritten = TRUE;

					}		
					DBFreeVariant(&dbv2);
					if (free)DBFreeVariant(&dbv1);
				} 
			}
		}
	}
}

const char *ProtoSettings[25] = 
	{"BirthDay", "BirthMonth", "BirthYear", "Age", "Cell", "Cellular", "Homepage", "email", "Email", "e-mail",
	"FirstName", "MiddleName", "LastName", "Title", "Timezone", "Gender", "MirVer", "ApparentMode", "IdleTS", "LogonTS", "IP", "RealIP",
	"Auth", "ListeningTo", "Country"};
const char *UserInfoSettings[71] = 
	{"NickName", "FirstName", "MiddleName", "LastName", "Title", "Timezone", "Gender", "DOBd", "DOBm", "DOBy",
	"Mye-mail0", "Mye-mail1", "MyPhone0", "MyPhone1", "MyNotes", "PersonalWWW", 
	"HomePhone", "HomeFax", "HomeMobile", "HomeStreet", "HomeCity", "HomeState", "HomeZip", "HomeCountry",
	"WorkPhone", "WorkFax", "WorkMobile", "WorkStreet", "WorkCity", "WorkState", "WorkZip", "WorkCountry", "Company", "Department", "Position", 
	"Occupation", "Cellular", "Cell", "Phone", "Notes",

	 "e-mail", "e-mail0", "e-mail1", "Homepage", "MaritalStatus",
	"CompanyCellular", "CompanyCity", "CompanyState", "CompanyStreet", "CompanyCountry", "Companye-mail", 
	"CompanyHomepage", "CompanyDepartment", "CompanyOccupation", "CompanyPosition", "CompanyZip", 

	"OriginCity", "OriginState", "OriginStreet", "OriginCountry", "OriginZip", 
	"City", "State", "Street", "Country", "Zip", 

	"Language1", "Language2", "Language3", "Partner", "Gender"};
const char *ContactPhotoSettings[5] = 
	{"File","Backup","Format","ImageHash","RFile"};
const char *MBirthdaySettings[3] = 
	{ "BirthDay", "BirthMonth", "BirthYear"};

// special handling for status message
// copy from first subcontact with any of these values that has the same status as the most online contact
// proto: 
// clist: "StatusMsg"
void CopyStatusData(HANDLE hMeta) {
	int num_contacts = DBGetContactSettingDword(hMeta, META_PROTO, "NumContacts", (DWORD)-1),
		most_online = Meta_GetContactNumber(Meta_GetMostOnline(hMeta));
	WORD status = DBGetContactSettingWord(hMeta, META_PROTO, "Status", ID_STATUS_OFFLINE);
	HANDLE hContact;
	DBVARIANT dbv;
	char *proto;
	BOOL bDoneStatus = FALSE, bDoneXStatus = FALSE;
	int i;

	for (i = 0; i < num_contacts; i++) {
		if (i == 0) 
			hContact = Meta_GetContactHandle(hMeta, most_online);
		else if (i <= most_online)
			hContact = Meta_GetContactHandle(hMeta, i - 1);
		else
			hContact = Meta_GetContactHandle(hMeta, i);

		proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);

		if (proto && DBGetContactSettingWord(hContact, proto, "Status", ID_STATUS_OFFLINE) == status) {
			if (!bDoneStatus && !MyDBGetContactSetting(hContact, "CList", "StatusMsg", &dbv)) {
				MyDBWriteContactSetting(hMeta, "CList", "StatusMsg", &dbv);
				DBFreeVariant(&dbv);
				bDoneStatus = TRUE;
			}
			if ((!bDoneXStatus) && (!MyDBGetContactSetting(hContact, proto, "XStatusId", &dbv)) && dbv.type != DBVT_DELETED) {
				DBWriteContactSettingString(hMeta, META_PROTO, "XStatusProto", proto);
				MyDBWriteContactSetting(hMeta, META_PROTO, "XStatusId", &dbv);

				DBFreeVariant(&dbv);
				if (!MyDBGetContactSetting(hContact, proto, "XStatusMsg", &dbv)) {
					MyDBWriteContactSetting(hMeta, META_PROTO, "XStatusMsg", &dbv);
					DBFreeVariant(&dbv);
				}
				if (!MyDBGetContactSetting(hContact, proto, "XStatusName", &dbv)) {
					MyDBWriteContactSetting(hMeta, META_PROTO, "XStatusName", &dbv);
					DBFreeVariant(&dbv);
				}
				bDoneXStatus = TRUE;
			}
		}

		if (bDoneStatus && bDoneXStatus) break;
	}

	if (!bDoneStatus) DBDeleteContactSetting(hMeta, "CList", "StatusMsg");
	if (!bDoneXStatus) {
		DBDeleteContactSetting(hMeta, META_PROTO, "XStatusId");
		DBDeleteContactSetting(hMeta, META_PROTO, "XStatusMsg");
		DBDeleteContactSetting(hMeta, META_PROTO, "XStatusName");
	}
}

void Meta_CopyData(HANDLE hMeta) {
	if (options.copydata) {
		CopyStatusData(hMeta);

		copy_settings_array(hMeta, 0, ProtoSettings, 25);
		copy_settings_array(hMeta, "mBirthday", UserInfoSettings, 3);
		copy_settings_array(hMeta, "ContactPhoto", ContactPhotoSettings, 5);

		if (options.copy_userinfo) 
			copy_settings_array(hMeta, "UserInfo", UserInfoSettings, 71);
	}
}


HANDLE Meta_GetContactHandle(HANDLE hMeta, int contact_number) {
	char buffer[512], buffer2[512];
	int num_contacts = DBGetContactSettingDword(hMeta, META_PROTO, "NumContacts", 0);

	if (contact_number >= num_contacts || contact_number < 0) return 0;
	
	strcpy(buffer, "Handle");
	strcat(buffer, _itoa(contact_number, buffer2, 10));
	return (HANDLE)DBGetContactSettingDword(hMeta, META_PROTO, buffer, 0);

}

int Meta_SetHandles(void) {
	DWORD meta_id, num_contacts, contact_number;
	HANDLE hContact2, hContact = db_find_first(), hNextContact;
	char buffer[512], buffer2[512];
	char nick_buffer[128];
	BOOL found;

	while ( hContact != NULL ) {
		if ((meta_id = DBGetContactSettingDword(hContact,META_PROTO,META_LINK,(DWORD)-1))!=(DWORD)-1) {
			// is a subcontact

			// get nick for debug messages
			strcpy(nick_buffer, "meta_id: ");
			strcat(nick_buffer, _itoa(meta_id, buffer2, 10));

			contact_number = DBGetContactSettingDword(hContact, META_PROTO, "ContactNumber", (DWORD)-1);
			strcat(nick_buffer, ", contact num: ");
			strcat(nick_buffer, _itoa(contact_number, buffer2, 10));

			if (contact_number < 0) {
				// problem!
				MessageBox(0, Translate("Subcontact contact number < 0 - deleting MetaContact"), nick_buffer, MB_OK | MB_ICONERROR);
				//CallService(MS_DB_CONTACT_DELETE, (WPARMA)hContact, 0);
				hNextContact = db_find_next(hContact);
				Meta_Delete((WPARAM)hContact, (LPARAM)1);
				hContact = hNextContact;
				continue;		
				//return 1;
			}

			// ensure the window open flag is not present
			DBDeleteContactSetting(hContact, META_PROTO, "WindowOpen");


			// find metacontact
			found = FALSE;
			hContact2 = db_find_first();

			while ( hContact2 != NULL ) {
				if (DBGetContactSettingDword(hContact2,META_PROTO,META_ID,(DWORD)-1) == meta_id) {
					found = TRUE;
					
					// set handle
					DBWriteContactSettingDword(hContact, META_PROTO, "Handle", (DWORD)hContact2);

					// increment contact counter (cleared in Load function)
					DBWriteContactSettingByte(hContact2, META_PROTO, "ContactCountCheck", 
						(unsigned char)(DBGetContactSettingByte(hContact2, META_PROTO, "ContactCountCheck", 0) + 1));

					num_contacts = DBGetContactSettingDword(hContact2, META_PROTO, "NumContacts", (DWORD)-1);
					if (contact_number >= 0 && contact_number < num_contacts) {
						// set metacontact's handle to us
						strcpy(buffer, "Handle");
						strcat(buffer, _itoa((int)contact_number, buffer2, 10));
						DBWriteContactSettingDword(hContact2, META_PROTO, buffer, (DWORD)hContact);
					} else {
						char buff[256];
						// problem - contact number is greater than meta's number of contacts
						sprintf(buff, Translate("Subcontact contact number (%d) > meta num contacts (%d) - deleting MetaContact"), (int)contact_number, (int)num_contacts);
						MessageBox(0, buff, nick_buffer, MB_OK | MB_ICONERROR);
						//CallService(MS_DB_CONTACT_DELETE, (WPARMA)hContact, 0);
						hNextContact = db_find_next(hContact);
						Meta_Delete((WPARAM)hContact, (LPARAM)1);
						hContact = hNextContact;
						continue;		
						//return 1;
					}
				}

				hContact2 = db_find_next(hContact2);
			}

			if (!found) {
				// problem - subcontact's meta not found
				MessageBox(0, Translate("Subcontact's MetaContact not found - deleting MetaContact data"), nick_buffer, MB_OK | MB_ICONERROR);

				// delete meta data
				DBDeleteContactSetting(hContact,META_PROTO,"IsSubcontact");
				DBDeleteContactSetting(hContact,META_PROTO,META_LINK);
				DBDeleteContactSetting(hContact,META_PROTO,"Handle");
				DBDeleteContactSetting(hContact,META_PROTO,"ContactNumber");
				Meta_RestoreGroup(hContact);
				DBDeleteContactSetting(hContact,META_PROTO,"OldCListGroup");
				
				CallService(MS_PROTO_REMOVEFROMCONTACT, (WPARAM)hContact, (LPARAM)META_FILTER);
				// stop ignoring, if we were
				if (options.suppress_status)
					CallService(MS_IGNORE_UNIGNORE, (WPARAM)hContact, (WPARAM)IGNOREEVENT_USERONLINE);
				
			} else {
				if (!DBGetContactSettingByte(hContact, META_PROTO, "IsSubcontact", 0))
					DBWriteContactSettingByte(hContact, META_PROTO, "IsSubcontact", 1);
			}

		} else
			DBDeleteContactSetting(hContact, META_PROTO, "Handle");

		if ((meta_id = DBGetContactSettingDword(hContact,META_PROTO,META_ID,(DWORD)-1))!=(DWORD)-1) {
			// is a metacontact

			// get nick for debug messages
			strcpy(nick_buffer, "meta_id: ");
			strcat(nick_buffer, _itoa(meta_id, buffer2, 10));

			// ensure the window open flag is not present
			DBDeleteContactSetting(hContact, META_PROTO, "WindowOpen");

			// ensure default is reasonable
			contact_number = DBGetContactSettingDword(hContact, META_PROTO, "Default", -1);
			num_contacts = DBGetContactSettingDword(hContact, META_PROTO, "NumContacts", (DWORD)-1);

			if (num_contacts < 0) {
				// problem
				MessageBox(0, Translate("MetaContact number of contacts < 0 - deleting MetaContact"), nick_buffer, MB_OK | MB_ICONERROR);
				//CallService(MS_DB_CONTACT_DELETE, (WPARMA)hContact, 0);
				hNextContact = db_find_next(hContact);
				Meta_Delete((WPARAM)hContact, (LPARAM)1);
				hContact = hNextContact;
				continue;		
				//return 1;
			}
			
			if (contact_number < 0 || contact_number >= num_contacts) {
				// problem
				MessageBox(0, Translate("MetaContact default contact number out of range - deleting MetaContact"), nick_buffer, MB_OK | MB_ICONERROR);
				hNextContact = db_find_next(hContact);
				Meta_Delete((WPARAM)hContact, (LPARAM)1);
				hContact = hNextContact;
				//CallService(MS_DB_CONTACT_DELETE, (WPARMA)hContact, 0);
				continue;		
				//return 1;
			}
		}

		hContact = db_find_next(hContact);
	}
	
	// loop through one more time - check contact counts match
	hContact = db_find_first();
	while ( hContact != NULL ) {
		if ((meta_id = DBGetContactSettingDword(hContact,META_PROTO,META_ID,(DWORD)-1))!=(DWORD)-1) {
			// get nick for debug messages
			strcpy(nick_buffer, Translate("MetaId: "));
			strcat(nick_buffer, _itoa(meta_id, buffer2, 10));

			num_contacts = DBGetContactSettingByte(hContact, META_PROTO, "ContactCountCheck", -2);
			if (num_contacts != (DWORD)DBGetContactSettingDword(hContact, META_PROTO, "NumContacts", (DWORD)-1)) {
				// mismatch
				//if (MessageBox(0, Translate("MetaContact corrupted - the number of subcontacts is incorrect.\nDelete MetaContact?"), nick_buffer, MB_YESNO | MB_ICONERROR) == IDYES) {
				//	Meta_Delete((WPARAM)hContact, (LPARAM)1); // second param prevents confirm dialog
				//} else
				//	return 1;
				hNextContact = db_find_next(hContact);
				MessageBox(0, Translate("MetaContact corrupted - the number of subcontacts is incorrect.\nDeleting MetaContact."), nick_buffer, MB_OK | MB_ICONERROR);
				Meta_Delete((WPARAM)hContact, (LPARAM)1);
				hContact = hNextContact;
				continue;		
			}
		}
		hContact = db_find_next(hContact);
	}

	return 0;
}

/** Hide all contacts linked to any meta contact, and set handle links
*
* Additionally, set all sub contacts and metacontacts to offline so that status notifications are always sent
*
* and ensure metafilter in place
*/
int Meta_HideLinkedContacts(void) {
	DBVARIANT dbv, dbv2;
	DWORD meta_id, num_contacts, contact_number;
	WORD status;
	char buffer[512], buffer2[512];
	char *proto, *group_name;
	int hGroup = 1;

	HANDLE hContact2, hContact = db_find_first();

	// ensure the hidden group does not exist (how this occurs i wonder but there have been reports!)
	// (sometimes protocol server side groups are to blame - msn and icq)
	if (!meta_group_hack_disabled) do {
		group_name = (char *)CallService(MS_CLIST_GROUPGETNAME, (WPARAM)hGroup, 0);
		if (group_name && !strcmp(group_name, META_HIDDEN_GROUP)) {
			// disabled because it shows a message box
			//CallService(MS_CLIST_GROUPDELETE, (WPARAM)hGroup, 0);
			MessageBox(0, Translate("The 'MetaContacts Hidden Group' has been added to your contact list.\n"
							"This is most likely due to server-side contact information. To fix this, so that\n"
							"MetaContacts continues to function correctly, you should:\n"
							"   - disable MetaContacts using the 'Toggle MetaContacts Off' main menu item\n"
							"   - move all contacts out of this group\n"
							"   - synchronize your contacts with the server\n"
							"   - re-enable MetaContacts"), Translate("MetaContacts Warning"), MB_ICONWARNING | MB_OK);
			break;
		}
		hGroup++;
	} while(group_name);
	

	while ( hContact != NULL ) {
		if ((meta_id = DBGetContactSettingDword(hContact,META_PROTO,META_LINK,(DWORD)-1))!=(DWORD)-1) {
			// is a subcontact

			// * ensure filter present
			if ( !CallService( MS_PROTO_ISPROTOONCONTACT, (WPARAM)hContact, ( LPARAM )META_FILTER ))
				CallService( MS_PROTO_ADDTOCONTACT, (WPARAM)hContact, ( LPARAM )META_FILTER );


			// get contact number
			contact_number = DBGetContactSettingDword(hContact, META_PROTO, "ContactNumber", (DWORD)-1);

			// prepare to update metacontact record of subcontat status
			proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);

			// save old group and move to invisible group (i.e. non-existent group)
			Meta_SetGroup(hContact);

			// find metacontact
			hContact2 = db_find_first();

			while ( hContact2 != NULL ) {
				if (DBGetContactSettingDword(hContact2,META_PROTO,META_ID,(DWORD)-1) == meta_id) {
					num_contacts = DBGetContactSettingDword(hContact2, META_PROTO, "NumContacts", (DWORD)-1);
					if (contact_number >= 0 && contact_number < num_contacts) {

						if (!proto)
							status = ID_STATUS_OFFLINE;
						else
							status = DBGetContactSettingWord(hContact, proto, "Status", ID_STATUS_OFFLINE);
						
						// update metacontact's record of status for this contact
						strcpy(buffer, "Status");
						strcat(buffer, _itoa(contact_number, buffer2, 10));
						DBWriteContactSettingWord(hContact2, META_PROTO, buffer, status);

						// update metacontact's record of nick for this contact
						if (proto && !DBGetContactSetting(hContact, proto, "Nick", &dbv)) {
							strcpy(buffer, "Nick");
							strcat(buffer, _itoa(contact_number, buffer2, 10));
							MyDBWriteContactSetting(hContact2, META_PROTO, buffer, &dbv);
							
							strcpy(buffer, "CListName");
							strcat(buffer, _itoa(contact_number, buffer2, 10));
							if (DBGetContactSetting(hContact, "CList", "MyHandle", &dbv2)) {
								MyDBWriteContactSetting(hContact2, META_PROTO, buffer, &dbv);
							} else {
								MyDBWriteContactSetting(hContact2, META_PROTO, buffer, &dbv2);
								DBFreeVariant(&dbv2);
							}

							DBFreeVariant(&dbv);
						} else {
							if (!DBGetContactSetting(hContact, "CList", "MyHandle", &dbv)) {
								strcpy(buffer, "CListName");
								strcat(buffer, _itoa(contact_number, buffer2, 10));
								MyDBWriteContactSetting(hContact2, META_PROTO, buffer, &dbv);
								DBFreeVariant(&dbv);
							}
						}
					}
				}

				hContact2 = db_find_next(hContact2);
			}

			if (options.suppress_status)
				CallService(MS_IGNORE_IGNORE, (WPARAM)hContact, (WPARAM)IGNOREEVENT_USERONLINE);
		}

		hContact = db_find_next(hContact);
	}	

	// do metacontacts after handles set properly above
	hContact = db_find_first();
	while ( hContact != NULL ) {
		if (DBGetContactSettingDword(hContact,META_PROTO,META_ID,(DWORD)-1)!=(DWORD)-1) {
			// is a meta contact
			HANDLE hMostOnline = Meta_GetMostOnline(hContact); // set nick
			Meta_CopyContactNick(hContact, hMostOnline);

			Meta_FixStatus(hContact);

		}

		hContact = db_find_next(hContact);
	}	

	CallService(MS_CLUI_SORTLIST, 0, 0);
	return 0;
}

/** Unhide all contacts linked to any meta contact
*
*/
int Meta_UnhideLinkedContacts(void) {
	HANDLE hContact = db_find_first();

	while ( hContact != NULL ) {
		if (DBGetContactSettingDword(hContact,META_PROTO,META_LINK,(DWORD)-1)!=(DWORD)-1) {
			// has a link - unhide it
			// restore old group
			Meta_RestoreGroup(hContact);			
		}

		hContact = db_find_next(hContact);
	}	

	if (!CallService(MS_SYSTEM_TERMINATED, 0, 0))
		CallService(MS_CLUI_SORTLIST, 0, 0);
	return 0;
}

int Meta_HideMetaContacts(int hide) {
	HANDLE hContact = db_find_first();

	// set status suppression
	if (hide) Meta_SuppressStatus(FALSE);
	else Meta_SuppressStatus(options.suppress_status);

	while ( hContact != NULL ) {
		if (DBGetContactSettingDword(hContact,META_PROTO,META_ID,(DWORD)-1)!=(DWORD)-1) {
			// is a meta contact

			if (hide)
				DBWriteContactSettingByte(hContact, "CList", "Hidden", 1);
			else
				DBDeleteContactSetting(hContact, "CList", "Hidden");

		} else if (DBGetContactSettingDword(hContact,META_PROTO,META_LINK,(DWORD)-1)!=(DWORD)-1) {
			// when metacontacts are hidden, show subcontacts, and vice versa
			if (hide) {
				Meta_RestoreGroup(hContact);
			} else {
				Meta_SetGroup(hContact);
			}
		}

		hContact = db_find_next(hContact);
	}	

	if (!CallService(MS_SYSTEM_TERMINATED, 0, 0))
		CallService(MS_CLUI_SORTLIST, 0, 0);
	return 0;
}

void Meta_RestoreGroup(HANDLE hContact) {

	if (meta_group_hack_disabled) return; // clist has called api function to disable group hack - yay!

	// the existence of this service means that clist_meta_mw is active and will do the hiding for us
	if (ServiceExists(MS_CLUI_METASUPPORT)) return;

	// show it anyway - users are reporting contacts removed from meta remain 'hidden'
	// possible suspect - server side groups cause hidden group hack to fail, users hide contacts via clist->delete->hide option
	DBDeleteContactSetting(hContact, META_PROTO, "Hidden");

	if (DBGetContactSettingByte(hContact, META_PROTO, "Hidden", 0) == 1)
	{
		// if we hid it, unhide it
		DBDeleteContactSetting(hContact, META_PROTO, "Hidden");
		DBDeleteContactSetting(hContact, "CList", "Hidden");
	} else {
		DBCONTACTWRITESETTING cws;

		if (!DBGetContactSetting(hContact, META_PROTO, "OldCListGroup", &cws.value)) {

			if ((cws.value.type == DBVT_ASCIIZ || cws.value.type == DBVT_UTF8) && !strcmp(cws.value.pszVal, META_HIDDEN_GROUP)) {
				DBDeleteContactSetting(hContact, "CList", "Group");
			} else {
				int hGroup = 1;
				char *name = 0;
				BOOL found = FALSE;
				do {
					name = (char *)CallService(MS_CLIST_GROUPGETNAME, (WPARAM)hGroup, 0);
					if (name && !strcmp(name, cws.value.pszVal)) {
						found = TRUE;
						break;
					}
					hGroup++;
				} while(name);

				if (found) {
					cws.szModule = "CList";
					cws.szSetting = "Group";
					CallService(MS_DB_CONTACT_WRITESETTING,(WPARAM)hContact,(LPARAM)&cws);
				} else {
					//DBDeleteContactSetting(hContact, "CList", "Group");
					// put back into metacontact's group
					DBVARIANT dbv;
					HANDLE hMeta = (HANDLE)DBGetContactSettingDword(hContact, META_PROTO, "Handle", 0);
					if (hMeta && !MyDBGetContactSetting(hMeta, "CList", "Group", &dbv)) {
						MyDBWriteContactSetting(hContact, "CList", "Group", &dbv);
						DBFreeVariant(&dbv);
					} else
						DBDeleteContactSetting(hContact, "CList", "Group");
				}
			}
			DBFreeVariant(&cws.value);
		}
		DBDeleteContactSetting(hContact, META_PROTO, "OldCListGroup");

		if (!DBGetContactSetting(hContact, "CList", "Group", &cws.value)) {
			if ((cws.value.type == DBVT_ASCIIZ || cws.value.type == DBVT_UTF8) && !strcmp(cws.value.pszVal, META_HIDDEN_GROUP)) {
				DBDeleteContactSetting(hContact, "CList", "Group");
			}
			DBFreeVariant(&cws.value);
		}
	}

	// show it anyway - users are reporting contacts removed from meta remain 'hidden'
	// possible suspect - server side groups cause hidden group hack to fail, users hide contacts via clist->delete->hide option
	DBDeleteContactSetting(hContact, "CList", "Hidden");
}

void Meta_SetGroup(HANDLE hContact) {
	char *proto, *uid;

	if (meta_group_hack_disabled) return; // clist has called api function to disable group hack - yay!

	// the existence of this service means that clist_meta_mw is active and will do the hiding for us
	if (ServiceExists(MS_CLUI_METASUPPORT)) return;

	proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);
	if (proto)
		uid   = (char *)CallProtoService(proto, PS_GETCAPS, PFLAG_UNIQUEIDSETTING, 0);

	if (proto && uid && (INT_PTR)uid != CALLSERVICE_NOTFOUND && !strcmp(JABBER_UNIQUE_ID_SETTING, uid)) {
		// if it's a jabber contact, hide it, and record the fact that it was us who did
		DBWriteContactSettingByte(hContact, META_PROTO, "Hidden", 1);
		DBWriteContactSettingByte(hContact, "CList", "Hidden", 1);
	} else {
		DBCONTACTWRITESETTING cws;
		// save old group and move to invisible group (i.e. non-existent group)
		if (!MyDBGetContactSetting(hContact, "CList", "Group", &cws.value)) {
			if ((cws.value.type == DBVT_ASCIIZ || cws.value.type == DBVT_UTF8) && !strcmp(cws.value.pszVal, META_HIDDEN_GROUP)) {
				// it's already in the group (shouldn't be - but maybe a crash)
			} else {
				cws.szModule = META_PROTO;
				cws.szSetting = "OldCListGroup";
				CallService(MS_DB_CONTACT_WRITESETTING,(WPARAM)hContact,(LPARAM)&cws);
			}
			DBFreeVariant(&cws.value);
		} else
			DBDeleteContactSetting(hContact, META_PROTO, "OldCListGroup");

		DBWriteContactSettingString(hContact, "CList", "Group", META_HIDDEN_GROUP);
	}
}

void Meta_GetStatusString(int status, char *buf, size_t size) {
	switch(status) {
		case ID_STATUS_OFFLINE:
			strncpy(buf, Translate("Offline"), size);
			break;
		case ID_STATUS_ONLINE:
			strncpy(buf, Translate("Online"), size);
			break;
		case ID_STATUS_AWAY:
			strncpy(buf, Translate("Away"), size);
			break;
		case ID_STATUS_DND:
			strncpy(buf, Translate("DND"), size);
			break;
		case ID_STATUS_NA:
			strncpy(buf, Translate("N/A"), size);
			break;
		case ID_STATUS_OCCUPIED:
			strncpy(buf, Translate("Occupied"), size);
			break;
		case ID_STATUS_FREECHAT:
			strncpy(buf, Translate("Free to Chat"), size);
			break;
		case ID_STATUS_INVISIBLE:
			strncpy(buf, Translate("Invisible"), size);
			break;
		case ID_STATUS_ONTHEPHONE:
			strncpy(buf, Translate("On the Phone"), size);
			break;
		case ID_STATUS_OUTTOLUNCH:
			strncpy(buf, Translate("Out to Lunch"), size);
			break;
		case ID_STATUS_IDLE:
			strncpy(buf, Translate("IDLE"), size);
			break;
		default:
			strncpy(buf, Translate("Unknown"), size);
			break;
	}
}

int Meta_SuppressStatus(BOOL suppress) {
	HANDLE hContact = db_find_first();

	while ( hContact != NULL ) {
		if (DBGetContactSettingDword(hContact,META_PROTO,META_LINK,(DWORD)-1)!=(DWORD)-1) {
			// is a subcontact
			if (suppress)
				CallService(MS_IGNORE_IGNORE, (WPARAM)hContact, (WPARAM)IGNOREEVENT_USERONLINE);
			else
				CallService(MS_IGNORE_UNIGNORE, (WPARAM)hContact, (WPARAM)IGNOREEVENT_USERONLINE);
		}

		hContact = db_find_next(hContact);
	}	

	return 0;
}

int Meta_CopyContactNick(HANDLE hMeta, HANDLE hContact) {
	DBVARIANT dbv, dbv_proto;
	char *proto;

	if (options.lockHandle) {
		hContact = Meta_GetContactHandle(hMeta, 0);
	}

	if (!hContact) return 1;

	//proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);
	// read proto direct from db, since we do this on load and other proto plugins may not be loaded yet
	if (!DBGetContactSetting(hContact, "Protocol", "p", &dbv_proto)) {

		proto = dbv_proto.pszVal;
		if (options.clist_contact_name == CNNT_NICK && proto) {
			if (!MyDBGetContactSetting(hContact, proto, "Nick", &dbv)) {
				MyDBWriteContactSetting(hMeta, META_PROTO, "Nick", &dbv);
				DBFreeVariant(&dbv);
				//CallService(MS_CLIST_INVALIDATEDISPLAYNAME, (WPARAM)hMeta, 0);
				//CallService(MS_CLUI_CONTACTRENAMED, (WPARAM)hMeta, 0);
				DBFreeVariant(&dbv_proto);
				return 0;
			}
		} else if (options.clist_contact_name == CNNT_DISPLAYNAME) {
			char *name = (char *)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)hContact, 0);
			wchar_t *wname = (wchar_t *)CallService(MS_CLIST_GETCONTACTDISPLAYNAME, (WPARAM)hContact, GCDNF_UNICODE);
	
			if (name && strcmp(name, Translate("(Unknown Contact)")) != 0) {
				if (wname && strncmp(name, (char *)wname, strlen(name)) != 0) {
					DBVARIANT dbv;
					dbv.pwszVal = wname;
					dbv.type = DBVT_WCHAR;

					MyDBWriteContactSetting(hMeta, META_PROTO, "Nick", &dbv);
				} else
					DBWriteContactSettingString(hMeta, META_PROTO, "Nick", name);
				//CallService(MS_CLIST_INVALIDATEDISPLAYNAME, (WPARAM)hMeta, 0);
				//CallService(MS_CLUI_CONTACTRENAMED, (WPARAM)hMeta, 0);
				DBFreeVariant(&dbv_proto);
				return 0;
			}
		}
		DBFreeVariant(&dbv_proto);
	}
	return 1;
}

int Meta_SetAllNicks() {
	HANDLE hContact = db_find_first(), most_online;

	while ( hContact != NULL ) {
		if (DBGetContactSettingDword(hContact,META_PROTO,META_ID,(DWORD)-1)!=(DWORD)-1) {
			most_online = Meta_GetMostOnline(hContact);
			Meta_CopyContactNick(hContact, most_online);
			Meta_FixStatus(hContact);
			Meta_CopyData(hContact);
		}
		
		hContact = db_find_next(hContact);
	}
	return 0;
}

int Meta_IsHiddenGroup(const char *group_name) {
	if (group_name && !strcmp(group_name, META_HIDDEN_GROUP)) return 1;

	return 0;
}

int Meta_SwapContacts(HANDLE hMeta, DWORD contact_number1, DWORD contact_number2) {
	DBVARIANT dbv1, dbv2;

	HANDLE hContact1 = Meta_GetContactHandle(hMeta, contact_number1), 
		hContact2 = Meta_GetContactHandle(hMeta, contact_number2);
	char buff1[512], buff12[512], buff2[512], buff22[512];
	BOOL ok1, ok2;

	// swap the protocol
	strcpy(buff1, "Protocol");
	strcat(buff1, _itoa(contact_number1, buff12, 10));
	strcpy(buff2, "Protocol");
	strcat(buff2, _itoa(contact_number2, buff22, 10));
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff1, &dbv1);
	ok2 = !MyDBGetContactSetting(hMeta, META_PROTO, buff2, &dbv2);
	if (ok1) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff2, &dbv1);
		DBFreeVariant(&dbv1);
	}
	if (ok2) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff1, &dbv2);
		DBFreeVariant(&dbv2);
	}

	// swap the status
	strcpy(buff1, "Status");
	strcat(buff1, _itoa(contact_number1, buff12, 10));
	strcpy(buff2, "Status");
	strcat(buff2, _itoa(contact_number2, buff22, 10));
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff1, &dbv1);
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff2, &dbv2);
	if (ok1) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff2, &dbv1);
		DBFreeVariant(&dbv1);
	}
	if (ok2) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff1, &dbv2);
		DBFreeVariant(&dbv2);
	}

	// swap the status string
	strcpy(buff1, "StatusString");
	strcat(buff1, _itoa(contact_number1, buff12, 10));
	strcpy(buff2, "StatusString");
	strcat(buff2, _itoa(contact_number2, buff22, 10));
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff1, &dbv1);
	ok2 = !MyDBGetContactSetting(hMeta, META_PROTO, buff2, &dbv2);
	if (ok1) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff2, &dbv1);
		DBFreeVariant(&dbv1);
	}
	if (ok2) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff1, &dbv2);
		DBFreeVariant(&dbv2);
	}

	// swap the login
	strcpy(buff1, "Login");
	strcat(buff1, _itoa(contact_number1, buff12, 10));
	strcpy(buff2, "Login");
	strcat(buff2, _itoa(contact_number2, buff22, 10));
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff1, &dbv1);
	ok2 = !MyDBGetContactSetting(hMeta, META_PROTO, buff2, &dbv2);
	if (ok1) {
		DBDeleteContactSetting(hMeta, META_PROTO, buff2);
		MyDBWriteContactSetting(hMeta, META_PROTO, buff2, &dbv1);
		DBFreeVariant(&dbv1);
	}
	if (ok2) {
		DBDeleteContactSetting(hMeta, META_PROTO, buff1);
		MyDBWriteContactSetting(hMeta, META_PROTO, buff1, &dbv2);
		DBFreeVariant(&dbv2);
	}

	// swap the nick
	strcpy(buff1, "Nick");
	strcat(buff1, _itoa(contact_number1, buff12, 10));
	strcpy(buff2, "Nick");
	strcat(buff2, _itoa(contact_number2, buff22, 10));
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff1, &dbv1);
	ok2 = !MyDBGetContactSetting(hMeta, META_PROTO, buff2, &dbv2);
	if (ok1) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff2, &dbv1);
		DBFreeVariant(&dbv1);
	} else {
		DBDeleteContactSetting(hMeta, META_PROTO, buff2);
	}
	if (ok2) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff1, &dbv2);
		DBFreeVariant(&dbv2);
	} else {
		DBDeleteContactSetting(hMeta, META_PROTO, buff1);
	}

	// swap the clist name
	strcpy(buff1, "CListName");
	strcat(buff1, _itoa(contact_number1, buff12, 10));
	strcpy(buff2, "CListName");
	strcat(buff2, _itoa(contact_number2, buff22, 10));
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff1, &dbv1);
	ok2 = !MyDBGetContactSetting(hMeta, META_PROTO, buff2, &dbv2);
	if (ok1) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff2, &dbv1);
		DBFreeVariant(&dbv1);
	} else {
		DBDeleteContactSetting(hMeta, META_PROTO, buff2);
	}
	if (ok2) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff1, &dbv2);
		DBFreeVariant(&dbv2);
	} else {
		DBDeleteContactSetting(hMeta, META_PROTO, buff1);
	}

	// swap the handle
	strcpy(buff1, "Handle");
	strcat(buff1, _itoa(contact_number1, buff12, 10));
	strcpy(buff2, "Handle");
	strcat(buff2, _itoa(contact_number2, buff22, 10));
	ok1 = !MyDBGetContactSetting(hMeta, META_PROTO, buff1, &dbv1);
	ok2 = !MyDBGetContactSetting(hMeta, META_PROTO, buff2, &dbv2);
	if (ok1) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff2, &dbv1);
		DBFreeVariant(&dbv1);
	} else {
		DBDeleteContactSetting(hMeta, META_PROTO, buff2);
	}
	if (ok2) {
		MyDBWriteContactSetting(hMeta, META_PROTO, buff1, &dbv2);
		DBFreeVariant(&dbv2);
	} else {
		DBDeleteContactSetting(hMeta, META_PROTO, buff1);
	}

	// finally, inform the contacts of their change in position
	DBWriteContactSettingDword(hContact1, META_PROTO, "ContactNumber", (DWORD)contact_number2);
	DBWriteContactSettingDword(hContact2, META_PROTO, "ContactNumber", (DWORD)contact_number1);

	return 0;
}

INT_PTR CALLBACK DlgProcNull(HWND hwndDlg, UINT msg, WPARAM wParam, LPARAM lParam)
{
	switch(msg) {
	case WM_INITDIALOG:
		{
			HWND prog = GetDlgItem(hwndDlg, IDC_PROG);

			TranslateDialogDefault( hwndDlg );
			
			SendMessage(prog, PBM_SETPOS, 0, 0);
			return TRUE;
		}
	}
	return FALSE;
}

// function to copy history from one contact to another - courtesy JdGordon (thx)
void copyHistory(HANDLE hContactFrom,HANDLE hContactTo) 
{ 
	HANDLE hDbEvent; 
	DBEVENTINFO dbei; 
	//char *id;
	//DWORD id_length;
	//DWORD oldBlobSize;
	DWORD time_now = time(0);
	DWORD earliest_time = time_now - options.days_history * 24 * 60 * 60;
	BYTE *buffer = 0;
	HWND progress_dialog, prog;

	if (!hContactFrom || !hContactTo) return; 

	//id = Meta_GetUniqueIdentifier(hContactFrom, &id_length);
	//if (!id) return;

	progress_dialog = CreateDialog(hInstance, MAKEINTRESOURCE(IDD_COPYPROGRESS), 0, DlgProcNull);
	ShowWindow(progress_dialog, SW_SHOW);

	prog = GetDlgItem(progress_dialog, IDC_PROG);

	//CallService(MS_DB_SETSAFETYMODE, (WPARAM)FALSE, 0);
	for (hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDFIRST,(WPARAM)hContactFrom, 0); 
		hDbEvent; 
		hDbEvent=(HANDLE)CallService(MS_DB_EVENT_FINDNEXT,(WPARAM)hDbEvent,0)) 
	{ 
		// get the event 
		ZeroMemory(&dbei, sizeof(dbei)); 
		dbei.cbSize = sizeof(dbei); 

		if ((dbei.cbBlob = CallService(MS_DB_EVENT_GETBLOBSIZE, (WPARAM)hDbEvent, 0)) == -1)
			break;

		buffer = (BYTE *)mir_realloc(buffer, dbei.cbBlob);// + id_length);
		dbei.pBlob = buffer; 

		if (CallService(MS_DB_EVENT_GET,(WPARAM)hDbEvent,(LPARAM)&dbei)) 
			break; 

		// i.e. optoins.days_history == 0;
		if (time_now == earliest_time) earliest_time = dbei.timestamp;

		if (dbei.timestamp < earliest_time)
			continue;

		if (dbei.eventType != EVENTTYPE_MESSAGE && dbei.eventType != EVENTTYPE_FILE && dbei.eventType != EVENTTYPE_URL)
			continue;

		if (time_now > earliest_time) { // just in case!
			SendMessage(prog, PBM_SETPOS, (WPARAM)(int)(100.0 * (dbei.timestamp - earliest_time) / (time_now - earliest_time)), 0);	
			UpdateWindow(progress_dialog);
		}

		dbei.szModule = META_PROTO;
		//oldBlobSize = dbei.cbBlob;
		//dbei.cbBlob = oldBlobSize + id_length;
		dbei.flags &= ~DBEF_FIRST;
		//memcpy(dbei.pBlob + oldBlobSize, id, id_length);
		CallService(MS_DB_EVENT_ADD, (WPARAM)hContactTo, (LPARAM)&dbei); 
	}		
	//CallService(MS_DB_SETSAFETYMODE, (WPARAM)TRUE, 0);

	DestroyWindow(progress_dialog);
	if (buffer) mir_free(buffer);
	//mir_free(id);
}

/*
void Meta_RemoveHistory(HANDLE hContactRemoveFrom, HANDLE hContactSource) {
	HANDLE hDbEvent; 
	DBEVENTINFO dbei = { 0 }; 
	char *id;
	DWORD id_length;
	BYTE *buffer = 0;
	DWORD time_now = time(0), earliest_time = time_now;
	HWND progress_dialog, prog;

	if (!hContactRemoveFrom || !hContactSource) return; 

	id = Meta_GetUniqueIdentifier(hContactSource, &id_length);
	if (!id) return;

	progress_dialog = CreateDialog(hInstance, MAKEINTRESOURCE(IDD_DELPROGRESS), 0, DlgProcNull);
	ShowWindow(progress_dialog, SW_SHOW);

	prog = GetDlgItem(progress_dialog, IDC_PROG);

	//CallService(MS_DB_SETSAFETYMODE, (WPARAM)FALSE, 0);
	hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDFIRST,(WPARAM)hContactRemoveFrom, 0); 
	while (hDbEvent) 
	{
		// get the event 
		ZeroMemory(&dbei, sizeof(dbei)); 
		dbei.cbSize = sizeof(dbei); 

		if ((dbei.cbBlob = CallService(MS_DB_EVENT_GETBLOBSIZE, (WPARAM)hDbEvent, 0)) == -1) {
			break;
		}

		buffer = mir_realloc(buffer, dbei.cbBlob + id_length);
		dbei.pBlob = buffer;

		if (CallService(MS_DB_EVENT_GET,(WPARAM)hDbEvent,(LPARAM)&dbei)) break; 

		if (dbei.timestamp < earliest_time)
			earliest_time = dbei.timestamp;

		if (dbei.eventType != EVENTTYPE_MESSAGE && dbei.eventType != EVENTTYPE_FILE && dbei.eventType != EVENTTYPE_URL) {
			hDbEvent=(HANDLE)CallService(MS_DB_EVENT_FINDNEXT,(WPARAM)hDbEvent,0); 
			continue;
		}

		if (dbei.cbBlob >= id_length && strncmp((char *)(dbei.pBlob + dbei.cbBlob - id_length), id, id_length - 1) == 0) {
			// event is tagged with source contact id - remove
			HANDLE hDbEventNext;

			if (time_now > earliest_time) { // just in case
				SendMessage(prog, PBM_SETPOS, (WPARAM)(int)(100.0 * (dbei.timestamp - earliest_time) / (time_now - earliest_time)), 0);	
				UpdateWindow(progress_dialog);
			}

			hDbEventNext = (HANDLE)CallService(MS_DB_EVENT_FINDNEXT,(WPARAM)hDbEvent,0); 
			CallService(MS_DB_EVENT_DELETE, (WPARAM)hContactRemoveFrom, (LPARAM)hDbEvent);
			hDbEvent = hDbEventNext;
			continue;
		}
		
		hDbEvent = (HANDLE)CallService(MS_DB_EVENT_FINDNEXT,(WPARAM)hDbEvent,0); 
	}
	//CallService(MS_DB_SETSAFETYMODE, (WPARAM)TRUE, 0);

	DestroyWindow(progress_dialog);
	if (buffer) mir_free(buffer);
	mir_free(id);
}

char *Meta_GetUniqueIdentifier(HANDLE hContact, DWORD *pused) {
	char *proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)hContact, 0);
	char *field;
	char *id;
	char buff[256];
	DWORD used;
	DBVARIANT dbv;

	id = (char *)mir_alloc(256);

	if (!proto) return 0;
	
	strncpy(id, proto, 127);
	strcat(id, "*"); // seperate proto & proto id with asterisk to make one long comparable string

	used = strlen(id);

	field = (char *)CallProtoService(proto,PS_GETCAPS,PFLAG_UNIQUEIDSETTING,0);
	if (!field) return 0;

	DBGetContactSetting(hContact,proto,field,&dbv);
	switch(dbv.type)
	{
		case DBVT_ASCIIZ:
			sprintf(buff,"%s",dbv.pszVal);
			break;
		case DBVT_BYTE:
			sprintf(buff,"%d",dbv.bVal);
			break;
		case DBVT_WORD:
			sprintf(buff,"%d",dbv.wVal);
			break;
		case DBVT_DWORD:
			sprintf(buff,"%d",dbv.dVal);
			break;
		default:
			sprintf(buff,"bugger this");
	}
	DBFreeVariant(&dbv);

	strncpy(id + used, buff, 256 - used);
	if (used) {
		*pused = (DWORD)(used + strlen(buff) + 1);
		if (*pused > 256) *pused = 256;
	}

	return id;
}
*/
void Meta_FixStatus(HANDLE hMeta) {
	HANDLE most_online = Meta_GetMostOnlineSupporting(hMeta, PFLAGNUM_1, 0);
	if (most_online) {
		char *proto = (char *)CallService(MS_PROTO_GETCONTACTBASEPROTO, (WPARAM)most_online, 0);
		if (proto) {
			WORD status = (WORD)DBGetContactSettingWord(most_online, proto, "Status", (WORD)ID_STATUS_OFFLINE);
			DBWriteContactSettingWord(hMeta, META_PROTO, "Status", status);
		}
		else DBWriteContactSettingWord(hMeta, META_PROTO, "Status", (WORD)ID_STATUS_OFFLINE);
	}
	else DBWriteContactSettingWord(hMeta, META_PROTO, "Status", (WORD)ID_STATUS_OFFLINE);
}

INT_PTR Meta_IsEnabled() {
	return DBGetContactSettingByte(0, META_PROTO, "Enabled", 1) && (meta_group_hack_disabled || DBGetContactSettingByte(NULL, "CList", "UseGroups", 1));
}