/*
 * Copyright (C) 2020 iopsys Software Solutions AB
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License version 2.1
 * as published by the Free Software Foundation
 *
 *		Author: Imen Bhiri <imen.bhiri@pivasoftware.com>
 *		Author: Feten Besbes <feten.besbes@pivasoftware.com>
 *		Author: Omar Kallel <omar.kallel@pivasoftware.com>
 *		Author: Amin Ben Ramdhane <amin.benramdhane@pivasoftware.com>
 */

#include "dmcommon.h"

char *array_notifcation_char[__MAX_notification] = {
	[notification_none] = "0",
	[notification_passive] = "1",
	[notification_active] = "2",
	[notification_passive_lw] = "3",
	[notification_ppassive_passive_lw] = "4",
	[notification_aactive_lw] = "5",
	[notification_passive_active_lw] = "6",
};

void compress_spaces(char *str)
{
	char *dst = str;
	for (; *str; ++str) {
		*dst++ = *str;
		if (isspace(*str)) {
			do ++str;
			while (isspace(*str));
			--str;
		}
	}
	*dst = '\0';
}

char *cut_fx(char *str, char *delimiter, int occurence)
{
	int i = 1;
	char *pch, *spch;
	pch = strtok_r(str, delimiter, &spch);
	while (pch != NULL && i < occurence) {
		i++;
		pch = strtok_r(NULL, delimiter, &spch);
	}
	return pch;
}

unsigned char dmisnumeric(char *nbr)
{
	if (*nbr == '\0')
		return 0;
	while (*nbr <= '9' && *nbr >= '0') {
		nbr++;
	}
	return ((*nbr) ? 0 : 1);
}

/* int strstructered(char *str1, char *str2)
 * Return:
 * STRUCTERED_SAME: if str1 is same of str2
 * STRUCTERED_PART: if str2 is part of str1
 * STRUCTERED_NULL: if str2 is not part of str1
 *
 */
int strstructered(char *str1, char *str2)
{
	char buf[16];
	int i = 0;
	for (; *str1 && *str2; str1++, str2++) {
		if (*str1 == *str2)
			continue;
		if (*str2 == '#') {
			i = 0;
			do {
				buf[i++] = *str1;
			} while (*(str1+1) && *(str1+1) != dm_delim && str1++);
			buf[i] = '\0';
			if (dmisnumeric(buf))
				continue;
		} else if (*str1 == '#') {
			i = 0;
			do {
				buf[i++] = *str2;
			} while (*(str2+1) && *(str2+1) != dm_delim && str2++);
			buf[i] = '\0';
			if (dmisnumeric(buf))
				continue;
		}
		return STRUCTERED_NULL;
	}
	if (*str1 == '\0' && *str2 == '\0')
		return STRUCTERED_SAME;
	else if (*str2 == '\0')
		return STRUCTERED_PART;
	return STRUCTERED_NULL;
}


pid_t get_pid(char *pname)
{
	DIR* dir;
	struct dirent* ent;
	char* endptr;
	char buf[512];

	if (!(dir = opendir("/proc"))) {
		return -1;
	}
	while((ent = readdir(dir)) != NULL) {
		long lpid = strtol(ent->d_name, &endptr, 10);
		if (*endptr != '\0') {
			continue;
		}
		snprintf(buf, sizeof(buf), "/proc/%ld/cmdline", lpid);
		FILE* fp = fopen(buf, "r");
		if (fp) {
			if (fgets(buf, sizeof(buf), fp) != NULL) {
				char* first = strtok(buf, " ");
				if (strstr(first, pname)) {
					fclose(fp);
					closedir(dir);
					return (pid_t)lpid;
				}
			}
			fclose(fp);
		}
	}
	closedir(dir);
	return -1;
}

int check_file(char *path) 
{
	glob_t globbuf;
	if(glob(path, 0, NULL, &globbuf) == 0) {
		globfree(&globbuf);
		return 1;
	}
	return 0;
}

char *cidr2netmask(int bits)
{
	uint32_t mask;
	struct in_addr ip_addr;
	uint8_t u_bits = (uint8_t)bits;

	mask = ((0xFFFFFFFFUL << (32 - u_bits)) & 0xFFFFFFFFUL);
	mask = htonl(mask);
	ip_addr.s_addr = mask;
	return inet_ntoa(ip_addr);
}

void remove_substring(char *s, const char *str_remove)
{
	int len = strlen(str_remove);
	while (s == strstr(s, str_remove)) {
		memmove(s, s+len, 1+strlen(s+len));
    }
}

bool is_strword_in_optionvalue(char *optionvalue, char *str)
{
	int len;
	char *s = optionvalue;
	while ((s = strstr(s, str))) {
		len = strlen(str); //should be inside while, optimization reason
		if(s[len] == '\0' || s[len] == ' ')
			return true;
		s++;
	}
	return false;
}

int dmcmd(char *cmd, int n, ...)
{
	va_list arg;
	int i, pid;
	static int dmcmd_pfds[2];
	char *argv[n+2];

	argv[0] = cmd;

	va_start(arg,n);
	for (i=0; i<n; i++)
	{
		argv[i+1] = va_arg(arg, char*);
	}
	va_end(arg);

	argv[n+1] = NULL;

	if (pipe(dmcmd_pfds) < 0)
		return -1;

	if ((pid = fork()) == -1)
		return -1;

	if (pid == 0) {
		/* child */
		close(dmcmd_pfds[0]);
		dup2(dmcmd_pfds[1], 1);
		close(dmcmd_pfds[1]);

		execvp(argv[0], (char **) argv);
		exit(ESRCH);
	} else if (pid < 0)
		return -1;

	/* parent */
	close(dmcmd_pfds[1]);

	int status;
	while (waitpid(pid, &status, 0) != pid)
	{
		kill(pid, 0);
		if (errno == ESRCH) {
			return dmcmd_pfds[0];
		}
	}

	return dmcmd_pfds[0];
}

int dmcmd_no_wait(char *cmd, int n, ...)
{
	va_list arg;
	int i, pid;
	char *argv[n+2];
	static char sargv[4][128];

	argv[0] = cmd;
	va_start(arg,n);
	for (i=0; i<n; i++)
	{
		strcpy(sargv[i], va_arg(arg, char*));
		argv[i+1] = sargv[i];
	}
	va_end(arg);

	argv[n+1] = NULL;

	if ((pid = fork()) == -1)
		return -1;

	if (pid == 0) {
		execvp(argv[0], (char **) argv);
		exit(ESRCH);
	} else if (pid < 0)
		return -1;
	return 0;
}

void dmcmd_read_alloc(int pipe, char **value)
{
	char buffer[64];
	ssize_t rxed;
	int t, len = 1;

	*value = NULL;
	while ((rxed = read(pipe, buffer, sizeof(buffer) - 1)) > 0) {
		t = len;
		len += rxed;
		*value = dmrealloc(*value, len);
		memcpy(*value + t - 1, buffer, rxed);
		*(*value + len -1) = '\0';
	}
	if (*value == NULL)
		*value = dmstrdup("");
}

