// SPDX-License-Identifier: GPL-2.0+
/*
 * Alexander Sack <asac@ubuntu.com>
 * Copyright (C) 2008 Canonical Ltd.
 */

#include "nm-default.h"

#include "nms-ifupdown-parser.h"

#include <arpa/inet.h>
#include <stdlib.h>
#include <ctype.h>

#include "nm-core-internal.h"
#include "settings/nm-settings-plugin.h"

#include "nms-ifupdown-plugin.h"
#include "nms-ifupdown-parser.h"

/*****************************************************************************/

#define _NMLOG_PREFIX_NAME      "ifupdown"
#define _NMLOG_DOMAIN           LOGD_SETTINGS
#define _NMLOG(level, ...) \
    nm_log ((level), _NMLOG_DOMAIN, NULL, NULL, \
            "%s" _NM_UTILS_MACRO_FIRST (__VA_ARGS__), \
            _NMLOG_PREFIX_NAME": " \
            _NM_UTILS_MACRO_REST (__VA_ARGS__))

/*****************************************************************************/

#define _str_has_prefix(val, prefix, require_suffix) \
	({ \
		const char *_val = (val); \
		\
		   (strncmp (_val, ""prefix"", NM_STRLEN (prefix)) == 0) \
		&& (   !(require_suffix) \
		    || _val[NM_STRLEN (prefix)] != '\0'); \
	})

static const char*
_ifupdownplugin_guess_connection_type (if_block *block)
{
	const char *ret_type = NULL;

	if (nm_streq0 (ifparser_getkey (block, "inet"), "ppp"))
		ret_type = NM_SETTING_PPP_SETTING_NAME;
	else {
		if_data *ifb;

		c_list_for_each_entry (ifb, &block->data_lst_head, data_lst) {
			if (   _str_has_prefix (ifb->key, "wireless-", FALSE)
			    || _str_has_prefix (ifb->key, "wpa-", FALSE)) {
				ret_type = NM_SETTING_WIRELESS_SETTING_NAME;
				break;
			}
		}
		if (!ret_type)
			ret_type = NM_SETTING_WIRED_SETTING_NAME;
	}

	_LOGI ("guessed connection type (%s) = %s", block->name, ret_type);
	return ret_type;
}

struct _Mapping {
	const char *domain;
	const gpointer target;
};

static gpointer
map_by_mapping (struct _Mapping *mapping, const char *key)
{
	struct _Mapping *curr = mapping;

	while (curr->domain) {
		if (nm_streq (curr->domain, key))
			return curr->target;
		curr++;
	}
	return NULL;
}

