#include <sys/select.h>
#include <sys/time.h>
#include <sys/types.h>
#include <unistd.h>
#include <sys/syscall.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include <errno.h>

#include "common.h"

static int ds_flush_timer(shanghai_S5_var_t *var)
{
    time_t now = time(NULL);

    TIMER_CONFIRM(var->node_status_timer);

    if (now >= var->nodes_status_sync_date + 30)
    {
        static time_t lasttime = 0;
        var->nodes_status_sync_date = now;
        char *node_status = ds_print(var->ds);

        dy_syslog(LOG_INFO, "online_status_changed:%d strlen(node_status):%d, (now-lasttime):%d",
                  var->ds->online_status_changed, strlen(node_status), now - lasttime);
        if (node_status && strlen(node_status) > 20 &&
                (var->ds->online_status_changed || now > lasttime + 3600)) //在线状态变化上报，1小时也会上报
        {
            char topic[TOPIC_MAX_LEN];
            int ret = 0;

            snprintf(topic, TOPIC_MAX_LEN, "ipc/%s/%s/%s", var->sn_str, "process", TOPIC_EVT_NODESSTATUS);

            ret = ipc_session_publish(var->session_int, topic, node_status, strlen(node_status));
            if (ret == 0)
            {
                lasttime = now;
                var->ds->online_status_changed = false;
            }
            node_sta_backup(var->ds, NODE_STATUS_BAK_FILE);
        }
        if (node_status)
        {
            write_file_data(NODES_CACHE "/S5_status.json", node_status, strlen(node_status));
            free(node_status);
        }
    }
}

static int period_service_poll(shanghai_S5_var_t *var)
{
    TIMER_CONFIRM(var->period_poll_timer);
    int ret = 0;
    static int all_started = 0;
    static time_t last_time = 0;
    static time_t last_retrigger = 0;
    time_t now = time(NULL);

    period_msg_t *msg = period_msg_next(var->period);
    if (msg && msg->started)
    {
        ret = shanghai_s5_send_rglt(var, msg->rs);
        if (ret < 0)
        {
            dy_syslog(LOG_ERR, "parse real data structure failed");
        }
    }

    if (now - last_time > 3600)
    {
        period_services_trigger_by_appkey(var->session_int, var->period, var->nodes_cfg_table, var->template_table, APP_KEY);
        last_time = now;
        all_started = 0;
    }

    if (all_started == 0 && now - last_retrigger > 20)
    {
        all_started = period_services_retrigger_by_appkey(var->session_int, var->period, var->nodes_cfg_table, var->template_table, APP_KEY);
        last_retrigger = now;
    }
    return 0;
}

static void shanghai_S5_loop(shanghai_S5_var_t *var)
{
    int ret = -1, maxfd;
    fd_set rset;
    struct timeval timeout;

    while (1)
    {
        SELECT_INIT();
        timeout.tv_usec = 0;
        timeout.tv_sec = 20;
        SELECT_ADD_FD(var->node_status_timer);
        SELECT_ADD_FD(var->period_poll_timer);
        ret = select(maxfd + 1, &rset, 0, 0, &timeout);
        if (ret < 0)
        {
            printf("errno %d\n", errno);
            if (errno == EINTR)
            {
                continue;
            }
            else
            {
                break;
            }
        }
        else if (ret > 0)
        {
            if (var->node_status_timer > 0 && FD_ISSET(var->node_status_timer, &rset))
            {
                FD_CLR(var->node_status_timer, &rset);
                ds_flush_timer(var);
            }
            if (var->period_poll_timer > 0 && FD_ISSET(var->period_poll_timer, &rset))
            {
                FD_CLR(var->period_poll_timer, &rset);
                period_service_poll(var);
            }
        }
    }
}

static int shanghai_S5_init(shanghai_S5_var_t *var)
{
    get_board_sn(var->sn_str);

    if (load_nodes_cfg(&var->nodes_cfg_table, NODES_CFG_PATH) == -1)
    {
        dy_syslog(LOG_ERR, "load nodes cfg fail");
    }
    if (load_templates_cfg(&var->template_table, TEMPLATES_CFG_PATH) == -1)
    {
        dy_syslog(LOG_ERR, "load template cfg fail");
    }

    dev_status_init_by_app_key(&var->ds, var->nodes_cfg_table, var->template_table, APP_KEY);
    node_sta_recovery(var->ds, NODE_STATUS_BAK_FILE);

    kv_array_init(&var->identifier_backup, 32);

    internal_client_init(var);
    external_client_init(var, SHANGHAI_S5_CFG);

    period_msg_init(&var->period, 128);

    var->node_status_timer = my_timer_create();
    if (var->node_status_timer > 0)
    {
        my_timer_set(var->node_status_timer, 1, 5000);
    }

    var->period_poll_timer = my_timer_create();
    if (var->period_poll_timer > 0)
    {
        my_timer_set(var->period_poll_timer, 1, 1000);
    }

    dy_syslog(LOG_INFO, "init done");

    return 0;
}

int main(int argc, char *argv[])
{
    shanghai_S5_var_t var = {0};

    memset(&var, 0, sizeof(var));

    shanghai_S5_init(&var);
    shanghai_S5_loop(&var);

    return 0;
}