int dmcmd_read(int pipe, char *buffer, int size)
{
	int rd;
	if (size < 2) return -1;
	if ((rd = read(pipe, buffer, (size-1))) > 0) {
		buffer[rd] = '\0';
		return (rd + 1);
	} else {
		buffer[0] = '\0';
		return -1;
	}
	return -1;
}

int ipcalc(char *ip_str, char *mask_str, char *start_str, char *end_str, char *ipstart_str, char *ipend_str)
{
	struct in_addr ip, mask, ups, upe;
	int start, end;

	inet_aton(ip_str, &ip);
	inet_aton(mask_str, &mask);

	start = atoi(start_str);

	ups.s_addr = htonl(ntohl(ip.s_addr & mask.s_addr) + start);
	strcpy(ipstart_str, inet_ntoa(ups));

	if (end_str) {
		end = atoi(end_str);
		upe.s_addr = htonl(ntohl(ups.s_addr) + end);
		strcpy(ipend_str, inet_ntoa(upe));
	}
	return 0;
}

int ipcalc_rev_start(char *ip_str, char *mask_str, char *ipstart_str, char *start_str)
{
	struct in_addr ip, mask, ups;
	int start;

	inet_aton(ip_str, &ip);
	inet_aton(mask_str, &mask);
	inet_aton(ipstart_str, &ups);

	start = ntohl(ups.s_addr) - ntohl(ip.s_addr & mask.s_addr);
	sprintf(start_str, "%d", start);
	return 0;
}

int ipcalc_rev_end(char *ip_str, char *mask_str, char *start_str, char *ipend_str, char *end_str)
{
	struct in_addr ip;
	struct in_addr mask;
	struct in_addr upe;
	int end;

	inet_aton(ip_str, &ip);
	inet_aton(mask_str, &mask);
	inet_aton(ipend_str, &upe);

	end = ntohl(upe.s_addr) - ntohl(ip.s_addr & mask.s_addr) - atoi(start_str);
	sprintf(end_str, "%d", end);
	return 0;
}

int network_get_ipaddr(char **value, char *iface)
{
	json_object *res, *jobj;
	char *ipv6_value = "";

	dmubus_call("network.interface", "status", UBUS_ARGS{{"interface", iface, String}}, 1, &res);
	DM_ASSERT(res, *value = "");
	jobj = dmjson_select_obj_in_array_idx(res, 0, 1, "ipv4-address");
	*value = dm_ubus_get_value(jobj, 1, "address");
	jobj = dmjson_select_obj_in_array_idx(res, 0, 1, "ipv6-address");
	ipv6_value = dm_ubus_get_value(jobj, 1, "address");

	if((*value)[0] == '\0' || ipv6_value[0] == '\0') {
		if ((*value)[0] == '\0')
			*value = ipv6_value;
	} else if (ip_version == 6) {
		*value = ipv6_value;
		return 0;
	}
	return 0;
}

void remove_vid_interfaces_from_ifname(char *vid, char *ifname, char *new_ifname)
{
	char *pch, *p = new_ifname, *spch;
	new_ifname[0] = '\0';
	bool append;

	ifname = dmstrdup(ifname);
	pch = strtok_r(ifname, " ", &spch);
	while (pch != NULL) {
		append = false;
		char *sv = strchr(pch, '.');
		if (sv) {
			sv++;
			if (strcmp(sv, vid) != 0) {
				append = true;
			}
		} else {
			append = true;
		}
		if (append) {
			if (p == new_ifname) {
				dmstrappendstr(p, pch);
			} else {
				dmstrappendchr(p, ' ');
				dmstrappendstr(p, pch);
			}
		}
		pch = strtok_r(NULL, " ", &spch);
	}
	dmstrappendend(p);
	dmfree(ifname);
}

void update_section_option_list(char *config, char *section, char *option, char *option_2,char *val, char *val_2, char *name)
{
	char *add_value, *baseifname;
	struct uci_section *prev_s= NULL, *s;
	bool add_sec = true;

	if (name[0] == '\0') {
		add_sec = false;
	}
	if (strcmp(config, DMMAP) == 0) {
		uci_path_foreach_option_eq(bbfdm, config, section, option_2, val_2, s) {
			dmuci_get_value_by_section_string(s, option, &baseifname);
			if (!strstr(name, baseifname)) {
				//delete section if baseifname  does not belong to ifname
				if (prev_s) {
					DMUCI_DELETE_BY_SECTION(bbfdm, prev_s, NULL, NULL);
				}
				prev_s = s;
			} else if (strstr(name, baseifname) && (strcmp(baseifname,val) ==0)) {
				//do not add baseifname if exist
				add_sec = false;
			}
		}
		if (prev_s) {
			DMUCI_DELETE_BY_SECTION(bbfdm, prev_s, NULL, NULL);
		}
		if (add_sec) {
			DMUCI_ADD_SECTION(bbfdm, config, section, &s, &add_value);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option, val);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option_2, val_2);
		}
	} else {
		uci_foreach_option_eq(config, section, option_2, val_2, s) {
			dmuci_get_value_by_section_string(s, option, &baseifname);
			if (!strstr(name, baseifname)) {
				//delete section if baseifname  does not belong to ifname
				if (prev_s) {
					dmuci_delete_by_section(prev_s, NULL, NULL);
				}
				prev_s = s;
			} else if (strstr(name, baseifname) && (strcmp(baseifname,val) ==0)) {
				//do not add baseifname if exist
				add_sec = false;
			}
		}
		if (prev_s) {
			dmuci_delete_by_section(prev_s, NULL, NULL);
		}
		if (add_sec) {
			dmuci_add_section_and_rename(config, section, &s, &add_value);
			dmuci_set_value_by_section(s, option, val);
			dmuci_set_value_by_section(s, option_2, val_2);
		}
	}
}

void update_section_list_bbfdm(char *config, char *section, char *option, int number, char *filter, char *option1, char *val1,  char *option2, char *val2)
{
	char *add_value;
	struct uci_section *s = NULL;
	int i = 0;

	if (option) {
		uci_path_foreach_option_eq(bbfdm, config, section, option, filter, s) {
			return;
		}
	} else {
		uci_path_foreach_sections(bbfdm, config, section, s) {
			return;
		}
	}
	while (i < number) {
		DMUCI_ADD_SECTION(bbfdm, config, section, &s, &add_value);
		if (option)DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option, filter);
		if (option1)DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option1, val1);
		if (option2)DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option2, val2);
		i++;
	}
}

