networking/libiproute/ipaddress.c

/* vi: set sw=4 ts=4: */
/*
 * ipaddress.c		"ip address".
 *
 * Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
 *
 * Authors:	Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
 *
 * Changes:
 *	Laszlo Valko <valko@linux.karinthy.hu> 990223: address label must be zero terminated
 */

#include <fnmatch.h>
#include <net/if.h>
#include <net/if_arp.h>

#include "ip_common.h"  /* #include "libbb.h" is inside */
#include "rt_names.h"
#include "utils.h"

#ifndef IFF_LOWER_UP
/* from linux/if.h */
#define IFF_LOWER_UP	0x10000		/* driver signals L1 up*/
#endif

typedef struct filter_t {
	char *label;
	char *flushb;
	struct rtnl_handle *rth;
	int scope, scopemask;
	int flags, flagmask;
	int flushp;
	int flushe;
	int ifindex;
	family_t family;
	smallint showqueue;
	smallint oneline;
	smallint up;
	smallint flushed;
	inet_prefix pfx;
} filter_t;

#define filter (*(filter_t*)&bb_common_bufsiz1)


static void print_link_flags(unsigned flags, unsigned mdown)
{
	static const int flag_masks[] = {
		IFF_LOOPBACK, IFF_BROADCAST, IFF_POINTOPOINT,
		IFF_MULTICAST, IFF_NOARP, IFF_UP, IFF_LOWER_UP };
	static const char flag_labels[] ALIGN1 =
		"LOOPBACK\0""BROADCAST\0""POINTOPOINT\0"
		"MULTICAST\0""NOARP\0""UP\0""LOWER_UP\0";

	bb_putchar('<');
	flags &= ~IFF_RUNNING;
#if 0
	_PF(ALLMULTI);
	_PF(PROMISC);
	_PF(MASTER);
	_PF(SLAVE);
	_PF(DEBUG);
	_PF(DYNAMIC);
	_PF(AUTOMEDIA);
	_PF(PORTSEL);
	_PF(NOTRAILERS);
#endif
	flags = print_flags_separated(flag_masks, flag_labels, flags, ",");
	if (flags)
		printf("%x", flags);
	if (mdown)
		printf(",M-DOWN");
	printf("> ");
}

static void print_queuelen(char *name)
{
	struct ifreq ifr;
	int s;

	s = socket(AF_INET, SOCK_STREAM, 0);
	if (s < 0)
		return;

	memset(&ifr, 0, sizeof(ifr));
	strncpy(ifr.ifr_name, name, sizeof(ifr.ifr_name));
	if (ioctl_or_warn(s, SIOCGIFTXQLEN, &ifr) < 0) {
		close(s);
		return;
	}
	close(s);

	if (ifr.ifr_qlen)
		printf("qlen %d", ifr.ifr_qlen);
}

static int print_linkinfo(const struct nlmsghdr *n)
{
	struct ifinfomsg *ifi = NLMSG_DATA(n);
	struct rtattr * tb[IFLA_MAX+1];
	int len = n->nlmsg_len;
	unsigned m_flag = 0;

	if (n->nlmsg_type != RTM_NEWLINK && n->nlmsg_type != RTM_DELLINK)
		return 0;

	len -= NLMSG_LENGTH(sizeof(*ifi));
	if (len < 0)
		return -1;

	if (filter.ifindex && ifi->ifi_index != filter.ifindex)
		return 0;
	if (filter.up && !(ifi->ifi_flags & IFF_UP))
		return 0;

	memset(tb, 0, sizeof(tb));
	parse_rtattr(tb, IFLA_MAX, IFLA_RTA(ifi), len);
	if (tb[IFLA_IFNAME] == NULL) {
		bb_error_msg("nil ifname");
		return -1;
	}
	if (filter.label
	 && (!filter.family || filter.family == AF_PACKET)
	 && fnmatch(filter.label, RTA_DATA(tb[IFLA_IFNAME]), 0)
	) {
		return 0;
	}

	if (n->nlmsg_type == RTM_DELLINK)
		printf("Deleted ");

	printf("%d: %s", ifi->ifi_index,
		tb[IFLA_IFNAME] ? (char*)RTA_DATA(tb[IFLA_IFNAME]) : "<nil>");

	if (tb[IFLA_LINK]) {
		SPRINT_BUF(b1);
		int iflink = *(int*)RTA_DATA(tb[IFLA_LINK]);
		if (iflink == 0)
			printf("@NONE: ");
		else {
			printf("@%s: ", ll_idx_n2a(iflink, b1));
			m_flag = ll_index_to_flags(iflink);
			m_flag = !(m_flag & IFF_UP);
		}
	} else {
		printf(": ");
	}
	print_link_flags(ifi->ifi_flags, m_flag);

	if (tb[IFLA_MTU])
		printf("mtu %u ", *(int*)RTA_DATA(tb[IFLA_MTU]));
	if (tb[IFLA_QDISC])
		printf("qdisc %s ", (char*)RTA_DATA(tb[IFLA_QDISC]));
#ifdef IFLA_MASTER
	if (tb[IFLA_MASTER]) {
		SPRINT_BUF(b1);
		printf("master %s ", ll_idx_n2a(*(int*)RTA_DATA(tb[IFLA_MASTER]), b1));
	}
#endif
	if (filter.showqueue)
		print_queuelen((char*)RTA_DATA(tb[IFLA_IFNAME]));

	if (!filter.family || filter.family == AF_PACKET) {
		SPRINT_BUF(b1);
		printf("%c    link/%s ", _SL_, ll_type_n2a(ifi->ifi_type, b1, sizeof(b1)));

		if (tb[IFLA_ADDRESS]) {
			fputs(ll_addr_n2a(RTA_DATA(tb[IFLA_ADDRESS]),
						      RTA_PAYLOAD(tb[IFLA_ADDRESS]),
						      ifi->ifi_type,
						      b1, sizeof(b1)), stdout);
		}
		if (tb[IFLA_BROADCAST]) {
			if (ifi->ifi_flags & IFF_POINTOPOINT)
				printf(" peer ");
			else
				printf(" brd ");
			fputs(ll_addr_n2a(RTA_DATA(tb[IFLA_BROADCAST]),
						      RTA_PAYLOAD(tb[IFLA_BROADCAST]),
						      ifi->ifi_type,
						      b1, sizeof(b1)), stdout);
		}
	}
	bb_putchar('\n');
	/*fflush(stdout);*/
	return 0;
}

static int flush_update(void)
{
	if (rtnl_send(filter.rth, filter.flushb, filter.flushp) < 0) {
		bb_perror_msg("failed to send flush request");
		return -1;
	}
	filter.flushp = 0;
	return 0;
}

static int print_addrinfo(const struct sockaddr_nl *who UNUSED_PARAM,
		struct nlmsghdr *n, void *arg UNUSED_PARAM)
{
	struct ifaddrmsg *ifa = NLMSG_DATA(n);
	int len = n->nlmsg_len;
	struct rtattr * rta_tb[IFA_MAX+1];
	char abuf[256];
	SPRINT_BUF(b1);

