// NeL - MMORPG Framework <http://dev.ryzom.com/projects/nel/>
// Copyright (C) 2010  Winch Gate Property Limited
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU Affero General Public License as
// published by the Free Software Foundation, either version 3 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 Affero General Public License for more details.
//
// You should have received a copy of the GNU Affero General Public License
// along with this program.  If not, see <http://www.gnu.org/licenses/>.


#include "stdnet.h"
#include "nel/net/service.h"
#include "nel/net/module.h"
#include "nel/net/module_manager.h"
#include "nel/net/inet_address.h"
#include "nel/net/module_message.h"
#include "nel/net/module_gateway.h"
#include "nel/net/module_socket.h"

using namespace std;
using namespace NLMISC;
using namespace NLNET;

namespace NLNET
{

	//////////////////////////////////////
	// Module interceptor implementation
	//////////////////////////////////////
	IModuleInterceptable::IModuleInterceptable()
		: _Registrar(NULL)
	{
	}

	IModuleInterceptable::~IModuleInterceptable()
	{
		if (_Registrar != NULL)
			_Registrar->unregisterInterceptor(this);
	}

	void IModuleInterceptable::registerInterceptor(IInterceptorRegistrar *registrar)
	{
		nlassert(registrar != NULL);

		_Registrar = registrar;

		_Registrar->registerInterceptor(this);
	}

	void IModuleInterceptable::interceptorUnregistered(IInterceptorRegistrar *registrar)
	{
		nlassert(registrar == _Registrar);

		_Registrar = NULL;
	}

	IInterceptorRegistrar *IModuleInterceptable::getRegistrar()
	{
		return _Registrar;
	}


	//////////////////////////////////////
	// Module factory implementation
	//////////////////////////////////////

	IModuleFactory::IModuleFactory(const std::string &moduleClassName)
		: _ModuleClassName(moduleClassName)
	{
	}

	IModuleFactory::~IModuleFactory()
	{
		// Delete any module that still exist
		while (!_ModuleInstances.empty())
		{
			CRefPtr<IModule> sanityCheck(*(_ModuleInstances.begin()));

			IModuleManager::getInstance().deleteModule(sanityCheck);

			// container is cleared by deleteModule (see below)
			// make sure the module is effectively destroyed
			// NB : is the code assert here, this mean that some user code
			// (or eventualy NeL code) have kept a smart pointer on the module
			// and this is bad. All smart pointer MUST be released when the
			// factory is about to be removed.
			nlassertex(sanityCheck == NULL, ("Some code have kept pointer on module '%s'", sanityCheck->getModuleName().c_str()));
		}

		// if the context is still active
		if (INelContext::isContextInitialised() && IModuleManager::isInitialized())
			// This factory is no longer available
			IModuleManager::getInstance().unregisterModuleFactory(this);
	}

	const std::string &IModuleFactory::getModuleClassName() const
	{
		return _ModuleClassName;
	}


	void IModuleFactory::deleteModule(IModule *module)
	{
		set<TModulePtr>::iterator it(_ModuleInstances.find(module));
		nlassert(it != _ModuleInstances.end());

		CRefPtr<IModule> sanityCheck(module);

		// removing this smart ptr must release the module
		_ModuleInstances.erase(it);

		nlassert(sanityCheck == NULL);
	}

	void IModuleFactory::registerModuleInFactory(TModulePtr module)
	{
		nlassert(module != NULL);

		nlassert(_ModuleInstances.find(module) == _ModuleInstances.end());

		// keep track of the module
		_ModuleInstances.insert(module);

		module->setFactory(this);
	}

	//////////////////////////////////////
	// CModuleTask implementation
	//////////////////////////////////////
	CModuleTask::CModuleTask (class CModuleBase * /*module */)
		: _FailInvoke(false)
	{
//		module->queueModuleTask(this);
	}


	void CModuleTask::initMessageQueue(CModuleBase * /* module */)
	{
	}

	void CModuleTask::flushMessageQueue(CModuleBase *module)
	{
		// process any queued message
		while (!module->_SyncMessages.empty())
		{
			IModuleProxy *proxy = module->_SyncMessages.front().first;
			CMessage &msg = module->_SyncMessages.front().second;

			module->_onProcessModuleMessage(proxy, msg);

			module->_SyncMessages.pop_front();
		}
	}

