/**

 * FreeRDP: A Remote Desktop Protocol Implementation

 * Clipboard Virtual Channel

 *

 * Copyright 2009-2011 Jay Sorg

 * Copyright 2010-2011 Vic Lee

 * Copyright 2015 Thincast Technologies GmbH

 * Copyright 2015 DI (FH) Martin Haimberger <martin.haimberger@thincast.com>

 *

 * Licensed under the Apache License, Version 2.0 (the "License");

 * you may not use this file except in compliance with the License.

 * You may obtain a copy of the License at

 *

 *     http://www.apache.org/licenses/LICENSE-2.0

 *

 * Unless required by applicable law or agreed to in writing, software

 * distributed under the License is distributed on an "AS IS" BASIS,

 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

 * See the License for the specific language governing permissions and

 * limitations under the License.

 */

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include <winpr/crt.h>

#include <winpr/print.h>

#include <freerdp/types.h>

#include <freerdp/constants.h>

#include <freerdp/client/cliprdr.h>

#include "cliprdr_main.h"

#include "cliprdr_format.h"

#ifdef WITH_DEBUG_CLIPRDR

static const char* const CB_MSG_TYPE_STRINGS[] =

{

	"",

	"CB_MONITOR_READY",

	"CB_FORMAT_LIST",

	"CB_FORMAT_LIST_RESPONSE",

	"CB_FORMAT_DATA_REQUEST",

	"CB_FORMAT_DATA_RESPONSE",

	"CB_TEMP_DIRECTORY",

	"CB_CLIP_CAPS",

	"CB_FILECONTENTS_REQUEST",

	"CB_FILECONTENTS_RESPONSE",

	"CB_LOCK_CLIPDATA",

	"CB_UNLOCK_CLIPDATA"

};

#endif

CliprdrClientContext* cliprdr_get_client_interface(cliprdrPlugin* cliprdr)

{

	CliprdrClientContext* pInterface;

	if (!cliprdr)

		return NULL;

	pInterface = (CliprdrClientContext*) cliprdr->channelEntryPoints.pInterface;

	return pInterface;

}

static wStream* cliprdr_packet_new(UINT16 msgType, UINT16 msgFlags,

                                   UINT32 dataLen)