	if (n->nlmsg_type != RTM_NEWADDR && n->nlmsg_type != RTM_DELADDR)
		return 0;
	len -= NLMSG_LENGTH(sizeof(*ifa));
	if (len < 0) {
		bb_error_msg("wrong nlmsg len %d", len);
		return -1;
	}

	if (filter.flushb && n->nlmsg_type != RTM_NEWADDR)
		return 0;

	memset(rta_tb, 0, sizeof(rta_tb));
	parse_rtattr(rta_tb, IFA_MAX, IFA_RTA(ifa), n->nlmsg_len - NLMSG_LENGTH(sizeof(*ifa)));

	if (!rta_tb[IFA_LOCAL])
		rta_tb[IFA_LOCAL] = rta_tb[IFA_ADDRESS];
	if (!rta_tb[IFA_ADDRESS])
		rta_tb[IFA_ADDRESS] = rta_tb[IFA_LOCAL];

	if (filter.ifindex && filter.ifindex != ifa->ifa_index)
		return 0;
	if ((filter.scope ^ ifa->ifa_scope) & filter.scopemask)
		return 0;
	if ((filter.flags ^ ifa->ifa_flags) & filter.flagmask)
		return 0;
	if (filter.label) {
		const char *label;
		if (rta_tb[IFA_LABEL])
			label = RTA_DATA(rta_tb[IFA_LABEL]);
		else
			label = ll_idx_n2a(ifa->ifa_index, b1);
		if (fnmatch(filter.label, label, 0) != 0)
			return 0;
	}
	if (filter.pfx.family) {
		if (rta_tb[IFA_LOCAL]) {
			inet_prefix dst;
			memset(&dst, 0, sizeof(dst));
			dst.family = ifa->ifa_family;
			memcpy(&dst.data, RTA_DATA(rta_tb[IFA_LOCAL]), RTA_PAYLOAD(rta_tb[IFA_LOCAL]));
			if (inet_addr_match(&dst, &filter.pfx, filter.pfx.bitlen))
				return 0;
		}
	}

	if (filter.flushb) {
		struct nlmsghdr *fn;
		if (NLMSG_ALIGN(filter.flushp) + n->nlmsg_len > filter.flushe) {
			if (flush_update())
				return -1;
		}
		fn = (struct nlmsghdr*)(filter.flushb + NLMSG_ALIGN(filter.flushp));
		memcpy(fn, n, n->nlmsg_len);
		fn->nlmsg_type = RTM_DELADDR;
		fn->nlmsg_flags = NLM_F_REQUEST;
		fn->nlmsg_seq = ++filter.rth->seq;
		filter.flushp = (((char*)fn) + n->nlmsg_len) - filter.flushb;
		filter.flushed = 1;
		return 0;
	}

	if (n->nlmsg_type == RTM_DELADDR)
		printf("Deleted ");

	if (filter.oneline)
		printf("%u: %s", ifa->ifa_index, ll_index_to_name(ifa->ifa_index));
	if (ifa->ifa_family == AF_INET)
		printf("    inet ");
	else if (ifa->ifa_family == AF_INET6)
		printf("    inet6 ");
	else
		printf("    family %d ", ifa->ifa_family);

	if (rta_tb[IFA_LOCAL]) {
		fputs(rt_addr_n2a(ifa->ifa_family,
					      RTA_PAYLOAD(rta_tb[IFA_LOCAL]),
					      RTA_DATA(rta_tb[IFA_LOCAL]),
					      abuf, sizeof(abuf)), stdout);

		if (rta_tb[IFA_ADDRESS] == NULL ||
		    memcmp(RTA_DATA(rta_tb[IFA_ADDRESS]), RTA_DATA(rta_tb[IFA_LOCAL]), 4) == 0) {
			printf("/%d ", ifa->ifa_prefixlen);
		} else {
			printf(" peer %s/%d ",
				rt_addr_n2a(ifa->ifa_family,
					    RTA_PAYLOAD(rta_tb[IFA_ADDRESS]),
					    RTA_DATA(rta_tb[IFA_ADDRESS]),
					    abuf, sizeof(abuf)),
				ifa->ifa_prefixlen);
		}
	}

	if (rta_tb[IFA_BROADCAST]) {
		printf("brd %s ",
			rt_addr_n2a(ifa->ifa_family,
				    RTA_PAYLOAD(rta_tb[IFA_BROADCAST]),
				    RTA_DATA(rta_tb[IFA_BROADCAST]),
				    abuf, sizeof(abuf)));
	}
	if (rta_tb[IFA_ANYCAST]) {
		printf("any %s ",
			rt_addr_n2a(ifa->ifa_family,
				    RTA_PAYLOAD(rta_tb[IFA_ANYCAST]),
				    RTA_DATA(rta_tb[IFA_ANYCAST]),
				    abuf, sizeof(abuf)));
	}
	printf("scope %s ", rtnl_rtscope_n2a(ifa->ifa_scope, b1, sizeof(b1)));
	if (ifa->ifa_flags & IFA_F_SECONDARY) {
		ifa->ifa_flags &= ~IFA_F_SECONDARY;
		printf("secondary ");
	}
	if (ifa->ifa_flags & IFA_F_TENTATIVE) {
		ifa->ifa_flags &= ~IFA_F_TENTATIVE;
		printf("tentative ");
	}
	if (ifa->ifa_flags & IFA_F_DEPRECATED) {
		ifa->ifa_flags &= ~IFA_F_DEPRECATED;
		printf("deprecated ");
	}
	if (!(ifa->ifa_flags & IFA_F_PERMANENT)) {
		printf("dynamic ");
	} else
		ifa->ifa_flags &= ~IFA_F_PERMANENT;
	if (ifa->ifa_flags)
		printf("flags %02x ", ifa->ifa_flags);
	if (rta_tb[IFA_LABEL])
		fputs((char*)RTA_DATA(rta_tb[IFA_LABEL]), stdout);
	if (rta_tb[IFA_CACHEINFO]) {
		struct ifa_cacheinfo *ci = RTA_DATA(rta_tb[IFA_CACHEINFO]);
		char buf[128];
		bb_putchar(_SL_);
		if (ci->ifa_valid == 0xFFFFFFFFU)
			sprintf(buf, "valid_lft forever");
		else
			sprintf(buf, "valid_lft %dsec", ci->ifa_valid);
		if (ci->ifa_prefered == 0xFFFFFFFFU)
			sprintf(buf+strlen(buf), " preferred_lft forever");
		else
			sprintf(buf+strlen(buf), " preferred_lft %dsec", ci->ifa_prefered);
		printf("       %s", buf);
	}
	bb_putchar('\n');
	/*fflush(stdout);*/
	return 0;
}


struct nlmsg_list
{
	struct nlmsg_list *next;
	struct nlmsghdr	  h;
};

static int print_selected_addrinfo(int ifindex, struct nlmsg_list *ainfo)
{
	for (; ainfo; ainfo = ainfo->next) {
		struct nlmsghdr *n = &ainfo->h;
		struct ifaddrmsg *ifa = NLMSG_DATA(n);

		if (n->nlmsg_type != RTM_NEWADDR)
			continue;

		if (n->nlmsg_len < NLMSG_LENGTH(sizeof(ifa)))
			return -1;

		if (ifa->ifa_index != ifindex ||
		    (filter.family && filter.family != ifa->ifa_family))
			continue;

		print_addrinfo(NULL, n, NULL);
	}
	return 0;
}