	void CModuleTask::processPendingMessage(CModuleBase *module)
	{
		flushMessageQueue(module);
	}


	//////////////////////////////////////
	// Module base implementation
	//////////////////////////////////////

	CModuleBase::CModuleBase()
		: _CurrentSender(NULL),
		  _CurrentMessage(NULL),
		  _CurrentMessageFailed(false),
		  _MessageDispatchTask(NULL),
		  _ModuleFactory(NULL),
		  _ModuleId(INVALID_MODULE_ID)
	{
		// register module itself in the interceptor list
		IModuleInterceptable::registerInterceptor(this);
	}

	CModuleBase::~CModuleBase()
	{
		// deleting a module from it's own current task is forbiden
		nlassert(_ModuleTasks.empty()
			||  CCoTask::getCurrentTask() != _ModuleTasks.front());

		// terminate and release any pending module task
		while (!_ModuleTasks.empty())
		{
			CModuleTask *task = _ModuleTasks.front();

			// deleting the task will waiting it to terminate
			delete task;

			_ModuleTasks.erase(_ModuleTasks.begin());
		}

		if (_MessageDispatchTask)
		{
			// delete reception task
			delete _MessageDispatchTask;
		}

		// unregister all interceptors
		while (!_ModuleInterceptors.empty())
		{
			IModuleInterceptable *interceptor = *(_ModuleInterceptors.begin());
			unregisterInterceptor(interceptor);
		}
	}

	void CModuleBase::registerInterceptor(IModuleInterceptable *interceptor)
	{
		// check that this interceptor not already registered
		nlassert(find(_ModuleInterceptors.begin(), _ModuleInterceptors.end(), interceptor) == _ModuleInterceptors.end());

		// insert the interceptor in the list
		_ModuleInterceptors.push_back(interceptor);
	}

	void CModuleBase::unregisterInterceptor(IModuleInterceptable *interceptor)
	{
		TInterceptors::iterator it = find(_ModuleInterceptors.begin(), _ModuleInterceptors.end(), interceptor);
		nlassert(it != _ModuleInterceptors.end());

		_ModuleInterceptors.erase(it);

		interceptor->interceptorUnregistered(this);
	}

	TModuleId			CModuleBase::getModuleId() const
	{
		return _ModuleId;
	}

	const std::string	&CModuleBase::getModuleName() const
	{
		return _ModuleName;
	}

	const std::string	&CModuleBase::getModuleClassName() const
	{
		return _ModuleFactory->getModuleClassName();
	}

	const std::string	&CModuleBase::getModuleFullyQualifiedName() const
	{
		if (_FullyQualifedModuleName.empty())
		{
			nlassertex(!_ModuleName.empty(), ("Call to CModuleBase::getModuleFullyQualifiedName before module name have been set (did you call from module constructor ?)"));
			// build the name
			string hostName;
			if (IService::isServiceInitialized())
				hostName = IService::getInstance()->getHostName();
			else
				hostName = ::NLNET::CInetAddress::localHost().hostName();
//			int pid = ::getpid();

			_FullyQualifedModuleName = IModuleManager::getInstance().getUniqueNameRoot()+":"+_ModuleName;
		}

		return _FullyQualifedModuleName;
	}

	std::string	CModuleBase::getModuleManifest() const
	{
		string manifest;

		// call each interceptor in order to build the manifest
		TInterceptors::const_iterator first(_ModuleInterceptors.begin()), last(_ModuleInterceptors.end());
		for (; first != last; ++first)
		{
			IModuleInterceptable *interceptor = *first;

			manifest += interceptor->buildModuleManifest() + " ";
		}

		if (!manifest.empty() && manifest[manifest.size()-1] == ' ')
			manifest.resize(manifest.size()-1);

		return manifest;
	}

	void	CModuleBase::onReceiveModuleMessage(IModuleProxy *senderModuleProxy, const CMessage &message)
	{
		H_AUTO(CModuleBase_onReceiveModuleMessage);

		if (!_ModuleTasks.empty())
		{
			// there is a task running, queue in the message
			_SyncMessages.push_back(make_pair(senderModuleProxy, message));
		}
		else
		{
			// go in user code for processing
			if (_MessageDispatchTask != NULL)
			{
				// process the message in the co task
				_CurrentSender = senderModuleProxy;
				_CurrentMessage = &message;

				_MessageDispatchTask->resume();

				if (_CurrentMessageFailed)
					throw IModule::EInvokeFailed();
			}
			else
			{
				// normal processing by the main task
				_onProcessModuleMessage(senderModuleProxy, message);
			}
		}
	}

