/*
**********************************************************************************************
*	File: maat_ip_plugin.cpp
*   Description: 
*	Authors: Liu wentan <liuwentan@geedgenetworks.com>
*	Date:    2022-10-31
*   Copyright: (c) 2018-2022 Geedge Networks, Inc. All rights reserved.
***********************************************************************************************
*/

#include <assert.h>

#include "log/log.h"
#include "maat_utils.h"
#include "maat_ip_plugin.h"
#include "maat_ex_data.h"
#include "ip_matcher.h"
#include "maat_rule.h"
#include "maat.h"
#include "maat_garbage_collection.h"

#define MODULE_IP_PLUGIN	 module_name_str("maat.ip_plugin")
#define MAX_IP_STR    128

struct ip_plugin_schema {
    int item_id_column;
	int ip_type_column;
	int start_ip_column;
	int end_ip_column;
    int addr_format_column;
	int rule_tag_column;
	struct ex_data_schema *ex_schema;
    int table_id; //ugly
    struct table_manager *ref_tbl_mgr;

    unsigned long long update_err_cnt;
    unsigned long long unmatch_tag_cnt;
};

struct ip_plugin_runtime {
	struct ip_matcher *ip_matcher;
    struct ex_data_runtime *ex_data_rt;

    uint32_t rule_num;

    struct maat_garbage_bin *ref_garbage_bin;
    struct log_handle *logger;
};

void *ip_plugin_schema_new(cJSON *json, struct table_manager *tbl_mgr, 
                           const char *table_name, struct log_handle *logger)
{
    size_t read_cnt = 0;
    struct ip_plugin_schema *schema = ALLOC(struct ip_plugin_schema, 1);

    cJSON *custom_item = NULL;
    cJSON *item = cJSON_GetObjectItem(json, "table_id");
   if (item != NULL && item->type == cJSON_Number) {
        schema->table_id = item->valueint;
        read_cnt++;
    }

    item = cJSON_GetObjectItem(json, "custom");
    if (NULL == item || item->type != cJSON_Object) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] table %s has no custom column", 
                  __FUNCTION__, __LINE__, table_name);
        goto error;
    }

    custom_item = cJSON_GetObjectItem(item, "item_id");
    if (custom_item != NULL && custom_item->type == cJSON_Number) {
        schema->item_id_column = custom_item->valueint;
        read_cnt++;
    }

    custom_item = cJSON_GetObjectItem(item, "ip_type");
    if (custom_item != NULL && custom_item->type == cJSON_Number) {
        schema->ip_type_column = custom_item->valueint;
        read_cnt++;
    }

    custom_item = cJSON_GetObjectItem(item, "start_ip");
    if (custom_item != NULL && custom_item->type == cJSON_Number) {
        schema->start_ip_column = custom_item->valueint;
        read_cnt++;
    }

    custom_item = cJSON_GetObjectItem(item, "end_ip");
    if (custom_item != NULL && custom_item->type == cJSON_Number) {
        schema->end_ip_column = custom_item->valueint;
        read_cnt++;
    }

    custom_item = cJSON_GetObjectItem(item, "addr_format");
    if (custom_item != NULL && custom_item->type == cJSON_Number) {
        schema->addr_format_column = custom_item->valueint;
        //TODO: just because test table not add this column
        //read_cnt++;
    }

    // rule_tag is optional
    custom_item = cJSON_GetObjectItem(item, "rule_tag");
    if (custom_item != NULL && custom_item->type == cJSON_Number) {
        schema->rule_tag_column = custom_item->valueint;
    }

    schema->ref_tbl_mgr = tbl_mgr;

    if (read_cnt < 5) {
        goto error;
    }
    
    return schema;
error:
    FREE(schema);
    return NULL;
}

void ip_plugin_schema_free(void *ip_plugin_schema)
{
    if (NULL == ip_plugin_schema) {
        return;
    }
    struct ip_plugin_schema *schema = (struct ip_plugin_schema *)ip_plugin_schema;
    if (schema->ex_schema != NULL) {
        ex_data_schema_free(schema->ex_schema);
        schema->ex_schema = NULL;
    }

    free(schema);
}

