/** @file
 * @author Edouard DUPIN
 * @copyright 2014, Edouard DUPIN, all right reserved
 * @license APACHE v2.0 (see license file)
 */

#include <appl/debug.hpp>
#include <zeus/Object.hpp>
#include <zeus/File.hpp>
#include <etk/etk.hpp>
#include <zeus/zeus.hpp>
#include <echrono/Time.hpp>

#include <mutex>
#include <ejson/ejson.hpp>
#include <etk/os/FSNode.hpp>
#include <sstream>

#include <etk/stdTools.hpp>

#include <zeus/service/Video.hpp>
#include <zeus/service/registerVideo.hpp>
#include <zeus/ProxyClientProperty.hpp>
#include <zeus/File.hpp>
#include <zeus/ProxyFile.hpp>

static std::mutex g_mutex;
static std::string g_basePath;
static std::string g_baseDBName = std::string(SERVICE_NAME) + "-database.json";
class FileProperty {
	public:
		uint64_t m_id; //!< use local reference ID to have faster access on the file ...
		std::string m_fileName; // Sha 512
		std::string m_name;
		std::string m_mineType;
		echrono::Time m_creationData;
		std::map<std::string, std::string> m_metadata;
};
static std::vector<FileProperty> m_listFile;

static uint64_t m_lastMaxId = 0;
static bool g_needToStore = false;

static uint64_t createUniqueID() {
	m_lastMaxId++;
	return m_lastMaxId;
}

namespace appl {
	class VideoService : public zeus::service::Video  {
		private:
			//ememory::SharedPtr<zeus::ClientProperty>& m_client;
			zeus::ProxyClientProperty m_client;
			std::string m_userName;
		public:
			/*
			VideoService(ememory::SharedPtr<zeus::ClientProperty>& _client, const std::string& _userName) :
			  m_client(_client),
			  m_userName(_userName) {
				APPL_WARNING("New VideoService ... for user: ");
			}
			*/
			VideoService(uint16_t _clientId) {
				APPL_VERBOSE("New VideoService ... for user: " << _clientId);
			}
			~VideoService() {
				APPL_VERBOSE("delete VideoService ...");
			}
		public:
			uint32_t mediaIdCount() override {
				std::unique_lock<std::mutex> lock(g_mutex);
				// TODO : Check right ...
				return m_listFile.size();
			}
			
			std::vector<uint32_t> mediaIdGet(uint32_t _start, uint32_t _stop) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				// TODO : Check right ...
				std::vector<uint32_t> out;
				for (size_t iii=_start; iii<m_listFile.size() && iii<_stop; ++iii) {
					out.push_back(m_listFile[iii].m_id);
				}
				return out;
			}
			// Return a File Data (might be a video .tiff/.png/.jpg)
			ememory::SharedPtr<zeus::File> mediaGet(uint32_t _mediaId) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				// TODO : Check right ...
				//Check if the file exist:
				bool find = false;
				FileProperty property;
				for (auto &it : m_listFile) {
					if (it.m_id == _mediaId) {
						find = true;
						property = it;
						break;
					}
				}
				if (find == false) {
					throw std::invalid_argument("Wrong file name ...");
				}
				return zeus::File::create(g_basePath + property.m_fileName + "." + zeus::getExtention(property.m_mineType), "", property.m_mineType);
			}
			uint32_t mediaAdd(zeus::ProxyFile _dataFile) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				// TODO : Check right ...
				uint64_t id = createUniqueID();
				
				auto futType = _dataFile.getMineType();
				auto futName = _dataFile.getName();
				std::string tmpFileName = g_basePath + "tmpImport_" + etk::to_string(id);
				std::string sha512String = zeus::storeInFile(_dataFile, tmpFileName);
				futType.wait();
				futName.wait();
				// TODO : Get internal data of the file and remove all the meta-data ==> proper files ...
				for (auto &it : m_listFile) {
					if (it.m_fileName == sha512String) {
						APPL_INFO("File already registered at " << it.m_creationData);
						// TODO : Check if data is identical ...
						// remove temporary file
						etk::FSNodeRemove(tmpFileName);
						return it.m_id;
					}
				}
				// move the file at the good position:
				APPL_DEBUG("move temporay file in : " << g_basePath << sha512String);
				if (etk::FSNodeGetSize(tmpFileName) == 0) {
					APPL_ERROR("try to store an empty file");
					throw std::runtime_error("file size == 0");
				}
				etk::FSNodeMove(tmpFileName, g_basePath + sha512String + "." + zeus::getExtention(futType.get()));
				FileProperty property;
				property.m_id = id;
				property.m_fileName = sha512String;
				property.m_name = futName.get();
				property.m_mineType = futType.get();
				property.m_creationData = echrono::Time::now();
				m_listFile.push_back(property);
				g_needToStore = true;
				APPL_DEBUG(" filename : " << sha512String);
				return id;
			}
			void mediaRemove(uint32_t _mediaId) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				// TODO : Check right ...
				//Check if the file exist:
				bool find = false;
				FileProperty property;
				for (auto it = m_listFile.begin();
				     it != m_listFile.end();
				     /* No increment */) {
					if (it->m_id == _mediaId) {
						it = m_listFile.erase(it);
						find = true;
						property = *it;
					} else {
						++it;
					}
				}
				if (find == false) {
					throw std::invalid_argument("Wrong file name ...");
				}
				// Real Remove definitly the file
				// TODO : Set it in a trash ... For a while ...
				if (etk::FSNodeRemove(g_basePath + property.m_fileName + "." + zeus::getExtention(property.m_mineType)) == false) {
					throw std::runtime_error("Can not remove file ...");
				}
			}
			
			std::vector<std::string> mediaMetadataGetKeys(uint32_t _mediaId) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				std::vector<std::string> out;
				for (auto &it : m_listFile) {
					if (it.m_id == _mediaId) {
						for (auto &itM : it.m_metadata) {
							out.push_back(itM.first);
						}
						return out;
					}
				}
				throw std::invalid_argument("Wrong KEY ID ...");
			}
			std::string mediaMetadataGetKey(uint32_t _mediaId, std::string _key) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				std::vector<std::string> out;
				for (auto &it : m_listFile) {
					if (it.m_id == _mediaId) {
						auto itM = it.m_metadata.find(_key);
						if (itM != it.m_metadata.end()) {
							return itM->second;
						}
						return "";
					}
				}
				throw std::invalid_argument("Wrong KEY ID ...");
			}
			void mediaMetadataSetKey(uint32_t _mediaId, std::string _key, std::string _value) override {
				APPL_INFO("[" << _mediaId << "] set key: '" << _key << "' value: '" << _value << "'");
				std::unique_lock<std::mutex> lock(g_mutex);
				for (auto &it : m_listFile) {
					if (it.m_id == _mediaId) {
						auto itM = it.m_metadata.find(_key);
						if (itM != it.m_metadata.end()) {
							itM->second = _value;
						} else {
							it.m_metadata.insert(std::make_pair(_key, _value));
						}
						return;
					}
				}
				throw std::invalid_argument("Wrong KEY ID ...");
			}
			std::vector<uint32_t> getMediaWhere(std::string _sqlLikeRequest) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				std::vector<uint32_t> out;
				if (_sqlLikeRequest == "") {
					throw std::invalid_argument("empty request");
				}
				std::vector<std::string> listAnd = etk::split(_sqlLikeRequest, "AND");
				APPL_INFO("Find list AND : ");
				for (auto &it : listAnd) {
					APPL_INFO("    - '" << it << "'");
				}
				
				return out;
			}
			
			std::vector<std::string> getMetadataValuesWhere(std::string _keyName, std::string _sqlLikeRequest) override {
				std::unique_lock<std::mutex> lock(g_mutex);
				std::vector<std::string> out;
				
				return out;
			}
			
	};
}

