/***************************************************************************
 *   Copyright (C) 2008 by Max-Wilhelm Bruker   *
 *   brukie@laptop   *
 *                                                                         *
 *   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.             *
 ***************************************************************************/
#include "servatrice.h"

#include "deck_list.h"
#include "email_parser.h"
#include "featureset.h"
#include "isl_interface.h"
#include "main.h"
#include "pb/event_connection_closed.pb.h"
#include "pb/event_server_message.pb.h"
#include "pb/event_server_shutdown.pb.h"
#include "servatrice_connection_pool.h"
#include "servatrice_database_interface.h"
#include "server_logger.h"
#include "server_room.h"
#include "serversocketinterface.h"
#include "settingscache.h"
#include "smtpclient.h"

#include <QDateTime>
#include <QDebug>
#include <QFile>
#include <QProcessEnvironment>
#include <QSqlQuery>
#include <QString>
#include <QStringList>
#include <QTimer>
#include <QUrl>
#include <iostream>

Servatrice_GameServer::Servatrice_GameServer(Servatrice *_server,
                                             int _numberPools,
                                             const QSqlDatabase &_sqlDatabase,
                                             QObject *parent)
    : QTcpServer(parent), server(_server)
{
    for (int i = 0; i < _numberPools; ++i) {
        auto newDatabaseInterface = new Servatrice_DatabaseInterface(i, server);
        auto newPool = new Servatrice_ConnectionPool(newDatabaseInterface);

        auto newThread = new QThread;
        newThread->setObjectName("pool_" + QString::number(i));
        newPool->moveToThread(newThread);
        newDatabaseInterface->moveToThread(newThread);
        server->addDatabaseInterface(newThread, newDatabaseInterface);

        newThread->start();
        QMetaObject::invokeMethod(newDatabaseInterface, "initDatabase", Qt::BlockingQueuedConnection,
                                  Q_ARG(QSqlDatabase, _sqlDatabase));

        connectionPools.append(newPool);
    }
}

Servatrice_GameServer::~Servatrice_GameServer()
{
    for (int i = 0; i < connectionPools.size(); ++i) {
        logger->logMessage(QString("Closing pool %1...").arg(i));
        QThread *poolThread = connectionPools[i]->thread();
        connectionPools[i]->deleteLater(); // pool destructor calls thread()->quit()
        poolThread->wait();
        poolThread->deleteLater();
    }
}

void Servatrice_GameServer::incomingConnection(qintptr socketDescriptor)
{
    Servatrice_ConnectionPool *pool = findLeastUsedConnectionPool();

    auto ssi = new TcpServerSocketInterface(server, pool->getDatabaseInterface());
    connect(ssi, SIGNAL(incTxBytes(qint64)), this, SLOT(incTxBytes(qint64)));
    ssi->moveToThread(pool->thread());
    pool->addClient();
    connect(ssi, SIGNAL(destroyed()), pool, SLOT(removeClient()));

    QMetaObject::invokeMethod(ssi, "initConnection", Qt::QueuedConnection, Q_ARG(int, socketDescriptor));
}

Servatrice_ConnectionPool *Servatrice_GameServer::findLeastUsedConnectionPool()
{
    int minClientCount = -1;
    int poolIndex = -1;
    QStringList debugStr;
    for (int i = 0; i < connectionPools.size(); ++i) {
        const int clientCount = connectionPools[i]->getClientCount();
        if ((poolIndex == -1) || (clientCount < minClientCount)) {
            minClientCount = clientCount;
            poolIndex = i;
        }
        debugStr.append(QString::number(clientCount));
    }
    qDebug().noquote() << "Pool utilisation:" << debugStr.join(", ");
    return connectionPools[poolIndex];
}

#define WEBSOCKET_POOL_NUMBER 999

Servatrice_WebsocketGameServer::Servatrice_WebsocketGameServer(Servatrice *_server,
                                                               int _numberPools,
                                                               const QSqlDatabase &_sqlDatabase,
                                                               QObject *parent)
    : QWebSocketServer("Servatrice", QWebSocketServer::NonSecureMode, parent), server(_server)
{
    for (int i = 0; i < _numberPools; ++i) {
        int poolNumber = WEBSOCKET_POOL_NUMBER + i;
        auto newDatabaseInterface = new Servatrice_DatabaseInterface(poolNumber, server);
        auto newPool = new Servatrice_ConnectionPool(newDatabaseInterface);

        auto newThread = new QThread;
        newThread->setObjectName("pool_" + QString::number(poolNumber));
        newPool->moveToThread(newThread);
        newDatabaseInterface->moveToThread(newThread);
        server->addDatabaseInterface(newThread, newDatabaseInterface);

        newThread->start();
        QMetaObject::invokeMethod(newDatabaseInterface, "initDatabase", Qt::BlockingQueuedConnection,
                                  Q_ARG(QSqlDatabase, _sqlDatabase));

        connectionPools.append(newPool);

        connect(this, SIGNAL(newConnection()), this, SLOT(onNewConnection()));
    }
}