struct ex_data_schema *ip_plugin_table_get_ex_data_schema(void *ip_plugin_schema)
{
    if (NULL == ip_plugin_schema) {
        return NULL;
    }

    struct ip_plugin_schema *schema = (struct ip_plugin_schema *)ip_plugin_schema;

    return schema->ex_schema;
}

int ip_plugin_accept_tag_match(struct ip_plugin_schema *schema, const char *line,
                               struct log_handle *logger)
{
    size_t column_offset = 0;
    size_t column_len = 0;
    size_t n_tag = table_manager_accept_tags_count(schema->ref_tbl_mgr);

    if (schema->rule_tag_column > 0 && n_tag > 0) {
        int ret = get_column_pos(line, schema->rule_tag_column, 
                                 &column_offset, &column_len);
        if (ret < 0) {
            log_error(logger, MODULE_IP_PLUGIN,
                      "[%s:%d] ip_plugin table(table_id:%d) has no rule_tag, line:%s",
                      __FUNCTION__, __LINE__, schema->table_id, line);
            schema->update_err_cnt++;
            return TAG_MATCH_ERR;
        }

        if (column_len > 2) {
            char *tag_str = ALLOC(char, column_len + 1);
            memcpy(tag_str, (line + column_offset), column_len);
            ret = table_manager_accept_tags_match(schema->ref_tbl_mgr, tag_str);
            FREE(tag_str);
            if (TAG_MATCH_ERR == ret) {
                log_error(logger, MODULE_IP_PLUGIN,
                          "[%s:%d] ip_plugin table(table_id:%d) has invalid tag format, line:%s",
                          __FUNCTION__, __LINE__, schema->table_id, line);
                schema->update_err_cnt++;
                return TAG_MATCH_ERR;
            }

            if (TAG_MATCH_UNMATCHED == ret) {
                schema->unmatch_tag_cnt++;
                return TAG_MATCH_UNMATCHED;
            }
        }
    }

    return TAG_MATCH_MATCHED;
}