void update_section_list(char *config, char *section, char *option, int number, char *filter, char *option1, char *val1,  char *option2, char *val2)
{
	char *add_value;
	struct uci_section *s = NULL;
	int i = 0;

	if (strcmp(config, DMMAP) == 0)
	{
		if (option) {
			uci_path_foreach_option_eq(bbfdm, config, section, option, filter, s) {
				return;
			}
		} else {
			uci_path_foreach_sections(bbfdm, config, section, s) {
				return;
			}
		}
		while (i < number) {
			DMUCI_ADD_SECTION(bbfdm, config, section, &s, &add_value);
			if (option)DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option, filter);
			if (option1)DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option1, val1);
			if (option2)DMUCI_SET_VALUE_BY_SECTION(bbfdm, s, option2, val2);
			i++;
		}
	}
	else
	{
		if (option) {
			uci_foreach_option_eq(config, section, option, filter, s) {
				return;
			}
		} else {
			uci_foreach_sections(config, section, s) {
				return;
			}
		}
		while (i < number) {
			dmuci_add_section_and_rename(config, section, &s, &add_value);
			if (option)dmuci_set_value_by_section(s, option, filter);
			if (option1)dmuci_set_value_by_section(s, option1, val1);
			if (option2)dmuci_set_value_by_section(s, option2, val2);
			i++;
		}
	}
}

char *get_nvram_wpakey() {
	json_object *res;
	char *wpakey = "";
	dmubus_call("router.system", "info", UBUS_ARGS{{}}, 0, &res);
	if (res)
		wpakey = dmjson_get_value(res, 2, "keys", "wpa");
	return dmstrdup(wpakey);
}

int reset_wlan(struct uci_section *s)
{
	dmuci_delete_by_section(s, "gtk_rekey", NULL);
	dmuci_delete_by_section(s, "cipher", NULL);
	dmuci_delete_by_section(s, "wps", NULL);
	dmuci_delete_by_section(s, "key", NULL);
	dmuci_delete_by_section(s, "key1", NULL);
	dmuci_delete_by_section(s, "key2", NULL);
	dmuci_delete_by_section(s, "key3", NULL);
	dmuci_delete_by_section(s, "key4", NULL);
	dmuci_delete_by_section(s, "radius_server", NULL);
	dmuci_delete_by_section(s, "radius_port", NULL);
	dmuci_delete_by_section(s, "radius_secret", NULL);
	return 0;
}

int get_cfg_layer2idx(char *pack, char *section_type, char *option, int shift)
{
	char *si, *value;
	int idx = 0, max = -1;
	struct uci_section *s = NULL;

	uci_foreach_sections(pack, section_type, s) {
		dmuci_get_value_by_section_string(s, option, &value);
		si = value + shift;
		idx = atoi(si);
		if (idx > max)
			max = idx;
	}
	return (max + 1);
}

int wan_remove_dev_interface(struct uci_section *interface_setion, char *dev)
{
	char *ifname, new_ifname[64], *p, *pch, *spch;
	new_ifname[0] = '\0';
	p = new_ifname;
	dmuci_get_value_by_section_string(interface_setion, "ifname", &ifname);
	ifname = dmstrdup(ifname);
	for (pch = strtok_r(ifname, " ", &spch); pch; pch = strtok_r(NULL, " ", &spch)) {
		if (!strstr(pch, dev)) {
			if (new_ifname[0] != '\0') {
				dmstrappendchr(p, ' ');
			}
			dmstrappendstr(p, pch);
		}
	}
	dmstrappendend(p);
	dmfree(ifname);
	if (new_ifname[0] == '\0') {
		dmuci_delete_by_section(interface_setion, NULL, NULL);
	}
	else {
		dmuci_set_value_by_section(interface_setion, "ifname", new_ifname);
	}
	return 0;
}

int filter_lan_device_interface(struct uci_section *s)
{
	char *ifname = NULL;
	char *phy_itf = NULL, *phy_itf_local;
	char *pch, *spch, *ftype, *islan;

	dmuci_get_value_by_section_string(s, "type", &ftype);
	if (strcmp(ftype, "alias") != 0) {
		dmuci_get_value_by_section_string(s, "is_lan", &islan);
		if (islan[0] == '1' && strcmp(section_name(s), "loopback") != 0 )
			return 0;
		dmuci_get_value_by_section_string(s, "ifname", &ifname);
		db_get_value_string("hw", "board", "ethernetLanPorts", &phy_itf);
		phy_itf_local = dmstrdup(phy_itf);
		for (pch = strtok_r(phy_itf_local, " ", &spch); pch != NULL; pch = strtok_r(NULL, " ", &spch)) {
			if (strstr(ifname, pch)) {
				dmfree(phy_itf_local);
				return 0;
			}
		}
		dmfree(phy_itf_local);
	}
	return -1;
}

void update_remove_vlan_from_bridge_interface(char *bridge_key, struct uci_section *vb)
{
	char *ifname,*vid;
	char new_ifname[128];
	struct uci_section *s;

	uci_foreach_option_eq("network", "interface", "bridge_instance", bridge_key, s)
	{
		break;
	}
	if (!s) return;
	dmuci_get_value_by_section_string(vb, "vid", &vid);
	dmuci_get_value_by_section_string(s, "ifname", &ifname);
	remove_vid_interfaces_from_ifname(vid, ifname, new_ifname);
	dmuci_set_value_by_section(s, "ifname", new_ifname);
}

int filter_lan_ip_interface(struct uci_section *ss, void *v)
{
	struct uci_section *lds = (struct uci_section *)v;
	char *value, *type;
	dmuci_get_value_by_section_string(ss, "type", &type);
	if (ss == lds) {
		return 0;
	}
	else if (strcmp(type, "alias") == 0) {
		dmuci_get_value_by_section_string(ss, "ifname", &value);
		if(strncmp(value, "br-", 3) == 0)
			value += 3;
		if (strcmp(value, section_name(lds)) == 0)
			return 0;
	}
	return -1;
}

void remove_interface_from_ifname(char *iface, char *ifname, char *new_ifname)
{
	char *pch, *spch, *p = new_ifname;
	new_ifname[0] = '\0';

	ifname = dmstrdup(ifname);
	pch = strtok_r(ifname, " ", &spch);
	while (pch != NULL) {
		if (strcmp(pch, iface) != 0) {
			if (p == new_ifname) {
				dmstrappendstr(p, pch);
			}
			else {
				dmstrappendchr(p, ' ');
				dmstrappendstr(p, pch);
			}
		}
		pch = strtok_r(NULL, " ", &spch);
	}
	dmstrappendend(p);
	dmfree(ifname);
}

int max_array(int a[], int size)
{
	int i, max = 0;
	for (i = 0; i< size; i++)
	{
		if(a[i] > max )
		max = a[i];
	}
	return max;
}

int check_ifname_is_vlan(char *ifname)
{
	struct uci_section *s;
	char *type;

	uci_foreach_option_eq("network", "device", "name", ifname, s) {
		dmuci_get_value_by_section_string(s, "type", &type);
		if(strcasecmp(type, "untagged") != 0)
			return 1;
	}
	return 0;
}