Servatrice_WebsocketGameServer::~Servatrice_WebsocketGameServer()
{
    for (int i = 0; i < connectionPools.size(); ++i) {
        logger->logMessage(QString("Closing websocket pool %1...").arg(i));
        QThread *poolThread = connectionPools[i]->thread();
        connectionPools[i]->deleteLater(); // pool destructor calls thread()->quit()
        poolThread->wait();
        poolThread->deleteLater();
    }
}

void Servatrice_WebsocketGameServer::onNewConnection()
{
    Servatrice_ConnectionPool *pool = findLeastUsedConnectionPool();

    auto ssi = new WebsocketServerSocketInterface(server, pool->getDatabaseInterface());
    connect(ssi, SIGNAL(incTxBytes(quint64)), this, SLOT(incTxBytes(quint64)));
    /*
     * Due to a Qt limitation, websockets can't be moved to another thread.
     * This will hopefully change in Qt6 if QtWebSocket will be integrated in QtNetwork
     */
    // ssi->moveToThread(pool->thread());
    pool->addClient();
    connect(ssi, SIGNAL(destroyed()), pool, SLOT(removeClient()));

    QMetaObject::invokeMethod(ssi, "initConnection", Qt::QueuedConnection, Q_ARG(void *, nextPendingConnection()));
}

Servatrice_ConnectionPool *Servatrice_WebsocketGameServer::findLeastUsedConnectionPool()
{
    int minClientCount = -1;
    int poolIndex = -1;
    QStringList debugStr;
    for (int i = 0; i < connectionPools.size(); ++i) {
        const int clientCount = connectionPools[i]->getClientCount();
        if ((poolIndex == -1) || (clientCount < minClientCount)) {
            minClientCount = clientCount;
            poolIndex = i;
        }
        debugStr.append(QString::number(clientCount));
    }
    qDebug().noquote() << "Pool utilisation:" << debugStr.join(", ");
    return connectionPools[poolIndex];
}

void Servatrice_IslServer::incomingConnection(qintptr socketDescriptor)
{
    auto thread = new QThread;
    connect(thread, SIGNAL(finished()), thread, SLOT(deleteLater()));

    auto interface = new IslInterface(static_cast<int>(socketDescriptor), cert, privateKey, server);
    interface->moveToThread(thread);
    connect(interface, SIGNAL(destroyed()), thread, SLOT(quit()));

    thread->start();
    QMetaObject::invokeMethod(interface, "initServer", Qt::QueuedConnection);
}

Servatrice::Servatrice(QObject *parent)
    : Server(parent), authenticationMethod(AuthenticationNone), uptime(0), txBytes(0), rxBytes(0),
      shutdownTimer(nullptr)
{
    qRegisterMetaType<QSqlDatabase>("QSqlDatabase");
}

Servatrice::~Servatrice()
{
    gameServer->close();

    // we are destroying the clients outside their thread!
    for (auto *client : clients) {
        client->prepareDestroy();
    }

    if (shutdownTimer) {
        shutdownTimer->deleteLater();
    }

    servatriceDatabaseInterface->deleteLater();
    prepareDestroy();
}