	void CModuleBase::_receiveModuleMessageTask()
	{
		H_AUTO(CModuleBase__receiveModuleMessageTask);

		while (!_MessageDispatchTask->isTerminationRequested())
		{
			// we have a message to dispatch
			try
			{
				// take a copy of the message to dispatch
				IModuleProxy *currentSender = _CurrentSender;
				CMessage currentMessage = *_CurrentMessage;
				_onProcessModuleMessage(currentSender, currentMessage);
				_CurrentMessageFailed = false;
			}
			catch (const NLMISC::Exception &e)
			{
				nlwarning("In module task '%s' (cotask message receiver), exception '%e' thrown", typeid(this).name(), e.what());
				// an exception have been thrown
				_CurrentMessageFailed = true;
			}
			catch (...)
			{
				nlwarning("In module task '%s' (cotask message receiver), unknown exception thrown", typeid(this).name());
				// an exception have been thrown
				_CurrentMessageFailed = true;
			}
			// switch to main task
			_MessageDispatchTask->yield();
		}
	}


	void CModuleBase::queueModuleTask(CModuleTask *task)
	{
		_ModuleTasks.push_back(task);
	}

	CModuleTask *CModuleBase::getActiveModuleTask()
	{
		if (_ModuleTasks.empty())
			return NULL;

		return _ModuleTasks.front();
	}


	const std::string &CModuleBase::getInitStringHelp()
	{
		static string help;
		return help;
	}

	// Init base module, init module name
	bool	CModuleBase::initModule(const TParsedCommandLine &initInfo)
	{
		// read module init param for base module .

		if (initInfo.getParam("base.useCoTaskDispatch"))
		{
			// init the message dispatch task
//			NLNET_START_MODULE_TASK(CModuleBase, _receiveModuleMessageTask);
//	TModuleTask<className> *task = new TModuleTask<className>(this, &className::methodName);
			 _MessageDispatchTask = new TModuleTask<CModuleBase>(this,  TModuleTask<CModuleBase>::TMethodPtr(&CModuleBase::_receiveModuleMessageTask));
		}

		// register this module in the command executor
		registerCommandsHandler();

		return true;
	}

	const std::string &CModuleBase::getCommandHandlerName() const
	{
		return getModuleName();
	}


	void CModuleBase::plugModule(IModuleSocket *moduleSocket) throw (EModuleAlreadyPluggedHere)
	{
		CModuleSocket *sock = dynamic_cast<CModuleSocket*>(moduleSocket);
		nlassert(sock != NULL);

		TModuleSockets::iterator it(_ModuleSockets.find(moduleSocket));
		if (it != _ModuleSockets.end())
			throw EModuleAlreadyPluggedHere();


		// ok, we can plug the module

		sock->_onModulePlugged(this);

		// all fine, store the socket pointer.
		_ModuleSockets.insert(moduleSocket);
	}

	void CModuleBase::unplugModule(IModuleSocket *moduleSocket)  throw (EModuleNotPluggedHere)
	{
		CModuleSocket *sock = dynamic_cast<CModuleSocket*>(moduleSocket);
		nlassert(sock != NULL);

		TModuleSockets::iterator it(_ModuleSockets.find(moduleSocket));
		if (it == _ModuleSockets.end())
			throw EModuleNotPluggedHere();

		sock->_onModuleUnplugged(TModulePtr(this));

		_ModuleSockets.erase(it);
	}

	void CModuleBase::getPluggedSocketList(std::vector<IModuleSocket*> &resultList)
	{
		TModuleSockets::iterator first(_ModuleSockets.begin()), last(_ModuleSockets.end());
		for (; first != last; ++first)
		{
			resultList.push_back(*first);
		}
	}