int dmcommon_check_notification_value(char *value)
{
	int i;
	for (i = 0; i< __MAX_notification; i++) {
		if (strcmp(value, array_notifcation_char[i]) == 0)
			return 0;
	}
	return -1;
}

void parse_proc_route_line(char *line, struct proc_routing *proute)
{
	char *pch, *spch;

	proute->iface = strtok_r(line, " \t", &spch);
	pch = strtok_r(NULL, " \t", &spch);
	hex_to_ip(pch, proute->destination);
	pch = strtok_r(NULL, " \t", &spch);
	hex_to_ip(pch, proute->gateway);
	proute->flags = strtok_r(NULL, " \t", &spch);
	proute->refcnt = strtok_r(NULL, " \t", &spch);
	proute->use = strtok_r(NULL, " \t", &spch);
	proute->metric = strtok_r(NULL, " \t", &spch);
	pch = strtok_r(NULL, " \t", &spch);
	hex_to_ip(pch, proute->mask);
	proute->mtu = strtok_r(NULL, " \t", &spch);
	proute->window = strtok_r(NULL, " \t", &spch);
	proute->irtt = strtok_r(NULL, " \t\n\r", &spch);
}

void hex_to_ip(char *address, char *ret)
{
	int ip[4] = {0};

	sscanf(address, "%2x%2x%2x%2x", &(ip[0]), &(ip[1]), &(ip[2]), &(ip[3]));
	if (htonl(13) == 13) {
		sprintf(ret, "%d.%d.%d.%d", ip[0], ip[1], ip[2], ip[3]);
	} else {
		sprintf(ret, "%d.%d.%d.%d", ip[3], ip[2], ip[1], ip[0]);
	}
}

void ip_to_hex(char *address, char *ret)
{
	int ip[4] = {0};

	sscanf(address, "%d.%d.%d.%d", &(ip[0]), &(ip[1]), &(ip[2]), &(ip[3]));
	sprintf(ret, "%02X%02X%02X%02X", ip[0], ip[1], ip[2], ip[3]);
}

/*
 * dmmap_config sections list manipulation
 */
void add_sectons_list_paramameter(struct list_head *dup_list, struct uci_section *config_section, struct uci_section *dmmap_section, void* additional_attribute)
{
	struct dmmap_dup *dmmap_config;

	dmmap_config = dmcalloc(1, sizeof(struct dmmap_dup));
	list_add_tail(&dmmap_config->list, dup_list);
	dmmap_config->config_section = config_section;
	dmmap_config->dmmap_section = dmmap_section;
	dmmap_config->additional_attribute = additional_attribute;
}

void dmmap_config_dup_delete(struct dmmap_dup *dmmap_config)
{
	list_del(&dmmap_config->list);
}

void free_dmmap_config_dup_list(struct list_head *dup_list)
{
	struct dmmap_dup *dmmap_config;
	while (dup_list->next != dup_list) {
		dmmap_config = list_entry(dup_list->next, struct dmmap_dup, list);
		dmmap_config_dup_delete(dmmap_config);
	}
}

/*
 * Function allows to synchronize config section with dmmap config
 */
struct uci_section *get_origin_section_from_config(char *package, char *section_type, char *orig_section_name)
{
	struct uci_section *s;

	uci_foreach_sections(package, section_type, s) {
		if (strcmp(section_name(s), orig_section_name) == 0) {
			return s;
		}
	}
	return NULL;
}

struct uci_section *get_dup_section_in_dmmap(char *dmmap_package, char *section_type, char *orig_section_name)
{
	struct uci_section *s;

	uci_path_foreach_option_eq(bbfdm, dmmap_package, section_type, "section_name", orig_section_name, s) {
		return s;
	}

	return NULL;
}

struct uci_section *get_dup_section_in_dmmap_opt(char *dmmap_package, char *section_type, char *opt_name, char *opt_value)
{
	struct uci_section *s;

	uci_path_foreach_option_eq(bbfdm, dmmap_package, section_type, opt_name, opt_value, s) {
		return s;
	}

	return NULL;
}

struct uci_section *get_dup_section_in_dmmap_eq(char *dmmap_package, char* section_type, char*sect_name, char *opt_name, char* opt_value)
{
	struct uci_section *s;
	char *v;

	uci_path_foreach_option_eq(bbfdm, dmmap_package, section_type, "section_name", sect_name, s) {
		dmuci_get_value_by_section_string(s, opt_name, &v);
		if (strcmp(v, opt_value) == 0)
			return s;
	}
	return NULL;
}

void synchronize_specific_config_sections_with_dmmap_vlan(char *package, char *section_type, char *dmmap_package, char *ifname, struct list_head *dup_list)
{
        struct uci_section *s, *stmp, *dmmap_sect;
        FILE *fp;
        char *v, *dmmap_file_path;

        dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
        if (access(dmmap_file_path, F_OK)) {
                /*
                 *File does not exist
                 **/
                fp = fopen(dmmap_file_path, "w"); // new empty file
                fclose(fp);
        }
        uci_foreach_sections(package, section_type, s) {
                /*
                 * create/update corresponding dmmap section that have same config_section link and using param_value_array
                 */
                if ((dmmap_sect = get_dup_section_in_dmmap(dmmap_package, section_type, section_name(s))) == NULL) {
                        dmuci_add_section_bbfdm(dmmap_package, section_type, &dmmap_sect, &v);
                        DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section_name", section_name(s));
                }

                /* Fix : Entry for only VLANS. */
                if (strcmp(package, "network") == 0  &&
                        strcmp(section_type, "interface") == 0 &&
                        strcmp(dmmap_package, "dmmap_network") == 0) {
                        char *type, *intf;
                        dmuci_get_value_by_section_string(s, "type", &type);
                        dmuci_get_value_by_section_string(s, "ifname", &intf);
                        if (strcmp(type,"bridge") != 0 || strcmp(intf, ifname) != 0){
                                continue;
                        }
                }

                /* Fix: Vlan object should not be created for transparent bridges. */
                int tag = 0;
                char name[250] = {0};
                strncpy(name, ifname, sizeof(name));
                char *p = strtok(name, " ");
                while (p != NULL) {
                        char intf[250] = {0};
                        strncpy(intf, p, sizeof(intf));
                        char *find = strstr(intf, ".");
                        if (find) {
                                tag = 1;
                                break;
                        }
                        p = strtok(NULL, "");
                }

                if (tag == 0) {
                        continue;
                }

                /*
                 * Add system and dmmap sections to the list
                 */
                add_sectons_list_paramameter(dup_list, s, dmmap_sect, NULL);
        }

        /*
         * Delete unused dmmap sections
         */
        uci_path_foreach_sections_safe(bbfdm, dmmap_package, section_type, stmp, s) {
                dmuci_get_value_by_section_string(s, "section_name", &v);
                if(get_origin_section_from_config(package, section_type, v) == NULL){
                        dmuci_delete_by_section_unnamed_bbfdm(s, NULL, NULL);
                }
        }
}