static void
update_wireless_setting_from_if_block (NMConnection *connection,
                                       if_block *block)
{
	if_data *curr;
	const char *value = ifparser_getkey (block, "inet");
	struct _Mapping mapping[] = {
		{"ssid", "ssid"},
		{"essid", "ssid"},
		{"mode", "mode"},
		{ NULL, NULL}
	};

	NMSettingWireless *wireless_setting = NULL;

	if (nm_streq0 (value, "ppp"))
		return;

	_LOGI ("update wireless settings (%s).", block->name);
	wireless_setting = NM_SETTING_WIRELESS (nm_setting_wireless_new ());

	c_list_for_each_entry (curr, &block->data_lst_head, data_lst) {
		if (_str_has_prefix (curr->key, "wireless-", TRUE)) {
			const char* newkey = map_by_mapping (mapping, curr->key + NM_STRLEN ("wireless-"));

			_LOGI ("wireless setting key: %s='%s'", newkey, curr->data);
			if (nm_streq0 (newkey, "ssid")) {
				GBytes *ssid;
				int len = strlen (curr->data);

				ssid = g_bytes_new (curr->data, len);
				g_object_set (wireless_setting, NM_SETTING_WIRELESS_SSID, ssid, NULL);
				g_bytes_unref (ssid);
				_LOGI ("setting wireless ssid = %d", len);
			} else if (nm_streq0 (newkey, "mode")) {
				if (!g_ascii_strcasecmp (curr->data, "Managed") || !g_ascii_strcasecmp (curr->data, "Auto"))
					g_object_set (wireless_setting, NM_SETTING_WIRELESS_MODE, NM_SETTING_WIRELESS_MODE_INFRA, NULL);
				else if (!g_ascii_strcasecmp (curr->data, "Ad-Hoc"))
					g_object_set (wireless_setting, NM_SETTING_WIRELESS_MODE, NM_SETTING_WIRELESS_MODE_ADHOC, NULL);
				else if (!g_ascii_strcasecmp (curr->data, "Master"))
					g_object_set (wireless_setting, NM_SETTING_WIRELESS_MODE, NM_SETTING_WIRELESS_MODE_AP, NULL);
				else
					_LOGW ("Invalid mode '%s' (not 'Ad-Hoc', 'Ap', 'Managed', or 'Auto')", curr->data);
			} else {
				g_object_set (wireless_setting,
				              newkey, curr->data,
				              NULL);
			}
		} else if (_str_has_prefix (curr->key, "wpa-", TRUE)) {
			const char* newkey = map_by_mapping (mapping, curr->key + NM_STRLEN ("wpa-"));

			if (nm_streq0 (newkey, "ssid")) {
				GBytes *ssid;
				int len = strlen (curr->data);

				ssid = g_bytes_new (curr->data, len);
				g_object_set (wireless_setting, NM_SETTING_WIRELESS_SSID, ssid, NULL);
				g_bytes_unref (ssid);
				_LOGI ("setting wpa ssid = %d", len);
			} else if (newkey) {

				g_object_set (wireless_setting,
				              newkey, curr->data,
				              NULL);
				_LOGI ("setting wpa newkey(%s)=data(%s)", newkey, curr->data);
			}
		}
	}
	nm_connection_add_setting (connection, (NMSetting*) wireless_setting);
}

typedef char* (*IfupdownStrDupeFunc) (gconstpointer value, gpointer data);
typedef gpointer (*IfupdownStrToTypeFunc) (const char* value);

static char*
normalize_dupe_wireless_key (gpointer value, gpointer data) {
	char* valuec = value;
	char* endc = valuec + strlen (valuec);
	char* delim = valuec;
	char* next = delim;
	char* result = malloc (strlen (valuec) + 1);
	char* result_cur = result;

	while (*delim && (next = strchr (delim, '-')) != NULL) {
		if (next == delim) {
			delim++;
			continue;
		}
		strncpy (result_cur, delim, next - delim);
		result_cur += next - delim;
		delim = next + 1;
	}
	if (*delim && strlen (valuec) > GPOINTER_TO_UINT (delim - valuec)) {
		strncpy (result_cur, delim, endc - delim);
		result_cur += endc - delim;
	}
	*result_cur = '\0';
	return result;
}

static char*
normalize_dupe (gpointer value, gpointer data) {
	return g_strdup (value);
}

static char*
normalize_tolower (gpointer value, gpointer data) {
	return g_ascii_strdown (value, -1);
}

static char *normalize_psk (gpointer value, gpointer data)
{
	if (strlen (value) >= 8 && strlen (value) <= 64)
		return g_strdup (value);
	return NULL;
}

static gpointer
string_to_gpointerint (const char* data)
{
	int result = (int) strtol (data, NULL, 10);
	return GINT_TO_POINTER (result);
}

static gpointer
string_to_glist_of_strings (const char* data)
{
	GSList *ret = NULL;
	char *string = (char*) data;
	while (string) {
		char* next = NULL;
		if ( (next = strchr (string, ' '))  ||
		     (next = strchr (string, '\t')) ||
		     (next = strchr (string, '\0')) ) {

			char *part = g_strndup (string, (next - string));
			ret = g_slist_append (ret, part);
			if (*next)
				string = next+1;
			else
				string = NULL;
		} else {
			string = NULL;
		}
	}
	return ret;
}

static void
slist_free_all (gpointer slist)
{
	g_slist_free_full ((GSList *) slist, g_free);
}

