/*
 *    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
 */

/*
 *    Date: 27.10.2002
 */

/*
 *    Author : Boris Mikhailenko <stg34@stargazer.dp.ua>
 */

#include <pthread.h>

#include <csignal>
#include <cassert>
#include <algorithm>
#include <utility>
#include <string>
#include <vector>

#include "stg/settings.h"
#include "stg/common.h"

#include "users_impl.h"
#include "stg_timer.h"

extern volatile time_t stgTime;

using STG::UsersImpl;

//-----------------------------------------------------------------------------
UsersImpl::UsersImpl(SettingsImpl * s, Store * store,
                    Tariffs * tariffs, Services & svcs,
                    const Admin& sysAdmin)
    : settings(s),
      m_tariffs(tariffs),
      m_services(svcs),
      m_store(store),
      m_sysAdmin(sysAdmin),
      WriteServLog(Logger::get()),
      isRunning(false),
      handle(0)
{
}
//-----------------------------------------------------------------------------
bool UsersImpl::FindByNameNonLock(const std::string & login, user_iter * user)
{
const auto iter = loginIndex.find(login);
if (iter == loginIndex.end())
    return false;
if (user != nullptr)
    *user = iter->second;
return true;
}
//-----------------------------------------------------------------------------
bool UsersImpl::FindByNameNonLock(const std::string & login, const_user_iter * user) const
{
const auto iter = loginIndex.find(login);
if (iter == loginIndex.end())
    return false;
if (user != nullptr)
    *user = iter->second;
return true;
}
//-----------------------------------------------------------------------------
int UsersImpl::FindByName(const std::string & login, UserPtr * user)
{
std::lock_guard<std::mutex> lock(m_mutex);
user_iter u;
if (!FindByNameNonLock(login, &u))
    return -1;
*user = &(*u);
return 0;
}
//-----------------------------------------------------------------------------
int UsersImpl::FindByName(const std::string & login, ConstUserPtr * user) const
{
std::lock_guard<std::mutex> lock(m_mutex);
const_user_iter u;
if (!FindByNameNonLock(login, &u))
    return -1;
*user = &(*u);
return 0;
}
//-----------------------------------------------------------------------------
bool UsersImpl::Exists(const std::string & login) const
{
std::lock_guard<std::mutex> lock(m_mutex);
const auto iter = loginIndex.find(login);
return iter != loginIndex.end();
}
//-----------------------------------------------------------------------------
bool UsersImpl::TariffInUse(const std::string & tariffName) const
{
std::lock_guard<std::mutex> lock(m_mutex);
auto iter = users.begin();
while (iter != users.end())
    {
    if (iter->GetProperties().tariffName.Get() == tariffName)
        return true;
    ++iter;
    }
return false;
}
//-----------------------------------------------------------------------------
int UsersImpl::Add(const std::string & login, const Admin * admin)
{
std::lock_guard<std::mutex> lock(m_mutex);
const auto& priv = admin->priv();

if (priv.userAddDel == 0)
    {
    WriteServLog("%s tried to add user \'%s\'. Access denied.",
                 admin->logStr().c_str(), login.c_str());
    return -1;
    }

if (m_store->AddUser(login) != 0)
    return -1;

UserImpl u(settings, m_store, m_tariffs, &m_sysAdmin, this, m_services);

u.SetLogin(login);

u.SetPassiveTimeAsNewUser();

u.WriteConf();
u.WriteStat();

WriteServLog("%s User \'%s\' added.",
             admin->logStr().c_str(), login.c_str());

u.OnAdd();

users.push_front(u);

AddUserIntoIndexes(users.begin());
m_onAddCallbacks.notify(&users.front());
m_onAddImplCallbacks.notify(&users.front());

return 0;
}
//-----------------------------------------------------------------------------
void UsersImpl::Del(const std::string & login, const Admin * admin)
{
const auto& priv = admin->priv();
user_iter u;

if (priv.userAddDel == 0)
    {
    WriteServLog("%s tried to remove user \'%s\'. Access denied.",
                 admin->logStr().c_str(), login.c_str());
    return;
    }


    {
    std::lock_guard<std::mutex> lock(m_mutex);

    if (!FindByNameNonLock(login, &u))
        {
        WriteServLog("%s tried to delete user \'%s\': not found.",
                     admin->logStr().c_str(),
                     login.c_str());
        return;
        }

    u->SetDeleted();
    }

    m_onDelCallbacks.notify(&(*u));
    m_onDelImplCallbacks.notify(&(*u));

    {
    std::lock_guard<std::mutex> lock(m_mutex);

    u->OnDelete();

    USER_TO_DEL utd;
    utd.iter = u;
    utd.delTime = stgTime;
    usersToDelete.push_back(utd);

    DelUserFromIndexes(u);

    WriteServLog("%s User \'%s\' deleted.",
                 admin->logStr().c_str(), login.c_str());

    }
}
//-----------------------------------------------------------------------------
bool UsersImpl::Authorize(const std::string & login, uint32_t ip,
                           uint32_t enabledDirs, const Auth * auth)
{
user_iter iter;
std::lock_guard<std::mutex> lock(m_mutex);
if (!FindByNameNonLock(login, &iter))
    {
    WriteServLog("Attempt to authorize non-existant user '%s'", login.c_str());
    return false;
    }

if (FindByIPIdx(ip, iter))
    {
    if (iter->GetLogin() != login)
        {
        WriteServLog("Attempt to authorize user '%s' from ip %s which already occupied by '%s'",
                     login.c_str(), inet_ntostring(ip).c_str(),
                     iter->GetLogin().c_str());
        return false;
        }
    return iter->Authorize(ip, enabledDirs, auth) == 0;
    }

if (iter->Authorize(ip, enabledDirs, auth) != 0)
    return false;

AddToIPIdx(iter);
return true;
}
//-----------------------------------------------------------------------------
bool UsersImpl::Unauthorize(const std::string & login,
                             const Auth * auth,
                             const std::string & reason)
{
user_iter iter;
std::lock_guard<std::mutex> lock(m_mutex);
if (!FindByNameNonLock(login, &iter))
    {
    WriteServLog("Attempt to unauthorize non-existant user '%s'", login.c_str());
    printfd(__FILE__, "Attempt to unauthorize non-existant user '%s'", login.c_str());
    return false;
    }

uint32_t ip = iter->GetCurrIP();

iter->Unauthorize(auth, reason);

if (iter->GetAuthorized() == 0)
    DelFromIPIdx(ip);

return true;
}
//-----------------------------------------------------------------------------
int UsersImpl::ReadUsers()
{
std::vector<std::string> usersList;
usersList.clear();
if (m_store->GetUsersList(&usersList) < 0)
    {
    WriteServLog(m_store->GetStrError().c_str());
    return -1;
    }

user_iter ui;

unsigned errors = 0;
for (const auto& user : usersList)
    {
    UserImpl u(settings, m_store, m_tariffs, &m_sysAdmin, this, m_services);

    u.SetLogin(user);
    users.push_front(u);
    ui = users.begin();

    AddUserIntoIndexes(ui);

    if (settings->GetStopOnError())
        {
        if (ui->ReadConf() < 0)
            return -1;

        if (ui->ReadStat() < 0)
            return -1;
        }
    else
        {
        if (ui->ReadConf() < 0)
            errors++;

        if (ui->ReadStat() < 0)
            errors++;
        }
    }

if (errors > 0)
    return -1;
return 0;
}
//-----------------------------------------------------------------------------
void UsersImpl::Run(std::stop_token token)
{
sigset_t signalSet;
sigfillset(&signalSet);
pthread_sigmask(SIG_BLOCK, &signalSet, nullptr);

printfd(__FILE__, "=====================| pid: %d |===================== \n", getpid());

struct tm t;
time_t tt = stgTime;
localtime_r(&tt, &t);

int min = t.tm_min;
int day = t.tm_mday;

printfd(__FILE__,"Day = %d Min = %d\n", day, min);

time_t touchTime = stgTime - MONITOR_TIME_DELAY_SEC;
std::string monFile = settings->GetMonitorDir() + "/users_r";
printfd(__FILE__, "Monitor=%d file USERS %s\n", settings->GetMonitoring(), monFile.c_str());

isRunning = true;
while (!token.stop_requested())
    {
    //printfd(__FILE__,"New Minute. old = %02d current = %02d\n", min, t->tm_min);
    //printfd(__FILE__,"New Day.    old = %2d current = %2d\n", day, t->tm_mday);

    for_each(users.begin(), users.end(), [](auto& user){ user.Run(); });

    tt = stgTime;
    localtime_r(&tt, &t);

    if (min != t.tm_min)
        {
        printfd(__FILE__,"Sec = %d\n", stgTime);
        printfd(__FILE__,"New Minute. old = %d current = %d\n", min, t.tm_min);
        min = t.tm_min;

        NewMinute(t);
        }

    if (day != t.tm_mday)
        {
        printfd(__FILE__,"Sec = %d\n", stgTime);
        printfd(__FILE__,"New Day. old = %d current = %d\n", day, t.tm_mday);
        day = t.tm_mday;
        NewDay(t);
        }

    if (settings->GetMonitoring() && (touchTime + MONITOR_TIME_DELAY_SEC <= stgTime))
        {
        //printfd(__FILE__, "Monitor=%d file TRAFFCOUNTER %s\n", tc->monitoring, monFile.c_str());
        touchTime = stgTime;
        TouchFile(monFile);
        }

    stgUsleep(100000);
    }

auto iter = usersToDelete.begin();
while (iter != usersToDelete.end())
    {
    iter->delTime -= 2 * userDeleteDelayTime;
    ++iter;
    }
RealDelUser();

isRunning = false;

}
//-----------------------------------------------------------------------------
void UsersImpl::NewMinute(const struct tm & t)
{
//Write traff, reset session traff. Fake disconnect-connect
if (t.tm_hour == 23 && t.tm_min == 59)
    {
    printfd(__FILE__,"MidnightResetSessionStat\n");
    for_each(users.begin(), users.end(), [](auto& user){ user.MidnightResetSessionStat(); });
    }

if (TimeToWriteDetailStat(t))
    {
    //printfd(__FILE__, "USER::WriteInetStat\n");
    int usersCnt = 0;

    auto usr = users.begin();
    while (usr != users.end())
        {
        usersCnt++;
        usr->WriteDetailStat();
        ++usr;
        if (usersCnt % 10 == 0)
            for_each(users.begin(), users.end(), [](auto& user){ user.Run(); });
        }
    }

RealDelUser();
}
//-----------------------------------------------------------------------------
void UsersImpl::NewDay(const struct tm & t)
{
struct tm t1;
time_t tt = stgTime;
localtime_r(&tt, &t1);
int dayFee = settings->GetDayFee();

if (dayFee == 0)
    dayFee = DaysInCurrentMonth();

printfd(__FILE__, "DayFee = %d\n", dayFee);
printfd(__FILE__, "Today = %d DayResetTraff = %d\n", t1.tm_mday, settings->GetDayResetTraff());
printfd(__FILE__, "DayFeeIsLastDay = %d\n", settings->GetDayFeeIsLastDay());

if (!settings->GetDayFeeIsLastDay())
    {
    printfd(__FILE__, "DayResetTraff - 1 -\n");
    DayResetTraff(t1);
    //printfd(__FILE__, "DayResetTraff - 1 - 1 -\n");
    }

if (settings->GetSpreadFee())
    {
    printfd(__FILE__, "Spread DayFee\n");
    for_each(users.begin(), users.end(), [](auto& user){ user.ProcessDayFeeSpread(); });
    }
else
    {
    if (t.tm_mday == dayFee)
        {
        printfd(__FILE__, "DayFee\n");
        for_each(users.begin(), users.end(), [](auto& user){ user.ProcessDayFee(); });
        }
    }

std::for_each(users.begin(), users.end(), [](auto& user){ user.ProcessDailyFee(); });
std::for_each(users.begin(), users.end(), [](auto& user){ user.ProcessServices(); });

if (settings->GetDayFeeIsLastDay())
    {
    printfd(__FILE__, "DayResetTraff - 2 -\n");
    DayResetTraff(t1);
    }
}
//-----------------------------------------------------------------------------
void UsersImpl::DayResetTraff(const struct tm & t1)
{
auto dayResetTraff = settings->GetDayResetTraff();
if (dayResetTraff == 0)
    dayResetTraff = DaysInCurrentMonth();
if (static_cast<unsigned>(t1.tm_mday) == dayResetTraff)
    {
    printfd(__FILE__, "ResetTraff\n");
    for_each(users.begin(), users.end(), [](auto& user){ user.ProcessNewMonth(); });
    //for_each(users.begin(), users.end(), mem_fun_ref(&UserImpl::SetPrepaidTraff));
    }
}
//-----------------------------------------------------------------------------
int UsersImpl::Start()
{
if (ReadUsers() != 0)
    {
    WriteServLog("USERS: Error: Cannot read users!");
    return -1;
    }

m_thread = std::jthread([this](auto token){ Run(std::move(token)); });
return 0;
}
//-----------------------------------------------------------------------------
int UsersImpl::Stop()
{
printfd(__FILE__, "USERS::Stop()\n");

m_thread.request_stop();

//5 seconds to thread stops itself
struct timespec ts = {0, 200000000};
for (size_t i = 0; i < 25 * (users.size() / 50 + 1); i++)
    {
    if (!isRunning)
        break;

    nanosleep(&ts, nullptr);
    }

//after 5 seconds waiting thread still running. now kill it
if (isRunning)
    {
    printfd(__FILE__, "Detach USERS thread.\n");
    //TODO pthread_cancel()
    m_thread.detach();
    }
else
    m_thread.join();

printfd(__FILE__, "Before USERS::Run()\n");
for_each(users.begin(), users.end(), [](auto& user){ user.Run(); });

for (auto& user : users)
    user.WriteDetailStat(true);

for_each(users.begin(), users.end(), [](auto& user){ user.WriteStat(); });
//for_each(users.begin(), users.end(), mem_fun_ref(&UserImpl::WriteConf));

printfd(__FILE__, "USERS::Stop()\n");
return 0;
}
//-----------------------------------------------------------------------------
void UsersImpl::RealDelUser()
{
std::lock_guard<std::mutex> lock(m_mutex);

printfd(__FILE__, "RealDelUser() users to del: %d\n", usersToDelete.size());

auto iter = usersToDelete.begin();
while (iter != usersToDelete.end())
    {
    printfd(__FILE__, "RealDelUser() user=%s\n", iter->iter->GetLogin().c_str());
    if (iter->delTime + userDeleteDelayTime < stgTime)
        {
        printfd(__FILE__, "RealDelUser() user=%s removed from DB\n", iter->iter->GetLogin().c_str());
        if (m_store->DelUser(iter->iter->GetLogin()) != 0)
            {
            WriteServLog("Error removing user \'%s\' from database.", iter->iter->GetLogin().c_str());
            }
        users.erase(iter->iter);
        usersToDelete.erase(iter++);
        }
    else
        {
        ++iter;
        }
    }
}
//-----------------------------------------------------------------------------
void UsersImpl::AddToIPIdx(user_iter user)
{
printfd(__FILE__, "USERS: Add IP Idx\n");
uint32_t ip = user->GetCurrIP();
//assert(ip && "User has non-null ip");
if (ip == 0)
    return; // User has disconnected

std::lock_guard<std::mutex> lock(m_mutex);

const auto it = ipIndex.lower_bound(ip);

assert((it == ipIndex.end() || it->first != ip) && "User is not in index");

ipIndex.insert(it, std::make_pair(ip, user));
}
//-----------------------------------------------------------------------------
void UsersImpl::DelFromIPIdx(uint32_t ip)
{
printfd(__FILE__, "USERS: Del IP Idx\n");
assert(ip && "User has non-null ip");

std::lock_guard<std::mutex> lock(m_mutex);

const auto it = ipIndex.find(ip);

if (it == ipIndex.end())
    return;

ipIndex.erase(it);
}
//-----------------------------------------------------------------------------
bool UsersImpl::FindByIPIdx(uint32_t ip, user_iter & iter) const
{
auto it = ipIndex.find(ip);
if (it == ipIndex.end())
    return false;
iter = it->second;
return true;
}
//-----------------------------------------------------------------------------
int UsersImpl::FindByIPIdx(uint32_t ip, UserPtr * user) const
{
std::lock_guard<std::mutex> lock(m_mutex);

user_iter iter;
if (FindByIPIdx(ip, iter))
    {
    *user = &(*iter);
    return 0;
    }

return -1;
}
//-----------------------------------------------------------------------------
int UsersImpl::FindByIPIdx(uint32_t ip, UserImpl ** user) const
{
std::lock_guard<std::mutex> lock(m_mutex);

user_iter iter;
if (FindByIPIdx(ip, iter))
    {
    *user = &(*iter);
    return 0;
    }

return -1;
}
//-----------------------------------------------------------------------------
bool UsersImpl::IsIPInIndex(uint32_t ip) const
{
std::lock_guard<std::mutex> lock(m_mutex);

return ipIndex.find(ip) != ipIndex.end();
}
//-----------------------------------------------------------------------------
bool UsersImpl::IsIPInUse(uint32_t ip, const std::string & login, ConstUserPtr * user) const
{
std::lock_guard<std::mutex> lock(m_mutex);
auto iter = users.begin();
while (iter != users.end())
    {
    if (iter->GetLogin() != login &&
        !iter->GetProperties().ips.Get().isAnyIP() &&
        iter->GetProperties().ips.Get().find(ip))
        {
        if (user != nullptr)
            *user = &(*iter);
        return true;
        }
    ++iter;
    }
return false;
}
//-----------------------------------------------------------------------------
unsigned int UsersImpl::OpenSearch()
{
std::lock_guard<std::mutex> lock(m_mutex);
handle++;
searchDescriptors[handle] = users.begin();
return handle;
}
//-----------------------------------------------------------------------------
int UsersImpl::SearchNext(int h, UserPtr * user)
{
    UserImpl * ptr = nullptr;
    if (SearchNext(h, &ptr) != 0)
        return -1;
    *user = ptr;
    return 0;
}
//-----------------------------------------------------------------------------
int UsersImpl::SearchNext(int h, UserImpl ** user)
{
std::lock_guard<std::mutex> lock(m_mutex);

if (searchDescriptors.find(h) == searchDescriptors.end())
    {
    WriteServLog("USERS. Incorrect search handle.");
    return -1;
    }

if (searchDescriptors[h] == users.end())
    return -1;

while (searchDescriptors[h]->GetDeleted())
    {
    ++searchDescriptors[h];
    if (searchDescriptors[h] == users.end())
        {
        return -1;
        }
    }

*user = &(*searchDescriptors[h]);

++searchDescriptors[h];

return 0;
}
//-----------------------------------------------------------------------------
int UsersImpl::CloseSearch(int h)
{
std::lock_guard<std::mutex> lock(m_mutex);
if (searchDescriptors.find(h) != searchDescriptors.end())
    {
    searchDescriptors.erase(searchDescriptors.find(h));
    return 0;
    }

WriteServLog("USERS. Incorrect search handle.");
return -1;
}
//-----------------------------------------------------------------------------
void UsersImpl::AddUserIntoIndexes(user_iter user)
{
std::lock_guard<std::mutex> lock(m_mutex);
loginIndex.insert(make_pair(user->GetLogin(), user));
}
//-----------------------------------------------------------------------------
void UsersImpl::DelUserFromIndexes(user_iter user)
{
std::lock_guard<std::mutex> lock(m_mutex);
loginIndex.erase(user->GetLogin());
}
//-----------------------------------------------------------------------------
bool UsersImpl::TimeToWriteDetailStat(const struct tm & t)
{
auto statTime = settings->GetDetailStatWritePeriod();

switch (statTime)
    {
    case dsPeriod_1:
        if (t.tm_min == 0)
            return true;
        break;
    case dsPeriod_1_2:
        if (t.tm_min % 30 == 0)
            return true;
        break;
    case dsPeriod_1_4:
        if (t.tm_min % 15 == 0)
            return true;
        break;
    case dsPeriod_1_6:
        if (t.tm_min % 10 == 0)
            return true;
        break;
    }
return false;
}