void synchronize_specific_config_sections_with_dmmap(char *package, char *section_type, char *dmmap_package, struct list_head *dup_list)
{
	struct uci_section *s, *stmp, *dmmap_sect;
	FILE *fp;
	char *v, *dmmap_file_path;

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}
	uci_foreach_sections(package, section_type, s) {
		/*
		 * create/update corresponding dmmap section that have same config_section link and using param_value_array
		 */
		if ((dmmap_sect = get_dup_section_in_dmmap(dmmap_package, section_type, section_name(s))) == NULL) {
			dmuci_add_section_bbfdm(dmmap_package, section_type, &dmmap_sect, &v);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section_name", section_name(s));
		}

               /* Fix : Change to fix multiple IP interface creation. */
                if (strcmp(package, "network") == 0  &&
                        strcmp(section_type, "interface") == 0 &&
                        strcmp(dmmap_package, "dmmap_network") == 0) {
                        char *value;
                        char *type;
                        dmuci_get_value_by_section_string(s, "proto", &value);
                        if (*value == '\0') {
                                continue;
                        }
                }

		/*
		 * Add system and dmmap sections to the list
		 */
		add_sectons_list_paramameter(dup_list, s, dmmap_sect, NULL);
	}

	/*
	 * Delete unused dmmap sections
	 */
	uci_path_foreach_sections_safe(bbfdm, dmmap_package, section_type, stmp, s) {
		dmuci_get_value_by_section_string(s, "section_name", &v);
		if (get_origin_section_from_config(package, section_type, v) == NULL) {
			dmuci_delete_by_section_unnamed_bbfdm(s, NULL, NULL);
		}
	}
}

void synchronize_specific_config_sections_with_dmmap_eq(char *package, char *section_type, char *dmmap_package,char* option_name, char* option_value, struct list_head *dup_list)
{
	struct uci_section *s, *stmp, *dmmap_sect;
	FILE *fp;
	char *v, *dmmap_file_path;

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}
	uci_foreach_option_eq(package, section_type, option_name, option_value, s) {
		/*
		 * create/update corresponding dmmap section that have same config_section link and using param_value_array
		 */
		if ((dmmap_sect = get_dup_section_in_dmmap(dmmap_package, section_type, section_name(s))) == NULL) {
			dmuci_add_section_bbfdm(dmmap_package, section_type, &dmmap_sect, &v);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section_name", section_name(s));
		}

		/*
		 * Add system and dmmap sections to the list
		 */
		add_sectons_list_paramameter(dup_list, s, dmmap_sect, NULL);
	}

	/*
	 * Delete unused dmmap sections
	 */
	uci_path_foreach_sections_safe(bbfdm, dmmap_package, section_type, stmp, s) {
		dmuci_get_value_by_section_string(s, "section_name", &v);
		if(get_origin_section_from_config(package, section_type, v) == NULL){
			dmuci_delete_by_section(s, NULL, NULL);
		}
	}
}

void synchronize_specific_config_sections_with_dmmap_eq_no_delete(char *package, char *section_type, char *dmmap_package, char* option_name, char* option_value, struct list_head *dup_list)
{
	struct uci_section *s, *dmmap_sect;
	FILE *fp;
	char *v, *dmmap_file_path;

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}
	uci_foreach_option_eq(package, section_type, option_name, option_value, s) {
		/*
		 * create/update corresponding dmmap section that have same config_section link and using param_value_array
		 */
		if ((dmmap_sect = get_dup_section_in_dmmap(dmmap_package, section_type, section_name(s))) == NULL) {
			dmuci_add_section_bbfdm(dmmap_package, section_type, &dmmap_sect, &v);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section_name", section_name(s));
		}
	}

	dmmap_sect= NULL;
	s= NULL;
	uci_path_foreach_sections(bbfdm, dmmap_package, section_type, dmmap_sect) {
		dmuci_get_value_by_section_string(dmmap_sect, "section_name", &v);
		get_config_section_of_dmmap_section("network", "interface", v, &s);
		add_sectons_list_paramameter(dup_list, s, dmmap_sect, NULL);
	}
}

void synchronize_specific_config_sections_with_dmmap_cont(char *package, char *section_type, char *dmmap_package,char* option_name, char* option_value, struct list_head *dup_list)
{
	struct uci_section *s, *stmp, *dmmap_sect;
	FILE *fp;
	char *v, *dmmap_file_path;

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}
	uci_foreach_option_cont(package, section_type, option_name, option_value, s) {
		/*
		 * create/update corresponding dmmap section that have same config_section link and using param_value_array
		 */
		if ((dmmap_sect = get_dup_section_in_dmmap(dmmap_package, section_type, section_name(s))) == NULL) {
			dmuci_add_section_bbfdm(dmmap_package, section_type, &dmmap_sect, &v);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section_name", section_name(s));
		}

		/*
		 * Add system and dmmap sections to the list
		 */
		add_sectons_list_paramameter(dup_list, s, dmmap_sect, NULL);
	}

	/*
	 * Delete unused dmmap sections
	 */
	uci_path_foreach_sections_safe(bbfdm, dmmap_package, section_type, stmp, s) {
		dmuci_get_value_by_section_string(s, "section_name", &v);

		if(get_origin_section_from_config(package, section_type, v) == NULL){
			dmuci_delete_by_section(s, NULL, NULL);
		}
	}
}

bool synchronize_multi_config_sections_with_dmmap_eq(char *package, char *section_type, char *dmmap_package, char* dmmap_section, char* option_name, char* option_value, void* additional_attribute, struct list_head *dup_list)
{
	struct uci_section *s, *stmp, *dmmap_sect;
	FILE *fp;
	char *v, *dmmap_file_path, *pack, *sect;
	bool found = false;

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}

	uci_foreach_option_eq(package, section_type, option_name, option_value, s) {
		found = true;
		/*
		 * create/update corresponding dmmap section that have same config_section link and using param_value_array
		 */
		if ((dmmap_sect = get_dup_section_in_dmmap(dmmap_package, dmmap_section, section_name(s))) == NULL) {
			dmuci_add_section_bbfdm(dmmap_package, dmmap_section, &dmmap_sect, &v);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section_name", section_name(s));
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "package", package);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section", section_type);
		}

		/*
		 * Add system and dmmap sections to the list
		 */
		add_sectons_list_paramameter(dup_list, s, dmmap_sect, additional_attribute);
	}

	/*
	 * Delete unused dmmap sections
	 */
	uci_path_foreach_sections_safe(bbfdm, dmmap_package, dmmap_section, stmp, s) {
		dmuci_get_value_by_section_string(s, "section_name", &v);
		dmuci_get_value_by_section_string(s, "package", &pack);
		dmuci_get_value_by_section_string(s, "section", &sect);
		if(v!=NULL && strlen(v)>0 && strcmp(package, pack)==0 && strcmp(section_type, sect)== 0){
			if(get_origin_section_from_config(package, section_type, v) == NULL){
				dmuci_delete_by_section(s, NULL, NULL);
			}
		}
	}

	return found;
}