static void
update_wireless_security_setting_from_if_block (NMConnection *connection,
                                                if_block *block)
{
	if_data *curr;
	const char* value = ifparser_getkey (block, "inet");
	struct _Mapping mapping[] = {
		{"psk", "psk"},
		{"identity", "leap-username"},
		{"password", "leap-password"},
		{"key", "wep-key0"},
		{"key-mgmt", "key-mgmt"},
		{"group", "group"},
		{"pairwise", "pairwise"},
		{"proto", "proto"},
		{"pin", "pin"},
		{"wep-key0", "wep-key0"},
		{"wep-key1", "wep-key1"},
		{"wep-key2", "wep-key2"},
		{"wep-key3", "wep-key3"},
		{"wep-tx-keyidx", "wep-tx-keyidx"},
		{ NULL, NULL}
	};

	struct _Mapping dupe_mapping[] = {
		{"psk", normalize_psk},
		{"identity", normalize_dupe},
		{"password", normalize_dupe},
		{"key", normalize_dupe_wireless_key},
		{"key-mgmt", normalize_tolower},
		{"group", normalize_tolower},
		{"pairwise", normalize_tolower},
		{"proto", normalize_tolower},
		{"pin", normalize_dupe},
		{"wep-key0", normalize_dupe_wireless_key},
		{"wep-key1", normalize_dupe_wireless_key},
		{"wep-key2", normalize_dupe_wireless_key},
		{"wep-key3", normalize_dupe_wireless_key},
		{"wep-tx-keyidx", normalize_dupe},
		{ NULL, NULL}
	};

	struct _Mapping type_mapping[] = {
		{"group", string_to_glist_of_strings},
		{"pairwise", string_to_glist_of_strings},
		{"proto", string_to_glist_of_strings},
		{"wep-tx-keyidx", string_to_gpointerint},
		{ NULL, NULL}
	};

	struct _Mapping free_type_mapping[] = {
		{"group", slist_free_all},
		{"pairwise", slist_free_all},
		{"proto", slist_free_all},
		{ NULL, NULL}
	};

	NMSettingWirelessSecurity *wireless_security_setting;
	NMSettingWireless *s_wireless;
	gboolean security = FALSE;

	if (nm_streq0 (value, "ppp"))
		return;

	s_wireless = nm_connection_get_setting_wireless (connection);
	g_return_if_fail (s_wireless);

	_LOGI ("update wireless security settings (%s).", block->name);
	wireless_security_setting = NM_SETTING_WIRELESS_SECURITY (nm_setting_wireless_security_new ());

	c_list_for_each_entry (curr, &block->data_lst_head, data_lst) {
		if (_str_has_prefix (curr->key, "wireless-", TRUE)) {
			const char *key = curr->key + NM_STRLEN ("wireless-");
			char *property_value = NULL;
			gpointer typed_property_value = NULL;
			const char* newkey = map_by_mapping (mapping, key);
			IfupdownStrDupeFunc dupe_func = map_by_mapping (dupe_mapping, key);
			IfupdownStrToTypeFunc type_map_func = map_by_mapping (type_mapping, key);
			GFreeFunc free_func = map_by_mapping (free_type_mapping, key);
			if (!newkey || !dupe_func)
				goto next;

			property_value = (*dupe_func) (curr->data, connection);
			_LOGI ("setting wireless security key: %s=%s",
			       newkey, property_value);

			if (type_map_func) {
				errno = 0;
				typed_property_value = (*type_map_func) (property_value);
				if (errno)
					goto wireless_next;
			}

			g_object_set (wireless_security_setting,
			              newkey, typed_property_value ?: property_value,
			              NULL);
			security = TRUE;

wireless_next:
			g_free (property_value);
			if (typed_property_value && free_func)
				(*free_func) (typed_property_value);

		} else if (_str_has_prefix (curr->key, "wpa-", TRUE)) {
			const char *key = curr->key + NM_STRLEN ("wpa-");
			char *property_value = NULL;
			gpointer typed_property_value = NULL;
			const char* newkey = map_by_mapping (mapping, key);
			IfupdownStrDupeFunc dupe_func = map_by_mapping (dupe_mapping, key);
			IfupdownStrToTypeFunc type_map_func = map_by_mapping (type_mapping, key);
			GFreeFunc free_func = map_by_mapping (free_type_mapping, key);
			if (!newkey || !dupe_func)
				goto next;

			property_value = (*dupe_func) (curr->data, connection);
			_LOGI ("setting wpa security key: %s=%s",
			       newkey,
			       NM_IN_STRSET (newkey, "key",
			                             "leap-password",
			                             "pin",
			                             "psk",
			                             "wep-key0",
			                             "wep-key1",
			                             "wep-key2",
			                             "wep-key3")
			         ? "<omitted>"
			         : property_value
			       );

			if (type_map_func) {
				errno = 0;
				typed_property_value = (*type_map_func) (property_value);
				if (errno)
					goto wpa_next;
			}

			g_object_set (wireless_security_setting,
			              newkey, typed_property_value ?: property_value,
			              NULL);
			security = TRUE;

wpa_next:
			g_free (property_value);
			if (free_func && typed_property_value)
				(*free_func) (typed_property_value);
		}
next:
		;
	}

	if (security)
		nm_connection_add_setting (connection, NM_SETTING (wireless_security_setting));
}

