networking/libiproute/iproute.c - codeaurora/busybox - Gitiles

 /* vi: set sw=4 ts=4: */
 /*
  * iproute.c		"ip route".
  *
  * Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
  *
  * Authors:	Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
  *
  *
  * Changes:
  *
  * Rani Assaf <rani@magic.metawire.com> 980929:	resolve addresses
  * Kunihiro Ishiguro <kunihiro@zebra.org> 001102: rtnh_ifindex was not initialized
  */

 #include "libbb.h"

 #include <sys/socket.h>

 #include <string.h>
 #include <fcntl.h>
 #include <unistd.h>

 #include "rt_names.h"
 #include "utils.h"
 #include "ip_common.h"

 #ifndef RTAX_RTTVAR
 #define RTAX_RTTVAR RTAX_HOPS
 #endif


 static struct
 {
 	int tb;
 	int flushed;
 	char *flushb;
 	int flushp;
 	int flushe;
 	struct rtnl_handle *rth;
 	int protocol, protocolmask;
 	int scope, scopemask;
 	int type, typemask;
 	int tos, tosmask;
 	int iif, iifmask;
 	int oif, oifmask;
 	int realm, realmmask;
 	inet_prefix rprefsrc;
 	inet_prefix rvia;
 	inet_prefix rdst;
 	inet_prefix mdst;
 	inet_prefix rsrc;
 	inet_prefix msrc;
 } filter;

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

 static int print_route(struct sockaddr_nl *who ATTRIBUTE_UNUSED,
 		struct nlmsghdr *n, void *arg)
 {
 	FILE *fp = (FILE*)arg;
 	struct rtmsg *r = NLMSG_DATA(n);
 	int len = n->nlmsg_len;
 	struct rtattr * tb[RTA_MAX+1];
 	char abuf[256];
 	inet_prefix dst;
 	inet_prefix src;
 	int host_len = -1;
 	SPRINT_BUF(b1);


 	if (n->nlmsg_type != RTM_NEWROUTE && n->nlmsg_type != RTM_DELROUTE) {
 		fprintf(stderr, "Not a route: %08x %08x %08x\n",
 			n->nlmsg_len, n->nlmsg_type, n->nlmsg_flags);
 		return 0;
 	}
 	if (filter.flushb && n->nlmsg_type != RTM_NEWROUTE)
 		return 0;
 	len -= NLMSG_LENGTH(sizeof(*r));
 	if (len < 0) {
 		bb_error_msg("wrong nlmsg len %d", len);
 		return -1;
 	}

 	if (r->rtm_family == AF_INET6)
 		host_len = 128;
 	else if (r->rtm_family == AF_INET)
 		host_len = 32;

 	if (r->rtm_family == AF_INET6) {
 		if (filter.tb) {
 			if (filter.tb < 0) {
 				if (!(r->rtm_flags&RTM_F_CLONED)) {
 					return 0;
 				}
 			} else {
 				if (r->rtm_flags&RTM_F_CLONED) {
 					return 0;
 				}
 				if (filter.tb == RT_TABLE_LOCAL) {
 					if (r->rtm_type != RTN_LOCAL) {
 						return 0;
 					}
 				} else if (filter.tb == RT_TABLE_MAIN) {
 					if (r->rtm_type == RTN_LOCAL) {
 						return 0;
 					}
 				} else {
 					return 0;
 				}
 			}
 		}
 	} else {
 		if (filter.tb > 0 && filter.tb != r->rtm_table) {
 			return 0;
 		}
 	}
 	if (filter.rdst.family &&
 	    (r->rtm_family != filter.rdst.family || filter.rdst.bitlen > r->rtm_dst_len)) {
 		return 0;
 	}
 	if (filter.mdst.family &&
 	    (r->rtm_family != filter.mdst.family ||
 	     (filter.mdst.bitlen >= 0 && filter.mdst.bitlen < r->rtm_dst_len))) {
 		return 0;
 	}
 	if (filter.rsrc.family &&
 	    (r->rtm_family != filter.rsrc.family || filter.rsrc.bitlen > r->rtm_src_len)) {
 		return 0;
 	}
 	if (filter.msrc.family &&
 	    (r->rtm_family != filter.msrc.family ||
 	     (filter.msrc.bitlen >= 0 && filter.msrc.bitlen < r->rtm_src_len))) {
 		return 0;
 	}

 	memset(tb, 0, sizeof(tb));
 	parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);

 	if (filter.rdst.family && inet_addr_match(&dst, &filter.rdst, filter.rdst.bitlen))
 		return 0;
 	if (filter.mdst.family && filter.mdst.bitlen >= 0 &&
 	    inet_addr_match(&dst, &filter.mdst, r->rtm_dst_len))
 		return 0;

 	if (filter.rsrc.family && inet_addr_match(&src, &filter.rsrc, filter.rsrc.bitlen))
 		return 0;
 	if (filter.msrc.family && filter.msrc.bitlen >= 0 &&
 	    inet_addr_match(&src, &filter.msrc, r->rtm_src_len))
 		return 0;

 	if (filter.flushb &&
 	    r->rtm_family == AF_INET6 &&
 	    r->rtm_dst_len == 0 &&
 	    r->rtm_type == RTN_UNREACHABLE &&
 	    tb[RTA_PRIORITY] &&
 	    *(int*)RTA_DATA(tb[RTA_PRIORITY]) == -1)
 		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_DELROUTE;
 		fn->nlmsg_flags = NLM_F_REQUEST;
 		fn->nlmsg_seq = ++filter.rth->seq;
 		filter.flushp = (((char*)fn) + n->nlmsg_len) - filter.flushb;
 		filter.flushed++;
 		return 0;
 	}

 	if (n->nlmsg_type == RTM_DELROUTE) {
 		fprintf(fp, "Deleted ");
 	}
 	if (r->rtm_type != RTN_UNICAST && !filter.type) {
 		fprintf(fp, "%s ", rtnl_rtntype_n2a(r->rtm_type, b1, sizeof(b1)));
 	}

 	if (tb[RTA_DST]) {
 		if (r->rtm_dst_len != host_len) {
 			fprintf(fp, "%s/%u ", rt_addr_n2a(r->rtm_family,
 							 RTA_PAYLOAD(tb[RTA_DST]),
 							 RTA_DATA(tb[RTA_DST]),
 							 abuf, sizeof(abuf)),
 				r->rtm_dst_len
 				);
 		} else {
 			fprintf(fp, "%s ", format_host(r->rtm_family,
 						       RTA_PAYLOAD(tb[RTA_DST]),
 						       RTA_DATA(tb[RTA_DST]),
 						       abuf, sizeof(abuf))
 				);
 		}
 	} else if (r->rtm_dst_len) {
 		fprintf(fp, "0/%d ", r->rtm_dst_len);
 	} else {
 		fprintf(fp, "default ");
 	}
 	if (tb[RTA_SRC]) {
 		if (r->rtm_src_len != host_len) {
 			fprintf(fp, "from %s/%u ", rt_addr_n2a(r->rtm_family,
 							 RTA_PAYLOAD(tb[RTA_SRC]),
 							 RTA_DATA(tb[RTA_SRC]),
 							 abuf, sizeof(abuf)),
 				r->rtm_src_len
 				);
 		} else {
 			fprintf(fp, "from %s ", format_host(r->rtm_family,
 						       RTA_PAYLOAD(tb[RTA_SRC]),
 						       RTA_DATA(tb[RTA_SRC]),
 						       abuf, sizeof(abuf))
 				);
 		}
 	} else if (r->rtm_src_len) {
 		fprintf(fp, "from 0/%u ", r->rtm_src_len);
 	}
 	if (tb[RTA_GATEWAY] && filter.rvia.bitlen != host_len) {
 		fprintf(fp, "via %s ",
 			format_host(r->rtm_family,
 				    RTA_PAYLOAD(tb[RTA_GATEWAY]),
 				    RTA_DATA(tb[RTA_GATEWAY]),
 				    abuf, sizeof(abuf)));
 	}
 	if (tb[RTA_OIF] && filter.oifmask != -1) {
 		fprintf(fp, "dev %s ", ll_index_to_name(*(int*)RTA_DATA(tb[RTA_OIF])));
 	}

 	if (tb[RTA_PREFSRC] && filter.rprefsrc.bitlen != host_len) {
 		/* Do not use format_host(). It is our local addr
 		   and symbolic name will not be useful.
 		 */
 		fprintf(fp, " src %s ",
 			rt_addr_n2a(r->rtm_family,
 				    RTA_PAYLOAD(tb[RTA_PREFSRC]),
 				    RTA_DATA(tb[RTA_PREFSRC]),
 				    abuf, sizeof(abuf)));
 	}
 	if (tb[RTA_PRIORITY]) {
 		fprintf(fp, " metric %d ", *(__u32*)RTA_DATA(tb[RTA_PRIORITY]));
 	}
 	if (r->rtm_family == AF_INET6) {
 		struct rta_cacheinfo *ci = NULL;
 		if (tb[RTA_CACHEINFO]) {
 			ci = RTA_DATA(tb[RTA_CACHEINFO]);
 		}
 		if ((r->rtm_flags & RTM_F_CLONED) || (ci && ci->rta_expires)) {
 			static int hz;
 			if (!hz) {
 				hz = get_hz();
 			}
 			if (r->rtm_flags & RTM_F_CLONED) {
 				fprintf(fp, "%s    cache ", _SL_);
 			}
 			if (ci->rta_expires) {
 				fprintf(fp, " expires %dsec", ci->rta_expires/hz);
 			}
 			if (ci->rta_error != 0) {
 				fprintf(fp, " error %d", ci->rta_error);
 			}
 		} else if (ci) {
 			if (ci->rta_error != 0)
 				fprintf(fp, " error %d", ci->rta_error);
 		}
 	}
 	if (tb[RTA_IIF] && filter.iifmask != -1) {
 		fprintf(fp, " iif %s", ll_index_to_name(*(int*)RTA_DATA(tb[RTA_IIF])));
 	}
 	fprintf(fp, "\n");
 	fflush(fp);
 	return 0;
 }

 static int iproute_modify(int cmd, unsigned flags, int argc, char **argv)
 {
 	struct rtnl_handle rth;
 	struct {
 		struct nlmsghdr		n;
 		struct rtmsg		r;
 		char			buf[1024];
 	} req;
 	char  mxbuf[256];
 	struct rtattr * mxrta = (void*)mxbuf;
 	unsigned mxlock = 0;
 	char  *d = NULL;
 	int gw_ok = 0;
 	int dst_ok = 0;
 	int proto_ok = 0;
 	int type_ok = 0;

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

 	req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
 	req.n.nlmsg_flags = NLM_F_REQUEST|flags;
 	req.n.nlmsg_type = cmd;
 	req.r.rtm_family = preferred_family;
 	req.r.rtm_table = RT_TABLE_MAIN;
 	req.r.rtm_scope = RT_SCOPE_NOWHERE;

 	if (cmd != RTM_DELROUTE) {
 		req.r.rtm_protocol = RTPROT_BOOT;
 		req.r.rtm_scope = RT_SCOPE_UNIVERSE;
 		req.r.rtm_type = RTN_UNICAST;
 	}

 	mxrta->rta_type = RTA_METRICS;
 	mxrta->rta_len = RTA_LENGTH(0);

 	while (argc > 0) {
 		if (strcmp(*argv, "src") == 0) {
 			inet_prefix addr;
 			NEXT_ARG();
 			get_addr(&addr, *argv, req.r.rtm_family);
 			if (req.r.rtm_family == AF_UNSPEC) {
 				req.r.rtm_family = addr.family;
 			}
 			addattr_l(&req.n, sizeof(req), RTA_PREFSRC, &addr.data, addr.bytelen);
 		} else if (strcmp(*argv, "via") == 0) {
 			inet_prefix addr;
 			gw_ok = 1;
 			NEXT_ARG();
 			get_addr(&addr, *argv, req.r.rtm_family);
 			if (req.r.rtm_family == AF_UNSPEC) {
 				req.r.rtm_family = addr.family;
 			}
 			addattr_l(&req.n, sizeof(req), RTA_GATEWAY, &addr.data, addr.bytelen);
 		} else if (strcmp(*argv, "mtu") == 0) {
 			unsigned mtu;
 			NEXT_ARG();
 			if (strcmp(*argv, "lock") == 0) {
 				mxlock |= (1<<RTAX_MTU);
 				NEXT_ARG();
 			}
 			if (get_unsigned(&mtu, *argv, 0)) {
 				invarg(*argv, "mtu");
 			}
 			rta_addattr32(mxrta, sizeof(mxbuf), RTAX_MTU, mtu);
 		} else if (matches(*argv, "protocol") == 0) {
 			uint32_t prot;
 			NEXT_ARG();
 			if (rtnl_rtprot_a2n(&prot, *argv))
 				invarg(*argv, "protocol");
 			req.r.rtm_protocol = prot;
 			proto_ok =1;
 		} else if (strcmp(*argv, "dev") == 0 ||
 			   strcmp(*argv, "oif") == 0) {
 			NEXT_ARG();
 			d = *argv;
 		} else {
 			int type;
 			inet_prefix dst;

 			if (strcmp(*argv, "to") == 0) {
 				NEXT_ARG();
 			}
 			if ((**argv < '0' || **argv > '9') &&
 			    rtnl_rtntype_a2n(&type, *argv) == 0) {
 				NEXT_ARG();
 				req.r.rtm_type = type;
 				type_ok = 1;
 			}

 			if (dst_ok) {
 				duparg2("to", *argv);
 			}
 			get_prefix(&dst, *argv, req.r.rtm_family);
 			if (req.r.rtm_family == AF_UNSPEC) {
 				req.r.rtm_family = dst.family;
 			}
 			req.r.rtm_dst_len = dst.bitlen;
 			dst_ok = 1;
 			if (dst.bytelen) {
 				addattr_l(&req.n, sizeof(req), RTA_DST, &dst.data, dst.bytelen);
 			}
 		}
 		argc--; argv++;
 	}

 	if (rtnl_open(&rth, 0) < 0) {
 		exit(1);
 	}

 	if (d)  {
 		int idx;

 		ll_init_map(&rth);

 		if (d) {
 			if ((idx = ll_name_to_index(d)) == 0) {
 				bb_error_msg("Cannot find device \"%s\"", d);
 				return -1;
 			}
 			addattr32(&req.n, sizeof(req), RTA_OIF, idx);
 		}
 	}

 	if (mxrta->rta_len > RTA_LENGTH(0)) {
 		if (mxlock) {
 			rta_addattr32(mxrta, sizeof(mxbuf), RTAX_LOCK, mxlock);
 		}
 		addattr_l(&req.n, sizeof(req), RTA_METRICS, RTA_DATA(mxrta), RTA_PAYLOAD(mxrta));
 	}

 	if (req.r.rtm_family == AF_UNSPEC) {
 		req.r.rtm_family = AF_INET;
 	}

 	if (rtnl_talk(&rth, &req.n, 0, 0, NULL, NULL, NULL) < 0) {
 		exit(2);
 	}

 	return 0;
 }

 static int rtnl_rtcache_request(struct rtnl_handle *rth, int family)
 {
 	struct {
 		struct nlmsghdr nlh;
 		struct rtmsg rtm;
 	} req;
 	struct sockaddr_nl nladdr;

 	memset(&nladdr, 0, sizeof(nladdr));
 	memset(&req, 0, sizeof(req));
 	nladdr.nl_family = AF_NETLINK;

 	req.nlh.nlmsg_len = sizeof(req);
 	req.nlh.nlmsg_type = RTM_GETROUTE;
 	req.nlh.nlmsg_flags = NLM_F_ROOT|NLM_F_REQUEST;
 	req.nlh.nlmsg_pid = 0;
 	req.nlh.nlmsg_seq = rth->dump = ++rth->seq;
 	req.rtm.rtm_family = family;
 	req.rtm.rtm_flags |= RTM_F_CLONED;

 	return sendto(rth->fd, (void*)&req, sizeof(req), 0, (struct sockaddr*)&nladdr, sizeof(nladdr));
 }

 static int iproute_flush_cache(void)
 {
 #define ROUTE_FLUSH_PATH "/proc/sys/net/ipv4/route/flush"

 	int len;
 	int flush_fd = open (ROUTE_FLUSH_PATH, O_WRONLY);
 	char *buffer = "-1";

 	if (flush_fd < 0) {
 		fprintf (stderr, "Cannot open \"%s\"\n", ROUTE_FLUSH_PATH);
 		return -1;
 	}

 	len = strlen (buffer);

 	if ((write (flush_fd, (void *)buffer, len)) < len) {
 		fprintf (stderr, "Cannot flush routing cache\n");
 		return -1;
 	}
 	close(flush_fd);
 	return 0;
 }

 static void iproute_reset_filter(void)
 {
 	memset(&filter, 0, sizeof(filter));
 	filter.mdst.bitlen = -1;
 	filter.msrc.bitlen = -1;
 }

 static int iproute_list_or_flush(int argc, char **argv, int flush)
 {
 	int do_ipv6 = preferred_family;
 	struct rtnl_handle rth;
 	char *id = NULL;
 	char *od = NULL;

 	iproute_reset_filter();
 	filter.tb = RT_TABLE_MAIN;

 	if (flush && argc <= 0) {
 		bb_error_msg(bb_msg_requires_arg, "\"ip route flush\"");
 		return -1;
 	}

 	while (argc > 0) {
 		if (matches(*argv, "protocol") == 0) {
 			uint32_t prot = 0;
 			NEXT_ARG();
 			filter.protocolmask = -1;
 			if (rtnl_rtprot_a2n(&prot, *argv)) {
 				if (strcmp(*argv, "all") != 0) {
 					invarg(*argv, "protocol");
 				}
 				prot = 0;
 				filter.protocolmask = 0;
 			}
 			filter.protocol = prot;
 		} else if (strcmp(*argv, "dev") == 0 ||
 			   strcmp(*argv, "oif") == 0) {
 			NEXT_ARG();
 			od = *argv;
 		} else if (strcmp(*argv, "iif") == 0) {
 			NEXT_ARG();
 			id = *argv;
 		} else if (matches(*argv, "from") == 0) {
 			NEXT_ARG();
 			if (matches(*argv, "root") == 0) {
 				NEXT_ARG();
 				get_prefix(&filter.rsrc, *argv, do_ipv6);
 			} else if (matches(*argv, "match") == 0) {
 				NEXT_ARG();
 				get_prefix(&filter.msrc, *argv, do_ipv6);
 			} else {
 				if (matches(*argv, "exact") == 0) {
 					NEXT_ARG();
 				}
 				get_prefix(&filter.msrc, *argv, do_ipv6);
 				filter.rsrc = filter.msrc;
 			}
 		} else {
 			if (matches(*argv, "to") == 0) {
 				NEXT_ARG();
 			}
 			if (matches(*argv, "root") == 0) {
 				NEXT_ARG();
 				get_prefix(&filter.rdst, *argv, do_ipv6);
 			} else if (matches(*argv, "match") == 0) {
 				NEXT_ARG();
 				get_prefix(&filter.mdst, *argv, do_ipv6);
 			} else if (matches(*argv, "table") == 0) {
 				NEXT_ARG();
 				if (matches(*argv, "cache") == 0) {
 					filter.tb = -1;
 				} else if (matches(*argv, "main") != 0) {
 					invarg(*argv, "table");
 				}
 			} else if (matches(*argv, "cache") == 0) {
 				filter.tb = -1;
 			} else {
 				if (matches(*argv, "exact") == 0) {
 					NEXT_ARG();
 				}
 				get_prefix(&filter.mdst, *argv, do_ipv6);
 				filter.rdst = filter.mdst;
 			}
 		}
 		argc--; argv++;
 	}

 	if (do_ipv6 == AF_UNSPEC && filter.tb) {
 		do_ipv6 = AF_INET;
 	}

 	if (rtnl_open(&rth, 0) < 0) {
 		exit(1);
 	}

 	ll_init_map(&rth);

 	if (id || od)  {
 		int idx;

 		if (id) {
 			if ((idx = ll_name_to_index(id)) == 0) {
 				bb_error_msg("Cannot find device \"%s\"", id);
 				return -1;
 			}
 			filter.iif = idx;
 			filter.iifmask = -1;
 		}
 		if (od) {
 			if ((idx = ll_name_to_index(od)) == 0) {
 				bb_error_msg("Cannot find device \"%s\"", od);
 			}
 			filter.oif = idx;
 			filter.oifmask = -1;
 		}
 	}

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

 		if (filter.tb == -1) {
 			if (do_ipv6 != AF_INET6)
 				iproute_flush_cache();
 			if (do_ipv6 == AF_INET)
 				return 0;
 		}

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

 		for (;;) {
 			if (rtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE) < 0) {
 				perror("Cannot send dump request");
 				return -1;
 			}
 			filter.flushed = 0;
 			if (rtnl_dump_filter(&rth, print_route, stdout, NULL, NULL) < 0) {
 				bb_error_msg("Flush terminated");
 				return -1;
 			}
 			if (filter.flushed == 0) {
 				fflush(stdout);
 				return 0;
 			}
 			if (flush_update() < 0)
 				exit(1);
 		}
 	}

 	if (filter.tb != -1) {
 		if (rtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE) < 0) {
 			bb_perror_msg_and_die("Cannot send dump request");
 		}
 	} else {
 		if (rtnl_rtcache_request(&rth, do_ipv6) < 0) {
 			bb_perror_msg_and_die("Cannot send dump request");
 		}
 	}

 	if (rtnl_dump_filter(&rth, print_route, stdout, NULL, NULL) < 0) {
 		bb_error_msg_and_die("Dump terminated");
 	}

 	exit(0);
 }


 static int iproute_get(int argc, char **argv)
 {
 	struct rtnl_handle rth;
 	struct {
 		struct nlmsghdr		n;
 		struct rtmsg		r;
 		char			buf[1024];
 	} req;
 	char  *idev = NULL;
 	char  *odev = NULL;
 	int connected = 0;
 	int from_ok = 0;
 	static const char * const options[] =
 		{ "from", "iif", "oif", "dev", "notify", "connected", "to", 0 };

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

 	iproute_reset_filter();

 	req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
 	req.n.nlmsg_flags = NLM_F_REQUEST;
 	req.n.nlmsg_type = RTM_GETROUTE;
 	req.r.rtm_family = preferred_family;
 	req.r.rtm_table = 0;
 	req.r.rtm_protocol = 0;
 	req.r.rtm_scope = 0;
 	req.r.rtm_type = 0;
 	req.r.rtm_src_len = 0;
 	req.r.rtm_dst_len = 0;
 	req.r.rtm_tos = 0;

 	while (argc > 0) {
 		switch (compare_string_array(options, *argv)) {
 			case 0: /* from */
 			{
 				inet_prefix addr;
 				NEXT_ARG();
 				from_ok = 1;
 				get_prefix(&addr, *argv, req.r.rtm_family);
 				if (req.r.rtm_family == AF_UNSPEC) {
 					req.r.rtm_family = addr.family;
 				}
 				if (addr.bytelen) {
 					addattr_l(&req.n, sizeof(req), RTA_SRC, &addr.data, addr.bytelen);
 				}
 				req.r.rtm_src_len = addr.bitlen;
 				break;
 			}
 			case 1: /* iif */
 				NEXT_ARG();
 				idev = *argv;
 				break;
 			case 2: /* oif */
 			case 3: /* dev */
 				NEXT_ARG();
 				odev = *argv;
 				break;
 			case 4: /* notify */
 				req.r.rtm_flags |= RTM_F_NOTIFY;
 				break;
 			case 5: /* connected */
 				connected = 1;
 				break;
 			case 6: /* to */
 				NEXT_ARG();
 			default:
 			{
 				inet_prefix addr;
 				get_prefix(&addr, *argv, req.r.rtm_family);
 				if (req.r.rtm_family == AF_UNSPEC) {
 					req.r.rtm_family = addr.family;
 				}
 				if (addr.bytelen) {
 					addattr_l(&req.n, sizeof(req), RTA_DST, &addr.data, addr.bytelen);
 				}
 				req.r.rtm_dst_len = addr.bitlen;
 			}
 			argc--; argv++;
 		}
 	}

 	if (req.r.rtm_dst_len == 0) {
 		bb_error_msg_and_die("need at least destination address");
 	}

 	if (rtnl_open(&rth, 0) < 0)
 		exit(1);

 	ll_init_map(&rth);

 	if (idev || odev)  {
 		int idx;

 		if (idev) {
 			if ((idx = ll_name_to_index(idev)) == 0) {
 				bb_error_msg("Cannot find device \"%s\"", idev);
 				return -1;
 			}
 			addattr32(&req.n, sizeof(req), RTA_IIF, idx);
 		}
 		if (odev) {
 			if ((idx = ll_name_to_index(odev)) == 0) {
 				bb_error_msg("Cannot find device \"%s\"", odev);
 				return -1;
 			}
 			addattr32(&req.n, sizeof(req), RTA_OIF, idx);
 		}
 	}

 	if (req.r.rtm_family == AF_UNSPEC) {
 		req.r.rtm_family = AF_INET;
 	}

 	if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
 		exit(2);
 	}

 	if (connected && !from_ok) {
 		struct rtmsg *r = NLMSG_DATA(&req.n);
 		int len = req.n.nlmsg_len;
 		struct rtattr * tb[RTA_MAX+1];

 		if (print_route(NULL, &req.n, (void*)stdout) < 0) {
 			bb_error_msg_and_die("An error :-)");
 		}

 		if (req.n.nlmsg_type != RTM_NEWROUTE) {
 			bb_error_msg("Not a route?");
 			return -1;
 		}
 		len -= NLMSG_LENGTH(sizeof(*r));
 		if (len < 0) {
 			bb_error_msg("Wrong len %d", len);
 			return -1;
 		}

 		memset(tb, 0, sizeof(tb));
 		parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);

 		if (tb[RTA_PREFSRC]) {
 			tb[RTA_PREFSRC]->rta_type = RTA_SRC;
 			r->rtm_src_len = 8*RTA_PAYLOAD(tb[RTA_PREFSRC]);
 		} else if (!tb[RTA_SRC]) {
 			bb_error_msg("Failed to connect the route");
 			return -1;
 		}
 		if (!odev && tb[RTA_OIF]) {
 			tb[RTA_OIF]->rta_type = 0;
 		}
 		if (tb[RTA_GATEWAY]) {
 			tb[RTA_GATEWAY]->rta_type = 0;
 		}
 		if (!idev && tb[RTA_IIF]) {
 			tb[RTA_IIF]->rta_type = 0;
 		}
 		req.n.nlmsg_flags = NLM_F_REQUEST;
 		req.n.nlmsg_type = RTM_GETROUTE;

 		if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
 			exit(2);
 		}
 	}

 	if (print_route(NULL, &req.n, (void*)stdout) < 0) {
 		bb_error_msg_and_die("An error :-)");
 	}

 	exit(0);
 }

 int do_iproute(int argc, char **argv)
 {
 	static const char * const ip_route_commands[] =
 		{ "add", "append", "change", "chg", "delete", "del", "get",
 		"list", "show", "prepend", "replace", "test", "flush", 0 };
 	int command_num = 7;
 	unsigned int flags = 0;
 	int cmd = RTM_NEWROUTE;

 	if (*argv) {
 		command_num = compare_string_array(ip_route_commands, *argv);
 	}
 	switch(command_num) {
 		case 0: /* add*/
 			flags = NLM_F_CREATE|NLM_F_EXCL;
 			break;
 		case 1: /* append */
 			flags = NLM_F_CREATE|NLM_F_APPEND;
 			break;
 		case 2: /* change */
 		case 3: /* chg */
 			flags = NLM_F_REPLACE;
 			break;
 		case 4: /* delete */
 		case 5: /* del */
 			cmd = RTM_DELROUTE;
 			break;
 		case 6: /* get */
 			return iproute_get(argc-1, argv+1);
 		case 7: /* list */
 		case 8: /* show */
 			return iproute_list_or_flush(argc-1, argv+1, 0);
 		case 9: /* prepend */
 			flags = NLM_F_CREATE;
 		case 10: /* replace */
 			flags = NLM_F_CREATE|NLM_F_REPLACE;
 		case 11: /* test */
 			flags = NLM_F_EXCL;
 		case 12: /* flush */
 			return iproute_list_or_flush(argc-1, argv+1, 1);
 		default:
 			bb_error_msg_and_die("Unknown command %s", *argv);
 	}

 	return iproute_modify(cmd, flags, argc-1, argv+1);
 }
	/* vi: set sw=4 ts=4: */
	/*
	* iproute.c "ip route".
	*
	* Licensed under the GPL v2 or later, see the file LICENSE in this tarball.
	*
	* Authors: Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
	*
	*
	* Changes:
	*
	* Rani Assaf <rani@magic.metawire.com> 980929: resolve addresses
	* Kunihiro Ishiguro <kunihiro@zebra.org> 001102: rtnh_ifindex was not initialized
	*/

	#include "libbb.h"

	#include <sys/socket.h>

	#include <string.h>
	#include <fcntl.h>
	#include <unistd.h>

	#include "rt_names.h"
	#include "utils.h"
	#include "ip_common.h"

	#ifndef RTAX_RTTVAR
	#define RTAX_RTTVAR RTAX_HOPS
	#endif


	static struct
	{
	int tb;
	int flushed;
	char *flushb;
	int flushp;
	int flushe;
	struct rtnl_handle *rth;
	int protocol, protocolmask;
	int scope, scopemask;
	int type, typemask;
	int tos, tosmask;
	int iif, iifmask;
	int oif, oifmask;
	int realm, realmmask;
	inet_prefix rprefsrc;
	inet_prefix rvia;
	inet_prefix rdst;
	inet_prefix mdst;
	inet_prefix rsrc;
	inet_prefix msrc;
	} filter;

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

	static int print_route(struct sockaddr_nl *who ATTRIBUTE_UNUSED,
	struct nlmsghdr n, void arg)
	{
	FILE fp = (FILE)arg;
	struct rtmsg *r = NLMSG_DATA(n);
	int len = n->nlmsg_len;
	struct rtattr * tb[RTA_MAX+1];
	char abuf[256];
	inet_prefix dst;
	inet_prefix src;
	int host_len = -1;
	SPRINT_BUF(b1);


	if (n->nlmsg_type != RTM_NEWROUTE && n->nlmsg_type != RTM_DELROUTE) {
	fprintf(stderr, "Not a route: %08x %08x %08x\n",
	n->nlmsg_len, n->nlmsg_type, n->nlmsg_flags);
	return 0;
	}
	if (filter.flushb && n->nlmsg_type != RTM_NEWROUTE)
	return 0;
	len -= NLMSG_LENGTH(sizeof(*r));
	if (len < 0) {
	bb_error_msg("wrong nlmsg len %d", len);
	return -1;
	}

	if (r->rtm_family == AF_INET6)
	host_len = 128;
	else if (r->rtm_family == AF_INET)
	host_len = 32;

	if (r->rtm_family == AF_INET6) {
	if (filter.tb) {
	if (filter.tb < 0) {
	if (!(r->rtm_flags&RTM_F_CLONED)) {
	return 0;
	}
	} else {
	if (r->rtm_flags&RTM_F_CLONED) {
	return 0;
	}
	if (filter.tb == RT_TABLE_LOCAL) {
	if (r->rtm_type != RTN_LOCAL) {
	return 0;
	}
	} else if (filter.tb == RT_TABLE_MAIN) {
	if (r->rtm_type == RTN_LOCAL) {
	return 0;
	}
	} else {
	return 0;
	}
	}
	}
	} else {
	if (filter.tb > 0 && filter.tb != r->rtm_table) {
	return 0;
	}
	}
	if (filter.rdst.family &&
	(r->rtm_family != filter.rdst.family \|\| filter.rdst.bitlen > r->rtm_dst_len)) {
	return 0;
	}
	if (filter.mdst.family &&
	(r->rtm_family != filter.mdst.family \|\|
	(filter.mdst.bitlen >= 0 && filter.mdst.bitlen < r->rtm_dst_len))) {
	return 0;
	}
	if (filter.rsrc.family &&
	(r->rtm_family != filter.rsrc.family \|\| filter.rsrc.bitlen > r->rtm_src_len)) {
	return 0;
	}
	if (filter.msrc.family &&
	(r->rtm_family != filter.msrc.family \|\|
	(filter.msrc.bitlen >= 0 && filter.msrc.bitlen < r->rtm_src_len))) {
	return 0;
	}

	memset(tb, 0, sizeof(tb));
	parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);

	if (filter.rdst.family && inet_addr_match(&dst, &filter.rdst, filter.rdst.bitlen))
	return 0;
	if (filter.mdst.family && filter.mdst.bitlen >= 0 &&
	inet_addr_match(&dst, &filter.mdst, r->rtm_dst_len))
	return 0;

	if (filter.rsrc.family && inet_addr_match(&src, &filter.rsrc, filter.rsrc.bitlen))
	return 0;
	if (filter.msrc.family && filter.msrc.bitlen >= 0 &&
	inet_addr_match(&src, &filter.msrc, r->rtm_src_len))
	return 0;

	if (filter.flushb &&
	r->rtm_family == AF_INET6 &&
	r->rtm_dst_len == 0 &&
	r->rtm_type == RTN_UNREACHABLE &&
	tb[RTA_PRIORITY] &&
	(int)RTA_DATA(tb[RTA_PRIORITY]) == -1)
	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_DELROUTE;
	fn->nlmsg_flags = NLM_F_REQUEST;
	fn->nlmsg_seq = ++filter.rth->seq;
	filter.flushp = (((char*)fn) + n->nlmsg_len) - filter.flushb;
	filter.flushed++;
	return 0;
	}

	if (n->nlmsg_type == RTM_DELROUTE) {
	fprintf(fp, "Deleted ");
	}
	if (r->rtm_type != RTN_UNICAST && !filter.type) {
	fprintf(fp, "%s ", rtnl_rtntype_n2a(r->rtm_type, b1, sizeof(b1)));
	}

	if (tb[RTA_DST]) {
	if (r->rtm_dst_len != host_len) {
	fprintf(fp, "%s/%u ", rt_addr_n2a(r->rtm_family,
	RTA_PAYLOAD(tb[RTA_DST]),
	RTA_DATA(tb[RTA_DST]),
	abuf, sizeof(abuf)),
	r->rtm_dst_len
	);
	} else {
	fprintf(fp, "%s ", format_host(r->rtm_family,
	RTA_PAYLOAD(tb[RTA_DST]),
	RTA_DATA(tb[RTA_DST]),
	abuf, sizeof(abuf))
	);
	}
	} else if (r->rtm_dst_len) {
	fprintf(fp, "0/%d ", r->rtm_dst_len);
	} else {
	fprintf(fp, "default ");
	}
	if (tb[RTA_SRC]) {
	if (r->rtm_src_len != host_len) {
	fprintf(fp, "from %s/%u ", rt_addr_n2a(r->rtm_family,
	RTA_PAYLOAD(tb[RTA_SRC]),
	RTA_DATA(tb[RTA_SRC]),
	abuf, sizeof(abuf)),
	r->rtm_src_len
	);
	} else {
	fprintf(fp, "from %s ", format_host(r->rtm_family,
	RTA_PAYLOAD(tb[RTA_SRC]),
	RTA_DATA(tb[RTA_SRC]),
	abuf, sizeof(abuf))
	);
	}
	} else if (r->rtm_src_len) {
	fprintf(fp, "from 0/%u ", r->rtm_src_len);
	}
	if (tb[RTA_GATEWAY] && filter.rvia.bitlen != host_len) {
	fprintf(fp, "via %s ",
	format_host(r->rtm_family,
	RTA_PAYLOAD(tb[RTA_GATEWAY]),
	RTA_DATA(tb[RTA_GATEWAY]),
	abuf, sizeof(abuf)));
	}
	if (tb[RTA_OIF] && filter.oifmask != -1) {
	fprintf(fp, "dev %s ", ll_index_to_name((int)RTA_DATA(tb[RTA_OIF])));
	}

	if (tb[RTA_PREFSRC] && filter.rprefsrc.bitlen != host_len) {
	/* Do not use format_host(). It is our local addr
	and symbolic name will not be useful.
	*/
	fprintf(fp, " src %s ",
	rt_addr_n2a(r->rtm_family,
	RTA_PAYLOAD(tb[RTA_PREFSRC]),
	RTA_DATA(tb[RTA_PREFSRC]),
	abuf, sizeof(abuf)));
	}
	if (tb[RTA_PRIORITY]) {
	fprintf(fp, " metric %d ", (__u32)RTA_DATA(tb[RTA_PRIORITY]));
	}
	if (r->rtm_family == AF_INET6) {
	struct rta_cacheinfo *ci = NULL;
	if (tb[RTA_CACHEINFO]) {
	ci = RTA_DATA(tb[RTA_CACHEINFO]);
	}
	if ((r->rtm_flags & RTM_F_CLONED) \|\| (ci && ci->rta_expires)) {
	static int hz;
	if (!hz) {
	hz = get_hz();
	}
	if (r->rtm_flags & RTM_F_CLONED) {
	fprintf(fp, "%s cache ", _SL_);
	}
	if (ci->rta_expires) {
	fprintf(fp, " expires %dsec", ci->rta_expires/hz);
	}
	if (ci->rta_error != 0) {
	fprintf(fp, " error %d", ci->rta_error);
	}
	} else if (ci) {
	if (ci->rta_error != 0)
	fprintf(fp, " error %d", ci->rta_error);
	}
	}
	if (tb[RTA_IIF] && filter.iifmask != -1) {
	fprintf(fp, " iif %s", ll_index_to_name((int)RTA_DATA(tb[RTA_IIF])));
	}
	fprintf(fp, "\n");
	fflush(fp);
	return 0;
	}

	static int iproute_modify(int cmd, unsigned flags, int argc, char **argv)
	{
	struct rtnl_handle rth;
	struct {
	struct nlmsghdr n;
	struct rtmsg r;
	char buf[1024];
	} req;
	char mxbuf[256];
	struct rtattr * mxrta = (void*)mxbuf;
	unsigned mxlock = 0;
	char *d = NULL;
	int gw_ok = 0;
	int dst_ok = 0;
	int proto_ok = 0;
	int type_ok = 0;

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

	req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
	req.n.nlmsg_flags = NLM_F_REQUEST\|flags;
	req.n.nlmsg_type = cmd;
	req.r.rtm_family = preferred_family;
	req.r.rtm_table = RT_TABLE_MAIN;
	req.r.rtm_scope = RT_SCOPE_NOWHERE;

	if (cmd != RTM_DELROUTE) {
	req.r.rtm_protocol = RTPROT_BOOT;
	req.r.rtm_scope = RT_SCOPE_UNIVERSE;
	req.r.rtm_type = RTN_UNICAST;
	}

	mxrta->rta_type = RTA_METRICS;
	mxrta->rta_len = RTA_LENGTH(0);

	while (argc > 0) {
	if (strcmp(*argv, "src") == 0) {
	inet_prefix addr;
	NEXT_ARG();
	get_addr(&addr, *argv, req.r.rtm_family);
	if (req.r.rtm_family == AF_UNSPEC) {
	req.r.rtm_family = addr.family;
	}
	addattr_l(&req.n, sizeof(req), RTA_PREFSRC, &addr.data, addr.bytelen);
	} else if (strcmp(*argv, "via") == 0) {
	inet_prefix addr;
	gw_ok = 1;
	NEXT_ARG();
	get_addr(&addr, *argv, req.r.rtm_family);
	if (req.r.rtm_family == AF_UNSPEC) {
	req.r.rtm_family = addr.family;
	}
	addattr_l(&req.n, sizeof(req), RTA_GATEWAY, &addr.data, addr.bytelen);
	} else if (strcmp(*argv, "mtu") == 0) {
	unsigned mtu;
	NEXT_ARG();
	if (strcmp(*argv, "lock") == 0) {
	mxlock \|= (1<<RTAX_MTU);
	NEXT_ARG();
	}
	if (get_unsigned(&mtu, *argv, 0)) {
	invarg(*argv, "mtu");
	}
	rta_addattr32(mxrta, sizeof(mxbuf), RTAX_MTU, mtu);
	} else if (matches(*argv, "protocol") == 0) {
	uint32_t prot;
	NEXT_ARG();
	if (rtnl_rtprot_a2n(&prot, *argv))
	invarg(*argv, "protocol");
	req.r.rtm_protocol = prot;
	proto_ok =1;
	} else if (strcmp(*argv, "dev") == 0 \|\|
	strcmp(*argv, "oif") == 0) {
	NEXT_ARG();
	d = *argv;
	} else {
	int type;
	inet_prefix dst;

	if (strcmp(*argv, "to") == 0) {
	NEXT_ARG();
	}
	if ((argv < '0' \|\| argv > '9') &&
	rtnl_rtntype_a2n(&type, *argv) == 0) {
	NEXT_ARG();
	req.r.rtm_type = type;
	type_ok = 1;
	}

	if (dst_ok) {
	duparg2("to", *argv);
	}
	get_prefix(&dst, *argv, req.r.rtm_family);
	if (req.r.rtm_family == AF_UNSPEC) {
	req.r.rtm_family = dst.family;
	}
	req.r.rtm_dst_len = dst.bitlen;
	dst_ok = 1;
	if (dst.bytelen) {
	addattr_l(&req.n, sizeof(req), RTA_DST, &dst.data, dst.bytelen);
	}
	}
	argc--; argv++;
	}

	if (rtnl_open(&rth, 0) < 0) {
	exit(1);
	}

	if (d) {
	int idx;

	ll_init_map(&rth);

	if (d) {
	if ((idx = ll_name_to_index(d)) == 0) {
	bb_error_msg("Cannot find device \"%s\"", d);
	return -1;
	}
	addattr32(&req.n, sizeof(req), RTA_OIF, idx);
	}
	}

	if (mxrta->rta_len > RTA_LENGTH(0)) {
	if (mxlock) {
	rta_addattr32(mxrta, sizeof(mxbuf), RTAX_LOCK, mxlock);
	}
	addattr_l(&req.n, sizeof(req), RTA_METRICS, RTA_DATA(mxrta), RTA_PAYLOAD(mxrta));
	}

	if (req.r.rtm_family == AF_UNSPEC) {
	req.r.rtm_family = AF_INET;
	}

	if (rtnl_talk(&rth, &req.n, 0, 0, NULL, NULL, NULL) < 0) {
	exit(2);
	}

	return 0;
	}

	static int rtnl_rtcache_request(struct rtnl_handle *rth, int family)
	{
	struct {
	struct nlmsghdr nlh;
	struct rtmsg rtm;
	} req;
	struct sockaddr_nl nladdr;

	memset(&nladdr, 0, sizeof(nladdr));
	memset(&req, 0, sizeof(req));
	nladdr.nl_family = AF_NETLINK;

	req.nlh.nlmsg_len = sizeof(req);
	req.nlh.nlmsg_type = RTM_GETROUTE;
	req.nlh.nlmsg_flags = NLM_F_ROOT\|NLM_F_REQUEST;
	req.nlh.nlmsg_pid = 0;
	req.nlh.nlmsg_seq = rth->dump = ++rth->seq;
	req.rtm.rtm_family = family;
	req.rtm.rtm_flags \|= RTM_F_CLONED;

	return sendto(rth->fd, (void)&req, sizeof(req), 0, (struct sockaddr)&nladdr, sizeof(nladdr));
	}

	static int iproute_flush_cache(void)
	{
	#define ROUTE_FLUSH_PATH "/proc/sys/net/ipv4/route/flush"

	int len;
	int flush_fd = open (ROUTE_FLUSH_PATH, O_WRONLY);
	char *buffer = "-1";

	if (flush_fd < 0) {
	fprintf (stderr, "Cannot open \"%s\"\n", ROUTE_FLUSH_PATH);
	return -1;
	}

	len = strlen (buffer);

	if ((write (flush_fd, (void *)buffer, len)) < len) {
	fprintf (stderr, "Cannot flush routing cache\n");
	return -1;
	}
	close(flush_fd);
	return 0;
	}

	static void iproute_reset_filter(void)
	{
	memset(&filter, 0, sizeof(filter));
	filter.mdst.bitlen = -1;
	filter.msrc.bitlen = -1;
	}

	static int iproute_list_or_flush(int argc, char **argv, int flush)
	{
	int do_ipv6 = preferred_family;
	struct rtnl_handle rth;
	char *id = NULL;
	char *od = NULL;

	iproute_reset_filter();
	filter.tb = RT_TABLE_MAIN;

	if (flush && argc <= 0) {
	bb_error_msg(bb_msg_requires_arg, "\"ip route flush\"");
	return -1;
	}

	while (argc > 0) {
	if (matches(*argv, "protocol") == 0) {
	uint32_t prot = 0;
	NEXT_ARG();
	filter.protocolmask = -1;
	if (rtnl_rtprot_a2n(&prot, *argv)) {
	if (strcmp(*argv, "all") != 0) {
	invarg(*argv, "protocol");
	}
	prot = 0;
	filter.protocolmask = 0;
	}
	filter.protocol = prot;
	} else if (strcmp(*argv, "dev") == 0 \|\|
	strcmp(*argv, "oif") == 0) {
	NEXT_ARG();
	od = *argv;
	} else if (strcmp(*argv, "iif") == 0) {
	NEXT_ARG();
	id = *argv;
	} else if (matches(*argv, "from") == 0) {
	NEXT_ARG();
	if (matches(*argv, "root") == 0) {
	NEXT_ARG();
	get_prefix(&filter.rsrc, *argv, do_ipv6);
	} else if (matches(*argv, "match") == 0) {
	NEXT_ARG();
	get_prefix(&filter.msrc, *argv, do_ipv6);
	} else {
	if (matches(*argv, "exact") == 0) {
	NEXT_ARG();
	}
	get_prefix(&filter.msrc, *argv, do_ipv6);
	filter.rsrc = filter.msrc;
	}
	} else {
	if (matches(*argv, "to") == 0) {
	NEXT_ARG();
	}
	if (matches(*argv, "root") == 0) {
	NEXT_ARG();
	get_prefix(&filter.rdst, *argv, do_ipv6);
	} else if (matches(*argv, "match") == 0) {
	NEXT_ARG();
	get_prefix(&filter.mdst, *argv, do_ipv6);
	} else if (matches(*argv, "table") == 0) {
	NEXT_ARG();
	if (matches(*argv, "cache") == 0) {
	filter.tb = -1;
	} else if (matches(*argv, "main") != 0) {
	invarg(*argv, "table");
	}
	} else if (matches(*argv, "cache") == 0) {
	filter.tb = -1;
	} else {
	if (matches(*argv, "exact") == 0) {
	NEXT_ARG();
	}
	get_prefix(&filter.mdst, *argv, do_ipv6);
	filter.rdst = filter.mdst;
	}
	}
	argc--; argv++;
	}

	if (do_ipv6 == AF_UNSPEC && filter.tb) {
	do_ipv6 = AF_INET;
	}

	if (rtnl_open(&rth, 0) < 0) {
	exit(1);
	}

	ll_init_map(&rth);

	if (id \|\| od) {
	int idx;

	if (id) {
	if ((idx = ll_name_to_index(id)) == 0) {
	bb_error_msg("Cannot find device \"%s\"", id);
	return -1;
	}
	filter.iif = idx;
	filter.iifmask = -1;
	}
	if (od) {
	if ((idx = ll_name_to_index(od)) == 0) {
	bb_error_msg("Cannot find device \"%s\"", od);
	}
	filter.oif = idx;
	filter.oifmask = -1;
	}
	}

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

	if (filter.tb == -1) {
	if (do_ipv6 != AF_INET6)
	iproute_flush_cache();
	if (do_ipv6 == AF_INET)
	return 0;
	}

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

	for (;;) {
	if (rtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE) < 0) {
	perror("Cannot send dump request");
	return -1;
	}
	filter.flushed = 0;
	if (rtnl_dump_filter(&rth, print_route, stdout, NULL, NULL) < 0) {
	bb_error_msg("Flush terminated");
	return -1;
	}
	if (filter.flushed == 0) {
	fflush(stdout);
	return 0;
	}
	if (flush_update() < 0)
	exit(1);
	}
	}

	if (filter.tb != -1) {
	if (rtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE) < 0) {
	bb_perror_msg_and_die("Cannot send dump request");
	}
	} else {
	if (rtnl_rtcache_request(&rth, do_ipv6) < 0) {
	bb_perror_msg_and_die("Cannot send dump request");
	}
	}

	if (rtnl_dump_filter(&rth, print_route, stdout, NULL, NULL) < 0) {
	bb_error_msg_and_die("Dump terminated");
	}

	exit(0);
	}


	static int iproute_get(int argc, char **argv)
	{
	struct rtnl_handle rth;
	struct {
	struct nlmsghdr n;
	struct rtmsg r;
	char buf[1024];
	} req;
	char *idev = NULL;
	char *odev = NULL;
	int connected = 0;
	int from_ok = 0;
	static const char * const options[] =
	{ "from", "iif", "oif", "dev", "notify", "connected", "to", 0 };

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

	iproute_reset_filter();

	req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
	req.n.nlmsg_flags = NLM_F_REQUEST;
	req.n.nlmsg_type = RTM_GETROUTE;
	req.r.rtm_family = preferred_family;
	req.r.rtm_table = 0;
	req.r.rtm_protocol = 0;
	req.r.rtm_scope = 0;
	req.r.rtm_type = 0;
	req.r.rtm_src_len = 0;
	req.r.rtm_dst_len = 0;
	req.r.rtm_tos = 0;

	while (argc > 0) {
	switch (compare_string_array(options, *argv)) {
	case 0: /* from */
	{
	inet_prefix addr;
	NEXT_ARG();
	from_ok = 1;
	get_prefix(&addr, *argv, req.r.rtm_family);
	if (req.r.rtm_family == AF_UNSPEC) {
	req.r.rtm_family = addr.family;
	}
	if (addr.bytelen) {
	addattr_l(&req.n, sizeof(req), RTA_SRC, &addr.data, addr.bytelen);
	}
	req.r.rtm_src_len = addr.bitlen;
	break;
	}
	case 1: /* iif */
	NEXT_ARG();
	idev = *argv;
	break;
	case 2: /* oif */
	case 3: /* dev */
	NEXT_ARG();
	odev = *argv;
	break;
	case 4: /* notify */
	req.r.rtm_flags \|= RTM_F_NOTIFY;
	break;
	case 5: /* connected */
	connected = 1;
	break;
	case 6: /* to */
	NEXT_ARG();
	default:
	{
	inet_prefix addr;
	get_prefix(&addr, *argv, req.r.rtm_family);
	if (req.r.rtm_family == AF_UNSPEC) {
	req.r.rtm_family = addr.family;
	}
	if (addr.bytelen) {
	addattr_l(&req.n, sizeof(req), RTA_DST, &addr.data, addr.bytelen);
	}
	req.r.rtm_dst_len = addr.bitlen;
	}
	argc--; argv++;
	}
	}

	if (req.r.rtm_dst_len == 0) {
	bb_error_msg_and_die("need at least destination address");
	}

	if (rtnl_open(&rth, 0) < 0)
	exit(1);

	ll_init_map(&rth);

	if (idev \|\| odev) {
	int idx;

	if (idev) {
	if ((idx = ll_name_to_index(idev)) == 0) {
	bb_error_msg("Cannot find device \"%s\"", idev);
	return -1;
	}
	addattr32(&req.n, sizeof(req), RTA_IIF, idx);
	}
	if (odev) {
	if ((idx = ll_name_to_index(odev)) == 0) {
	bb_error_msg("Cannot find device \"%s\"", odev);
	return -1;
	}
	addattr32(&req.n, sizeof(req), RTA_OIF, idx);
	}
	}

	if (req.r.rtm_family == AF_UNSPEC) {
	req.r.rtm_family = AF_INET;
	}

	if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
	exit(2);
	}

	if (connected && !from_ok) {
	struct rtmsg *r = NLMSG_DATA(&req.n);
	int len = req.n.nlmsg_len;
	struct rtattr * tb[RTA_MAX+1];

	if (print_route(NULL, &req.n, (void*)stdout) < 0) {
	bb_error_msg_and_die("An error :-)");
	}

	if (req.n.nlmsg_type != RTM_NEWROUTE) {
	bb_error_msg("Not a route?");
	return -1;
	}
	len -= NLMSG_LENGTH(sizeof(*r));
	if (len < 0) {
	bb_error_msg("Wrong len %d", len);
	return -1;
	}

	memset(tb, 0, sizeof(tb));
	parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);

	if (tb[RTA_PREFSRC]) {
	tb[RTA_PREFSRC]->rta_type = RTA_SRC;
	r->rtm_src_len = 8*RTA_PAYLOAD(tb[RTA_PREFSRC]);
	} else if (!tb[RTA_SRC]) {
	bb_error_msg("Failed to connect the route");
	return -1;
	}
	if (!odev && tb[RTA_OIF]) {
	tb[RTA_OIF]->rta_type = 0;
	}
	if (tb[RTA_GATEWAY]) {
	tb[RTA_GATEWAY]->rta_type = 0;
	}
	if (!idev && tb[RTA_IIF]) {
	tb[RTA_IIF]->rta_type = 0;
	}
	req.n.nlmsg_flags = NLM_F_REQUEST;
	req.n.nlmsg_type = RTM_GETROUTE;

	if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
	exit(2);
	}
	}

	if (print_route(NULL, &req.n, (void*)stdout) < 0) {
	bb_error_msg_and_die("An error :-)");
	}

	exit(0);
	}

	int do_iproute(int argc, char **argv)
	{
	static const char * const ip_route_commands[] =
	{ "add", "append", "change", "chg", "delete", "del", "get",
	"list", "show", "prepend", "replace", "test", "flush", 0 };
	int command_num = 7;
	unsigned int flags = 0;
	int cmd = RTM_NEWROUTE;

	if (*argv) {
	command_num = compare_string_array(ip_route_commands, *argv);
	}
	switch(command_num) {
	case 0: /* add*/
	flags = NLM_F_CREATE\|NLM_F_EXCL;
	break;
	case 1: /* append */
	flags = NLM_F_CREATE\|NLM_F_APPEND;
	break;
	case 2: /* change */
	case 3: /* chg */
	flags = NLM_F_REPLACE;
	break;
	case 4: /* delete */
	case 5: /* del */
	cmd = RTM_DELROUTE;
	break;
	case 6: /* get */
	return iproute_get(argc-1, argv+1);
	case 7: /* list */
	case 8: /* show */
	return iproute_list_or_flush(argc-1, argv+1, 0);
	case 9: /* prepend */
	flags = NLM_F_CREATE;
	case 10: /* replace */
	flags = NLM_F_CREATE\|NLM_F_REPLACE;
	case 11: /* test */
	flags = NLM_F_EXCL;
	case 12: /* flush */
	return iproute_list_or_flush(argc-1, argv+1, 1);
	default:
	bb_error_msg_and_die("Unknown command %s", *argv);
	}

	return iproute_modify(cmd, flags, argc-1, argv+1);
	}