bool Servatrice::initServer()
{

    serverId = getServerID();
    if (getAuthenticationMethodString() == "sql") {
        qDebug() << "Authenticating method: sql";
        authenticationMethod = AuthenticationSql;
    } else if (getAuthenticationMethodString() == "password") {
        qDebug() << "Authenticating method: password";
        authenticationMethod = AuthenticationPassword;
    } else {
        if (getRegOnlyServerEnabled()) {
            qDebug() << "Registration only server enabled but no authentication method defined: Error.";
            return false;
        }
        qDebug() << "Authenticating method: none";
        authenticationMethod = AuthenticationNone;
    }

    qDebug() << "Store Replays:" << getStoreReplaysEnabled();
    qDebug() << "Client ID Required:" << getClientIDRequiredEnabled();
    qDebug() << "Maximum user limit enabled:" << getMaxUserLimitEnabled();

    if (getMaxUserLimitEnabled()) {
        qDebug() << "Maximum total user limit:" << getMaxUserTotal();
        qDebug() << "Maximum tcp user limit:" << getMaxTcpUserLimit();
        qDebug() << "Maximum websocket user limit:" << getMaxWebSocketUserLimit();
    }

    qDebug() << "Accept registered users only:" << getRegOnlyServerEnabled();
    qDebug() << "Registration enabled:" << getRegistrationEnabled();
    if (getRegistrationEnabled()) {
#if (QT_VERSION >= QT_VERSION_CHECK(5, 14, 0))
        QStringList emailBlackListFilters = getEmailBlackList().split(",", Qt::SkipEmptyParts);
        QStringList emailWhiteListFilters = getEmailWhiteList().split(",", Qt::SkipEmptyParts);
#else
        QStringList emailBlackListFilters = getEmailBlackList().split(",", QString::SkipEmptyParts);
        QStringList emailWhiteListFilters = getEmailWhiteList().split(",", QString::SkipEmptyParts);
#endif
        qDebug() << "Email blacklist:" << emailBlackListFilters;
        qDebug() << "Email whitelist:" << emailWhiteListFilters;
        qDebug() << "Require email address to register:" << getRequireEmailForRegistrationEnabled();
        qDebug() << "Require email activation via token:" << getRequireEmailActivationEnabled();
        if (getMaxAccountsPerEmail()) {
            qDebug() << "Maximum number of accounts per email:" << getMaxAccountsPerEmail();
        } else {
            qDebug() << "Maximum number of accounts per email: unlimited";
        }
        qDebug() << "Enable Internal SMTP Client:" << getEnableInternalSMTPClient();
        if (!getEnableInternalSMTPClient()) {
            qDebug() << "WARNING: Registrations are enabled but internal SMTP client is disabled.  Users activation "
                        "emails will not be automatically mailed to users!";
        }
    }

    qDebug() << "Reset password enabled:" << getEnableForgotPassword();
    if (getEnableForgotPassword()) {
        qDebug() << "Reset password token life (in minutes):" << getForgotPasswordTokenLife();
        qDebug() << "Reset password challenge on:" << getEnableForgotPasswordChallenge();
    }

    qDebug() << "Auditing enabled:" << getEnableAudit();
    if (getEnableAudit()) {
        qDebug() << "Audit registration attempts enabled:" << getEnableRegistrationAudit();
        qDebug() << "Audit reset password attepts enabled:" << getEnableForgotPasswordAudit();
    }

    if (getDBTypeString() == "mysql") {
        databaseType = DatabaseMySql;
    } else {
        databaseType = DatabaseNone;
    }
    servatriceDatabaseInterface = new Servatrice_DatabaseInterface(-1, this);
    setDatabaseInterface(servatriceDatabaseInterface);

    if (databaseType != DatabaseNone) {
        dbPrefix = getDBPrefixString();
        bool dbOpened = servatriceDatabaseInterface->initDatabase(
            "QMYSQL", getDBHostNameString(), getDBDatabaseNameString(), getDBUserNameString(), getDBPasswordString());
        if (!dbOpened) {
            qDebug() << "Failed to open database";
            return false;
        }
        updateServerList();
        qDebug() << "Clearing previous sessions...";
        servatriceDatabaseInterface->clearSessionTables();
    }

    if (getRoomsMethodString() == "sql") {
        QSqlQuery *query = servatriceDatabaseInterface->prepareQuery(
            "select id, name, descr, permissionlevel, privlevel, auto_join, join_message, chat_history_size from "
            "{prefix}_rooms where id_server = :id_server order by id asc");
        query->bindValue(":id_server", serverId);
        servatriceDatabaseInterface->execSqlQuery(query);
        while (query->next()) {
            QSqlQuery *query2 = servatriceDatabaseInterface->prepareQuery(
                "select name from {prefix}_rooms_gametypes where id_room = :id_room AND id_server = :id_server");
            query2->bindValue(":id_server", serverId);
            query2->bindValue(":id_room", query->value(0).toInt());
            servatriceDatabaseInterface->execSqlQuery(query2);
            QStringList gameTypes;
            while (query2->next())
                gameTypes.append(query2->value(0).toString());
            addRoom(new Server_Room(query->value(0).toInt(), query->value(7).toInt(), query->value(1).toString(),
                                    query->value(2).toString(), query->value(3).toString().toLower(),
                                    query->value(4).toString().toLower(), static_cast<bool>(query->value(5).toInt()),
                                    query->value(6).toString(), gameTypes, this));
        }
    } else {
        int size = settingsCache->beginReadArray("rooms/roomlist");
        for (int i = 0; i < size; ++i) {
            settingsCache->setArrayIndex(i);
            QStringList gameTypes;
            int size2 = settingsCache->beginReadArray("game_types");
            for (int j = 0; j < size2; ++j) {
                settingsCache->setArrayIndex(j);
                gameTypes.append(settingsCache->value("name").toString());
            }
            settingsCache->endArray();
            Server_Room *newRoom = new Server_Room(
                i, settingsCache->value("chathistorysize").toInt(), settingsCache->value("name").toString(),
                settingsCache->value("description").toString(),
                settingsCache->value("permissionlevel").toString().toLower(),
                settingsCache->value("privilegelevel").toString().toLower(), settingsCache->value("autojoin").toBool(),
                settingsCache->value("joinmessage").toString(), gameTypes, this);
            addRoom(newRoom);
        }

        if (size == 0) {
            // no room defined in config, add a dummy one
            Server_Room *newRoom = new Server_Room(0, 100, "General room", "Play anything here.", "none", "none", true,
                                                   "", QStringList("Standard"), this);
            addRoom(newRoom);
        }

        settingsCache->endArray();
    }

    updateLoginMessage();

    try {
        if (getISLNetworkEnabled()) {
            qDebug() << "Connecting to ISL network.";
            qDebug() << "Loading certificate...";
            QFile certFile(getISLNetworkSSLCertFile());
            if (!certFile.open(QIODevice::ReadOnly))
                throw QString("Error opening certificate file: %1").arg(getISLNetworkSSLCertFile());
            QSslCertificate cert(&certFile);

            const QDateTime currentTime = QDateTime::currentDateTime();
            if (currentTime < cert.effectiveDate() || currentTime > cert.expiryDate() || cert.isBlacklisted())
                throw QString("Invalid certificate.");

            qDebug() << "Loading private key...";
            QFile keyFile(getISLNetworkSSLKeyFile());
            if (!keyFile.open(QIODevice::ReadOnly))
                throw QString("Error opening private key file: %1").arg(getISLNetworkSSLKeyFile());
            QSslKey key(&keyFile, QSsl::Rsa, QSsl::Pem, QSsl::PrivateKey);
            if (key.isNull())
                throw QString("Invalid private key.");

            QMutableListIterator<ServerProperties> serverIterator(serverList);
            while (serverIterator.hasNext()) {
                const ServerProperties &prop = serverIterator.next();
                if (prop.cert == cert) {
                    serverIterator.remove();
                    continue;
                }

                auto *thread = new QThread;
                thread->setObjectName("isl_" + QString::number(prop.id));
                connect(thread, SIGNAL(finished()), thread, SLOT(deleteLater()));

                IslInterface *interface = new IslInterface(prop.id, prop.hostname, prop.address.toString(),
                                                           prop.controlPort, prop.cert, cert, key, this);
                interface->moveToThread(thread);
                connect(interface, SIGNAL(destroyed()), thread, SLOT(quit()));

                thread->start();
                QMetaObject::invokeMethod(interface, "initClient", Qt::BlockingQueuedConnection);
            }

            qDebug() << "Starting ISL server on port" << getISLNetworkPort();
            islServer = new Servatrice_IslServer(this, cert, key, this);
            if (islServer->listen(QHostAddress::Any, static_cast<quint16>(getISLNetworkPort())))
                qDebug() << "ISL server listening.";
            else
                throw QString("islServer->listen()");
        }
    } catch (QString &error) {
        qDebug() << "ERROR --" << error;
        return false;
    }

    pingClock = new QTimer(this);
    connect(pingClock, SIGNAL(timeout()), this, SIGNAL(pingClockTimeout()));
    pingClock->start(getClientKeepAlive() * 1000);

    statusUpdateClock = new QTimer(this);
    connect(statusUpdateClock, SIGNAL(timeout()), this, SLOT(statusUpdate()));
    if (getServerStatusUpdateTime() != 0) {
        qDebug() << "Starting status update clock, interval" << getServerStatusUpdateTime() << "ms";
        statusUpdateClock->start(getServerStatusUpdateTime());
    }

    // SOCKET SERVER
    if (getNumberOfTCPPools() > 0) {
        gameServer =
            new Servatrice_GameServer(this, getNumberOfTCPPools(), servatriceDatabaseInterface->getDatabase(), this);
        gameServer->setMaxPendingConnections(1000);
        QHostAddress tcpHost = getServerTCPHost();
        qDebug() << "Starting server on host" << tcpHost.toString() << "port" << getServerTCPPort();
        if (gameServer->listen(tcpHost, static_cast<quint16>(getServerTCPPort())))
            qDebug() << "Server listening.";
        else {
            qDebug() << "gameServer->listen(): Error:" << gameServer->errorString();
            return false;
        }
    }

    // WEBSOCKET SERVER
    if (getNumberOfWebSocketPools() > 0) {
        websocketGameServer = new Servatrice_WebsocketGameServer(this, getNumberOfWebSocketPools(),
                                                                 servatriceDatabaseInterface->getDatabase(), this);
        websocketGameServer->setMaxPendingConnections(1000);
        QHostAddress webSocketHost = getServerWebSocketHost();
        qDebug() << "Starting websocket server on host" << webSocketHost.toString() << "port"
                 << getServerWebSocketPort();
        if (websocketGameServer->listen(webSocketHost, static_cast<quint16>(getServerWebSocketPort())))
            qDebug() << "Websocket server listening.";
        else {
            qDebug() << "websocketGameServer->listen(): Error:" << websocketGameServer->errorString();
            return false;
        }
    }

    if (getIdleClientTimeout() > 0) {
        qDebug() << "Idle client timeout value:" << getIdleClientTimeout();
        if (getIdleClientTimeout() < 300)
            qDebug() << "WARNING: It is not recommended to set the IdleClientTimeout value very low.  Doing so will "
                        "cause clients to very quickly be disconnected.  Many players when connected may be searching "
                        "for card details outside the client in the middle of matches or possibly drafting outside the "
                        "client and short time out values will remove these players.";
    }

    setRequiredFeatures(getRequiredFeatures());
    return true;
}