bool synchronize_multi_config_sections_with_dmmap_eq_diff(char *package, char *section_type, char *dmmap_package, char* dmmap_section, char* option_name, char* option_value, char* opt_diff_name, char* opt_diff_value, void* additional_attribute, struct list_head *dup_list)
{
	struct uci_section *s, *stmp, *dmmap_sect;
	FILE *fp;
	char *v, *dmmap_file_path, *pack, *sect, *optval;
	bool found= false;

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}

	uci_foreach_option_eq(package, section_type, option_name, option_value, s) {
		found = true;
		dmuci_get_value_by_section_string(s, opt_diff_name, &optval);
		if (strcmp(optval, opt_diff_value) != 0) {
			/*
			 * create/update corresponding dmmap section that have same config_section link and using param_value_array
			 */
			if ((dmmap_sect = get_dup_section_in_dmmap(dmmap_package, dmmap_section, section_name(s))) == NULL) {
				dmuci_add_section_bbfdm(dmmap_package, dmmap_section, &dmmap_sect, &v);
				DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section_name", section_name(s));
				DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "package", package);
				DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, "section", section_type);
			}

			/*
			 * Add system and dmmap sections to the list
			 */
			add_sectons_list_paramameter(dup_list, s, dmmap_sect, additional_attribute);
		}
	}

	/*
	 * Delete unused dmmap sections
	 */
	uci_path_foreach_sections_safe(bbfdm, dmmap_package, dmmap_section, stmp, s) {
		dmuci_get_value_by_section_string(s, "section_name", &v);
		dmuci_get_value_by_section_string(s, "package", &pack);
		dmuci_get_value_by_section_string(s, "section", &sect);
		if(v!=NULL && strlen(v)>0 && strcmp(package, pack)==0 && strcmp(section_type, sect)== 0){
			if(get_origin_section_from_config(package, section_type, v) == NULL){
				dmuci_delete_by_section(s, NULL, NULL);
			}
		}
	}

	return found;
}

void add_sysfs_sectons_list_paramameter(struct list_head *dup_list, struct uci_section *dmmap_section, char *file_name, char* filepath)
{
	struct sysfs_dmsection *dmmap_sysfs;

	dmmap_sysfs = dmcalloc(1, sizeof(struct sysfs_dmsection));
	list_add_tail(&dmmap_sysfs->list, dup_list);
	dmmap_sysfs->dm = dmmap_section;
	dmmap_sysfs->sysfs_folder_name= dmstrdup(file_name);
	dmmap_sysfs->sysfs_folder_path= dmstrdup(filepath);
}

int synchronize_system_folders_with_dmmap_opt(char *sysfsrep, char *dmmap_package, char *dmmap_section, char *opt_name, char* inst_opt, struct list_head *dup_list)
{
	struct uci_section *s, *stmp, *dmmap_sect;
	FILE *fp;
	DIR *dir;
	struct dirent *ent;
	char *v, *dmmap_file_path, *sysfs_rep_path, *instance= NULL;
	struct sysfs_dmsection *p;
	LIST_HEAD(dup_list_no_inst);

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}

	sysfs_foreach_file(sysfsrep, dir, ent) {
		if(strcmp(ent->d_name, ".")==0 || strcmp(ent->d_name, "..")==0)
			continue;

		/*
		 * create/update corresponding dmmap section that have same config_section link and using param_value_array
		 */
		dmasprintf(&sysfs_rep_path, "%s/%s", sysfsrep, ent->d_name);
		if ((dmmap_sect = get_dup_section_in_dmmap_opt(dmmap_package, dmmap_section, opt_name, sysfs_rep_path)) == NULL) {
			dmuci_add_section_bbfdm(dmmap_package, dmmap_section, &dmmap_sect, &v);
			DMUCI_SET_VALUE_BY_SECTION(bbfdm, dmmap_sect, opt_name, sysfs_rep_path);
		}

		dmuci_get_value_by_section_string(dmmap_sect, inst_opt, &instance);

		/*
		 * Add system and dmmap sections to the list
		 */

		if(instance == NULL || strlen(instance) <= 0)
			add_sysfs_sectons_list_paramameter(&dup_list_no_inst, dmmap_sect, ent->d_name, sysfs_rep_path);
		else
			add_sysfs_sectons_list_paramameter(dup_list, dmmap_sect, ent->d_name, sysfs_rep_path);
	}
	/*
	 * fusion two lists
	 */
	list_for_each_entry(p, &dup_list_no_inst, list) {
		add_sysfs_sectons_list_paramameter(dup_list, p->dm, p->sysfs_folder_name, p->sysfs_folder_path);
	}
	/*
	 * Delete unused dmmap sections
	 */
	uci_path_foreach_sections_safe(bbfdm, dmmap_package, dmmap_section, stmp, s) {
		dmuci_get_value_by_section_string(s, opt_name, &v);
		if(isfolderexist(v) == 0){
			dmuci_delete_by_section_unnamed_bbfdm(s, NULL, NULL);
		}
	}
	return 0;
}

void get_dmmap_section_of_config_section(char* dmmap_package, char* section_type, char *section_name, struct uci_section **dmmap_section)
{
	struct uci_section* s;

	uci_path_foreach_option_eq(bbfdm, dmmap_package, section_type, "section_name", section_name, s){
		*dmmap_section= s;
		return;
	}
	*dmmap_section= NULL;
}

void get_dmmap_section_of_config_section_eq(char* dmmap_package, char* section_type, char *opt, char* value, struct uci_section **dmmap_section)
{
	struct uci_section* s;

	uci_path_foreach_option_eq(bbfdm, dmmap_package, section_type, opt, value, s){
		*dmmap_section= s;
		return;
	}
	*dmmap_section= NULL;
}

void get_config_section_of_dmmap_section(char* package, char* section_type, char *section_name, struct uci_section **config_section)
{
	struct uci_section* s;

	uci_foreach_sections(package, section_type, s){
		if(strcmp(section_name(s), section_name)==0){
			*config_section= s;
			return;
		}
	}
	*config_section= NULL;
}

void check_create_dmmap_package(char *dmmap_package)
{
	FILE *fp;
	char *dmmap_file_path;

	dmasprintf(&dmmap_file_path, "/etc/bbfdm/%s", dmmap_package);
	if (access(dmmap_file_path, F_OK)) {
		/*
		 *File does not exist
		 **/
		fp = fopen(dmmap_file_path, "w"); // new empty file
		fclose(fp);
	}
	dmfree(dmmap_file_path);
}

int is_section_unnamed(char *section_name)
{
        int i;

        if(strlen(section_name)!=9)
                return 0;
        if(strstr(section_name, "cfg") != section_name)
                return 0;
        for(i=3; i<9; i++){
                if(!isxdigit(section_name[i]))
                        return 0;
        }
        return 1;
}

