// SPDX-License-Identifier: LGPL-2.1+
/*
* Copyright (C) 2019 Red Hat, Inc.
*/
#include "nm-default.h"
#include "nm-initrd-generator.h"
#include <arpa/inet.h>
#include "nm-core-internal.h"
/*****************************************************************************/
#define _NMLOG(level, domain, ...) \
nm_log ((level), (domain), NULL, NULL, \
"dt-reader: " _NM_UTILS_MACRO_FIRST (__VA_ARGS__) \
_NM_UTILS_MACRO_REST (__VA_ARGS__))
/*****************************************************************************/
static gboolean
dt_get_property (const char *base,
const char *dev,
const char *prop,
char **contents,
size_t *length)
{
gs_free char *filename = g_build_filename (base, dev, prop, NULL);
gs_free_error GError *error = NULL;
if (!g_file_test (filename, G_FILE_TEST_EXISTS))
return FALSE;
if (!contents)
return TRUE;
if (!g_file_get_contents (filename, contents, length, &error)) {
_LOGW (LOGD_CORE, "%s: Can not read the %s property: %s",
dev, prop, error->message);
return FALSE;
}
return TRUE;
}
static NMIPAddress *
dt_get_ipaddr_property (const char *base,
const char *dev,
const char *prop,
int *family)
{
gs_free char *buf = NULL;
size_t len;
int f;
if (!dt_get_property (base, dev, prop, &buf, &len))
return NULL;
f = nm_utils_addr_family_from_size (len);
if ( f == AF_UNSPEC
|| ( *family != AF_UNSPEC
&& *family != f)) {
_LOGW (LOGD_CORE, "%s: Address %s has unrecognized length (%zd)",
dev, prop, len);
return NULL;
}
*family = f;
return nm_ip_address_new_binary (f, buf, 0, NULL);
}
static char *
dt_get_hwaddr_property (const char *base,
const char *dev,
const char *prop)
{
gs_free guint8 *buf = NULL;
size_t len;
if (!dt_get_property (base, dev, prop, (char **) &buf, &len))
return NULL;
if (len != ETH_ALEN) {
_LOGW (LOGD_CORE, "%s: MAC address %s has unrecognized length (%zd)",
dev, prop, len);
return NULL;
}
return g_strdup_printf ("%02x:%02x:%02x:%02x:%02x:%02x",
buf[0], buf[1], buf[2],
buf[3], buf[4], buf[4]);
}
static NMIPAddress *
str_addr (const char *str, int *family)
{
NMIPAddr addr_bin;
if (!nm_utils_parse_inaddr_bin_full (*family,
TRUE,
str,
family,
&addr_bin)) {
_LOGW (LOGD_CORE, "Malformed IP address: '%s'", str);
return NULL;
}
return nm_ip_address_new_binary (*family, &addr_bin, 0, NULL);
}
NMConnection *
nmi_dt_reader_parse (const char *sysfs_dir)
{
gs_unref_object NMConnection *connection = NULL;
gs_free char *base = NULL;
gs_free char *bootpath = NULL;
gs_strfreev char **tokens = NULL;
char *path = NULL;
gboolean bootp = FALSE;
const char *s_ipaddr = NULL;
const char *s_netmask = NULL;
const char *s_gateway = NULL;
nm_auto_unref_ip_address NMIPAddress *ipaddr = NULL;
nm_auto_unref_ip_address NMIPAddress *gateway = NULL;
const char *duplex = NULL;
gs_free char *hwaddr = NULL;
gs_free char *local_hwaddr = NULL;
gs_free char *hostname = NULL;
guint32 speed = 0;
int prefix = -1;
NMSettingIPConfig *s_ip = NULL;
NMSetting *s_ip4 = NULL;
NMSetting *s_ip6 = NULL;
NMSetting *s_wired = NULL;
int family = AF_UNSPEC;
int i = 0;
char *c;
gs_free_error GError *error = NULL;
base = g_build_filename (sysfs_dir, "firmware", "devicetree",
"base", NULL);
if (!dt_get_property (base, "chosen", "bootpath", &bootpath, NULL))
return NULL;
c = strchr (bootpath, ':');
if (c) {
*c = '\0';
path = c + 1;
} else {
path = "";
}
dt_get_property (base, "chosen", "client-name", &hostname, NULL);
local_hwaddr = dt_get_hwaddr_property (base, bootpath, "local-mac-address");
hwaddr = dt_get_hwaddr_property (base, bootpath, "mac-address");
if (nm_streq0 (local_hwaddr, hwaddr))
nm_clear_g_free (&local_hwaddr);
tokens = g_strsplit (path, ",", 0);
/*
* Ethernet device settings. Defined by "Open Firmware,
* Recommended Practice: Device Support Extensions, Version 1.0 [1]
* [1] https://www.devicetree.org/open-firmware/practice/devicex/dse1_0a.ps
*/
for (i = 0; tokens[i]; i++) {
/* Skip these. They have magical meaning for OpenFirmware. */
if (NM_IN_STRSET (tokens[i], "nfs",
"last"))
continue;
if (nm_streq (tokens[i], "promiscuous")) {
/* Ignore. */
continue;
}
if (g_str_has_prefix (tokens[i], "speed=")) {
speed = _nm_utils_ascii_str_to_int64 (tokens[i] + 6,
10, 0, G_MAXUINT32, 0);
continue;
}
if (g_str_has_prefix (tokens[i], "duplex=auto")) {
continue;
} else if ( g_str_has_prefix (tokens[i], "duplex=half")
|| g_str_has_prefix (tokens[i], "duplex=full")) {
duplex = tokens[i] + 7;
continue;
}
break;
}
/*
* Network boot configuration. Defined by "Open Firmware,
* Recommended Practice: TFTP Booting Extension, Version 1.0 [1]
* [1] https://www.devicetree.org/open-firmware/practice/obp-tftp/tftp1_0.pdf
*/
for (; tokens[i]; i++) {
if (NM_IN_STRSET (tokens[i], "bootp",
"dhcp",
"rarp")) {
bootp = TRUE;
continue;
}
break;
}
/* s-iaddr, or perhaps a raw absolute filename */
if (tokens[i] && tokens[i][0] != '/')
i++;
/* filename */
if (tokens[i])
i++;
/* c-iaddr */
if (tokens[i]) {
s_ipaddr = tokens[i];
i++;
}
/* g-iaddr */
if (tokens[i]) {
s_gateway = tokens[i];
i++;
}
if (tokens[i] && ( strchr (tokens[i], '.')
|| strchr (tokens[i], ':'))) {
/* yaboot claims the mask can be specified here,
* though it doesn't support it. */
s_netmask = tokens[i];
i++;
}
/* bootp-retries */
if (tokens[i])
i++;
/* tftp-retries */
if (tokens[i])
i++;
if (tokens[i]) {
/* yaboot accepts a mask here */
s_netmask = tokens[i];
i++;
}
connection = nm_simple_connection_new ();
nm_connection_add_setting (connection,
g_object_new (NM_TYPE_SETTING_CONNECTION,
NM_SETTING_CONNECTION_TYPE, NM_SETTING_WIRED_SETTING_NAME,
NM_SETTING_CONNECTION_ID, "OpenFirmware Connection",
NULL));
s_ip4 = nm_setting_ip4_config_new ();
nm_connection_add_setting (connection, s_ip4);
s_ip6 = nm_setting_ip6_config_new ();
nm_connection_add_setting (connection, s_ip6);
g_object_set (s_ip6,
NM_SETTING_IP6_CONFIG_ADDR_GEN_MODE, (int) NM_SETTING_IP6_CONFIG_ADDR_GEN_MODE_EUI64,
NULL);
if (!bootp && dt_get_property (base, "chosen", "bootp-response", NULL, NULL))
bootp = TRUE;
if (!bootp) {
nm_auto_unref_ip_address NMIPAddress *netmask = NULL;
netmask = dt_get_ipaddr_property (base, "chosen", "netmask-ip", &family);
gateway = dt_get_ipaddr_property (base, "chosen", "gateway-ip", &family);
if (gateway)
s_gateway = nm_ip_address_get_address (gateway);
ipaddr = dt_get_ipaddr_property (base, "chosen", "client-ip", &family);
if (family == AF_UNSPEC) {
nm_assert (netmask == NULL);
nm_assert (gateway == NULL);
nm_assert (ipaddr == NULL);
netmask = str_addr (s_netmask, &family);
ipaddr = str_addr (s_ipaddr, &family);
prefix = _nm_utils_ascii_str_to_int64 (s_netmask, 10, 0, 128, -1);
}
if (prefix == -1 && family == AF_INET && netmask) {
guint32 netmask_v4;
nm_ip_address_get_address_binary (netmask, &netmask_v4);
prefix = nm_utils_ip4_netmask_to_prefix (netmask_v4);
}
if (prefix == -1)
_LOGW (LOGD_CORE, "Unable to determine the network prefix");
else
nm_ip_address_set_prefix (ipaddr, prefix);
}
if (!ipaddr) {
family = AF_UNSPEC;
bootp = TRUE;
}
if (bootp) {
g_object_set (s_ip4,
NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP4_CONFIG_METHOD_AUTO,
NM_SETTING_IP_CONFIG_DHCP_HOSTNAME, hostname,
NULL);
g_object_set (s_ip6,
NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP6_CONFIG_METHOD_AUTO,
NM_SETTING_IP_CONFIG_DHCP_HOSTNAME, hostname,
NULL);
} else {
switch (family) {
case AF_INET:
s_ip = (NMSettingIPConfig *) s_ip4;
g_object_set (s_ip4,
NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP4_CONFIG_METHOD_MANUAL,
NULL);
g_object_set (s_ip6,
NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP6_CONFIG_METHOD_DISABLED,
NULL);
break;
case AF_INET6:
s_ip = (NMSettingIPConfig *) s_ip6;
g_object_set (s_ip4,
NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP4_CONFIG_METHOD_DISABLED,
NULL);
g_object_set (s_ip6,
NM_SETTING_IP_CONFIG_METHOD, NM_SETTING_IP6_CONFIG_METHOD_MANUAL,
NULL);
break;
default:
g_return_val_if_reached (NULL);
}
nm_setting_ip_config_add_address (s_ip, ipaddr);
g_object_set (s_ip, NM_SETTING_IP_CONFIG_GATEWAY, s_gateway, NULL);
}
if (duplex || speed || hwaddr || local_hwaddr) {
s_wired = nm_setting_wired_new ();
nm_connection_add_setting (connection, s_wired);
g_object_set (s_wired,
NM_SETTING_WIRED_SPEED, speed,
NM_SETTING_WIRED_DUPLEX, duplex,
NM_SETTING_WIRED_MAC_ADDRESS, hwaddr,
NM_SETTING_WIRED_CLONED_MAC_ADDRESS, local_hwaddr,
NULL);
}
if (!nm_connection_normalize (connection, NULL, NULL, &error)) {
_LOGW (LOGD_CORE, "Generated an invalid connection: %s",
error->message);
nm_clear_pointer (&connection, g_object_unref);
}
return g_steal_pointer (&connection);
}