struct ip_rule *
ip_plugin_rule_new(const char *line, struct ip_plugin_schema *schema,
                   const char *table_name, struct log_handle *logger)
{
    int ret = ip_plugin_accept_tag_match(schema, line, logger);
    if (ret == TAG_MATCH_UNMATCHED) {
        return NULL;
    }

    size_t column_offset = 0;
    size_t column_len = 0;
    char addr_format[16] = {0};
    char start_ip_str[40] = {0};
    char end_ip_str[40] = {0};
    struct ip_rule *ip_plugin_rule = ALLOC(struct ip_rule, 1);

    ret = get_column_pos(line, schema->item_id_column, &column_offset, &column_len);
    if (ret < 0) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] ip plugin table:%s line:%s has no item_id",
                  __FUNCTION__, __LINE__, table_name, line);
        goto error;
    }
    ip_plugin_rule->rule_id = atoll(line + column_offset);

    ret = get_column_pos(line, schema->ip_type_column, &column_offset, &column_len);
    if (ret < 0) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] ip plugin table:%s line:%s has no ip_type",
                  __FUNCTION__, __LINE__, table_name, line);
        goto error;
    }
    ip_plugin_rule->type = atoi(line + column_offset);
    if (ip_plugin_rule->type != IPv4 && ip_plugin_rule->type != IPv6) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] ip_plugin table:%s line:%s ip_type[%d] invalid",
                  __FUNCTION__, __LINE__, table_name, line, ip_plugin_rule->type);
        goto error;
    }

    //TODO: to be added again,
    #if 0
    ret = get_column_pos(line, schema->addr_format_column, &column_offset, &column_len);
    if (ret < 0) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] ip_plugin table(table_id:%d) line:%s has no addr_format column",
                  __FUNCTION__, __LINE__, schema->table_id, line);
        goto error;
    }

    memcpy(addr_format, (line + column_offset), column_len);
    if (IP_FORMAT_UNKNOWN == ip_format_str2int(addr_format)) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] ip_plugin table(table_id:%d) line:%s has invalid addr_format, should be range/CIDR",
                  __FUNCTION__, __LINE__, schema->table_id, line);
        goto error;
    }
    #endif
    const char *tmp_str = "range";
    memcpy(addr_format, tmp_str, strlen(tmp_str));

    ret = get_column_pos(line, schema->start_ip_column, &column_offset, &column_len);
    if (ret < 0) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] ip_plugin table:%s line:%s has no start_ip",
                  __FUNCTION__, __LINE__, table_name, line);
        goto error;
    }
    strncpy(start_ip_str, line + column_offset, column_len);
    
    ret = get_column_pos(line, schema->end_ip_column, &column_offset, &column_len);
    if (ret < 0) {
        log_error(logger, MODULE_IP_PLUGIN, 
                  "[%s:%d] ip_plugin table:%s line:%s has no end_ip",
                  __FUNCTION__, __LINE__, table_name, line);
        goto error;
    }
    strncpy(end_ip_str, line + column_offset, column_len);

    if (IPv4 == ip_plugin_rule->type) {
        ret = ip_format2range(ip_plugin_rule->type, ip_format_str2int(addr_format),
                              start_ip_str, end_ip_str, 
                              &ip_plugin_rule->ipv4_rule.start_ip, 
                              &ip_plugin_rule->ipv4_rule.end_ip);
        if (ret < 0) {
            log_error(logger, MODULE_IP_PLUGIN, 
                      "[%s:%d] ip_plugin table:%s line:%s ip_format2range(ip4) failed",
                      __FUNCTION__, __LINE__, table_name, line);
            goto error;
        }
    } else {
        //ipv6
        ret = ip_format2range(ip_plugin_rule->type, ip_format_str2int(addr_format),
                              start_ip_str, end_ip_str, 
                              ip_plugin_rule->ipv6_rule.start_ip,
                              ip_plugin_rule->ipv6_rule.end_ip);
        if (ret < 0) {
            log_error(logger, MODULE_IP_PLUGIN, 
                      "[%s:%d] ip_plugin table:%s line:%s ip_format2range(ip6) failed",
                      __FUNCTION__, __LINE__, table_name, line);
            goto error;
        }
    }

    return ip_plugin_rule;
error:
    FREE(ip_plugin_rule);
    return NULL;
}

void ip_plugin_rule_free(struct ip_rule *rule)
{
    FREE(rule);
}

void ip_plugin_table_set_ex_data_schema(void *ip_plugin_schema, 
                                       maat_ex_new_func_t *new_func,
							           maat_ex_free_func_t *free_func,
							           maat_ex_dup_func_t *dup_func,
							           long argl, void *argp,
                                       struct log_handle *logger)
{
    struct ip_plugin_schema *schema = (struct ip_plugin_schema *)ip_plugin_schema;

    schema->ex_schema = ex_data_schema_new(new_func, free_func, dup_func, argl, argp);
}

int ip_plugin_runtime_update_row(struct ip_plugin_runtime *ip_plugin_rt,
                                 struct ex_data_schema *ex_schema, const char *table_name,
                                 const char *row, const char *key, size_t key_len, 
                                 struct ip_rule *ip_plugin_rule, int is_valid)
{
    int ret = -1;
    struct ex_data_runtime *ex_data_rt = ip_plugin_rt->ex_data_rt;
    if (NULL == ex_data_rt) {
        return -1;
    }

    if (0 == is_valid) {
        // delete
        ret = ex_data_runtime_del_ex_container(ex_data_rt, key, key_len);
        if (ret < 0) {
            return -1;
        }
    } else {
        // add
        void *ex_data = ex_data_runtime_row2ex_data(ex_data_rt, ex_schema, table_name, row, key, key_len);
        struct ex_container *ex_container = ex_container_new(ex_data, (void *)ip_plugin_rule);
        ret = ex_data_runtime_add_ex_container(ex_data_rt, key, key_len, ex_container);
        if (ret < 0) {
            return -1;
        }
    }

    return 0;
}