void Servatrice::addDatabaseInterface(QThread *thread, Servatrice_DatabaseInterface *databaseInterface)
{
    databaseInterfaces.insert(thread, databaseInterface);
}

void Servatrice::updateServerList()
{
    qDebug() << "Updating server list...";

    serverListMutex.lock();
    serverList.clear();

    QSqlQuery *query = servatriceDatabaseInterface->prepareQuery(
        "select id, ssl_cert, hostname, address, game_port, control_port from {prefix}_servers order by id asc");
    servatriceDatabaseInterface->execSqlQuery(query);
    while (query->next()) {
        ServerProperties prop(query->value(0).toInt(), QSslCertificate(query->value(1).toString().toUtf8()),
                              query->value(2).toString(), QHostAddress(query->value(3).toString()),
                              query->value(4).toInt(), query->value(5).toInt());
        serverList.append(prop);
        qDebug() << QString("#%1 CERT=%2 NAME=%3 IP=%4:%5 CPORT=%6")
                        .arg(prop.id)
                        .arg(QString(prop.cert.digest().toHex()))
                        .arg(prop.hostname)
                        .arg(prop.address.toString())
                        .arg(prop.gamePort)
                        .arg(prop.controlPort);
    }

    serverListMutex.unlock();
}

QList<ServerProperties> Servatrice::getServerList() const
{
    serverListMutex.lock();
    QList<ServerProperties> result = serverList;
    serverListMutex.unlock();

    return result;
}