static void
update_wired_setting_from_if_block (NMConnection *connection,
                                    if_block *block)
{
	NMSettingWired *s_wired = NULL;
	s_wired = NM_SETTING_WIRED (nm_setting_wired_new ());
	nm_connection_add_setting (connection, NM_SETTING (s_wired));
}

static void
ifupdown_ip4_add_dns (NMSettingIPConfig *s_ip4, const char *dns)
{
	gs_free const char **list = NULL;
	const char **iter;
	guint32 addr;

	if (dns == NULL)
		return;

	list = nm_utils_strsplit_set (dns, " \t");
	for (iter = list; iter && *iter; iter++) {
		if (!inet_pton (AF_INET, *iter, &addr)) {
			_LOGW ("    ignoring invalid nameserver '%s'", *iter);
			continue;
		}

		if (!nm_setting_ip_config_add_dns (s_ip4, *iter))
			_LOGW ("    duplicate DNS domain '%s'", *iter);
	}
}

static gboolean
update_ip4_setting_from_if_block (NMConnection *connection,
                                  if_block *block,
                                  GError **error)
{

	gs_unref_object NMSettingIPConfig *s_ip4 = NM_SETTING_IP_CONFIG (nm_setting_ip4_config_new ());
	const char *type = ifparser_getkey (block, "inet");

	if (!nm_streq0 (type, "static")) {
		g_object_set (s_ip4,
		              NM_SETTING_IP_CONFIG_METHOD,
		              NM_SETTING_IP4_CONFIG_METHOD_AUTO,
		              NULL);
	} else {
		guint32 tmp_mask;
		NMIPAddress *addr;
		const char *address_v;
		const char *netmask_v;
		const char *gateway_v;
		const char *nameserver_v;
		const char *nameservers_v;
		const char *search_v;
		guint32 netmask_int = 32;

		/* Address */
		address_v = ifparser_getkey (block, "address");
		if (!address_v) {
			g_set_error (error, NM_SETTINGS_ERROR, NM_SETTINGS_ERROR_INVALID_CONNECTION,
			             "Missing IPv4 address");
			return FALSE;
		}

		/* mask/prefix */
		netmask_v = ifparser_getkey (block, "netmask");
		if (netmask_v) {
			if (strlen (netmask_v) < 7) {
				netmask_int = atoi (netmask_v);
			} else if (!inet_pton (AF_INET, netmask_v, &tmp_mask)) {
				g_set_error (error, NM_SETTINGS_ERROR, NM_SETTINGS_ERROR_INVALID_CONNECTION,
				             "Invalid IPv4 netmask '%s'", netmask_v);
				return FALSE;
			} else {
				netmask_int = nm_utils_ip4_netmask_to_prefix (tmp_mask);
			}
		}

		/* Add the new address to the setting */
		addr = nm_ip_address_new (AF_INET, address_v, netmask_int, error);
		if (!addr)
			return FALSE;

		if (nm_setting_ip_config_add_address (s_ip4, addr)) {
			_LOGI ("addresses count: %d",
			       nm_setting_ip_config_get_num_addresses (s_ip4));
		} else {
			_LOGI ("ignoring duplicate IP4 address");
		}
		nm_ip_address_unref (addr);

		/* gateway */
		gateway_v = ifparser_getkey (block, "gateway");
		if (gateway_v) {
			if (!nm_utils_ipaddr_is_valid (AF_INET, gateway_v)) {
				g_set_error (error, NM_SETTINGS_ERROR, NM_SETTINGS_ERROR_INVALID_CONNECTION,
				             "Invalid IPv4 gateway '%s'", gateway_v);
				return FALSE;
			}
			if (!nm_setting_ip_config_get_gateway (s_ip4))
				g_object_set (s_ip4, NM_SETTING_IP_CONFIG_GATEWAY, gateway_v, NULL);
		}

		nameserver_v = ifparser_getkey (block, "dns-nameserver");
		ifupdown_ip4_add_dns (s_ip4, nameserver_v);

		nameservers_v = ifparser_getkey (block, "dns-nameservers");
		ifupdown_ip4_add_dns (s_ip4, nameservers_v);

		if (!nm_setting_ip_config_get_num_dns (s_ip4))
			_LOGI ("No dns-nameserver configured in /etc/network/interfaces");

		/* DNS searches */
		search_v = ifparser_getkey (block, "dns-search");
		if (search_v) {
			gs_free const char **list = NULL;
			const char **iter;

			list = nm_utils_strsplit_set (search_v, " \t");
			for (iter = list; iter && *iter; iter++) {
				if (!nm_setting_ip_config_add_dns_search (s_ip4, *iter))
					_LOGW ("    duplicate DNS domain '%s'", *iter);
			}
		}

		g_object_set (s_ip4, NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP4_CONFIG_METHOD_MANUAL, NULL);
	}

	nm_connection_add_setting (connection, NM_SETTING (g_steal_pointer (&s_ip4)));
	return TRUE;
}