	/** Do a module operation invocation.
	 *	Caller MUST be in a module task to call this method.
	 *	The call is blocking until receptions of the operation
	 *	result message (or a module down)
	 */
	void CModuleBase::invokeModuleOperation(IModuleProxy *destModule, const NLNET::CMessage &opMsg, NLNET::CMessage &resultMsg) throw (EInvokeFailed)
	{
		H_AUTO(CModuleBase_invokeModuleOperation);

		nlassert(opMsg.getType() == CMessage::Request);

		// check that we are running in a coroutine task
		CModuleTask *task = dynamic_cast<CModuleTask *>(CCoTask::getCurrentTask());
		nlassert(task != NULL);
		// send the message to the module
		destModule->sendModuleMessage(this, opMsg);

		// fill the invoke stack
		_InvokeStack.push_back(destModule);

		for (;;)
		{
			// yield and wait for messages
			task->yield();

			if (task->mustFailInvoke())
			{
				nlassert(!_InvokeStack.empty());
				// empty the invoke stack
				_InvokeStack.pop_back();

				task->resetFailInvoke();

				throw EInvokeFailed();
			}

			while (!_SyncMessages.empty())
			{
				IModuleProxy *proxy = _SyncMessages.front().first;
				CMessage &msg = _SyncMessages.front().second;
				if (msg.getType() == CMessage::Response)
				{
					// we have the response message
					nlassert(proxy == destModule);
					resultMsg = msg;
					// remove this message form the queue
					_SyncMessages.pop_front();
					// empty the invoke stack
					_InvokeStack.pop_back();
					// stop reading received message now
					return;
				}
				else if (msg.getType() == CMessage::Except)
				{
					// the other side returned an exception !

					// empty the invoke stack
					_InvokeStack.pop_back();

					throw EInvokeFailed();
				}
				else
				{
					// another message, dispatch it normally
//					CMessage::TMessageType msgType = msg.getType();
//					try
//					{
						_onProcessModuleMessage(proxy, msg);
//					}
//					catch(...)
//					{
//						nlwarning("Some exception where throw will dispatching message '%s' from '%s' to '%s'",
//							msg.getName().c_str(),
//							proxy->getModuleName().c_str(),
//							this->getModuleName().c_str());
//
//						if (msgType == CMessage::Request)
//						{
//							// send back an exception message
//							CMessage except;
//							except.setType("EXCEPT", CMessage::Except);
//							proxy->sendModuleMessage(this, except);
//						}
//
//					}

					// remove this message form the queue
					_SyncMessages.pop_front();
				}
			}
		}
	}

	void CModuleBase::_onModuleUp(IModuleProxy *removedProxy)
	{
		H_AUTO(CModuleBase__onModuleUp);

		// call the normal callback in the interceptor list
		TInterceptors::iterator first(_ModuleInterceptors.begin()), last(_ModuleInterceptors.end());
		for (;first != last; ++first)
		{
			IModuleInterceptable *interceptor = *first;
			interceptor->onModuleUp(removedProxy);
		}
	}

	void CModuleBase::_onModuleDown(IModuleProxy *removedProxy)
	{
		H_AUTO(CModuleBase__onModuleDown);

		// remove any message from the message queue that come from this proxy
		{
			TMessageList::iterator first(_SyncMessages.begin()), last(_SyncMessages.end());
			for (; first != last; ++first)
			{
				if (first->first == removedProxy)
				{
					_SyncMessages.erase(first);
					first = _SyncMessages.begin();
				}
			}
		}
		// check the invocation stack also
		{
			TInvokeStack::iterator first(_InvokeStack.begin()), last(_InvokeStack.end());
			for (; first != last; ++first)
			{
				if (*first == removedProxy)
				{
					// at least, we need either a running task or the default dispatch task activated
					nlassert(!_ModuleTasks.empty() || _MessageDispatchTask != NULL);

					// gasp, we lost one of the module needed to managed the invocation stack!
					// make each call generate an exception
					while (first != _InvokeStack.end())
					{
						// The module task can be either the first in the module task list or
						// the co routine dispatching task if it is activated
						CModuleTask *task = !_ModuleTasks.empty() ? _ModuleTasks.front() : _MessageDispatchTask;
						task->failInvoke();
						// switch to task to unstack one level
						task->resume();
					}
					break;
				}
			}
		}

		// call the normal callback in the interceptor list
		TInterceptors::iterator first(_ModuleInterceptors.begin()), last(_ModuleInterceptors.end());
		for (;first != last; ++first)
		{
			(*first)->onModuleDown(removedProxy);
		}
	}