void *ip_plugin_runtime_new(void *ip_plugin_schema, int max_thread_num,
                            struct maat_garbage_bin *garbage_bin,
                            struct log_handle *logger)
{
    if (NULL == ip_plugin_schema) {
        return NULL;
    }

    struct ip_plugin_schema *schema = (struct ip_plugin_schema *)ip_plugin_schema;
    struct ip_plugin_runtime *ip_plugin_rt = ALLOC(struct ip_plugin_runtime, 1);

    ip_plugin_rt->ex_data_rt = ex_data_runtime_new(schema->table_id, ex_container_free, 
                                                   garbage_bin, logger);
    ip_plugin_rt->ref_garbage_bin = garbage_bin;
    ip_plugin_rt->logger = logger;

    return ip_plugin_rt;
}

void ip_plugin_runtime_free(void *ip_plugin_runtime)
{
    if (NULL == ip_plugin_runtime) {
        return;
    }

    struct ip_plugin_runtime *ip_plugin_rt = (struct ip_plugin_runtime *)ip_plugin_runtime;
    if (ip_plugin_rt->ip_matcher != NULL) {
        ip_matcher_free(ip_plugin_rt->ip_matcher);
        ip_plugin_rt->ip_matcher = NULL;
    }

    if (ip_plugin_rt->ex_data_rt != NULL) {
        ex_data_runtime_free(ip_plugin_rt->ex_data_rt);
        ip_plugin_rt->ex_data_rt = NULL;
    }

    FREE(ip_plugin_rt);
}

int ip_plugin_runtime_update(void *ip_plugin_runtime, void *ip_plugin_schema, 
                             const char *table_name, const char *line, 
                             int valid_column)
{
    if (NULL == ip_plugin_runtime || NULL == ip_plugin_schema || 
        NULL == line) {
        return -1;
    }

    struct ip_rule *ip_plugin_rule = NULL;
    struct ip_plugin_schema *schema = (struct ip_plugin_schema *)ip_plugin_schema;
    struct ip_plugin_runtime *ip_plugin_rt = (struct ip_plugin_runtime *)ip_plugin_runtime;
    size_t item_id_offset = 0, item_id_len = 0;

    int is_valid = get_column_value(line, valid_column);
    if (is_valid < 0) {
        return -1;
    }

    int ret = get_column_pos(line, schema->item_id_column, &item_id_offset, &item_id_len);
    if (ret < 0) {
        return -1;
    }

    struct ex_data_schema *ex_schema = schema->ex_schema;
    if (ex_schema != NULL) {
        if (1 == is_valid) {
            // add
            ip_plugin_rule = ip_plugin_rule_new(line, schema, table_name, ip_plugin_rt->logger);
            if (NULL == ip_plugin_rule) {
                return -1;
            }
        }

        const char *key = line + item_id_offset;
        size_t key_len = item_id_len;
        ret = ip_plugin_runtime_update_row(ip_plugin_rt, ex_schema, table_name, line, key, key_len, 
                                           ip_plugin_rule, is_valid);
        if (ret < 0) {
            if (ip_plugin_rule != NULL) {
                ip_plugin_rule_free(ip_plugin_rule);
            }
            return -1;
        }
    } else {
        //ex_schema not set
        ex_data_runtime_cache_row_put(ip_plugin_rt->ex_data_rt, line);
        ip_plugin_rt->rule_num = ex_data_runtime_cached_row_count(ip_plugin_rt->ex_data_rt);
    }

    return 0;
}