static void
ifupdown_ip6_add_dns (NMSettingIPConfig *s_ip6, const char *dns)
{
	gs_free const char **list = NULL;
	const char **iter;
	struct in6_addr addr;

	if (dns == NULL)
		return;

	list = nm_utils_strsplit_set (dns, " \t");
	for (iter = list; iter && *iter; iter++) {
		if (!inet_pton (AF_INET6, *iter, &addr)) {
			_LOGW ("    ignoring invalid nameserver '%s'", *iter);
			continue;
		}

		if (!nm_setting_ip_config_add_dns (s_ip6, *iter))
			_LOGW ("    duplicate DNS domain '%s'", *iter);
	}
}

static gboolean
update_ip6_setting_from_if_block (NMConnection *connection,
                                  if_block *block,
                                  GError **error)
{
	gs_unref_object NMSettingIPConfig *s_ip6 = NM_SETTING_IP_CONFIG (nm_setting_ip6_config_new ());
	const char *type = ifparser_getkey (block, "inet6");

	if (!NM_IN_STRSET (type, "static", "v4tunnel")) {
		g_object_set (s_ip6,
		              NM_SETTING_IP_CONFIG_METHOD,
		              NM_SETTING_IP6_CONFIG_METHOD_AUTO,
		              NULL);
	} else {
		NMIPAddress *addr;
		const char *address_v;
		const char *prefix_v;
		const char *gateway_v;
		const char *nameserver_v;
		const char *nameservers_v;
		const char *search_v;
		guint prefix_int;

		address_v = ifparser_getkey (block, "address");
		if (!address_v) {
			g_set_error (error, NM_SETTINGS_ERROR, NM_SETTINGS_ERROR_INVALID_CONNECTION,
			             "Missing IPv6 address");
			return FALSE;
		}

		prefix_v = ifparser_getkey (block, "netmask");
		if (prefix_v)
			prefix_int = _nm_utils_ascii_str_to_int64 (prefix_v, 10, 0, 128, G_MAXINT);
		else
			prefix_int = 128;

		addr = nm_ip_address_new (AF_INET6, address_v, prefix_int, error);
		if (!addr)
			return FALSE;

		if (nm_setting_ip_config_add_address (s_ip6, addr)) {
			_LOGI ("addresses count: %d",
			             nm_setting_ip_config_get_num_addresses (s_ip6));
		} else {
			_LOGI ("ignoring duplicate IP6 address");
		}
		nm_ip_address_unref (addr);

		gateway_v = ifparser_getkey (block, "gateway");
		if (gateway_v) {
			if (!nm_utils_ipaddr_is_valid (AF_INET6, gateway_v)) {
				g_set_error (error, NM_SETTINGS_ERROR, NM_SETTINGS_ERROR_INVALID_CONNECTION,
				             "Invalid IPv6 gateway '%s'", gateway_v);
				return FALSE;
			}
			if (!nm_setting_ip_config_get_gateway (s_ip6))
				g_object_set (s_ip6, NM_SETTING_IP_CONFIG_GATEWAY, gateway_v, NULL);
		}

		nameserver_v = ifparser_getkey (block, "dns-nameserver");
		ifupdown_ip6_add_dns (s_ip6, nameserver_v);

		nameservers_v = ifparser_getkey (block, "dns-nameservers");
		ifupdown_ip6_add_dns (s_ip6, nameservers_v);

		if (!nm_setting_ip_config_get_num_dns (s_ip6))
			_LOGI ("No dns-nameserver configured in /etc/network/interfaces");

		search_v = ifparser_getkey (block, "dns-search");
		if (search_v) {
			gs_free const char **list = NULL;
			const char **iter;

			list = nm_utils_strsplit_set (search_v, " \t");
			for (iter = list; iter && *iter; iter++) {
				if (!nm_setting_ip_config_add_dns_search (s_ip6, *iter))
					_LOGW ("    duplicate DNS domain '%s'", *iter);
			}
		}

		g_object_set (s_ip6,
		              NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP6_CONFIG_METHOD_MANUAL,
		              NULL);
	}

	nm_connection_add_setting (connection, NM_SETTING (g_steal_pointer (&s_ip6)));
	return TRUE;
}