static int store_nlmsg(const struct sockaddr_nl *who, struct nlmsghdr *n, void *arg)
{
	struct nlmsg_list **linfo = (struct nlmsg_list**)arg;
	struct nlmsg_list *h;
	struct nlmsg_list **lp;

	h = malloc(n->nlmsg_len+sizeof(void*));
	if (h == NULL)
		return -1;

	memcpy(&h->h, n, n->nlmsg_len);
	h->next = NULL;

	for (lp = linfo; *lp; lp = &(*lp)->next)
		continue;
	*lp = h;

	ll_remember_index(who, n, NULL);
	return 0;
}

static void ipaddr_reset_filter(int _oneline)
{
	memset(&filter, 0, sizeof(filter));
	filter.oneline = _oneline;
}

/* Return value becomes exitcode. It's okay to not return at all */
int ipaddr_list_or_flush(char **argv, int flush)
{
	static const char option[] ALIGN1 = "to\0""scope\0""up\0""label\0""dev\0";

	struct nlmsg_list *linfo = NULL;
	struct nlmsg_list *ainfo = NULL;
	struct nlmsg_list *l;
	struct rtnl_handle rth;
	char *filter_dev = NULL;
	int no_link = 0;

	ipaddr_reset_filter(oneline);
	filter.showqueue = 1;

	if (filter.family == AF_UNSPEC)
		filter.family = preferred_family;

	if (flush) {
		if (!*argv) {
			bb_error_msg_and_die(bb_msg_requires_arg, "flush");
		}
		if (filter.family == AF_PACKET) {
			bb_error_msg_and_die("cannot flush link addresses");
		}
	}

	while (*argv) {
		const int option_num = index_in_strings(option, *argv);
		switch (option_num) {
			case 0: /* to */
				NEXT_ARG();
				get_prefix(&filter.pfx, *argv, filter.family);
				if (filter.family == AF_UNSPEC) {
					filter.family = filter.pfx.family;
				}
				break;
			case 1: /* scope */
			{
				uint32_t scope = 0;
				NEXT_ARG();
				filter.scopemask = -1;
				if (rtnl_rtscope_a2n(&scope, *argv)) {
					if (strcmp(*argv, "all") != 0) {
						invarg(*argv, "scope");
					}
					scope = RT_SCOPE_NOWHERE;
					filter.scopemask = 0;
				}
				filter.scope = scope;
				break;
			}
			case 2: /* up */
				filter.up = 1;
				break;
			case 3: /* label */
				NEXT_ARG();
				filter.label = *argv;
				break;
			case 4: /* dev */
				NEXT_ARG();
			default:
				if (filter_dev) {
					duparg2("dev", *argv);
				}
				filter_dev = *argv;
		}
		argv++;
	}

	xrtnl_open(&rth);

	xrtnl_wilddump_request(&rth, preferred_family, RTM_GETLINK);
	xrtnl_dump_filter(&rth, store_nlmsg, &linfo);

	if (filter_dev) {
		filter.ifindex = xll_name_to_index(filter_dev);
	}

	if (flush) {
		char flushb[4096-512];

		filter.flushb = flushb;
		filter.flushp = 0;
		filter.flushe = sizeof(flushb);
		filter.rth = &rth;

		for (;;) {
			xrtnl_wilddump_request(&rth, filter.family, RTM_GETADDR);
			filter.flushed = 0;
			xrtnl_dump_filter(&rth, print_addrinfo, NULL);
			if (filter.flushed == 0) {
				return 0;
			}
			if (flush_update() < 0)
				return 1;
		}
	}

	if (filter.family != AF_PACKET) {
		xrtnl_wilddump_request(&rth, filter.family, RTM_GETADDR);
		xrtnl_dump_filter(&rth, store_nlmsg, &ainfo);
	}


	if (filter.family && filter.family != AF_PACKET) {
		struct nlmsg_list **lp;
		lp = &linfo;

		if (filter.oneline)
			no_link = 1;

		while ((l = *lp) != NULL) {
			int ok = 0;
			struct ifinfomsg *ifi = NLMSG_DATA(&l->h);
			struct nlmsg_list *a;

			for (a = ainfo; a; a = a->next) {
				struct nlmsghdr *n = &a->h;
				struct ifaddrmsg *ifa = NLMSG_DATA(n);

				if (ifa->ifa_index != ifi->ifi_index ||
				    (filter.family && filter.family != ifa->ifa_family))
					continue;
				if ((filter.scope ^ ifa->ifa_scope) & filter.scopemask)
					continue;
				if ((filter.flags ^ ifa->ifa_flags) & filter.flagmask)
					continue;
				if (filter.pfx.family || filter.label) {
					struct rtattr *tb[IFA_MAX+1];
					memset(tb, 0, sizeof(tb));
					parse_rtattr(tb, IFA_MAX, IFA_RTA(ifa), IFA_PAYLOAD(n));
					if (!tb[IFA_LOCAL])
						tb[IFA_LOCAL] = tb[IFA_ADDRESS];

					if (filter.pfx.family && tb[IFA_LOCAL]) {
						inet_prefix dst;
						memset(&dst, 0, sizeof(dst));
						dst.family = ifa->ifa_family;
						memcpy(&dst.data, RTA_DATA(tb[IFA_LOCAL]), RTA_PAYLOAD(tb[IFA_LOCAL]));
						if (inet_addr_match(&dst, &filter.pfx, filter.pfx.bitlen))
							continue;
					}
					if (filter.label) {
						SPRINT_BUF(b1);
						const char *label;
						if (tb[IFA_LABEL])
							label = RTA_DATA(tb[IFA_LABEL]);
						else
							label = ll_idx_n2a(ifa->ifa_index, b1);
						if (fnmatch(filter.label, label, 0) != 0)
							continue;
					}
				}

				ok = 1;
				break;
			}
			if (!ok)
				*lp = l->next;
			else
				lp = &l->next;
		}
	}

	for (l = linfo; l; l = l->next) {
		if (no_link || print_linkinfo(&l->h) == 0) {
			struct ifinfomsg *ifi = NLMSG_DATA(&l->h);
			if (filter.family != AF_PACKET)
				print_selected_addrinfo(ifi->ifi_index, ainfo);
		}
	}

	return 0;
}

static int default_scope(inet_prefix *lcl)
{
	if (lcl->family == AF_INET) {
		if (lcl->bytelen >= 1 && *(uint8_t*)&lcl->data == 127)
			return RT_SCOPE_HOST;
	}
	return 0;
}