int Servatrice::getUsersWithAddress(const QHostAddress &address) const
{
    int result = 0;
    QReadLocker locker(&clientsLock);
    for (auto client : clients)
        if (static_cast<AbstractServerSocketInterface *>(client)->getPeerAddress() == address)
            ++result;

    return result;
}

QList<AbstractServerSocketInterface *> Servatrice::getUsersWithAddressAsList(const QHostAddress &address) const
{
    QList<AbstractServerSocketInterface *> result;
    QReadLocker locker(&clientsLock);
    for (auto client : clients)
        if (static_cast<AbstractServerSocketInterface *>(client)->getPeerAddress() == address)
            result.append(static_cast<AbstractServerSocketInterface *>(client));
    return result;
}

void Servatrice::updateLoginMessage()
{
    if (!servatriceDatabaseInterface->checkSql())
        return;

    QSqlQuery *query = servatriceDatabaseInterface->prepareQuery(
        "select message from {prefix}_servermessages where id_server = :id_server order by timest desc limit 1");
    query->bindValue(":id_server", serverId);
    if (servatriceDatabaseInterface->execSqlQuery(query))
        if (query->next()) {
            const QString newLoginMessage = query->value(0).toString();

            loginMessageMutex.lock();
            loginMessage = newLoginMessage;
            loginMessageMutex.unlock();

            Event_ServerMessage event;
            event.set_message(newLoginMessage.toStdString());
            SessionEvent *se = Server_ProtocolHandler::prepareSessionEvent(event);
            QMapIterator<QString, Server_ProtocolHandler *> usersIterator(users);
            while (usersIterator.hasNext())
                usersIterator.next().value()->sendProtocolItem(*se);
            delete se;
        }
}

void Servatrice::setRequiredFeatures(const QString &featureList)
{
    FeatureSet features;
    serverRequiredFeatureList.clear();
    features.initalizeFeatureList(serverRequiredFeatureList);
#if (QT_VERSION >= QT_VERSION_CHECK(5, 14, 0))
    QStringList listReqFeatures = featureList.split(",", Qt::SkipEmptyParts);
#else
    QStringList listReqFeatures = featureList.split(",", QString::SkipEmptyParts);
#endif
    if (!listReqFeatures.isEmpty())
        for (const QString &reqFeature : listReqFeatures) {
            features.enableRequiredFeature(serverRequiredFeatureList, reqFeature);
        }

    qDebug() << "Set required client features to:" << serverRequiredFeatureList;
}