	bool CModuleBase::_onProcessModuleMessage(IModuleProxy *senderModuleProxy, const CMessage &message)
	{
		H_AUTO(CModuleBase__OnProcessModuleMessage);

		// try the call on each interceptor
		bool result;
		result = false;

		try
		{
			TInterceptors::iterator first(_ModuleInterceptors.begin()), last(_ModuleInterceptors.end());
			for (;first != last; ++first)
			{
				if ((*first)->onProcessModuleMessage(senderModuleProxy, message))
				{
					result = true;
					break;
				}
			}
		}
		catch(...)
		{
			nlwarning("Some exception where throw will dispatching message '%s' from '%s' to '%s'",
				message.getName().c_str(),
				senderModuleProxy->getModuleName().c_str(),
				this->getModuleName().c_str());

			if (message.getType() == CMessage::Request)
			{
				// send back an exception message
				CMessage except;
				except.setType("EXCEPT", CMessage::Except);
				senderModuleProxy->sendModuleMessage(this, except);
			}
			// here we return true because the message have been processed
			// (even if the processing have raised some exception !)
			result = true;
		}

		return result;
	}

	void CModuleBase::setFactory(IModuleFactory *factory)
	{
		nlassert(_ModuleFactory == NULL);

		_ModuleFactory = factory;
	}

	IModuleFactory *CModuleBase::getFactory()
	{
		return _ModuleFactory;
	}

	NLMISC_CLASS_COMMAND_IMPL(CModuleBase, plug)
	{
		nlunreferenced(human);
		nlunreferenced(quiet);
		nlunreferenced(rawCommandString);

		if (args.size() != 1)
			return false;

		IModuleSocket *socket = IModuleManager::getInstance().getModuleSocket(args[0]);

		if (socket == NULL)
		{
			log.displayNL("Unknown socket named '%s'", args[0].c_str());
			return true;
		}

		plugModule(socket);

		if (_ModuleSockets.find(socket) == _ModuleSockets.end())
		{
			log.displayNL("Failed to plug the module '%s' into the socket '%s'",
				getModuleName().c_str(),
				socket->getSocketName().c_str());
		}
		else
			log.displayNL("Module '%s' plugged into the socket '%s'",
				getModuleName().c_str(),
				socket->getSocketName().c_str());

		return true;
	}

	NLMISC_CLASS_COMMAND_IMPL(CModuleBase, unplug)
	{
		nlunreferenced(human);
		nlunreferenced(quiet);
		nlunreferenced(rawCommandString);

		if (args.size() != 1)
			return false;

		IModuleSocket *socket = IModuleManager::getInstance().getModuleSocket(args[0]);

		if (socket == NULL)
		{
			log.displayNL("Unknown socket named '%s'", args[0].c_str());
			return true;
		}

		if (_ModuleSockets.find(socket) == _ModuleSockets.end())
		{
			log.displayNL("The module '%s' is not plugged in the socket '%s'",
				getModuleName().c_str(),
				socket->getSocketName().c_str());
			return true;
		}

		unplugModule(socket);

		if (_ModuleSockets.find(socket) != _ModuleSockets.end())
			log.displayNL("Failed to unplug the module '%s' from the socket '%s'",
				getModuleName().c_str(),
				socket->getSocketName().c_str());
		else
			log.displayNL("Module '%s' unplugged out of the socket '%s'",
				getModuleName().c_str(),
				socket->getSocketName().c_str());

		return true;
	}

	NLMISC_CLASS_COMMAND_IMPL(CModuleBase, sendPing)
	{
		nlunreferenced(human);
		nlunreferenced(quiet);
		nlunreferenced(rawCommandString);

		if (args.size() != 1)
			return false;

		string modName = args[0];

		// look in each socket
		vector<IModuleSocket*> sockets;
		this->getPluggedSocketList(sockets);

		for (uint i=0; i<sockets.size(); ++i)
		{
			IModuleSocket *socket = sockets[i];
			vector<IModuleProxy*> proxList;
			socket->getModuleList(proxList);

			for (uint i=0; i<proxList.size(); ++i)
			{
				if (proxList[i]->getModuleName() == modName)
				{
					// we found it !
					CMessage ping("DEBUG_MOD_PING");
					proxList[i]->sendModuleMessage(this, ping);
					log.displayNL("Ping debug message send to '%s'", modName.c_str());
					return true;
				}
			}
		}

		log.displayNL("Can't find a route to send message to module '%s'", modName.c_str());

		return true;
	}