int ip_plugin_runtime_commit(void *ip_plugin_runtime, const char *table_name)
{
    if (NULL == ip_plugin_runtime) {
        return -1;
    }

    struct ip_plugin_runtime *ip_plugin_rt = (struct ip_plugin_runtime *)ip_plugin_runtime;
    struct ex_data_runtime *ex_data_rt = ip_plugin_rt->ex_data_rt;
    if (NULL == ex_data_rt) {
        return -1;
    }

    int updating_flag = ex_data_runtime_is_updating(ex_data_rt);
    if (0 == updating_flag) {
        return 0;
    }

    ex_data_runtime_commit(ex_data_rt);

    struct ip_rule *rules = NULL;
    struct ex_container **ex_container = NULL;
    size_t rule_cnt = ex_data_runtime_list_ex_container(ex_data_rt, &ex_container);
    if (rule_cnt > 0) {
        rules = ALLOC(struct ip_rule, rule_cnt);
        for (size_t i = 0; i < rule_cnt; i++) {
            rules[i] = *(struct ip_rule *)ex_container[i]->custom_data;
            assert(rules[i].user_tag == ex_container[i] || rules[i].user_tag == NULL);
            rules[i].user_tag = ex_container[i];
        }
    }

    log_info(ip_plugin_rt->logger, MODULE_IP_PLUGIN,
             "table[%s] committing %zu ip_plugin rules for rebuilding ip_matcher engine",
             table_name, rule_cnt);

    int ret = 0;
    size_t mem_used = 0;
    struct ip_matcher *new_ip_matcher = NULL;
    struct ip_matcher *old_ip_matcher = NULL;

    if (rule_cnt > 0) {
        new_ip_matcher = ip_matcher_new(rules, rule_cnt, &mem_used, ip_plugin_rt->logger);
        if (NULL == new_ip_matcher) {
            log_error(ip_plugin_rt->logger, MODULE_IP_PLUGIN,
                      "[%s:%d] table[%s] rebuild ip_matcher engine failed when update %zu ip_plugin rules",
                      __FUNCTION__, __LINE__, table_name, rule_cnt);
            ret = -1;
        }
    }

    old_ip_matcher = ip_plugin_rt->ip_matcher;
    ip_plugin_rt->ip_matcher = new_ip_matcher;
    if (old_ip_matcher != NULL) {
        maat_garbage_bagging(ip_plugin_rt->ref_garbage_bin, old_ip_matcher, NULL,
                             garbage_ip_matcher_free);
    }
    
    ip_plugin_rt->rule_num = rule_cnt;

    if (rules != NULL) {
        FREE(rules);
    }
    
    if (ex_container != NULL) {
        FREE(ex_container);
    }

    return ret;
}

struct ex_data_runtime *ip_plugin_runtime_get_ex_data_rt(void *ip_plugin_runtime)
{
    if (NULL == ip_plugin_runtime) {
        return NULL;
    }

    struct ip_plugin_runtime *ip_plugin_rt = (struct ip_plugin_runtime *)ip_plugin_runtime;

    return ip_plugin_rt->ex_data_rt;
}

int ip_plugin_runtime_get_ex_data(void *ip_plugin_runtime, void *ip_plugin_schema,
                                  const struct ip_addr *ip_addr, void **ex_data_array, 
                                  size_t n_ex_data)
{
    if (NULL == ip_plugin_runtime || NULL == ip_plugin_schema) {
        return -1;
    }

    struct ip_plugin_schema *schema = (struct ip_plugin_schema *)ip_plugin_schema;
    struct ex_data_schema *ex_schema = schema->ex_schema;
    if (NULL == ex_schema) {
        return -1;
    }

    struct ip_plugin_runtime *ip_plugin_rt = (struct ip_plugin_runtime *)ip_plugin_runtime;
    if (0 == ip_plugin_rt->rule_num) {
        return 0;
    }

    struct scan_result results[n_ex_data];
	memset(results, 0, sizeof(results));

    struct ip_data ip_data = *(const struct ip_data *)ip_addr;
	if (ip_data.type == IPv4) {
		ip_data.ipv4 = ntohl(ip_data.ipv4);
	} else {
		ipv6_ntoh(ip_data.ipv6);
	}

    assert(ip_plugin_rt->ip_matcher != NULL);
	int n_result = ip_matcher_match(ip_plugin_rt->ip_matcher, &ip_data, results, n_ex_data);
	for (int i = 0; i < n_result; i++) {
		ex_data_array[i] = ex_data_runtime_get_ex_data_by_container(ip_plugin_rt->ex_data_rt, ex_schema,
                                                                    (struct ex_container *)results[i].tag);
	}
	return n_result;
}