void Servatrice::statusUpdate()
{
    if (!servatriceDatabaseInterface->checkSql())
        return;

    const int uc = getUsersCount(); // for correct mutex locking order

    const QStringList mods_info = getOnlineModeratorList();
    const int mc = mods_info.size();
    const QString ml = mods_info.join(", ");

    const int gc = getGamesCount();

    uptime += statusUpdateClock->interval() / 1000;

    txBytesMutex.lock();
    quint64 tx = txBytes;
    txBytes = 0;
    txBytesMutex.unlock();
    rxBytesMutex.lock();
    quint64 rx = rxBytes;
    rxBytes = 0;
    rxBytesMutex.unlock();

    QSqlQuery *query = servatriceDatabaseInterface->prepareQuery(
        "insert into {prefix}_uptime (id_server, timest, uptime, users_count, mods_count, mods_list, games_count, "
        "tx_bytes, rx_bytes) values(:id, NOW(), :uptime, :users_count, :mods_count, :mods_list, :games_count, :tx, "
        ":rx)");
    query->bindValue(":id", serverId);
    query->bindValue(":uptime", uptime);
    query->bindValue(":users_count", uc);
    query->bindValue(":mods_count", mc);
    query->bindValue(":mods_list", ml);
    query->bindValue(":games_count", gc);
    query->bindValue(":tx", tx);
    query->bindValue(":rx", rx);
    servatriceDatabaseInterface->execSqlQuery(query);

    if (getRegistrationEnabled() && getEnableInternalSMTPClient()) {
        if (getRequireEmailActivationEnabled()) {
            auto servDbSelQuery = servatriceDatabaseInterface->prepareQuery("select a.name, b.email, b.token from "
                                                                            "{prefix}_activation_emails a left join "
                                                                            "{prefix}_users b on a.name = b.name");
            if (!servatriceDatabaseInterface->execSqlQuery(servDbSelQuery))
                return;

            auto *queryDelete =
                servatriceDatabaseInterface->prepareQuery("delete from {prefix}_activation_emails where name = :name");

            while (servDbSelQuery->next()) {
                const QString userName = servDbSelQuery->value(0).toString();
                const auto emailAddress = EmailParser::getParsedEmailAddress(servDbSelQuery->value(1).toString());
                const QString token = servDbSelQuery->value(2).toString();

                if (smtpClient->enqueueActivationTokenMail(userName, emailAddress, token)) {
                    queryDelete->bindValue(":name", userName);
                    servatriceDatabaseInterface->execSqlQuery(queryDelete);
                }
            }
        }

        if (getEnableForgotPassword()) {
            auto *forgotPwQuery = servatriceDatabaseInterface->prepareQuery(
                "select a.name, b.email, b.token from {prefix}_forgot_password a left join {prefix}_users b on a.name "
                "= b.name where a.emailed = 0");
            if (!servatriceDatabaseInterface->execSqlQuery(forgotPwQuery))
                return;

            QSqlQuery *queryDelete = servatriceDatabaseInterface->prepareQuery(
                "update {prefix}_forgot_password set emailed = 1 where name = :name");

            while (forgotPwQuery->next()) {
                const QString userName = forgotPwQuery->value(0).toString();
                const auto emailAddress = EmailParser::getParsedEmailAddress(forgotPwQuery->value(1).toString());
                const QString token = forgotPwQuery->value(2).toString();

                if (smtpClient->enqueueForgotPasswordTokenMail(userName, emailAddress, token)) {
                    queryDelete->bindValue(":name", userName);
                    servatriceDatabaseInterface->execSqlQuery(queryDelete);
                }
            }
        }

        smtpClient->sendAllEmails();
    }
}

void Servatrice::scheduleShutdown(const QString &reason, int minutes)
{
    shutdownReason = reason;
    shutdownMinutes = minutes;
    nextShutdownMessageMinutes = shutdownMinutes;
    if (minutes > 0) {
        shutdownTimer = new QTimer;
        connect(shutdownTimer, SIGNAL(timeout()), this, SLOT(shutdownTimeout()));
        shutdownTimer->start(60000);
    }
    shutdownTimeout();
}

void Servatrice::incTxBytes(quint64 num)
{
    txBytesMutex.lock();
    txBytes += num;
    txBytesMutex.unlock();
}

void Servatrice::incRxBytes(quint64 num)
{
    rxBytesMutex.lock();
    rxBytes += num;
    rxBytesMutex.unlock();
}

void Servatrice::shutdownTimeout()
{
    // Show every time counter cut in half & every minute for last 5 minutes
    if (shutdownMinutes <= 5 || shutdownMinutes == nextShutdownMessageMinutes) {
        if (shutdownMinutes == nextShutdownMessageMinutes)
            nextShutdownMessageMinutes = shutdownMinutes / 2;

        SessionEvent *se;
        if (shutdownMinutes) {
            Event_ServerShutdown event;
            event.set_reason(shutdownReason.toStdString());
            event.set_minutes(static_cast<google::protobuf::uint32>(shutdownMinutes));
            se = Server_ProtocolHandler::prepareSessionEvent(event);
        } else {
            Event_ConnectionClosed event;
            event.set_reason(Event_ConnectionClosed::SERVER_SHUTDOWN);
            se = Server_ProtocolHandler::prepareSessionEvent(event);
        }

        clientsLock.lockForRead();
        for (auto &client : clients)
            client->sendProtocolItem(*se);
        clientsLock.unlock();
        delete se;

        if (!shutdownMinutes) {
            deleteLater();
        }
    }
    shutdownMinutes--;
}

bool Servatrice::islConnectionExists(int _serverId) const
{
    // Only call with islLock locked at least for reading
    return islInterfaces.contains(_serverId);
}