NMConnection *
ifupdown_new_connection_from_if_block (if_block *block,
                                       gboolean autoconnect,
                                       GError **error)
{
	gs_unref_object NMConnection *connection = NULL;
	const char *type;
	gs_free char *idstr = NULL;
	gs_free char *uuid = NULL;
	NMSettingConnection *s_con;

	connection = nm_simple_connection_new ();

	s_con = NM_SETTING_CONNECTION (nm_setting_connection_new ());
	nm_connection_add_setting (connection, NM_SETTING (s_con));

	type = _ifupdownplugin_guess_connection_type (block);
	idstr = g_strconcat ("Ifupdown (", block->name, ")", NULL);

	uuid = nm_utils_uuid_generate_from_string (idstr, -1, NM_UTILS_UUID_TYPE_LEGACY, NULL);
	g_object_set (s_con,
	              NM_SETTING_CONNECTION_TYPE, type,
	              NM_SETTING_CONNECTION_INTERFACE_NAME, block->name,
	              NM_SETTING_CONNECTION_ID, idstr,
	              NM_SETTING_CONNECTION_UUID, uuid,
	              NM_SETTING_CONNECTION_AUTOCONNECT, (gboolean) (!!autoconnect),
	              NULL);

	_LOGD ("update_connection_setting_from_if_block: name:%s, type:%s, id:%s, uuid: %s",
	       block->name, type, idstr, nm_setting_connection_get_uuid (s_con));

	if (nm_streq (type, NM_SETTING_WIRED_SETTING_NAME))
		update_wired_setting_from_if_block (connection, block);
	else if (nm_streq (type, NM_SETTING_WIRELESS_SETTING_NAME)) {
		update_wireless_setting_from_if_block (connection, block);
		update_wireless_security_setting_from_if_block (connection, block);
	}

	if (ifparser_haskey (block, "inet6")) {
		if (!update_ip6_setting_from_if_block (connection, block, error))
			return FALSE;
	} else {
		if (!update_ip4_setting_from_if_block (connection, block, error))
			return FALSE;
	}

	if (!nm_connection_normalize (connection, NULL, NULL, error))
		return NULL;

	return g_steal_pointer (&connection);
}
