/*
 *   Copyright (C) 2010,2011,2012 by Jonathan Naylor G4KLX
 *   Copyright (c) 2017 by Thomas A. Early N7TAE
 *   Copyright (c) 2021 by Geoffrey Merck F4FXL / KC3FRA
 *
 *   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., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

#include <string>
#include <sstream>
#include <iostream>

#include "Utils.h"
#include "DStarGatewayConfig.h"
#include "DStarDefines.h"
#include "Log.h"

CDStarGatewayConfig::CDStarGatewayConfig(const std::string &pathname)
: m_fileName(pathname)
{

}

bool CDStarGatewayConfig::load()
{
	CLog::logInfo("Loading configuration from %s", m_fileName.c_str());
	Config cfg;
	if(open(cfg)
	&& loadGateway(cfg)
	&& loadIrcDDB(cfg)
	&& loadRepeaters(cfg)
	&& loadPaths(cfg)
	&& loadAPRS(cfg)
	&& loadDextra(cfg)
	&& loadDCS(cfg)
	&& loadDPlus(cfg)
	&& loadRemote(cfg)
	&& loadXLX(cfg)) {

		//properly size values
		m_gateway.callsign.resize(LONG_CALLSIGN_LENGTH - 1U, ' ');
		m_gateway.callsign.push_back('G');
		
		return true;
	}

	CLog::logError("Loading configuration from %s failed", m_fileName.c_str());

	return false;
}

bool CDStarGatewayConfig::loadXLX(const Config & cfg)
{
	bool ret = get_value(cfg, "xlx.enabled", m_xlx.enabled, true);
	ret = get_value(cfg, "xlx.hostfileUrl", m_xlx.url, 0, 1024, "", false) && ret;

	return ret;
}

bool CDStarGatewayConfig::loadRemote(const Config & cfg)
{
	bool ret = get_value(cfg, "remote.enabled", m_remote.enabled, false);
	ret = get_value(cfg, "remote.port", m_remote.port, 1U, 65535U, 4242U) && ret;
	ret = get_value(cfg, "remote.password", m_remote.password, 0, 1024, "", true) && ret;

	m_remote.enabled = m_remote.enabled && !m_remote.password.empty();

	return ret;
}

bool CDStarGatewayConfig::loadDextra(const Config & cfg)
{
	bool ret = get_value(cfg, "dextra.enabled", m_dextra.enabled, true);
	ret = get_value(cfg, "dextra.maxDongles", m_dextra.maxDongles, 1U, 5U, 5U) && ret;
	return ret;
}

bool CDStarGatewayConfig::loadDPlus(const Config & cfg)
{
	bool ret = get_value(cfg, "dplus.enabled", m_dplus.enabled, true);
	ret = get_value(cfg, "dplus.maxDongles", m_dplus.maxDongles, 1U, 5U, 5U) && ret;
	ret = get_value(cfg, "dplus.maxDongles", m_dplus.login, 0, LONG_CALLSIGN_LENGTH, m_gateway.callsign, true) && ret;
	return ret;
}

bool CDStarGatewayConfig::loadDCS(const Config & cfg)
{
	bool ret = get_value(cfg, "dcs.enabled", m_dcs.enabled, true);
	return ret;
}

bool CDStarGatewayConfig::loadAPRS(const Config & cfg)
{
	bool ret = get_value(cfg, "aprs.enabled", m_aprs.enabled, false);
	ret = get_value(cfg, "aprs.port", m_aprs.port, 1U, 65535U, 14580U) && ret;
	ret = get_value(cfg, "aprs.hostname", m_aprs.hostname, 0, 1024, "rotate.aprs2.net", true) && ret;
	ret = get_value(cfg, "aprs.password", m_aprs.password, 0U, 30U, "", true) && ret;

	return ret;
}

bool CDStarGatewayConfig::loadPaths(const Config & cfg)
{
	get_value(cfg, "paths.log", m_paths.logDir, 0, 2048, "/var/log/dstargateway/", true);
	get_value(cfg, "paths.data", m_paths.dataDir, 0, 2048, "/var/log/dstargateway/", true);

	if(m_paths.logDir[m_paths.logDir.length() - 1] != '/') {
		m_paths.logDir.push_back('/');
	}

	if(m_paths.dataDir[m_paths.dataDir.length() - 1] != '/') {
		m_paths.dataDir.push_back('/');
	}

	//TODO 20211226 check if directory are accessible

	return true;
}

bool CDStarGatewayConfig::loadRepeaters(const Config & cfg)
{
	cfg.lookup("repeaters");
	// repeater parameters
	for (int i=0; i<cfg.lookup("repeaters").getLength(); i++) {
		std::stringstream key;
		bool isOk = false;
		TRepeater * repeater = new TRepeater;
		key << "repeaters.[" << i << "]";

		if (get_value(cfg, key.str() + ".callsign", repeater->callsign, 0, 7, m_gateway.callsign, true)) {
			CUtils::ToUpper(repeater->callsign);
		}

		if(get_value(cfg, key.str() + ".band", repeater->band, 1, 1, "A")) {
			CUtils::ToUpper(repeater->band);
		}

		if (get_value(cfg, key.str() + ".address", repeater->address, 0, 15, "127.0.0.1", true)) {
			// ???
		}

		if(get_value(cfg, key.str() + ".port", repeater->port, 1U, 65535U, 20011U)) {
			// ???
		}

		std::string hwType;
		if(get_value(cfg, key.str() + ".type", hwType, 1, 5, "", false, {"hb", "icom"} )) {
			if(hwType == "hb") repeater->hwType = HW_HOMEBREW;
			else if(hwType == "icom") repeater->hwType = HW_ICOM;
		}

		if (get_value(cfg, key.str() + ".reflector", repeater->reflector, 0, LONG_CALLSIGN_LENGTH, "", true)) {
			// ???
		}

		if (get_value(cfg, key.str() + ".reflectorAtStartup", repeater->reflectorAtStartup, true)) {
			// ???
		}

		std::string reconnect;
		if (get_value(cfg, key.str() + ".reflectorReconnect", reconnect, 0, 5, "never", true,
						{"never", "fixed", "5", "10", "15", "20", "25", "30", "60", "90", "120", "180"})) {
			if(reconnect == "never") repeater->reflectorReconnect = RECONNECT_NEVER;
			else if(reconnect == "5") repeater->reflectorReconnect = RECONNECT_5MINS;
			else if(reconnect == "10") repeater->reflectorReconnect = RECONNECT_10MINS;
			else if(reconnect == "15") repeater->reflectorReconnect = RECONNECT_15MINS;
			else if(reconnect == "20") repeater->reflectorReconnect = RECONNECT_20MINS;
			else if(reconnect == "25") repeater->reflectorReconnect = RECONNECT_25MINS;
			else if(reconnect == "30") repeater->reflectorReconnect = RECONNECT_30MINS;
			else if(reconnect == "60") repeater->reflectorReconnect = RECONNECT_60MINS;
			else if(reconnect == "90") repeater->reflectorReconnect = RECONNECT_90MINS;
			else if(reconnect == "120") repeater->reflectorReconnect = RECONNECT_120MINS;
			else if(reconnect == "180") repeater->reflectorReconnect = RECONNECT_180MINS;
			else if(reconnect == "fixed") repeater->reflectorReconnect = RECONNECT_FIXED;
		}
		
		if(get_value(cfg, key.str() + ".frequency", repeater->frequency, 0.0, 1500.0, 434.0)) {
			// ???
		}

		if(get_value(cfg, key.str() + ".offset", repeater->offset, 0.0, 50.0, 0.0)) {
			// ???
		}

		if(get_value(cfg, key.str() + ".rangeKm", repeater->range, 0.0, 3000.0, 0.0)) {
			// ???
		}

		if(get_value(cfg, key.str() + ".latitude", repeater->latitude, -90, 90.0, m_gateway.latitude)) {
			// ???
		}

		if(get_value(cfg, key.str() + ".longitude", repeater->longitude, -180, 180.0, m_gateway.longitude)) {
			// ???
		}

		if(get_value(cfg, key.str() + ".agl", repeater->agl, 0, 1000.0, 0.0)) {
			// ???
		}

		if(get_value(cfg, key.str() + ".description1", m_gateway.description1, 0, 1024, "")) {
			// ???
		}

		if(get_value(cfg, key.str() + ".description2", m_gateway.description2, 0, 1024, "")) {
			// ???
		}

		if(get_value(cfg, key.str() + ".url", m_gateway.url, 0, 1024, "")) {
			// ???
		}

		int band;
		if(get_value(cfg, key.str() + ".band1", band, 0, 255, 0)) {
			repeater->band1 = (unsigned char)band;
		}
		if(get_value(cfg, key.str() + ".band2", band, 0, 255, 0)) {
			repeater->band2 = (unsigned char)band;
		}
		if(get_value(cfg, key.str() + ".band3", band, 0, 255, 0)) {
			repeater->band3 = (unsigned char)band;
		}

		// We have read a complete repeater record, validate it
		if(repeater->callsign.length() > 0) {
			isOk = true;
		}
		else {
			CLog::logError("Repeater %d has an empty callsign", i);
		}
		
		if (isOk && !isalpha(repeater->band[0])) {
			isOk = false;
			CLog::logError("Repeater %s band is not a letter", i);
		}

		if (isOk && repeater->address.length() == 0) {
			isOk = false;
		}

		if(!isOk) {
			delete repeater;
		} else {
			m_repeaters.push_back(repeater);
		}
	}

	return m_repeaters.size() > 0;
}

bool CDStarGatewayConfig::loadIrcDDB(const Config & cfg)
{
	//ircDDB Networks
	for(int i = 0; i < cfg.lookup("ircddb").getLength(); i++) {
		TircDDB * ircddb = new TircDDB();
		std::stringstream key;
		key << "ircddb.[" << i << "].hostname";
		if(! get_value(cfg, key.str(), ircddb->hostname, 5, 30, "") || ircddb->hostname == "") {//do not allow hostname to be empty
			delete ircddb;
			continue;
		}

		key.str("");key.clear();
		key << "ircddb.[" << i << "].username";
		if (! get_value(cfg, key.str(), ircddb->username, 3, 8, m_gateway.callsign)) {//default user name to callsign
			delete ircddb;
			continue;
		}
		CUtils::ToUpper(ircddb->username);

		key.str("");key.clear();
		key << "ircddb.[" << i << "].password";
		if(!get_value(cfg, key.str(), ircddb->password, 0, 30, "")) {
			delete ircddb;
			continue;
		}

		ircddb->isQuadNet = ircddb->hostname.find("openquad.net") != std::string::npos;
		this->m_ircDDB.push_back(ircddb);
	}

	if(this->m_ircDDB.size() == 0) {//no ircddb network specified? Default to openquad!
		TircDDB * ircddb  = new TircDDB();
		ircddb->hostname  = "ipv4.openquad.net";
		ircddb->password  = "";
		ircddb->username  = m_gateway.callsign;
		ircddb->isQuadNet = true;
		this->m_ircDDB.push_back(ircddb);
		CLog::logError("No ircDDB networks configured, defaulting to IRCDDB: host=%s user=%s", ircddb->hostname.c_str(), ircddb->username.c_str());
	}

	return true;
}

bool CDStarGatewayConfig::loadGateway(const Config & cfg)
{
	bool ret = get_value(cfg, "gateway.callsign", m_gateway.callsign, 3, 8, "");
	get_value(cfg, "gateway.address", m_gateway.address, 0, 20, "0.0.0.0", true) && ret;
	get_value(cfg, "gateway.hbaddress", m_gateway.hbAddress, 0, 20, "127.0.0.1", true) && ret;
	get_value(cfg, "gateway.hbport", m_gateway.hbPort, 1U, 65535U, 20010U) && ret;
	get_value(cfg, "gateway.icomAddress", m_gateway.icomAddress, 0, 20, "127.0.0.1", true) && ret;
	get_value(cfg, "gateway.icomPort", m_gateway.icomPort, 1U, 65535U, 20000U) && ret;
	get_value(cfg, "gateway.latitude", m_gateway.latitude, -90.0, 90.0, 0.0) && ret;
	get_value(cfg, "gateway.longitude", m_gateway.longitude, -180.0, 180.0, 0.0) && ret;
	get_value(cfg, "gateway.description1", m_gateway.description1, 0, 1024, "") && ret;
	get_value(cfg, "gateway.description2", m_gateway.description2, 0, 1024, "") && ret;
	get_value(cfg, "gateway.url", m_gateway.url, 0, 1024, "") && ret;
	
	std::string type;
	get_value(cfg, "gateway.type", type, 0, 8, "repeater", true, {"repeater", "hotspot"}) && ret;
	if(type == "repeater") m_gateway.type = GT_REPEATER;
	if(type == "hotspot") m_gateway.type = GT_HOTSPOT;

	std::string lang;
	get_value(cfg, "gateway.language", lang, 0, 30, "english_uk", true, {"english_uk", "deutsch", "dansk", "francais", "italiano", "polski", "english_us", "espanol", "svenska", "nederlands_nl", "nederlands_be", "norsk", "portugues"});
	if(lang == "english_uk") m_gateway.language = TL_ENGLISH_UK;
	else if(lang == "deutsch") m_gateway.language = TL_DEUTSCH;
	else if(lang == "dansk") m_gateway.language = TL_DANSK;
	else if(lang == "francais") m_gateway.language = TL_FRANCAIS;
	else if(lang == "italiano") m_gateway.language = TL_ITALIANO;
	else if(lang == "polski") m_gateway.language = TL_POLSKI;
	else if(lang == "english_us") m_gateway.language = TL_ENGLISH_US;
	else if(lang == "espanol") m_gateway.language = TL_ESPANOL;
	else if(lang == "svenska") m_gateway.language = TL_SVENSKA;
	else if(lang == "nederlands_nl") m_gateway.language = TL_NEDERLANDS_NL;
	else if(lang == "nederlands_be") m_gateway.language = TL_NEDERLANDS_BE;
	else if(lang == "norsk") m_gateway.language = TL_NORSK;
	else if(lang == "portugues") m_gateway.language = TL_PORTUGUES;

	CUtils::ToUpper(m_gateway.callsign);
	CUtils::clean(m_gateway.description1, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .,&*()-+=@/?:;");
	CUtils::clean(m_gateway.description2, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .,&*()-+=@/?:;");
	CUtils::clean(m_gateway.url, 		  "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 .,&*()-+=@/?:;");

	return true;
}

bool CDStarGatewayConfig::open(Config & cfg)
{
	if (m_fileName.size() < 1) {
		CLog::logError("Configuration filename too short!\n");
		return false;
	}

	try {
		cfg.readFile(m_fileName.c_str());
	}
	catch(const FileIOException &fioex) {
		CLog::logError("Can't read %s\n", m_fileName.c_str());
		return false;
	}
	catch(const ParseException &pex) {
		CLog::logError("Parse error at %s:%d - %s\n", pex.getFile(), pex.getLine(), pex.getError());
		return false;
	}

	return true;
}

CDStarGatewayConfig::~CDStarGatewayConfig()
{
	while (m_repeaters.size()) {
		delete m_repeaters.back();
		m_repeaters.pop_back();
	}

	while(m_ircDDB.size()) {
		delete m_ircDDB.back();
		m_ircDDB.pop_back();
	}
}

bool CDStarGatewayConfig::get_value(const Config &cfg, const std::string &path, unsigned int &value, unsigned int min, unsigned int max, unsigned int default_value)
{
	value = default_value;
	int valueTmp;
	if(get_value(cfg, path, valueTmp, (int)min, (int)max, (int)default_value)
		&& valueTmp >= 0) {
			value = valueTmp;
	}

	return true;
}

bool CDStarGatewayConfig::get_value(const Config &cfg, const std::string &path, int &value, int min, int max, int default_value)
{
	if (cfg.lookupValue(path, value)) {
		if (value < min || value > max)
			value = default_value;
	} else
		value = default_value;
	return true;
}

bool CDStarGatewayConfig::get_value(const Config &cfg, const std::string &path, double &value, double min, double max, double default_value)
{
	if (cfg.lookupValue(path, value)) {
		if (value < min || value > max)
			value = default_value;
	} else
		value = default_value;
	return true;
}

bool CDStarGatewayConfig::get_value(const Config &cfg, const std::string &path, bool &value, bool default_value)
{
	if (! cfg.lookupValue(path, value))
		value = default_value;
	return true;
}

bool CDStarGatewayConfig::get_value(const Config &cfg, const std::string &path, std::string &value, int min, int max, const std::string &default_value)
{
	return get_value(cfg, path, value, min, max, default_value, false);
}

bool CDStarGatewayConfig::get_value(const Config &cfg, const std::string &path, std::string &value, int min, int max, const std::string &default_value, bool emptyToDefault)
{
	if (cfg.lookupValue(path, value)) {
		int l = value.length();
		if (l<min || l>max) {
			CLog::logWarning("%s has an invalid length, must be between %d and %d, actual %d", path.c_str(), min, max, l);
			return false;
		}
	} else
		value = default_value;

	if(emptyToDefault && value.length() == 0) {
		value = default_value;
	}

	return true;
}

bool CDStarGatewayConfig::get_value(const Config &cfg, const std::string &path, std::string &value, int min, int max, const std::string &default_value, bool emptyToDefault, const std::vector<std::string>& allowedValues)
{
	bool ret = get_value(cfg, path, value, min, max, default_value, emptyToDefault);

	if(ret) {
		for(std::string s : allowedValues) {
			if(s == value) {
				ret = true;
				break;
			}
		}
	}

	if(!ret) {
		std::stringstream message;
		message << path << "=" << value << " has an invalid value. Valid values are : ";
		for(std::string s : allowedValues) {
			message << s << ", ";
		}
		CLog::logWarning(message.str());
	}

	return ret;
}

void CDStarGatewayConfig::getGateway(TGateway & gateway) const
{
	gateway = m_gateway;
}

void CDStarGatewayConfig::getIrcDDB(unsigned int ircddb, TircDDB & ircDDB) const
{
	ircDDB = *(m_ircDDB[ircddb]);
}

unsigned int CDStarGatewayConfig::getRepeaterCount() const
{
	return m_repeaters.size();
}

unsigned int CDStarGatewayConfig::getIrcDDBCount() const
{
	return m_ircDDB.size();
}

void CDStarGatewayConfig::getRepeater(unsigned int index, TRepeater & repeater) const
{
	repeater = *(m_repeaters[index]);
}

void CDStarGatewayConfig::getPaths(Tpaths & paths) const
{
	paths = m_paths;
}

void CDStarGatewayConfig::getAPRS(TAPRS & aprs) const
{
	aprs = m_aprs;
}

void CDStarGatewayConfig::getDExtra(TDextra & dextra) const
{
	dextra = m_dextra;
}

void CDStarGatewayConfig::getDPlus(TDplus & dplus) const
{
	dplus = m_dplus;
}

void CDStarGatewayConfig::getDCS(TDCS & dcs) const
{
	dcs = m_dcs;
}

void CDStarGatewayConfig::getRemote(TRemote & remote) const
{
	remote = m_remote;
}

void CDStarGatewayConfig::getXLX(TXLX & xlx) const
{
	xlx = m_xlx;
}