{

	wStream* s;

	s = Stream_New(NULL, dataLen + 8);

	if (!s)

	{

		WLog_ERR(TAG, "Stream_New failed!");

		return NULL;

	}

	Stream_Write_UINT16(s, msgType);

	Stream_Write_UINT16(s, msgFlags);

	/* Write actual length after the entire packet has been constructed. */

	Stream_Seek(s, 4);

	return s;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_packet_send(cliprdrPlugin* cliprdr, wStream* s)

{

	size_t pos;

	UINT32 dataLen;

	UINT status = CHANNEL_RC_OK;

	pos = Stream_GetPosition(s);

	dataLen = pos - 8;

	Stream_SetPosition(s, 4);

	Stream_Write_UINT32(s, dataLen);

	Stream_SetPosition(s, pos);

#ifdef WITH_DEBUG_CLIPRDR

	WLog_DBG(TAG, "Cliprdr Sending (%"PRIu32" bytes)", dataLen + 8);

	winpr_HexDump(TAG, WLOG_DEBUG, Stream_Buffer(s), dataLen + 8);

#endif

	if (!cliprdr)

	{

		status = CHANNEL_RC_BAD_INIT_HANDLE;

	}

	else

	{

		status = cliprdr->channelEntryPoints.pVirtualChannelWriteEx(cliprdr->InitHandle,

		         cliprdr->OpenHandle,

		         Stream_Buffer(s), (UINT32) Stream_GetPosition(s), s);

	}

	if (status != CHANNEL_RC_OK)

		WLog_ERR(TAG, "VirtualChannelWrite failed with %s [%08"PRIX32"]",

		         WTSErrorToString(status), status);

	return status;

}

#ifdef WITH_DEBUG_CLIPRDR

static void cliprdr_print_general_capability_flags(UINT32 flags)

{

	WLog_INFO(TAG,  "generalFlags (0x%08"PRIX32") {", flags);

	if (flags & CB_USE_LONG_FORMAT_NAMES)

		WLog_INFO(TAG,  "\tCB_USE_LONG_FORMAT_NAMES");

	if (flags & CB_STREAM_FILECLIP_ENABLED)

		WLog_INFO(TAG,  "\tCB_STREAM_FILECLIP_ENABLED");

	if (flags & CB_FILECLIP_NO_FILE_PATHS)

		WLog_INFO(TAG,  "\tCB_FILECLIP_NO_FILE_PATHS");

	if (flags & CB_CAN_LOCK_CLIPDATA)

		WLog_INFO(TAG,  "\tCB_CAN_LOCK_CLIPDATA");

	WLog_INFO(TAG,  "}");

}

#endif

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_process_general_capability(cliprdrPlugin* cliprdr,

        wStream* s)

{

	UINT32 version;

	UINT32 generalFlags;

	CLIPRDR_CAPABILITIES capabilities;

	CLIPRDR_GENERAL_CAPABILITY_SET generalCapabilitySet;

	CliprdrClientContext* context = cliprdr_get_client_interface(cliprdr);

	UINT error = CHANNEL_RC_OK;

	if (!context)

	{

		WLog_ERR(TAG, "cliprdr_get_client_interface failed!");

		return ERROR_INTERNAL_ERROR;

	}

	if (Stream_GetRemainingLength(s) < 8)

		return ERROR_INVALID_DATA;

	Stream_Read_UINT32(s, version); /* version (4 bytes) */

	Stream_Read_UINT32(s, generalFlags); /* generalFlags (4 bytes) */

	DEBUG_CLIPRDR("Version: %"PRIu32"", version);

#ifdef WITH_DEBUG_CLIPRDR

	cliprdr_print_general_capability_flags(generalFlags);

#endif

	if (cliprdr->useLongFormatNames)

		cliprdr->useLongFormatNames = (generalFlags & CB_USE_LONG_FORMAT_NAMES) ? TRUE :

		                              FALSE;

	if (cliprdr->streamFileClipEnabled)

		cliprdr->streamFileClipEnabled = (generalFlags & CB_STREAM_FILECLIP_ENABLED) ?

		                                 TRUE : FALSE;

	if (cliprdr->fileClipNoFilePaths)

		cliprdr->fileClipNoFilePaths = (generalFlags & CB_FILECLIP_NO_FILE_PATHS) ?

		                               TRUE : FALSE;

	if (cliprdr->canLockClipData)

		cliprdr->canLockClipData = (generalFlags & CB_CAN_LOCK_CLIPDATA) ? TRUE : FALSE;

	cliprdr->capabilitiesReceived = TRUE;

	if (!context->custom)

	{

		WLog_ERR(TAG, "context->custom not set!");

		return ERROR_INTERNAL_ERROR;

	}

	capabilities.cCapabilitiesSets = 1;

	capabilities.capabilitySets = (CLIPRDR_CAPABILITY_SET*) &

	                              (generalCapabilitySet);

	generalCapabilitySet.capabilitySetType = CB_CAPSTYPE_GENERAL;

	generalCapabilitySet.capabilitySetLength = 12;

	generalCapabilitySet.version = version;

	generalCapabilitySet.generalFlags = generalFlags;

	IFCALLRET(context->ServerCapabilities, error, context, &capabilities);

	if (error)

		WLog_ERR(TAG, "ServerCapabilities failed with error %"PRIu32"!", error);

	return error;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_process_clip_caps(cliprdrPlugin* cliprdr, wStream* s,

                                      UINT16 length, UINT16 flags)

{

	UINT16 index;

	UINT16 lengthCapability;

	UINT16 cCapabilitiesSets;

	UINT16 capabilitySetType;

	UINT error = CHANNEL_RC_OK;

	if (Stream_GetRemainingLength(s) < 4)

		return ERROR_INVALID_DATA;

	Stream_Read_UINT16(s, cCapabilitiesSets); /* cCapabilitiesSets (2 bytes) */

	Stream_Seek_UINT16(s); /* pad1 (2 bytes) */

	WLog_Print(cliprdr->log, WLOG_DEBUG, "ServerCapabilities");

	for (index = 0; index < cCapabilitiesSets; index++)

	{

		if (Stream_GetRemainingLength(s) < 4)

			return ERROR_INVALID_DATA;

		Stream_Read_UINT16(s, capabilitySetType); /* capabilitySetType (2 bytes) */

		Stream_Read_UINT16(s, lengthCapability); /* lengthCapability (2 bytes) */

		if (lengthCapability < 4 || Stream_GetRemainingLength(s) < lengthCapability - 4)

			return ERROR_INVALID_DATA;

		switch (capabilitySetType)

		{

			case CB_CAPSTYPE_GENERAL:

				if ((error = cliprdr_process_general_capability(cliprdr, s)))

				{

					WLog_ERR(TAG, "cliprdr_process_general_capability failed with error %"PRIu32"!",

					         error);

					return error;

				}

				break;

			default:

				WLog_ERR(TAG, "unknown cliprdr capability set: %"PRIu16"", capabilitySetType);

				return CHANNEL_RC_BAD_PROC;

				break;

		}

	}

	return error;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_process_monitor_ready(cliprdrPlugin* cliprdr, wStream* s,

        UINT16 length, UINT16 flags)

{

	CLIPRDR_MONITOR_READY monitorReady;

	CliprdrClientContext* context = cliprdr_get_client_interface(cliprdr);

	UINT error = CHANNEL_RC_OK;

	WLog_Print(cliprdr->log, WLOG_DEBUG, "MonitorReady");

	if (!context->custom)

	{

		WLog_ERR(TAG, "context->custom not set!");

		return ERROR_INTERNAL_ERROR;

	}

	if (!cliprdr->capabilitiesReceived)

	{

		/**

		  * The clipboard capabilities pdu from server to client is optional,

		  * but a server using it must send it before sending the monitor ready pdu.

		  * When the server capabilities pdu is not used, default capabilities

		  * corresponding to a generalFlags field set to zero are assumed.

		  */

		cliprdr->useLongFormatNames = FALSE;

		cliprdr->streamFileClipEnabled = FALSE;

		cliprdr->fileClipNoFilePaths = TRUE;

		cliprdr->canLockClipData = FALSE;

	}

	monitorReady.msgType = CB_MONITOR_READY;

	monitorReady.msgFlags = flags;

	monitorReady.dataLen = length;

	IFCALLRET(context->MonitorReady, error, context, &monitorReady);

	if (error)

		WLog_ERR(TAG, "MonitorReady failed with error %"PRIu32"!", error);

	return error;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_process_filecontents_request(cliprdrPlugin* cliprdr,

        wStream* s, UINT32 length, UINT16 flags)

{

	CLIPRDR_FILE_CONTENTS_REQUEST request;

	CliprdrClientContext* context = cliprdr_get_client_interface(cliprdr);

	UINT error = CHANNEL_RC_OK;

	WLog_Print(cliprdr->log, WLOG_DEBUG, "FileContentsRequest");

	if (!context->custom)

	{

		WLog_ERR(TAG, "context->custom not set!");

		return ERROR_INTERNAL_ERROR;

	}

	if (Stream_GetRemainingLength(s) < 24)

	{

		WLog_ERR(TAG, "not enough remaining data");

		return ERROR_INVALID_DATA;

	}

	request.msgType = CB_FILECONTENTS_REQUEST;

	request.msgFlags = flags;

	request.dataLen = length;

	request.haveClipDataId = FALSE;

	Stream_Read_UINT32(s, request.streamId); /* streamId (4 bytes) */

	Stream_Read_UINT32(s, request.listIndex); /* listIndex (4 bytes) */

	Stream_Read_UINT32(s, request.dwFlags); /* dwFlags (4 bytes) */

	Stream_Read_UINT32(s, request.nPositionLow); /* nPositionLow (4 bytes) */

	Stream_Read_UINT32(s, request.nPositionHigh); /* nPositionHigh (4 bytes) */

	Stream_Read_UINT32(s, request.cbRequested); /* cbRequested (4 bytes) */

	if (Stream_GetRemainingLength(s) >= 4)

	{

		Stream_Read_UINT32(s, request.clipDataId); /* clipDataId (4 bytes) */

		request.haveClipDataId = TRUE;

	}

	IFCALLRET(context->ServerFileContentsRequest, error, context, &request);

	if (error)

		WLog_ERR(TAG, "ServerFileContentsRequest failed with error %"PRIu32"!", error);

	return error;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_process_filecontents_response(cliprdrPlugin* cliprdr,

        wStream* s, UINT32 length, UINT16 flags)

{

	CLIPRDR_FILE_CONTENTS_RESPONSE response;

	CliprdrClientContext* context = cliprdr_get_client_interface(cliprdr);

	UINT error = CHANNEL_RC_OK;

	WLog_Print(cliprdr->log, WLOG_DEBUG, "FileContentsResponse");

	if (!context->custom)

	{

		WLog_ERR(TAG, "context->custom not set!");

		return ERROR_INTERNAL_ERROR;

	}

	if (Stream_GetRemainingLength(s) < 4)

	{

		WLog_ERR(TAG, "not enough remaining data");

		return ERROR_INVALID_DATA;

	}

	response.msgType = CB_FILECONTENTS_RESPONSE;

	response.msgFlags = flags;

	response.dataLen = length;

	Stream_Read_UINT32(s, response.streamId); /* streamId (4 bytes) */

	response.cbRequested = length - 4;

	response.requestedData = Stream_Pointer(s); /* requestedFileContentsData */

	IFCALLRET(context->ServerFileContentsResponse, error, context, &response);

	if (error)

		WLog_ERR(TAG, "ServerFileContentsResponse failed with error %"PRIu32"!", error);

	return error;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_process_lock_clipdata(cliprdrPlugin* cliprdr, wStream* s,

        UINT32 length, UINT16 flags)

{

	CLIPRDR_LOCK_CLIPBOARD_DATA lockClipboardData;

	CliprdrClientContext* context = cliprdr_get_client_interface(cliprdr);

	UINT error = CHANNEL_RC_OK;

	WLog_Print(cliprdr->log, WLOG_DEBUG, "LockClipData");

	if (!context->custom)

	{

		WLog_ERR(TAG, "context->custom not set!");

		return ERROR_INTERNAL_ERROR;

	}

	if (Stream_GetRemainingLength(s) < 4)

	{

		WLog_ERR(TAG, "not enough remaining data");

		return ERROR_INVALID_DATA;

	}

	lockClipboardData.msgType = CB_LOCK_CLIPDATA;

	lockClipboardData.msgFlags = flags;

	lockClipboardData.dataLen = length;

	Stream_Read_UINT32(s, lockClipboardData.clipDataId); /* clipDataId (4 bytes) */

	IFCALLRET(context->ServerLockClipboardData, error, context, &lockClipboardData);

	if (error)

		WLog_ERR(TAG, "ServerLockClipboardData failed with error %"PRIu32"!", error);

	return error;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_process_unlock_clipdata(cliprdrPlugin* cliprdr, wStream* s,

        UINT32 length, UINT16 flags)

{

	CLIPRDR_UNLOCK_CLIPBOARD_DATA unlockClipboardData;

	CliprdrClientContext* context = cliprdr_get_client_interface(cliprdr);

	UINT error = CHANNEL_RC_OK;

	WLog_Print(cliprdr->log, WLOG_DEBUG, "UnlockClipData");

	if (!context->custom)

	{

		WLog_ERR(TAG, "context->custom not set!");

		return ERROR_INTERNAL_ERROR;

	}

	if (Stream_GetRemainingLength(s) < 4)

	{

		WLog_ERR(TAG, "not enough remaining data");

		return ERROR_INVALID_DATA;

	}

	unlockClipboardData.msgType = CB_UNLOCK_CLIPDATA;

	unlockClipboardData.msgFlags = flags;

	unlockClipboardData.dataLen = length;

	Stream_Read_UINT32(s, unlockClipboardData.clipDataId); /* clipDataId (4 bytes) */

	IFCALLRET(context->ServerUnlockClipboardData, error, context,

	          &unlockClipboardData);

	if (error)

		WLog_ERR(TAG, "ServerUnlockClipboardData failed with error %"PRIu32"!", error);

	return error;

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_order_recv(cliprdrPlugin* cliprdr, wStream* s)

{

	UINT16 msgType;

	UINT16 msgFlags;

	UINT32 dataLen;

	UINT error;

	if (Stream_GetRemainingLength(s) < 8)

		return ERROR_INVALID_DATA;

	Stream_Read_UINT16(s, msgType); /* msgType (2 bytes) */

	Stream_Read_UINT16(s, msgFlags); /* msgFlags (2 bytes) */

	Stream_Read_UINT32(s, dataLen); /* dataLen (4 bytes) */

	if (Stream_GetRemainingLength(s) < dataLen)

		return ERROR_INVALID_DATA;

#ifdef WITH_DEBUG_CLIPRDR

	WLog_DBG(TAG, "msgType: %s (%"PRIu16"), msgFlags: %"PRIu16" dataLen: %"PRIu32"",

	         CB_MSG_TYPE_STRINGS[msgType], msgType, msgFlags, dataLen);

	winpr_HexDump(TAG, WLOG_DEBUG, Stream_Buffer(s), dataLen + 8);

#endif

	switch (msgType)

	{

		case CB_CLIP_CAPS:

			if ((error = cliprdr_process_clip_caps(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_clip_caps failed with error %"PRIu32"!", error);

			break;

		case CB_MONITOR_READY:

			if ((error = cliprdr_process_monitor_ready(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_monitor_ready failed with error %"PRIu32"!", error);

			break;

		case CB_FORMAT_LIST:

			if ((error = cliprdr_process_format_list(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_format_list failed with error %"PRIu32"!", error);

			break;

		case CB_FORMAT_LIST_RESPONSE:

			if ((error = cliprdr_process_format_list_response(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_format_list_response failed with error %"PRIu32"!",

				         error);

			break;

		case CB_FORMAT_DATA_REQUEST:

			if ((error = cliprdr_process_format_data_request(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_format_data_request failed with error %"PRIu32"!",

				         error);

			break;

		case CB_FORMAT_DATA_RESPONSE:

			if ((error = cliprdr_process_format_data_response(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_format_data_response failed with error %"PRIu32"!",

				         error);

			break;

		case CB_FILECONTENTS_REQUEST:

			if ((error = cliprdr_process_filecontents_request(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_filecontents_request failed with error %"PRIu32"!",

				         error);

			break;

		case CB_FILECONTENTS_RESPONSE:

			if ((error = cliprdr_process_filecontents_response(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_filecontents_response failed with error %"PRIu32"!",

				         error);

			break;

		case CB_LOCK_CLIPDATA:

			if ((error = cliprdr_process_lock_clipdata(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_lock_clipdata failed with error %"PRIu32"!", error);

			break;

		case CB_UNLOCK_CLIPDATA:

			if ((error = cliprdr_process_unlock_clipdata(cliprdr, s, dataLen, msgFlags)))

				WLog_ERR(TAG, "cliprdr_process_lock_clipdata failed with error %"PRIu32"!", error);

			break;

		default:

			error = CHANNEL_RC_BAD_PROC;

			WLog_ERR(TAG, "unknown msgType %"PRIu16"", msgType);

			break;

	}

	Stream_Free(s, TRUE);

	return error;

}

/**

 * Callback Interface

 */

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_client_capabilities(CliprdrClientContext* context,

                                        CLIPRDR_CAPABILITIES* capabilities)

{

	wStream* s;

	CLIPRDR_GENERAL_CAPABILITY_SET* generalCapabilitySet;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;

	s = cliprdr_packet_new(CB_CLIP_CAPS, 0, 4 + CB_CAPSTYPE_GENERAL_LEN);

	if (!s)

	{

		WLog_ERR(TAG, "cliprdr_packet_new failed!");

		return ERROR_INTERNAL_ERROR;

	}

	Stream_Write_UINT16(s, 1); /* cCapabilitiesSets */

	Stream_Write_UINT16(s, 0); /* pad1 */

	generalCapabilitySet = (CLIPRDR_GENERAL_CAPABILITY_SET*)capabilities->capabilitySets;

	Stream_Write_UINT16(s, generalCapabilitySet->capabilitySetType); /* capabilitySetType */

	Stream_Write_UINT16(s, generalCapabilitySet->capabilitySetLength); /* lengthCapability */

	Stream_Write_UINT32(s, generalCapabilitySet->version); /* version */

	Stream_Write_UINT32(s, generalCapabilitySet->generalFlags); /* generalFlags */

	WLog_Print(cliprdr->log, WLOG_DEBUG, "ClientCapabilities");

	return cliprdr_packet_send(cliprdr, s);

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_temp_directory(CliprdrClientContext* context,

                                   CLIPRDR_TEMP_DIRECTORY* tempDirectory)

{

	int length;

	wStream* s;

	WCHAR* wszTempDir = NULL;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;

	s = cliprdr_packet_new(CB_TEMP_DIRECTORY, 0, 520 * 2);

	if (!s)

	{

		WLog_ERR(TAG, "cliprdr_packet_new failed!");

		return ERROR_INTERNAL_ERROR;

	}

	length = ConvertToUnicode(CP_UTF8, 0, tempDirectory->szTempDir, -1, &wszTempDir, 0);

	if (length < 0)

		return ERROR_INTERNAL_ERROR;

	if (length > 520)

		length = 520;

	Stream_Write(s, wszTempDir, length * 2);

	Stream_Zero(s, (520 - length) * 2);

	free(wszTempDir);

	WLog_Print(cliprdr->log, WLOG_DEBUG, "TempDirectory: %s",

	           tempDirectory->szTempDir);

	return cliprdr_packet_send(cliprdr, s);

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_client_format_list(CliprdrClientContext* context,

                                       CLIPRDR_FORMAT_LIST* formatList)

{

	wStream* s;

	UINT32 index;

	int length = 0;

	int cchWideChar;

	LPWSTR lpWideCharStr;

	int formatNameSize;

	int formatNameLength;

	char* szFormatName;

	WCHAR* wszFormatName;

	BOOL asciiNames = FALSE;

	CLIPRDR_FORMAT* format;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;

	if (!cliprdr->useLongFormatNames)

	{

		length = formatList->numFormats * 36;

		s = cliprdr_packet_new(CB_FORMAT_LIST, 0, length);

		if (!s)

		{

			WLog_ERR(TAG, "cliprdr_packet_new failed!");

			return ERROR_INTERNAL_ERROR;

		}

		for (index = 0; index < formatList->numFormats; index++)

		{

			format = (CLIPRDR_FORMAT*) & (formatList->formats[index]);

			Stream_Write_UINT32(s, format->formatId); /* formatId (4 bytes) */

			formatNameSize = 0;

			formatNameLength = 0;

			szFormatName = format->formatName;

			if (asciiNames)

			{

				if (szFormatName)

					formatNameLength = strlen(szFormatName);

				if (formatNameLength > 31)

					formatNameLength = 31;

				Stream_Write(s, szFormatName, formatNameLength);

				Stream_Zero(s, 32 - formatNameLength);

			}

			else

			{

				wszFormatName = NULL;

				if (szFormatName)

					formatNameSize = ConvertToUnicode(CP_UTF8, 0, szFormatName, -1, &wszFormatName,

					                                  0);

				if (formatNameSize > 15)

					formatNameSize = 15;

				if (wszFormatName)

					Stream_Write(s, wszFormatName, formatNameSize * 2);

				Stream_Zero(s, 32 - (formatNameSize * 2));

				free(wszFormatName);

			}

		}

	}

	else

	{

		for (index = 0; index < formatList->numFormats; index++)

		{

			format = (CLIPRDR_FORMAT*) & (formatList->formats[index]);

			length += 4;

			formatNameSize = 2;

			if (format->formatName)

				formatNameSize = MultiByteToWideChar(CP_UTF8, 0, format->formatName, -1, NULL,

				                                     0) * 2;

			length += formatNameSize;

		}

		s = cliprdr_packet_new(CB_FORMAT_LIST, 0, length);

		if (!s)

		{

			WLog_ERR(TAG, "cliprdr_packet_new failed!");

			return ERROR_INTERNAL_ERROR;

		}

		for (index = 0; index < formatList->numFormats; index++)

		{

			format = (CLIPRDR_FORMAT*) & (formatList->formats[index]);

			Stream_Write_UINT32(s, format->formatId); /* formatId (4 bytes) */

			if (format->formatName)

			{

				lpWideCharStr = (LPWSTR) Stream_Pointer(s);

				cchWideChar = (Stream_Capacity(s) - Stream_GetPosition(s)) / 2;

				formatNameSize = MultiByteToWideChar(CP_UTF8, 0,

				                                     format->formatName, -1, lpWideCharStr, cchWideChar) * 2;

				Stream_Seek(s, formatNameSize);

			}

			else

			{

				Stream_Write_UINT16(s, 0);

			}

		}

	}

	WLog_Print(cliprdr->log, WLOG_DEBUG, "ClientFormatList: numFormats: %"PRIu32"",

	           formatList->numFormats);

	return cliprdr_packet_send(cliprdr, s);

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_client_format_list_response(CliprdrClientContext* context,

        CLIPRDR_FORMAT_LIST_RESPONSE* formatListResponse)

{

	wStream* s;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;

	formatListResponse->msgType = CB_FORMAT_LIST_RESPONSE;

	formatListResponse->dataLen = 0;

	s = cliprdr_packet_new(formatListResponse->msgType,

	                       formatListResponse->msgFlags, formatListResponse->dataLen);

	if (!s)

	{

		WLog_ERR(TAG, "cliprdr_packet_new failed!");

		return ERROR_INTERNAL_ERROR;

	}

	WLog_Print(cliprdr->log, WLOG_DEBUG, "ClientFormatListResponse");

	return cliprdr_packet_send(cliprdr, s);

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_client_lock_clipboard_data(CliprdrClientContext* context,

        CLIPRDR_LOCK_CLIPBOARD_DATA* lockClipboardData)

{

	wStream* s;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;

	s = cliprdr_packet_new(CB_LOCK_CLIPDATA, 0, 4);

	if (!s)

	{

		WLog_ERR(TAG, "cliprdr_packet_new failed!");

		return ERROR_INTERNAL_ERROR;

	}

	Stream_Write_UINT32(s, lockClipboardData->clipDataId); /* clipDataId (4 bytes) */

	WLog_Print(cliprdr->log, WLOG_DEBUG,

	           "ClientLockClipboardData: clipDataId: 0x%08"PRIX32"",

	           lockClipboardData->clipDataId);

	return cliprdr_packet_send(cliprdr, s);

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_client_unlock_clipboard_data(CliprdrClientContext* context,

        CLIPRDR_UNLOCK_CLIPBOARD_DATA* unlockClipboardData)

{

	wStream* s;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;

	s = cliprdr_packet_new(CB_UNLOCK_CLIPDATA, 0, 4);

	if (!s)

	{

		WLog_ERR(TAG, "cliprdr_packet_new failed!");

		return ERROR_INTERNAL_ERROR;

	}

	Stream_Write_UINT32(s, unlockClipboardData->clipDataId); /* clipDataId (4 bytes) */

	WLog_Print(cliprdr->log, WLOG_DEBUG,

	           "ClientUnlockClipboardData: clipDataId: 0x%08"PRIX32"",

	           unlockClipboardData->clipDataId);

	return cliprdr_packet_send(cliprdr, s);

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_client_format_data_request(CliprdrClientContext* context,

        CLIPRDR_FORMAT_DATA_REQUEST* formatDataRequest)

{

	wStream* s;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;

	formatDataRequest->msgType = CB_FORMAT_DATA_REQUEST;

	formatDataRequest->msgFlags = 0;

	formatDataRequest->dataLen = 4;

	s = cliprdr_packet_new(formatDataRequest->msgType, formatDataRequest->msgFlags,

	                       formatDataRequest->dataLen);

	if (!s)

	{

		WLog_ERR(TAG, "cliprdr_packet_new failed!");

		return ERROR_INTERNAL_ERROR;

	}

	Stream_Write_UINT32(s, formatDataRequest->requestedFormatId); /* requestedFormatId (4 bytes) */

	WLog_Print(cliprdr->log, WLOG_DEBUG, "ClientFormatDataRequest");

	return cliprdr_packet_send(cliprdr, s);

}

/**

 * Function description

 *

 * @return 0 on success, otherwise a Win32 error code

 */

static UINT cliprdr_client_format_data_response(CliprdrClientContext* context,

        CLIPRDR_FORMAT_DATA_RESPONSE* formatDataResponse)

{

	wStream* s;

	cliprdrPlugin* cliprdr = (cliprdrPlugin*) context->handle;