void Servatrice::addIslInterface(int _serverId, IslInterface *interface)
{
    // Only call with islLock locked for writing
    islInterfaces.insert(_serverId, interface);
    connect(interface, SIGNAL(externalUserJoined(ServerInfo_User)), this, SLOT(externalUserJoined(ServerInfo_User)));
    connect(interface, SIGNAL(externalUserLeft(QString)), this, SLOT(externalUserLeft(QString)));
    connect(interface, SIGNAL(externalRoomUserJoined(int, ServerInfo_User)), this,
            SLOT(externalRoomUserJoined(int, ServerInfo_User)));
    connect(interface, SIGNAL(externalRoomUserLeft(int, QString)), this, SLOT(externalRoomUserLeft(int, QString)));
    connect(interface, SIGNAL(externalRoomSay(int, QString, QString)), this,
            SLOT(externalRoomSay(int, QString, QString)));
    connect(interface, SIGNAL(externalRoomRemoveMessages(int, QString, int)), this,
            SLOT(externalRoomRemoveMessages(int, QString, int)));
    connect(interface, SIGNAL(externalRoomGameListChanged(int, ServerInfo_Game)), this,
            SLOT(externalRoomGameListChanged(int, ServerInfo_Game)));
    connect(interface, SIGNAL(joinGameCommandReceived(Command_JoinGame, int, int, int, qint64)), this,
            SLOT(externalJoinGameCommandReceived(Command_JoinGame, int, int, int, qint64)));
    connect(interface, SIGNAL(gameCommandContainerReceived(CommandContainer, int, int, qint64)), this,
            SLOT(externalGameCommandContainerReceived(CommandContainer, int, int, qint64)));
    connect(interface, SIGNAL(responseReceived(Response, qint64)), this,
            SLOT(externalResponseReceived(Response, qint64)));
    connect(interface, SIGNAL(gameEventContainerReceived(GameEventContainer, qint64)), this,
            SLOT(externalGameEventContainerReceived(GameEventContainer, qint64)));
}

void Servatrice::removeIslInterface(int _serverId)
{
    // Only call with islLock locked for writing
    // XXX we probably need to delete everything that belonged to it...  <-- THIS SHOULD BE FIXED FOR ISL FUNCTIONALITY
    // TO WORK COMPLETLY!
    islInterfaces.remove(_serverId);
}

void Servatrice::doSendIslMessage(const IslMessage &msg, int _serverId)
{
    QReadLocker locker(&islLock);

    if (_serverId == -1) {
        QMapIterator<int, IslInterface *> islIterator(islInterfaces);
        while (islIterator.hasNext())
            islIterator.next().value()->transmitMessage(msg);
    } else {
        IslInterface *interface = islInterfaces.value(_serverId);
        if (interface)
            interface->transmitMessage(msg);
    }
}

// start helper functions

int Servatrice::getMaxUserTotal() const
{
    return settingsCache->value("security/max_users_total", 500).toInt();
}

bool Servatrice::getMaxUserLimitEnabled() const
{
    return settingsCache->value("security/enable_max_user_limit", false).toBool();
}

QString Servatrice::getServerName() const
{
    return settingsCache->value("server/name", "My Cockatrice server").toString();
}

int Servatrice::getServerID() const
{
    return settingsCache->value("server/id", 0).toInt();
}

bool Servatrice::getClientIDRequiredEnabled() const
{
    return settingsCache->value("server/requireclientid", 0).toBool();
}

bool Servatrice::getRegOnlyServerEnabled() const
{
    return settingsCache->value("authentication/regonly", 0).toBool();
}

QString Servatrice::getAuthenticationMethodString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        return {"sql"};
    }
    return settingsCache->value("authentication/method").toString();
}

bool Servatrice::getStoreReplaysEnabled() const
{
    return settingsCache->value("game/store_replays", true).toBool();
}

int Servatrice::getMaxTcpUserLimit() const
{
    return settingsCache->value("security/max_users_tcp", 500).toInt();
}

int Servatrice::getMaxWebSocketUserLimit() const
{
    return settingsCache->value("security/max_users_websocket", 500).toInt();
}

bool Servatrice::getRegistrationEnabled() const
{
    return settingsCache->value("registration/enabled", false).toBool();
}

bool Servatrice::getRequireEmailForRegistrationEnabled() const
{
    return settingsCache->value("registration/requireemail", true).toBool();
}

bool Servatrice::getRequireEmailActivationEnabled() const
{
    return settingsCache->value("registration/requireemailactivation", true).toBool();
}

QString Servatrice::getRequiredFeatures() const
{
    return settingsCache->value("server/requiredfeatures", "").toString();
}

QString Servatrice::getDBTypeString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        return {"mysql"};
    }
    return settingsCache->value("database/type").toString();
}

QString Servatrice::getDBPrefixString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        return {"cockatrice"};
    }
    return settingsCache->value("database/prefix").toString();
}

QString Servatrice::getDBHostNameString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        return QUrl(QProcessEnvironment::systemEnvironment().value("DATABASE_URL")).host();
    }
    return settingsCache->value("database/hostname").toString();
}

QString Servatrice::getDBDatabaseNameString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        QString path = QUrl(QProcessEnvironment::systemEnvironment().value("DATABASE_URL")).path();
        return path.right(path.length() - 1);
    }
    return settingsCache->value("database/database").toString();
}

QString Servatrice::getDBUserNameString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        return QUrl(QProcessEnvironment::systemEnvironment().value("DATABASE_URL")).userName();
    }
    return settingsCache->value("database/user").toString();
}

QString Servatrice::getDBPasswordString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        return QUrl(QProcessEnvironment::systemEnvironment().value("DATABASE_URL")).password();
    }
    return settingsCache->value("database/password").toString();
}

QString Servatrice::getRoomsMethodString() const
{
    if (QProcessEnvironment::systemEnvironment().contains("DATABASE_URL")) {
        return {"sql"};
    }
    return settingsCache->value("rooms/method").toString();
}