static void store_db() {
	APPL_ERROR("Store database [START]");
	ejson::Document database;
	ejson::Array listFilesArray;
	database.add("list-files", listFilesArray);
	for (auto &it : m_listFile) {
		ejson::Object fileElement;
		listFilesArray.add(fileElement);
		fileElement.add("id", ejson::Number(it.m_id));
		fileElement.add("file-name", ejson::String(it.m_fileName));
		fileElement.add("name", ejson::String(it.m_name));
		fileElement.add("mine-type", ejson::String(it.m_mineType));
		fileElement.add("add-date", ejson::Number(it.m_creationData.count()));
		if (it.m_metadata.size() != 0) {
			ejson::Object listMetadata;
			fileElement.add("meta", listMetadata);
			for (auto &itM : it.m_metadata) {
				listMetadata.add(itM.first, ejson::String(itM.second));
			}
		}
	}
	bool retGenerate = database.storeSafe(g_basePath + g_baseDBName);
	APPL_ERROR("Store database [STOP] : " << (g_basePath + g_baseDBName) << " ret = " << retGenerate);
	g_needToStore = false;
}

static void load_db() {
	ejson::Document database;
	bool ret = database.load(g_basePath + g_baseDBName);
	if (ret == false) {
		APPL_WARNING("    ==> LOAD error");
	}
	ejson::Array listFilesArray = database["list-files"].toArray();
	for (const auto itArray: listFilesArray) {
		ejson::Object fileElement = itArray.toObject();
		FileProperty property;
		property.m_id = fileElement["id"].toNumber().getU64();
		APPL_INFO("get ID : " << property.m_id);
		property.m_fileName = fileElement["file-name"].toString().get();
		property.m_name = fileElement["name"].toString().get();
		property.m_mineType = fileElement["mine-type"].toString().get();
		property.m_creationData = echrono::Time(fileElement["add-date"].toNumber().getU64()*1000);
		if (m_lastMaxId < property.m_id) {
			m_lastMaxId = property.m_id+1;
		}
		ejson::Object tmpObj = fileElement["meta"].toObject();
		if (tmpObj.exist() == true) {
			for (auto itValue = tmpObj.begin();
			     itValue != tmpObj.end();
			     ++itValue) {
				property.m_metadata.insert(std::make_pair(itValue.getKey(), (*itValue).toString().get()));
			}
		}
		if (property.m_fileName == "") {
			APPL_ERROR("Can not access on the file : ... No name ");
		} else {
			m_listFile.push_back(property);
		}
	}
	g_needToStore = false;
}

ETK_EXPORT_API bool SERVICE_IO_init(int _argc, const char *_argv[], std::string _basePath) {
	g_basePath = _basePath;
	std::unique_lock<std::mutex> lock(g_mutex);
	APPL_WARNING("Load USER: " << g_basePath);
	load_db();
	APPL_WARNING("new USER: [STOP]");
	return true;
}

ETK_EXPORT_API bool SERVICE_IO_uninit() {
	std::unique_lock<std::mutex> lock(g_mutex);
	store_db();
	APPL_WARNING("delete USER [STOP]");
	return true;
}

ETK_EXPORT_API void SERVICE_IO_peridic_call() {
	if (g_needToStore == false) {
		return;
	}
	// try lock mutex:
	if (g_mutex.try_lock() == false) {
		return;
	}
	store_db();
	g_mutex.unlock();
}


ZEUS_SERVICE_VIDEO_DECLARE(appl::VideoService);