/* Return value becomes exitcode. It's okay to not return at all */
static int ipaddr_modify(int cmd, char **argv)
{
	static const char option[] ALIGN1 =
		"peer\0""remote\0""broadcast\0""brd\0"
		"anycast\0""scope\0""dev\0""label\0""local\0";
	struct rtnl_handle rth;
	struct {
		struct nlmsghdr  n;
		struct ifaddrmsg ifa;
		char             buf[256];
	} req;
	char *d = NULL;
	char *l = NULL;
	inet_prefix lcl;
	inet_prefix peer;
	int local_len = 0;
	int peer_len = 0;
	int brd_len = 0;
	int any_len = 0;
	bool scoped = 0;

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

	req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct ifaddrmsg));
	req.n.nlmsg_flags = NLM_F_REQUEST;
	req.n.nlmsg_type = cmd;
	req.ifa.ifa_family = preferred_family;

	while (*argv) {
		const int option_num = index_in_strings(option, *argv);
		switch (option_num) {
			case 0: /* peer */
			case 1: /* remote */
				NEXT_ARG();

				if (peer_len) {
					duparg("peer", *argv);
				}
				get_prefix(&peer, *argv, req.ifa.ifa_family);
				peer_len = peer.bytelen;
				if (req.ifa.ifa_family == AF_UNSPEC) {
					req.ifa.ifa_family = peer.family;
				}
				addattr_l(&req.n, sizeof(req), IFA_ADDRESS, &peer.data, peer.bytelen);
				req.ifa.ifa_prefixlen = peer.bitlen;
				break;
			case 2: /* broadcast */
			case 3: /* brd */
			{
				inet_prefix addr;
				NEXT_ARG();
				if (brd_len) {
					duparg("broadcast", *argv);
				}
				if (LONE_CHAR(*argv, '+')) {
					brd_len = -1;
				} else if (LONE_DASH(*argv)) {
					brd_len = -2;
				} else {
					get_addr(&addr, *argv, req.ifa.ifa_family);
					if (req.ifa.ifa_family == AF_UNSPEC)
						req.ifa.ifa_family = addr.family;
					addattr_l(&req.n, sizeof(req), IFA_BROADCAST, &addr.data, addr.bytelen);
					brd_len = addr.bytelen;
				}
				break;
			}
			case 4: /* anycast */
			{
				inet_prefix addr;
				NEXT_ARG();
				if (any_len) {
					duparg("anycast", *argv);
				}
				get_addr(&addr, *argv, req.ifa.ifa_family);
				if (req.ifa.ifa_family == AF_UNSPEC) {
					req.ifa.ifa_family = addr.family;
				}
				addattr_l(&req.n, sizeof(req), IFA_ANYCAST, &addr.data, addr.bytelen);
				any_len = addr.bytelen;
				break;
			}
			case 5: /* scope */
			{
				uint32_t scope = 0;
				NEXT_ARG();
				if (rtnl_rtscope_a2n(&scope, *argv)) {
					invarg(*argv, "scope");
				}
				req.ifa.ifa_scope = scope;
				scoped = 1;
				break;
			}
			case 6: /* dev */
				NEXT_ARG();
				d = *argv;
				break;
			case 7: /* label */
				NEXT_ARG();
				l = *argv;
				addattr_l(&req.n, sizeof(req), IFA_LABEL, l, strlen(l)+1);
				break;
			case 8:	/* local */
				NEXT_ARG();
			default:
				if (local_len) {
					duparg2("local", *argv);
				}
				get_prefix(&lcl, *argv, req.ifa.ifa_family);
				if (req.ifa.ifa_family == AF_UNSPEC) {
					req.ifa.ifa_family = lcl.family;
				}
				addattr_l(&req.n, sizeof(req), IFA_LOCAL, &lcl.data, lcl.bytelen);
				local_len = lcl.bytelen;
		}
		argv++;
	}

	if (d == NULL) {
		bb_error_msg(bb_msg_requires_arg, "\"dev\"");
		return -1;
	}
	if (l && strncmp(d, l, strlen(d)) != 0) {
		bb_error_msg_and_die("\"dev\" (%s) must match \"label\" (%s)", d, l);
	}

	if (peer_len == 0 && local_len && cmd != RTM_DELADDR) {
		peer = lcl;
		addattr_l(&req.n, sizeof(req), IFA_ADDRESS, &lcl.data, lcl.bytelen);
	}
	if (req.ifa.ifa_prefixlen == 0)
		req.ifa.ifa_prefixlen = lcl.bitlen;

	if (brd_len < 0 && cmd != RTM_DELADDR) {
		inet_prefix brd;
		int i;
		if (req.ifa.ifa_family != AF_INET) {
			bb_error_msg_and_die("broadcast can be set only for IPv4 addresses");
		}
		brd = peer;
		if (brd.bitlen <= 30) {
			for (i=31; i>=brd.bitlen; i--) {
				if (brd_len == -1)
					brd.data[0] |= htonl(1<<(31-i));
				else
					brd.data[0] &= ~htonl(1<<(31-i));
			}
			addattr_l(&req.n, sizeof(req), IFA_BROADCAST, &brd.data, brd.bytelen);
			brd_len = brd.bytelen;
		}
	}
	if (!scoped && cmd != RTM_DELADDR)
		req.ifa.ifa_scope = default_scope(&lcl);

	xrtnl_open(&rth);

	ll_init_map(&rth);

	req.ifa.ifa_index = xll_name_to_index(d);

	if (rtnl_talk(&rth, &req.n, 0, 0, NULL, NULL, NULL) < 0)
		return 2;

	return 0;
}