int Servatrice::getMaxGameInactivityTime() const
{
    return settingsCache->value("game/max_game_inactivity_time", 120).toInt();
}

int Servatrice::getMaxPlayerInactivityTime() const
{
    return settingsCache->value("server/max_player_inactivity_time", 15).toInt();
}

int Servatrice::getClientKeepAlive() const
{
    return settingsCache->value("server/clientkeepalive", 1).toInt();
}

int Servatrice::getMaxUsersPerAddress() const
{
    return settingsCache->value("security/max_users_per_address", 4).toInt();
}

int Servatrice::getMessageCountingInterval() const
{
    return settingsCache->value("security/message_counting_interval", 10).toInt();
}

int Servatrice::getMaxMessageCountPerInterval() const
{
    return settingsCache->value("security/max_message_count_per_interval", 15).toInt();
}

int Servatrice::getMaxMessageSizePerInterval() const
{
    return settingsCache->value("security/max_message_size_per_interval", 1000).toInt();
}

int Servatrice::getMaxGamesPerUser() const
{
    return settingsCache->value("security/max_games_per_user", 5).toInt();
}

int Servatrice::getCommandCountingInterval() const
{
    return settingsCache->value("security/command_counting_interval", 10).toInt();
}

int Servatrice::getMaxCommandCountPerInterval() const
{
    return settingsCache->value("security/max_command_count_per_interval", 20).toInt();
}

int Servatrice::getServerStatusUpdateTime() const
{
    return settingsCache->value("server/statusupdate", 15000).toInt();
}

int Servatrice::getNumberOfTCPPools() const
{
    return settingsCache->value("server/number_pools", 1).toInt();
}

bool Servatrice::permitCreateGameAsJudge() const
{
    return settingsCache->value("game/allow_create_as_judge", false).toBool();
}

QHostAddress Servatrice::getServerTCPHost() const
{
    QString host = settingsCache->value("server/host", "any").toString();
    if (host == "any")
        return QHostAddress::Any;
    else
        return QHostAddress(host);
}

int Servatrice::getServerTCPPort() const
{
    return settingsCache->value("server/port", 4747).toInt();
}

int Servatrice::getNumberOfWebSocketPools() const
{
    return settingsCache->value("server/websocket_number_pools", 1).toInt();
}

QHostAddress Servatrice::getServerWebSocketHost() const
{
    QString host = settingsCache->value("server/websocket_host", "any").toString();
    if (host == "any")
        return QHostAddress::Any;
    else
        return QHostAddress(host);
}

int Servatrice::getServerWebSocketPort() const
{
    if (QProcessEnvironment::systemEnvironment().contains("PORT")) {
        return QProcessEnvironment::systemEnvironment().value("PORT").toInt();
    }
    return settingsCache->value("server/websocket_port", 4748).toInt();
}

bool Servatrice::getISLNetworkEnabled() const
{
    return settingsCache->value("servernetwork/active", false).toBool();
}

QString Servatrice::getISLNetworkSSLCertFile() const
{
    return settingsCache->value("servernetwork/ssl_cert").toString();
}

QString Servatrice::getISLNetworkSSLKeyFile() const
{
    return settingsCache->value("servernetwork/ssl_key").toString();
}

int Servatrice::getISLNetworkPort() const
{
    return settingsCache->value("servernetwork/port", 14747).toInt();
}

int Servatrice::getIdleClientTimeout() const
{
    return settingsCache->value("server/idleclienttimeout", 3600).toInt();
}

bool Servatrice::getEnableLogQuery() const
{
    return settingsCache->value("logging/enablelogquery", false).toBool();
}

int Servatrice::getMaxAccountsPerEmail() const
{
    return settingsCache->value("registration/maxaccountsperemail", 0).toInt();
}

bool Servatrice::getEnableInternalSMTPClient() const
{
    return settingsCache->value("smtp/enableinternalsmtpclient", true).toBool();
}

bool Servatrice::getEnableForgotPassword() const
{
    return settingsCache->value("forgotpassword/enable", false).toBool();
}

int Servatrice::getForgotPasswordTokenLife() const
{
    return settingsCache->value("forgotpassword/tokenlife", 60).toInt();
}

bool Servatrice::getEnableForgotPasswordChallenge() const
{
    return settingsCache->value("forgotpassword/enablechallenge", false).toBool();
}

QString Servatrice::getEmailBlackList() const
{
    return settingsCache->value("registration/emailproviderblacklist").toString();
}

QString Servatrice::getEmailWhiteList() const
{
    return settingsCache->value("registration/emailproviderwhitelist").toString();
}

bool Servatrice::getEnableAudit() const
{
    return settingsCache->value("audit/enable_audit", true).toBool();
}

bool Servatrice::getEnableRegistrationAudit() const
{
    return settingsCache->value("audit/enable_registration_audit", true).toBool();
}

bool Servatrice::getEnableForgotPasswordAudit() const
{
    return settingsCache->value("audit/enable_forgotpassword_audit", true).toBool();
}

int Servatrice::getMinPasswordLength() const
{
    return settingsCache->value("users/minpasswordlength", 6).toInt();
}