void add_dmmap_list_section(struct list_head *dup_list, char* section_name, char* instance)
{
	struct dmmap_sect *dmsect;

	dmsect = dmcalloc(1, sizeof(struct dmmap_sect));
	list_add_tail(&dmsect->list, dup_list);
	dmasprintf(&dmsect->section_name, "%s", section_name);
	dmasprintf(&dmsect->instance, "%s", instance);
}

void delete_sections_save_next_sections(char* dmmap_package, char *section_type, char *instancename, char *section_name, int instance, struct list_head *dup_list) 
{
	struct uci_section *s, *stmp;
	char *v=NULL, *lsectname= NULL, *tmp= NULL;
	int inst;

	dmasprintf(&lsectname, "%s", section_name);

	uci_path_foreach_sections(bbfdm, dmmap_package, section_type, s) {
		dmuci_get_value_by_section_string(s, instancename, &v);
		inst= atoi(v);
		if(inst>instance){
			dmuci_get_value_by_section_string(s, "section_name", &tmp);
			add_dmmap_list_section(dup_list, lsectname, v);
			dmfree(lsectname);
			lsectname= NULL;
			dmasprintf(&lsectname, "%s", tmp);
			dmfree(tmp);
			tmp= NULL;
		}
	}

	if(lsectname != NULL) dmfree(lsectname);


	uci_path_foreach_sections_safe(bbfdm, dmmap_package, section_type, stmp, s) {
		dmuci_get_value_by_section_string(s, instancename, &v);
		inst= atoi(v);
		if(inst>=instance)
			dmuci_delete_by_section_unnamed_bbfdm(s, NULL, NULL);
	}
}

void update_dmmap_sections(struct list_head *dup_list, char *instancename, char* dmmap_package, char *section_type)
{
	struct uci_section *dm_sect;
	char *v;
	struct dmmap_sect *p;

	list_for_each_entry(p, dup_list, list) {
		dmuci_add_section_bbfdm(dmmap_package, section_type, &dm_sect, &v);
		dmuci_set_value_by_section(dm_sect, "section_name", p->section_name);
		dmuci_set_value_by_section(dm_sect, instancename, p->instance);
	}
}

struct uci_section *is_dmmap_section_exist(char* package, char* section)
{
	struct uci_section *s;

	uci_path_foreach_sections(bbfdm, package, section, s) {
		return s;
	}
	return NULL;
}

struct uci_section *is_dmmap_section_exist_eq(char* package, char* section, char* opt, char* value)
{
	struct uci_section *s;

	uci_path_foreach_option_eq(bbfdm, package, section, opt, value, s) {
		return s;
	}
	return NULL;
}

unsigned char isdigit_str(char *str)
{
	if (!(*str)) return 0;
	while(isdigit(*str++));
	return ((*(str-1)) ? 0 : 1);
}

static inline int isword_delim(char c)
{
	if (c == ' ' ||
		c == ',' ||
		c == '\t' ||
		c == '\v' ||
		c == '\r' ||
		c == '\n' ||
		c == '\0')
		return 1;
	return 0;
}

char *dm_strword(char *src, char *str)
{
	char *ret = src;
	int len;
	if (src[0] == '\0')
		return NULL;
	len = strlen(str);
	while ((ret = strstr(ret, str)) != NULL) {
		if ((ret == src && isword_delim(ret[len])) ||
			(ret != src && isword_delim(ret[len]) && isword_delim(*(ret - 1))))
			return ret;
		ret++;
	}
	return NULL;
}

char **strsplit(const char* str, const char* delim, size_t* numtokens)
{
	char *s = strdup(str);
	size_t tokens_alloc = 1;
	size_t tokens_used = 0;
	char **tokens = calloc(tokens_alloc, sizeof(char*));
	char *token, *strtok_ctx;
	for (token = strtok_r(s, delim, &strtok_ctx); token != NULL; token = strtok_r(NULL, delim, &strtok_ctx)) {
		if (tokens_used == tokens_alloc) {
			tokens_alloc *= 2;
			char **new_tokens = realloc(tokens, tokens_alloc * sizeof(char*));
			if (new_tokens == NULL)
				FREE(tokens);
			else
				tokens = new_tokens;
		}
		tokens[tokens_used++] = strdup(token);
	}
	if (tokens_used == 0) {
		free(tokens);
		tokens = NULL;
	} else {
		char **new_tokens = realloc(tokens, tokens_used * sizeof(char*));
		if (new_tokens == NULL)
			FREE(tokens);
		else
			tokens = new_tokens;
	}
	*numtokens = tokens_used;
	free(s);
	return tokens;
}

char **strsplit_by_str(const char str[], char *delim)
{
	char *substr = NULL;
	size_t tokens_alloc = 1;
	size_t tokens_used = 0;
	char **tokens = calloc(tokens_alloc, sizeof(char*));
	char *strparse = strdup(str);
	do {
		substr = strstr(strparse, delim);
		if (substr == NULL && (strparse == NULL || strparse[0] == '\0'))
				break;
		if (substr == NULL) {
			substr = strdup(strparse);
			tokens[tokens_used] = calloc(strlen(substr)+1, sizeof(char));
			strncpy(tokens[tokens_used], strparse, strlen(strparse));
			FREE(strparse);
			break;
		}
		if (tokens_used == tokens_alloc) {
			if (strparse == NULL)
				tokens_alloc++;
			else
				tokens_alloc += 2;
			char **new_tokens = realloc(tokens, tokens_alloc * sizeof(char*));
			if (new_tokens == NULL)
				FREE(tokens);
			else
				tokens = new_tokens;
		}
		tokens[tokens_used] = calloc(substr-strparse+1, sizeof(char));
		strncpy(tokens[tokens_used], strparse, substr-strparse);
		tokens_used++;
		FREE(strparse);
		strparse = strdup(substr+strlen(delim));
	} while (substr != NULL);
	return tokens;
}

char *get_macaddr(char *interface_name)
{
	json_object *res;
	char *device, *mac = "";

	dmubus_call("network.interface", "status", UBUS_ARGS{{"interface", interface_name, String}}, 1, &res);
	device = dmjson_get_value(res, 1, "device");
	if(device[0] == '\0')
		return "";
	dmubus_call("network.device", "status", UBUS_ARGS{{"name", device, String}}, 1, &res);
	mac = dmjson_get_value(res, 1, "macaddr");
	return mac;
}

char *get_device(char *interface_name)
{
	json_object *res;
	char *device = "";

	dmubus_call("network.interface", "status", UBUS_ARGS{{"interface", interface_name, String}}, 1, &res);
	device = dmjson_get_value(res, 1, "device");
	return device;
}

/*
 * Manage string lists
 */