	NLMISC_CLASS_COMMAND_IMPL(CModuleBase, dump)
	{
		nlunreferenced(human);
		nlunreferenced(quiet);
		nlunreferenced(rawCommandString);

		if (args.size() != 0)
			return false;

		log.displayNL("---------------------------");
		log.displayNL("Dumping base module state :");
		log.displayNL("---------------------------");
		log.displayNL("  Module name      : '%s'", getModuleName().c_str());
		log.displayNL("  Module full name : '%s'", getModuleFullyQualifiedName().c_str());
		log.displayNL("  Module class     : '%s'", _ModuleFactory->getModuleClassName().c_str());
		log.displayNL("  Module ID        : %u", _ModuleId);
		log.displayNL("  The module is plugged into %u sockets :", _ModuleSockets.size());
		{
			TModuleSockets::iterator first(_ModuleSockets.begin()), last(_ModuleSockets.end());
			for (; first != last; ++first)
			{
				IModuleSocket *ps = *first;
				vector<IModuleProxy*>	proxies;
				ps->getModuleList(proxies);

				log.displayNL("    Socket '%s', %u modules reachable :", ps->getSocketName().c_str(), proxies.size()-1);

				for (uint i=0; i<proxies.size(); ++i)
				{
					string name = proxies[i]->getModuleName();
					if (name.find('/') != string::npos)
						name = name.substr(name.find('/')+1);
					if (name != getModuleFullyQualifiedName())
					{
						log.displayNL("      Module '%s' (Module Proxy ID : %u, class : '%s')",
							proxies[i]->getModuleName().c_str(),
							proxies[i]->getModuleProxyId(),
							proxies[i]->getModuleClassName().c_str());
					}
				}
			}
		}

		return true;
	}


	/************************************************************************
	 * CModuleProxy impl
	 ************************************************************************/

	CModuleProxy::CModuleProxy(TModulePtr localModule, TModuleId localModuleId, const std::string &moduleClassName, const std::string &fullyQualifiedModuleName, const std::string &moduleManifest)
		: _ModuleProxyId(localModuleId),
		  _ForeignModuleId(INVALID_MODULE_ID),
		  _LocalModule(localModule),
		  _ModuleClassName(CStringMapper::map(moduleClassName)),
		  _FullyQualifiedModuleName(CStringMapper::map(fullyQualifiedModuleName)),
		  _Manifest(moduleManifest),
		  _SecurityData(NULL)
	{
	}

	TModuleId	CModuleProxy::getModuleProxyId() const
	{
		return _ModuleProxyId;
	}

	TModuleId	CModuleProxy::getForeignModuleId() const
	{
		return _ForeignModuleId;
	}

	uint32		CModuleProxy::getModuleDistance() const
	{
		return _Distance;
	}

	IModule				*CModuleProxy::getLocalModule() const
	{
		return _LocalModule;
	}

	CGatewayRoute		*CModuleProxy::getGatewayRoute() const
	{
		return _Route;
	}

	const std::string &CModuleProxy::getModuleName() const
	{
		return CStringMapper::unmap(_FullyQualifiedModuleName);
	}
	const std::string &CModuleProxy::getModuleClassName() const
	{
		return CStringMapper::unmap(_ModuleClassName);
	}

	const std::string &CModuleProxy::getModuleManifest() const
	{
		return _Manifest;
	}


	IModuleGateway *CModuleProxy::getModuleGateway() const
	{
		return _Gateway;
	}

	void		CModuleProxy::sendModuleMessage(IModule *senderModule, const NLNET::CMessage &message)
		throw (EModuleNotReachable)
	{
		H_AUTO(CModuleProxy_sendModuleMessage);

		if (_Gateway == NULL )
		{
			throw EModuleNotReachable();
		}

		// We need to find the proxy for the sender using the addressee gateway
		IModuleProxy *senderProx = _Gateway->getPluggedModuleProxy(senderModule);
		if (senderProx == NULL )
		{
			throw EModuleNotReachable();
		}

		_Gateway->sendModuleMessage(senderProx, this, message);
	}

	const TSecurityData *CModuleProxy::findSecurityData(uint8 dataTag) const
	{
		const TSecurityData *ms = _SecurityData;

		while (ms != NULL)
		{
			if (ms->DataTag == dataTag)
			{
				// this block match !
				return ms;
			}

			// try the next one
			ms = ms->NextItem;
		}

		// not found
		return NULL;
	}


} // namespace NLNET