/* Return value becomes exitcode. It's okay to not return at all */
int do_ipaddr(char **argv)
{
	static const char commands[] ALIGN1 =
		"add\0""delete\0""list\0""show\0""lst\0""flush\0";

	int command_num = 2; /* default command is list */

	if (*argv) {
		command_num = index_in_substrings(commands, *argv);
		if (command_num < 0 || command_num > 5)
			bb_error_msg_and_die("unknown command %s", *argv);
		argv++;
	}
	if (command_num == 0) /* add */
		return ipaddr_modify(RTM_NEWADDR, argv);
	if (command_num == 1) /* delete */
		return ipaddr_modify(RTM_DELADDR, argv);
	if (command_num == 5) /* flush */
		return ipaddr_list_or_flush(argv, 1);
	/* 2 == list, 3 == show, 4 == lst */
	return ipaddr_list_or_flush(argv, 0);
}
1	/* vi: set sw=4 ts=4: */
2	/*
3	* ipaddress.c "ip address".
4	*
5	* Licensed under GPLv2 or later, see file LICENSE in this tarball for details.
6	*
7	* Authors: Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
8	*
9	* Changes:
10	* Laszlo Valko <valko@linux.karinthy.hu> 990223: address label must be zero terminated
11	*/
12
13	#include <fnmatch.h>
14	#include <net/if.h>
15	#include <net/if_arp.h>
16
17	#include "ip_common.h" /* #include "libbb.h" is inside */
18	#include "rt_names.h"
19	#include "utils.h"
20
21	#ifndef IFF_LOWER_UP
22	/* from linux/if.h */
23	#define IFF_LOWER_UP 0x10000 /* driver signals L1 up*/
24	#endif
25
26	typedef struct filter_t {
27	char *label;
28	char *flushb;
29	struct rtnl_handle *rth;
30	int scope, scopemask;
31	int flags, flagmask;
32	int flushp;
33	int flushe;
34	int ifindex;
35	family_t family;
36	smallint showqueue;
37	smallint oneline;
38	smallint up;
39	smallint flushed;
40	inet_prefix pfx;
41	} filter_t;
42
43	#define filter ((filter_t)&bb_common_bufsiz1)
44
45
46	static void print_link_flags(unsigned flags, unsigned mdown)
47	{
48	static const int flag_masks[] = {
49	IFF_LOOPBACK, IFF_BROADCAST, IFF_POINTOPOINT,
50	IFF_MULTICAST, IFF_NOARP, IFF_UP, IFF_LOWER_UP };
51	static const char flag_labels[] ALIGN1 =
52	"LOOPBACK\0""BROADCAST\0""POINTOPOINT\0"
53	"MULTICAST\0""NOARP\0""UP\0""LOWER_UP\0";
54
55	bb_putchar('<');
56	flags &= ~IFF_RUNNING;
57	#if 0
58	_PF(ALLMULTI);
59	_PF(PROMISC);
60	_PF(MASTER);
61	_PF(SLAVE);
62	_PF(DEBUG);
63	_PF(DYNAMIC);
64	_PF(AUTOMEDIA);
65	_PF(PORTSEL);
66	_PF(NOTRAILERS);
67	#endif
68	flags = print_flags_separated(flag_masks, flag_labels, flags, ",");
69	if (flags)
70	printf("%x", flags);
71	if (mdown)
72	printf(",M-DOWN");
73	printf("> ");
74	}
75
76	static void print_queuelen(char *name)
77	{
78	struct ifreq ifr;
79	int s;
80
81	s = socket(AF_INET, SOCK_STREAM, 0);
82	if (s < 0)
83	return;
84
85	memset(&ifr, 0, sizeof(ifr));
86	strncpy(ifr.ifr_name, name, sizeof(ifr.ifr_name));
87	if (ioctl_or_warn(s, SIOCGIFTXQLEN, &ifr) < 0) {
88	close(s);
89	return;
90	}
91	close(s);
92
93	if (ifr.ifr_qlen)
94	printf("qlen %d", ifr.ifr_qlen);
95	}
96
97	static int print_linkinfo(const struct nlmsghdr *n)
98	{
99	struct ifinfomsg *ifi = NLMSG_DATA(n);
100	struct rtattr * tb[IFLA_MAX+1];
101	int len = n->nlmsg_len;
102	unsigned m_flag = 0;
103
104	if (n->nlmsg_type != RTM_NEWLINK && n->nlmsg_type != RTM_DELLINK)
105	return 0;
106
107	len -= NLMSG_LENGTH(sizeof(*ifi));
108	if (len < 0)
109	return -1;
110
111	if (filter.ifindex && ifi->ifi_index != filter.ifindex)
112	return 0;
113	if (filter.up && !(ifi->ifi_flags & IFF_UP))
114	return 0;
115
116	memset(tb, 0, sizeof(tb));
117	parse_rtattr(tb, IFLA_MAX, IFLA_RTA(ifi), len);
118	if (tb[IFLA_IFNAME] == NULL) {
119	bb_error_msg("nil ifname");
120	return -1;
121	}
122	if (filter.label
123	&& (!filter.family \|\| filter.family == AF_PACKET)
124	&& fnmatch(filter.label, RTA_DATA(tb[IFLA_IFNAME]), 0)
125	) {
126	return 0;
127	}
128
129	if (n->nlmsg_type == RTM_DELLINK)
130	printf("Deleted ");
131
132	printf("%d: %s", ifi->ifi_index,
133	tb[IFLA_IFNAME] ? (char*)RTA_DATA(tb[IFLA_IFNAME]) : "<nil>");
134
135	if (tb[IFLA_LINK]) {
136	SPRINT_BUF(b1);
137	int iflink = (int)RTA_DATA(tb[IFLA_LINK]);
138	if (iflink == 0)
139	printf("@NONE: ");
140	else {
141	printf("@%s: ", ll_idx_n2a(iflink, b1));
142	m_flag = ll_index_to_flags(iflink);
143	m_flag = !(m_flag & IFF_UP);
144	}
145	} else {
146	printf(": ");
147	}
148	print_link_flags(ifi->ifi_flags, m_flag);
149
150	if (tb[IFLA_MTU])
151	printf("mtu %u ", (int)RTA_DATA(tb[IFLA_MTU]));
152	if (tb[IFLA_QDISC])
153	printf("qdisc %s ", (char*)RTA_DATA(tb[IFLA_QDISC]));
154	#ifdef IFLA_MASTER
155	if (tb[IFLA_MASTER]) {
156	SPRINT_BUF(b1);
157	printf("master %s ", ll_idx_n2a((int)RTA_DATA(tb[IFLA_MASTER]), b1));
158	}
159	#endif
160	if (filter.showqueue)
161	print_queuelen((char*)RTA_DATA(tb[IFLA_IFNAME]));
162
163	if (!filter.family \|\| filter.family == AF_PACKET) {
164	SPRINT_BUF(b1);
165	printf("%c link/%s ", _SL_, ll_type_n2a(ifi->ifi_type, b1, sizeof(b1)));
166
167	if (tb[IFLA_ADDRESS]) {
168	fputs(ll_addr_n2a(RTA_DATA(tb[IFLA_ADDRESS]),
169	RTA_PAYLOAD(tb[IFLA_ADDRESS]),
170	ifi->ifi_type,
171	b1, sizeof(b1)), stdout);
172	}
173	if (tb[IFLA_BROADCAST]) {
174	if (ifi->ifi_flags & IFF_POINTOPOINT)
175	printf(" peer ");
176	else
177	printf(" brd ");
178	fputs(ll_addr_n2a(RTA_DATA(tb[IFLA_BROADCAST]),
179	RTA_PAYLOAD(tb[IFLA_BROADCAST]),
180	ifi->ifi_type,
181	b1, sizeof(b1)), stdout);
182	}
183	}
184	bb_putchar('\n');
185	/fflush(stdout);/
186	return 0;
187	}
188
189	static int flush_update(void)
190	{
191	if (rtnl_send(filter.rth, filter.flushb, filter.flushp) < 0) {
192	bb_perror_msg("failed to send flush request");
193	return -1;
194	}
195	filter.flushp = 0;
196	return 0;
197	}
198
199	static int print_addrinfo(const struct sockaddr_nl *who UNUSED_PARAM,
200	struct nlmsghdr n, void arg UNUSED_PARAM)
201	{
202	struct ifaddrmsg *ifa = NLMSG_DATA(n);
203	int len = n->nlmsg_len;
204	struct rtattr * rta_tb[IFA_MAX+1];
205	char abuf[256];
206	SPRINT_BUF(b1);
207
208	if (n->nlmsg_type != RTM_NEWADDR && n->nlmsg_type != RTM_DELADDR)
209	return 0;
210	len -= NLMSG_LENGTH(sizeof(*ifa));
211	if (len < 0) {
212	bb_error_msg("wrong nlmsg len %d", len);
213	return -1;
214	}
215
216	if (filter.flushb && n->nlmsg_type != RTM_NEWADDR)
217	return 0;
218
219	memset(rta_tb, 0, sizeof(rta_tb));
220	parse_rtattr(rta_tb, IFA_MAX, IFA_RTA(ifa), n->nlmsg_len - NLMSG_LENGTH(sizeof(*ifa)));
221
222	if (!rta_tb[IFA_LOCAL])
223	rta_tb[IFA_LOCAL] = rta_tb[IFA_ADDRESS];
224	if (!rta_tb[IFA_ADDRESS])
225	rta_tb[IFA_ADDRESS] = rta_tb[IFA_LOCAL];
226
227	if (filter.ifindex && filter.ifindex != ifa->ifa_index)
228	return 0;
229	if ((filter.scope ^ ifa->ifa_scope) & filter.scopemask)
230	return 0;
231	if ((filter.flags ^ ifa->ifa_flags) & filter.flagmask)
232	return 0;
233	if (filter.label) {
234	const char *label;
235	if (rta_tb[IFA_LABEL])
236	label = RTA_DATA(rta_tb[IFA_LABEL]);
237	else
238	label = ll_idx_n2a(ifa->ifa_index, b1);
239	if (fnmatch(filter.label, label, 0) != 0)
240	return 0;
241	}
242	if (filter.pfx.family) {
243	if (rta_tb[IFA_LOCAL]) {
244	inet_prefix dst;
245	memset(&dst, 0, sizeof(dst));
246	dst.family = ifa->ifa_family;
247	memcpy(&dst.data, RTA_DATA(rta_tb[IFA_LOCAL]), RTA_PAYLOAD(rta_tb[IFA_LOCAL]));
248	if (inet_addr_match(&dst, &filter.pfx, filter.pfx.bitlen))
249	return 0;
250	}
251	}
252
253	if (filter.flushb) {
254	struct nlmsghdr *fn;
255	if (NLMSG_ALIGN(filter.flushp) + n->nlmsg_len > filter.flushe) {
256	if (flush_update())
257	return -1;
258	}
259	fn = (struct nlmsghdr*)(filter.flushb + NLMSG_ALIGN(filter.flushp));
260	memcpy(fn, n, n->nlmsg_len);
261	fn->nlmsg_type = RTM_DELADDR;
262	fn->nlmsg_flags = NLM_F_REQUEST;
263	fn->nlmsg_seq = ++filter.rth->seq;
264	filter.flushp = (((char*)fn) + n->nlmsg_len) - filter.flushb;
265	filter.flushed = 1;
266	return 0;
267	}
268
269	if (n->nlmsg_type == RTM_DELADDR)
270	printf("Deleted ");
271
272	if (filter.oneline)
273	printf("%u: %s", ifa->ifa_index, ll_index_to_name(ifa->ifa_index));
274	if (ifa->ifa_family == AF_INET)
275	printf(" inet ");
276	else if (ifa->ifa_family == AF_INET6)
277	printf(" inet6 ");
278	else
279	printf(" family %d ", ifa->ifa_family);
280
281	if (rta_tb[IFA_LOCAL]) {
282	fputs(rt_addr_n2a(ifa->ifa_family,
283	RTA_PAYLOAD(rta_tb[IFA_LOCAL]),
284	RTA_DATA(rta_tb[IFA_LOCAL]),
285	abuf, sizeof(abuf)), stdout);
286
287	if (rta_tb[IFA_ADDRESS] == NULL \|\|
288	memcmp(RTA_DATA(rta_tb[IFA_ADDRESS]), RTA_DATA(rta_tb[IFA_LOCAL]), 4) == 0) {
289	printf("/%d ", ifa->ifa_prefixlen);
290	} else {
291	printf(" peer %s/%d ",
292	rt_addr_n2a(ifa->ifa_family,
293	RTA_PAYLOAD(rta_tb[IFA_ADDRESS]),
294	RTA_DATA(rta_tb[IFA_ADDRESS]),
295	abuf, sizeof(abuf)),
296	ifa->ifa_prefixlen);
297	}
298	}
299
300	if (rta_tb[IFA_BROADCAST]) {
301	printf("brd %s ",
302	rt_addr_n2a(ifa->ifa_family,
303	RTA_PAYLOAD(rta_tb[IFA_BROADCAST]),
304	RTA_DATA(rta_tb[IFA_BROADCAST]),
305	abuf, sizeof(abuf)));
306	}
307	if (rta_tb[IFA_ANYCAST]) {
308	printf("any %s ",
309	rt_addr_n2a(ifa->ifa_family,
310	RTA_PAYLOAD(rta_tb[IFA_ANYCAST]),
311	RTA_DATA(rta_tb[IFA_ANYCAST]),
312	abuf, sizeof(abuf)));
313	}
314	printf("scope %s ", rtnl_rtscope_n2a(ifa->ifa_scope, b1, sizeof(b1)));
315	if (ifa->ifa_flags & IFA_F_SECONDARY) {
316	ifa->ifa_flags &= ~IFA_F_SECONDARY;
317	printf("secondary ");
318	}
319	if (ifa->ifa_flags & IFA_F_TENTATIVE) {
320	ifa->ifa_flags &= ~IFA_F_TENTATIVE;
321	printf("tentative ");
322	}
323	if (ifa->ifa_flags & IFA_F_DEPRECATED) {
324	ifa->ifa_flags &= ~IFA_F_DEPRECATED;
325	printf("deprecated ");
326	}
327	if (!(ifa->ifa_flags & IFA_F_PERMANENT)) {
328	printf("dynamic ");
329	} else
330	ifa->ifa_flags &= ~IFA_F_PERMANENT;
331	if (ifa->ifa_flags)
332	printf("flags %02x ", ifa->ifa_flags);
333	if (rta_tb[IFA_LABEL])
334	fputs((char*)RTA_DATA(rta_tb[IFA_LABEL]), stdout);
335	if (rta_tb[IFA_CACHEINFO]) {
336	struct ifa_cacheinfo *ci = RTA_DATA(rta_tb[IFA_CACHEINFO]);
337	char buf[128];
338	bb_putchar(_SL_);
339	if (ci->ifa_valid == 0xFFFFFFFFU)
340	sprintf(buf, "valid_lft forever");
341	else
342	sprintf(buf, "valid_lft %dsec", ci->ifa_valid);
343	if (ci->ifa_prefered == 0xFFFFFFFFU)
344	sprintf(buf+strlen(buf), " preferred_lft forever");
345	else
346	sprintf(buf+strlen(buf), " preferred_lft %dsec", ci->ifa_prefered);
347	printf(" %s", buf);
348	}
349	bb_putchar('\n');
350	/fflush(stdout);/
351	return 0;
352	}
353
354
355	struct nlmsg_list
356	{
357	struct nlmsg_list *next;
358	struct nlmsghdr h;
359	};
360
361	static int print_selected_addrinfo(int ifindex, struct nlmsg_list *ainfo)
362	{
363	for (; ainfo; ainfo = ainfo->next) {
364	struct nlmsghdr *n = &ainfo->h;
365	struct ifaddrmsg *ifa = NLMSG_DATA(n);
366
367	if (n->nlmsg_type != RTM_NEWADDR)
368	continue;
369
370	if (n->nlmsg_len < NLMSG_LENGTH(sizeof(ifa)))
371	return -1;
372
373	if (ifa->ifa_index != ifindex \|\|
374	(filter.family && filter.family != ifa->ifa_family))
375	continue;
376
377	print_addrinfo(NULL, n, NULL);
378	}
379	return 0;
380	}
381
382
383	static int store_nlmsg(const struct sockaddr_nl who, struct nlmsghdr n, void *arg)
384	{
385	struct nlmsg_list linfo = (struct nlmsg_list)arg;
386	struct nlmsg_list *h;
387	struct nlmsg_list **lp;
388
389	h = malloc(n->nlmsg_len+sizeof(void*));
390	if (h == NULL)
391	return -1;
392
393	memcpy(&h->h, n, n->nlmsg_len);
394	h->next = NULL;
395
396	for (lp = linfo; lp; lp = &(lp)->next)
397	continue;
398	*lp = h;
399
400	ll_remember_index(who, n, NULL);
401	return 0;
402	}
403
404	static void ipaddr_reset_filter(int _oneline)
405	{
406	memset(&filter, 0, sizeof(filter));
407	filter.oneline = _oneline;
408	}
409
410	/* Return value becomes exitcode. It's okay to not return at all */
411	int ipaddr_list_or_flush(char **argv, int flush)
412	{
413	static const char option[] ALIGN1 = "to\0""scope\0""up\0""label\0""dev\0";
414
415	struct nlmsg_list *linfo = NULL;
416	struct nlmsg_list *ainfo = NULL;
417	struct nlmsg_list *l;
418	struct rtnl_handle rth;
419	char *filter_dev = NULL;
420	int no_link = 0;
421
422	ipaddr_reset_filter(oneline);
423	filter.showqueue = 1;
424
425	if (filter.family == AF_UNSPEC)
426	filter.family = preferred_family;
427
428	if (flush) {
429	if (!*argv) {
430	bb_error_msg_and_die(bb_msg_requires_arg, "flush");
431	}
432	if (filter.family == AF_PACKET) {
433	bb_error_msg_and_die("cannot flush link addresses");
434	}
435	}
436
437	while (*argv) {
438	const int option_num = index_in_strings(option, *argv);
439	switch (option_num) {
440	case 0: /* to */
441	NEXT_ARG();
442	get_prefix(&filter.pfx, *argv, filter.family);
443	if (filter.family == AF_UNSPEC) {
444	filter.family = filter.pfx.family;
445	}
446	break;
447	case 1: /* scope */
448	{
449	uint32_t scope = 0;
450	NEXT_ARG();
451	filter.scopemask = -1;
452	if (rtnl_rtscope_a2n(&scope, *argv)) {
453	if (strcmp(*argv, "all") != 0) {
454	invarg(*argv, "scope");
455	}
456	scope = RT_SCOPE_NOWHERE;
457	filter.scopemask = 0;
458	}
459	filter.scope = scope;
460	break;
461	}
462	case 2: /* up */
463	filter.up = 1;
464	break;
465	case 3: /* label */
466	NEXT_ARG();
467	filter.label = *argv;
468	break;
469	case 4: /* dev */
470	NEXT_ARG();
471	default:
472	if (filter_dev) {
473	duparg2("dev", *argv);
474	}
475	filter_dev = *argv;
476	}
477	argv++;
478	}
479
480	xrtnl_open(&rth);
481
482	xrtnl_wilddump_request(&rth, preferred_family, RTM_GETLINK);
483	xrtnl_dump_filter(&rth, store_nlmsg, &linfo);
484
485	if (filter_dev) {
486	filter.ifindex = xll_name_to_index(filter_dev);
487	}
488
489	if (flush) {
490	char flushb[4096-512];
491
492	filter.flushb = flushb;
493	filter.flushp = 0;
494	filter.flushe = sizeof(flushb);
495	filter.rth = &rth;
496
497	for (;;) {
498	xrtnl_wilddump_request(&rth, filter.family, RTM_GETADDR);
499	filter.flushed = 0;
500	xrtnl_dump_filter(&rth, print_addrinfo, NULL);
501	if (filter.flushed == 0) {
502	return 0;
503	}
504	if (flush_update() < 0)
505	return 1;
506	}
507	}
508
509	if (filter.family != AF_PACKET) {
510	xrtnl_wilddump_request(&rth, filter.family, RTM_GETADDR);
511	xrtnl_dump_filter(&rth, store_nlmsg, &ainfo);
512	}
513
514
515	if (filter.family && filter.family != AF_PACKET) {
516	struct nlmsg_list **lp;
517	lp = &linfo;
518
519	if (filter.oneline)
520	no_link = 1;
521
522	while ((l = *lp) != NULL) {
523	int ok = 0;
524	struct ifinfomsg *ifi = NLMSG_DATA(&l->h);
525	struct nlmsg_list *a;
526
527	for (a = ainfo; a; a = a->next) {
528	struct nlmsghdr *n = &a->h;
529	struct ifaddrmsg *ifa = NLMSG_DATA(n);
530
531	if (ifa->ifa_index != ifi->ifi_index \|\|
532	(filter.family && filter.family != ifa->ifa_family))
533	continue;
534	if ((filter.scope ^ ifa->ifa_scope) & filter.scopemask)
535	continue;
536	if ((filter.flags ^ ifa->ifa_flags) & filter.flagmask)
537	continue;
538	if (filter.pfx.family \|\| filter.label) {
539	struct rtattr *tb[IFA_MAX+1];
540	memset(tb, 0, sizeof(tb));
541	parse_rtattr(tb, IFA_MAX, IFA_RTA(ifa), IFA_PAYLOAD(n));
542	if (!tb[IFA_LOCAL])
543	tb[IFA_LOCAL] = tb[IFA_ADDRESS];
544
545	if (filter.pfx.family && tb[IFA_LOCAL]) {
546	inet_prefix dst;
547	memset(&dst, 0, sizeof(dst));
548	dst.family = ifa->ifa_family;
549	memcpy(&dst.data, RTA_DATA(tb[IFA_LOCAL]), RTA_PAYLOAD(tb[IFA_LOCAL]));
550	if (inet_addr_match(&dst, &filter.pfx, filter.pfx.bitlen))
551	continue;
552	}
553	if (filter.label) {
554	SPRINT_BUF(b1);
555	const char *label;
556	if (tb[IFA_LABEL])
557	label = RTA_DATA(tb[IFA_LABEL]);
558	else
559	label = ll_idx_n2a(ifa->ifa_index, b1);
560	if (fnmatch(filter.label, label, 0) != 0)
561	continue;
562	}
563	}
564
565	ok = 1;
566	break;
567	}
568	if (!ok)
569	*lp = l->next;
570	else
571	lp = &l->next;
572	}
573	}
574
575	for (l = linfo; l; l = l->next) {
576	if (no_link \|\| print_linkinfo(&l->h) == 0) {
577	struct ifinfomsg *ifi = NLMSG_DATA(&l->h);
578	if (filter.family != AF_PACKET)
579	print_selected_addrinfo(ifi->ifi_index, ainfo);
580	}
581	}
582
583	return 0;
584	}
585
586	static int default_scope(inet_prefix *lcl)
587	{
588	if (lcl->family == AF_INET) {
589	if (lcl->bytelen >= 1 && (uint8_t)&lcl->data == 127)
590	return RT_SCOPE_HOST;
591	}
592	return 0;
593	}
594
595	/* Return value becomes exitcode. It's okay to not return at all */
596	static int ipaddr_modify(int cmd, char **argv)
597	{
598	static const char option[] ALIGN1 =
599	"peer\0""remote\0""broadcast\0""brd\0"
600	"anycast\0""scope\0""dev\0""label\0""local\0";
601	struct rtnl_handle rth;
602	struct {
603	struct nlmsghdr n;
604	struct ifaddrmsg ifa;
605	char buf[256];
606	} req;
607	char *d = NULL;
608	char *l = NULL;
609	inet_prefix lcl;
610	inet_prefix peer;
611	int local_len = 0;
612	int peer_len = 0;
613	int brd_len = 0;
614	int any_len = 0;
615	bool scoped = 0;
616
617	memset(&req, 0, sizeof(req));
618
619	req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct ifaddrmsg));
620	req.n.nlmsg_flags = NLM_F_REQUEST;
621	req.n.nlmsg_type = cmd;
622	req.ifa.ifa_family = preferred_family;
623
624	while (*argv) {
625	const int option_num = index_in_strings(option, *argv);
626	switch (option_num) {
627	case 0: /* peer */
628	case 1: /* remote */
629	NEXT_ARG();
630
631	if (peer_len) {
632	duparg("peer", *argv);
633	}
634	get_prefix(&peer, *argv, req.ifa.ifa_family);
635	peer_len = peer.bytelen;
636	if (req.ifa.ifa_family == AF_UNSPEC) {
637	req.ifa.ifa_family = peer.family;
638	}
639	addattr_l(&req.n, sizeof(req), IFA_ADDRESS, &peer.data, peer.bytelen);
640	req.ifa.ifa_prefixlen = peer.bitlen;
641	break;
642	case 2: /* broadcast */
643	case 3: /* brd */
644	{
645	inet_prefix addr;
646	NEXT_ARG();
647	if (brd_len) {
648	duparg("broadcast", *argv);
649	}
650	if (LONE_CHAR(*argv, '+')) {
651	brd_len = -1;
652	} else if (LONE_DASH(*argv)) {
653	brd_len = -2;
654	} else {
655	get_addr(&addr, *argv, req.ifa.ifa_family);
656	if (req.ifa.ifa_family == AF_UNSPEC)
657	req.ifa.ifa_family = addr.family;
658	addattr_l(&req.n, sizeof(req), IFA_BROADCAST, &addr.data, addr.bytelen);
659	brd_len = addr.bytelen;
660	}
661	break;
662	}
663	case 4: /* anycast */
664	{
665	inet_prefix addr;
666	NEXT_ARG();
667	if (any_len) {
668	duparg("anycast", *argv);
669	}
670	get_addr(&addr, *argv, req.ifa.ifa_family);
671	if (req.ifa.ifa_family == AF_UNSPEC) {
672	req.ifa.ifa_family = addr.family;
673	}
674	addattr_l(&req.n, sizeof(req), IFA_ANYCAST, &addr.data, addr.bytelen);
675	any_len = addr.bytelen;
676	break;
677	}
678	case 5: /* scope */
679	{
680	uint32_t scope = 0;
681	NEXT_ARG();
682	if (rtnl_rtscope_a2n(&scope, *argv)) {
683	invarg(*argv, "scope");
684	}
685	req.ifa.ifa_scope = scope;
686	scoped = 1;
687	break;
688	}
689	case 6: /* dev */
690	NEXT_ARG();
691	d = *argv;
692	break;
693	case 7: /* label */
694	NEXT_ARG();
695	l = *argv;
696	addattr_l(&req.n, sizeof(req), IFA_LABEL, l, strlen(l)+1);
697	break;
698	case 8: /* local */
699	NEXT_ARG();
700	default:
701	if (local_len) {
702	duparg2("local", *argv);
703	}
704	get_prefix(&lcl, *argv, req.ifa.ifa_family);
705	if (req.ifa.ifa_family == AF_UNSPEC) {
706	req.ifa.ifa_family = lcl.family;
707	}
708	addattr_l(&req.n, sizeof(req), IFA_LOCAL, &lcl.data, lcl.bytelen);
709	local_len = lcl.bytelen;
710	}
711	argv++;
712	}
713
714	if (d == NULL) {
715	bb_error_msg(bb_msg_requires_arg, "\"dev\"");
716	return -1;
717	}
718	if (l && strncmp(d, l, strlen(d)) != 0) {
719	bb_error_msg_and_die("\"dev\" (%s) must match \"label\" (%s)", d, l);
720	}
721
722	if (peer_len == 0 && local_len && cmd != RTM_DELADDR) {
723	peer = lcl;
724	addattr_l(&req.n, sizeof(req), IFA_ADDRESS, &lcl.data, lcl.bytelen);
725	}
726	if (req.ifa.ifa_prefixlen == 0)
727	req.ifa.ifa_prefixlen = lcl.bitlen;
728
729	if (brd_len < 0 && cmd != RTM_DELADDR) {
730	inet_prefix brd;
731	int i;
732	if (req.ifa.ifa_family != AF_INET) {
733	bb_error_msg_and_die("broadcast can be set only for IPv4 addresses");
734	}
735	brd = peer;
736	if (brd.bitlen <= 30) {
737	for (i=31; i>=brd.bitlen; i--) {
738	if (brd_len == -1)
739	brd.data[0] \|= htonl(1<<(31-i));
740	else
741	brd.data[0] &= ~htonl(1<<(31-i));
742	}
743	addattr_l(&req.n, sizeof(req), IFA_BROADCAST, &brd.data, brd.bytelen);
744	brd_len = brd.bytelen;
745	}
746	}
747	if (!scoped && cmd != RTM_DELADDR)
748	req.ifa.ifa_scope = default_scope(&lcl);
749
750	xrtnl_open(&rth);
751
752	ll_init_map(&rth);
753
754	req.ifa.ifa_index = xll_name_to_index(d);
755
756	if (rtnl_talk(&rth, &req.n, 0, 0, NULL, NULL, NULL) < 0)
757	return 2;
758
759	return 0;
760	}
761
762	/* Return value becomes exitcode. It's okay to not return at all */
763	int do_ipaddr(char **argv)
764	{
765	static const char commands[] ALIGN1 =
766	"add\0""delete\0""list\0""show\0""lst\0""flush\0";
767
768	int command_num = 2; /* default command is list */
769
770	if (*argv) {
771	command_num = index_in_substrings(commands, *argv);
772	if (command_num < 0 \|\| command_num > 5)
773	bb_error_msg_and_die("unknown command %s", *argv);
774	argv++;
775	}
776	if (command_num == 0) /* add */
777	return ipaddr_modify(RTM_NEWADDR, argv);
778	if (command_num == 1) /* delete */
779	return ipaddr_modify(RTM_DELADDR, argv);
780	if (command_num == 5) /* flush */
781	return ipaddr_list_or_flush(argv, 1);
782	/* 2 == list, 3 == show, 4 == lst */
783	return ipaddr_list_or_flush(argv, 0);
784	}