int is_elt_exit_in_str_list(char *str_list, char *elt)
{
	char *pch, *spch, *list;
	list= dmstrdup(str_list);
	for (pch = strtok_r(list, " ", &spch); pch != NULL; pch = strtok_r(NULL, " ", &spch)) {
		if(strcmp(pch, elt) == 0)
			return 1;
	}
	return 0;
}

void add_elt_to_str_list(char **str_list, char *elt)
{
	char *list= NULL;
	if(*str_list == NULL || strlen(*str_list) == 0){
		dmasprintf(str_list, "%s", elt);
		return;
	}
	list= dmstrdup(*str_list);
	dmfree(*str_list);
	*str_list= NULL;
	dmasprintf(str_list, "%s %s", list, elt);
}

void remove_elt_from_str_list(char **iface_list, char *ifname)
{
	char *list= NULL, *tmp=NULL;
	char *pch, *spch;
	if (*iface_list == NULL || strlen(*iface_list) == 0)
		return;
	list= dmstrdup(*iface_list);
	dmfree(*iface_list);
	*iface_list= NULL;
	for (pch = strtok_r(list, " ", &spch); pch != NULL; pch = strtok_r(NULL, " ", &spch)) {
		if(strcmp(pch, ifname) == 0)
			continue;
		if(tmp == NULL)
			dmasprintf(iface_list, "%s", pch);
		else
			dmasprintf(iface_list, "%s %s", tmp, pch);
		if(tmp){
			dmfree(tmp);
			tmp= NULL;
		}
		if(*iface_list){
			tmp= dmstrdup(*iface_list);
			dmfree(*iface_list);
			*iface_list= NULL;
		}
	}
	dmasprintf(iface_list, "%s", tmp);
}

int is_array_elt_exist(char **str_array, char *str, int length)
{
	int i;

	for (i = 0; i < length; i++){
		if (strcmp(str_array[i], str) == 0)
			return 1;
	}
	return 0;
}

int get_shift_time_time(int shift_time, char *local_time, int size)
{
	time_t t_time;
	struct tm *t_tm;

	t_time = time(NULL) + shift_time;
	t_tm = localtime(&t_time);
	if (t_tm == NULL)
		return -1;

	if (strftime(local_time, size, "%FT%T%z", t_tm) == 0)
		return -1;

	local_time[25] = local_time[24];
	local_time[24] = local_time[23];
	local_time[22] = ':';
	local_time[26] = '\0';

	return 0;
}

int get_shift_time_shift(char *local_time, char *shift)
{
	struct tm tm = {0};

	strptime(local_time,"%FT%T", &tm);
	sprintf(shift, "%u", (unsigned int)(mktime(&tm) - time(NULL)));

	return 0;
}

int get_stats_from_ifconfig_command(char *device, char *direction, char *option)
{
	char buf[1024], *pch, *pchr, *ret;
	int pp, stats = 0;

	pp = dmcmd("ifconfig", 1, device);
	if (pp) {
		dmcmd_read(pp, buf, 1024);
		for(pch = strtok_r(buf, "\n", &pchr); pch != NULL; pch = strtok_r(NULL, "\n", &pchr)) {
			if(!strstr(pch, direction))
				continue;
			ret = strstr(pch, option);
			if(ret) {
				strtok_r(ret, ":", &ret);
				sscanf(ret, "%d", &stats);
				break;
			}
		}
		close(pp);
	}
	return stats;
}

int command_exec_output_to_array(char *cmd, char **output, int *length)
{
	FILE *fp;
	char out[1035];
	int i = 0;

	/* Open the command for reading. */
	fp = popen(cmd, "r");
	if (fp == NULL)
		return 0;

	/* Read the output line by line and store it in output array. */
	while (fgets(out, sizeof(out)-1, fp) != NULL)
		dmasprintf(&output[i++], "%s", out);

	*length = i;

	/* close */
	pclose(fp);

	return 0;
}

char* int_period_to_date_time_format(int time)
{
	char *datetime;
	int seconds, minutes, hours, days;
	minutes = time/60;
	seconds = time%60;
	hours = minutes/60;
	minutes = minutes%60;
    days = hours/24;
    hours = hours%24;
    dmasprintf(&datetime, "%dT%d:%d:%d", days, hours, minutes, seconds);
	return datetime;
}

int isfileexist(char *filepath)
{
	if( access( filepath, F_OK ) != -1 )
	    return 1;
	else
		return 0;
}

int isfolderexist(char *folderpath)
{
	DIR* dir = opendir(folderpath);
	if (dir) {
	    closedir(dir);
	    return 1;
	} else
		return 0;
}

int copy_temporary_file_to_original_file(char *f1, char *f2)
{
	FILE *fp, *ftmp;
	char buf[512];

	ftmp = fopen(f2, "r");
	if (ftmp == NULL)
		return 0;

	fp = fopen(f1, "w");
	if (fp == NULL) {
	  fclose(ftmp);
	  return 0;
	}

	while (fgets(buf, 512, ftmp) != NULL) {
		fprintf(fp, "%s", buf);
	}
	fclose(ftmp);
	fclose(fp);
	return 1;
}

char* readFileContent(char *filepath)
{
	char *str = NULL, *tmp = NULL, *res = NULL;
	int i, j = 0;

	FILE *f = fopen(filepath, "rb");
	if (f == NULL)
		return "";
	fseek(f, 0, SEEK_END);
	long fsize = ftell(f);
	fseek(f, 0, SEEK_SET);

	char *filecontent = dmmalloc(fsize + 1);
	fread(filecontent, 1, fsize, f);
	fclose(f);

	filecontent[fsize] = 0;
	for (i = 0; i < strlen(filecontent); i++) {
		if (filecontent[i] < 48 || (filecontent[i] > 57 && filecontent[i] < 65) || (filecontent[i] > 90 && filecontent[i] < 91) || filecontent[i] > 122) {
			if (!j)
				continue;
			else
				break;
		}
		if (!tmp) {
			dmasprintf(&str, "%c", filecontent[i]);
			j++;
			tmp = dmstrdup(str);
			continue;
		}
		j++;
		dmasprintf(&str, "%s%c", tmp, filecontent[i]);
		if(tmp){
			dmfree(tmp);
			tmp = NULL;
		}
		tmp = dmstrdup(str);
		if (str != NULL) {
			dmfree(str);
			str = NULL;
		}
	}
	res = (char *)dmmalloc((j+1)*sizeof(char));
	strcpy(res, tmp);
	res[j] = 0;
	return res;

}

void writeFileContent(const char *filepath, const char *data)
{
    FILE *fp = fopen(filepath, "ab");
    if (fp != NULL) {
        fputs(data, fp);
        fclose(fp);
    }
}

bool match(const char *string, const char *pattern)
{
	regex_t re;
	if (regcomp(&re, pattern, REG_EXTENDED) != 0) return 0;
	int status = regexec(&re, string, 0, NULL, 0);
	regfree(&re);
	if (status != 0) return false;
	return true;
}