1 /* vi: set sw=4 ts=4: */
3 * iproute.c "ip route".
5 * Licensed under GPLv2 or later, see file LICENSE in this source tree.
7 * Authors: Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
12 * Rani Assaf <rani@magic.metawire.com> 980929: resolve addresses
13 * Kunihiro Ishiguro <kunihiro@zebra.org> 001102: rtnh_ifindex was not initialized
16 #include "ip_common.h" /* #include "libbb.h" is inside */
21 #define RTAX_RTTVAR RTAX_HOPS
31 struct rtnl_handle *rth;
32 //int protocol, protocolmask; - write-only fields?!
33 //int scope, scopemask; - unused
34 //int type; - read-only
35 //int typemask; - unused
36 //int tos, tosmask; - unused
39 //int realm, realmmask; - unused
40 //inet_prefix rprefsrc; - read-only
47 typedef struct filter_t filter_t;
49 #define G_filter (*(filter_t*)&bb_common_bufsiz1)
51 static int flush_update(void)
53 if (rtnl_send(G_filter.rth, G_filter.flushb, G_filter.flushp) < 0) {
54 bb_perror_msg("can't send flush request");
61 static unsigned get_hz(void)
63 static unsigned hz_internal;
69 fp = fopen_for_read("/proc/net/psched");
73 if (fscanf(fp, "%*08x%*08x%08x%08x", &nom, &denom) == 2)
79 hz_internal = sysconf(_SC_CLK_TCK);
83 static int FAST_FUNC print_route(const struct sockaddr_nl *who UNUSED_PARAM,
84 struct nlmsghdr *n, void *arg UNUSED_PARAM)
86 struct rtmsg *r = NLMSG_DATA(n);
87 int len = n->nlmsg_len;
88 struct rtattr * tb[RTA_MAX+1];
95 if (n->nlmsg_type != RTM_NEWROUTE && n->nlmsg_type != RTM_DELROUTE) {
96 fprintf(stderr, "Not a route: %08x %08x %08x\n",
97 n->nlmsg_len, n->nlmsg_type, n->nlmsg_flags);
100 if (G_filter.flushb && n->nlmsg_type != RTM_NEWROUTE)
102 len -= NLMSG_LENGTH(sizeof(*r));
104 bb_error_msg_and_die("wrong nlmsg len %d", len);
106 if (r->rtm_family == AF_INET6)
108 else if (r->rtm_family == AF_INET)
111 if (r->rtm_family == AF_INET6) {
113 if (G_filter.tb < 0) {
114 if (!(r->rtm_flags & RTM_F_CLONED)) {
118 if (r->rtm_flags & RTM_F_CLONED) {
121 if (G_filter.tb == RT_TABLE_LOCAL) {
122 if (r->rtm_type != RTN_LOCAL) {
125 } else if (G_filter.tb == RT_TABLE_MAIN) {
126 if (r->rtm_type == RTN_LOCAL) {
135 if (G_filter.tb > 0 && G_filter.tb != r->rtm_table) {
139 if (G_filter.rdst.family
140 && (r->rtm_family != G_filter.rdst.family || G_filter.rdst.bitlen > r->rtm_dst_len)
144 if (G_filter.mdst.family
145 && (r->rtm_family != G_filter.mdst.family
146 || (G_filter.mdst.bitlen >= 0 && G_filter.mdst.bitlen < r->rtm_dst_len)
151 if (G_filter.rsrc.family
152 && (r->rtm_family != G_filter.rsrc.family || G_filter.rsrc.bitlen > r->rtm_src_len)
156 if (G_filter.msrc.family
157 && (r->rtm_family != G_filter.msrc.family
158 || (G_filter.msrc.bitlen >= 0 && G_filter.msrc.bitlen < r->rtm_src_len)
164 memset(tb, 0, sizeof(tb));
165 parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);
167 if (G_filter.rdst.family
168 && inet_addr_match(&dst, &G_filter.rdst, G_filter.rdst.bitlen)
172 if (G_filter.mdst.family
173 && G_filter.mdst.bitlen >= 0
174 && inet_addr_match(&dst, &G_filter.mdst, r->rtm_dst_len)
178 if (G_filter.rsrc.family
179 && inet_addr_match(&src, &G_filter.rsrc, G_filter.rsrc.bitlen)
183 if (G_filter.msrc.family && G_filter.msrc.bitlen >= 0
184 && inet_addr_match(&src, &G_filter.msrc, r->rtm_src_len)
189 && r->rtm_family == AF_INET6
190 && r->rtm_dst_len == 0
191 && r->rtm_type == RTN_UNREACHABLE
193 && *(int*)RTA_DATA(tb[RTA_PRIORITY]) == -1
198 if (G_filter.flushb) {
200 if (NLMSG_ALIGN(G_filter.flushp) + n->nlmsg_len > G_filter.flushe) {
202 bb_error_msg_and_die("flush");
204 fn = (struct nlmsghdr*)(G_filter.flushb + NLMSG_ALIGN(G_filter.flushp));
205 memcpy(fn, n, n->nlmsg_len);
206 fn->nlmsg_type = RTM_DELROUTE;
207 fn->nlmsg_flags = NLM_F_REQUEST;
208 fn->nlmsg_seq = ++G_filter.rth->seq;
209 G_filter.flushp = (((char*)fn) + n->nlmsg_len) - G_filter.flushb;
210 G_filter.flushed = 1;
214 if (n->nlmsg_type == RTM_DELROUTE) {
217 if (r->rtm_type != RTN_UNICAST /* && !G_filter.type - always 0 */) {
218 printf("%s ", rtnl_rtntype_n2a(r->rtm_type, b1));
222 if (r->rtm_dst_len != host_len) {
223 printf("%s/%u ", rt_addr_n2a(r->rtm_family,
224 RTA_DATA(tb[RTA_DST]),
229 printf("%s ", format_host(r->rtm_family,
230 RTA_PAYLOAD(tb[RTA_DST]),
231 RTA_DATA(tb[RTA_DST]),
235 } else if (r->rtm_dst_len) {
236 printf("0/%d ", r->rtm_dst_len);
241 if (r->rtm_src_len != host_len) {
242 printf("from %s/%u ", rt_addr_n2a(r->rtm_family,
243 RTA_DATA(tb[RTA_SRC]),
248 printf("from %s ", format_host(r->rtm_family,
249 RTA_PAYLOAD(tb[RTA_SRC]),
250 RTA_DATA(tb[RTA_SRC]),
254 } else if (r->rtm_src_len) {
255 printf("from 0/%u ", r->rtm_src_len);
257 if (tb[RTA_GATEWAY] && G_filter.rvia.bitlen != host_len) {
258 printf("via %s ", format_host(r->rtm_family,
259 RTA_PAYLOAD(tb[RTA_GATEWAY]),
260 RTA_DATA(tb[RTA_GATEWAY]),
261 abuf, sizeof(abuf)));
263 if (tb[RTA_OIF] && G_filter.oifmask != -1) {
264 printf("dev %s ", ll_index_to_name(*(int*)RTA_DATA(tb[RTA_OIF])));
267 if (tb[RTA_PREFSRC] && /*G_filter.rprefsrc.bitlen - always 0*/ 0 != host_len) {
268 /* Do not use format_host(). It is our local addr
269 and symbolic name will not be useful.
271 printf(" src %s ", rt_addr_n2a(r->rtm_family,
272 RTA_DATA(tb[RTA_PREFSRC]),
273 abuf, sizeof(abuf)));
275 if (tb[RTA_PRIORITY]) {
276 printf(" metric %d ", *(uint32_t*)RTA_DATA(tb[RTA_PRIORITY]));
278 if (r->rtm_family == AF_INET6) {
279 struct rta_cacheinfo *ci = NULL;
280 if (tb[RTA_CACHEINFO]) {
281 ci = RTA_DATA(tb[RTA_CACHEINFO]);
283 if ((r->rtm_flags & RTM_F_CLONED) || (ci && ci->rta_expires)) {
284 if (r->rtm_flags & RTM_F_CLONED) {
285 printf("%c cache ", _SL_);
287 if (ci->rta_expires) {
288 printf(" expires %dsec", ci->rta_expires / get_hz());
290 if (ci->rta_error != 0) {
291 printf(" error %d", ci->rta_error);
294 if (ci->rta_error != 0)
295 printf(" error %d", ci->rta_error);
298 if (tb[RTA_IIF] && G_filter.iifmask != -1) {
299 printf(" iif %s", ll_index_to_name(*(int*)RTA_DATA(tb[RTA_IIF])));
305 /* Return value becomes exitcode. It's okay to not return at all */
306 static int iproute_modify(int cmd, unsigned flags, char **argv)
308 static const char keywords[] ALIGN1 =
309 "src\0""via\0""mtu\0""lock\0""protocol\0"IF_FEATURE_IP_RULE("table\0")
310 "dev\0""oif\0""to\0""metric\0";
316 IF_FEATURE_IP_RULE(ARG_table,)
328 struct rtnl_handle rth;
335 struct rtattr * mxrta = (void*)mxbuf;
341 memset(&req, 0, sizeof(req));
343 req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
344 req.n.nlmsg_flags = NLM_F_REQUEST | flags;
345 req.n.nlmsg_type = cmd;
346 req.r.rtm_family = preferred_family;
347 if (RT_TABLE_MAIN) /* if it is zero, memset already did it */
348 req.r.rtm_table = RT_TABLE_MAIN;
349 if (RT_SCOPE_NOWHERE)
350 req.r.rtm_scope = RT_SCOPE_NOWHERE;
352 if (cmd != RTM_DELROUTE) {
353 req.r.rtm_protocol = RTPROT_BOOT;
354 req.r.rtm_scope = RT_SCOPE_UNIVERSE;
355 req.r.rtm_type = RTN_UNICAST;
358 mxrta->rta_type = RTA_METRICS;
359 mxrta->rta_len = RTA_LENGTH(0);
362 arg = index_in_substrings(keywords, *argv);
363 if (arg == ARG_src) {
366 get_addr(&addr, *argv, req.r.rtm_family);
367 if (req.r.rtm_family == AF_UNSPEC)
368 req.r.rtm_family = addr.family;
369 addattr_l(&req.n, sizeof(req), RTA_PREFSRC, &addr.data, addr.bytelen);
370 } else if (arg == ARG_via) {
374 get_addr(&addr, *argv, req.r.rtm_family);
375 if (req.r.rtm_family == AF_UNSPEC) {
376 req.r.rtm_family = addr.family;
378 addattr_l(&req.n, sizeof(req), RTA_GATEWAY, &addr.data, addr.bytelen);
379 } else if (arg == ARG_mtu) {
382 if (index_in_strings(keywords, *argv) == PARM_lock) {
383 mxlock |= (1 << RTAX_MTU);
386 mtu = get_unsigned(*argv, "mtu");
387 rta_addattr32(mxrta, sizeof(mxbuf), RTAX_MTU, mtu);
388 } else if (arg == ARG_protocol) {
391 if (rtnl_rtprot_a2n(&prot, *argv))
392 invarg(*argv, "protocol");
393 req.r.rtm_protocol = prot;
395 #if ENABLE_FEATURE_IP_RULE
396 } else if (arg == ARG_table) {
399 if (rtnl_rttable_a2n(&tid, *argv))
400 invarg(*argv, "table");
401 req.r.rtm_table = tid;
403 } else if (arg == ARG_dev || arg == ARG_oif) {
406 } else if (arg == ARG_metric) {
409 metric = get_u32(*argv, "metric");
410 addattr32(&req.n, sizeof(req), RTA_PRIORITY, metric);
418 if ((**argv < '0' || **argv > '9')
419 && rtnl_rtntype_a2n(&type, *argv) == 0) {
421 req.r.rtm_type = type;
426 duparg2("to", *argv);
428 get_prefix(&dst, *argv, req.r.rtm_family);
429 if (req.r.rtm_family == AF_UNSPEC) {
430 req.r.rtm_family = dst.family;
432 req.r.rtm_dst_len = dst.bitlen;
435 addattr_l(&req.n, sizeof(req), RTA_DST, &dst.data, dst.bytelen);
449 idx = xll_name_to_index(d);
450 addattr32(&req.n, sizeof(req), RTA_OIF, idx);
454 if (mxrta->rta_len > RTA_LENGTH(0)) {
456 rta_addattr32(mxrta, sizeof(mxbuf), RTAX_LOCK, mxlock);
458 addattr_l(&req.n, sizeof(req), RTA_METRICS, RTA_DATA(mxrta), RTA_PAYLOAD(mxrta));
461 if (req.r.rtm_type == RTN_LOCAL || req.r.rtm_type == RTN_NAT)
462 req.r.rtm_scope = RT_SCOPE_HOST;
464 if (req.r.rtm_type == RTN_BROADCAST
465 || req.r.rtm_type == RTN_MULTICAST
466 || req.r.rtm_type == RTN_ANYCAST
468 req.r.rtm_scope = RT_SCOPE_LINK;
470 else if (req.r.rtm_type == RTN_UNICAST || req.r.rtm_type == RTN_UNSPEC) {
471 if (cmd == RTM_DELROUTE)
472 req.r.rtm_scope = RT_SCOPE_NOWHERE;
473 else if (!(ok & gw_ok))
474 req.r.rtm_scope = RT_SCOPE_LINK;
477 if (req.r.rtm_family == AF_UNSPEC) {
478 req.r.rtm_family = AF_INET;
481 if (rtnl_talk(&rth, &req.n, 0, 0, NULL, NULL, NULL) < 0) {
488 static int rtnl_rtcache_request(struct rtnl_handle *rth, int family)
494 struct sockaddr_nl nladdr;
496 memset(&nladdr, 0, sizeof(nladdr));
497 memset(&req, 0, sizeof(req));
498 nladdr.nl_family = AF_NETLINK;
500 req.nlh.nlmsg_len = sizeof(req);
502 req.nlh.nlmsg_type = RTM_GETROUTE;
503 if (NLM_F_ROOT | NLM_F_REQUEST)
504 req.nlh.nlmsg_flags = NLM_F_ROOT | NLM_F_REQUEST;
505 /*req.nlh.nlmsg_pid = 0; - memset did it already */
506 req.nlh.nlmsg_seq = rth->dump = ++rth->seq;
507 req.rtm.rtm_family = family;
509 req.rtm.rtm_flags = RTM_F_CLONED;
511 return xsendto(rth->fd, (void*)&req, sizeof(req), (struct sockaddr*)&nladdr, sizeof(nladdr));
514 static void iproute_flush_cache(void)
516 static const char fn[] ALIGN1 = "/proc/sys/net/ipv4/route/flush";
517 int flush_fd = open_or_warn(fn, O_WRONLY);
523 if (write(flush_fd, "-1", 2) < 2) {
524 bb_perror_msg("can't flush routing cache");
530 static void iproute_reset_filter(void)
532 memset(&G_filter, 0, sizeof(G_filter));
533 G_filter.mdst.bitlen = -1;
534 G_filter.msrc.bitlen = -1;
537 /* Return value becomes exitcode. It's okay to not return at all */
538 static int iproute_list_or_flush(char **argv, int flush)
540 int do_ipv6 = preferred_family;
541 struct rtnl_handle rth;
544 static const char keywords[] ALIGN1 =
545 /* "ip route list/flush" parameters: */
546 "protocol\0" "dev\0" "oif\0" "iif\0"
547 "via\0" "table\0" "cache\0"
549 /* and possible further keywords */
557 KW_proto, KW_dev, KW_oif, KW_iif,
558 KW_via, KW_table, KW_cache,
569 iproute_reset_filter();
570 G_filter.tb = RT_TABLE_MAIN;
573 bb_error_msg_and_die(bb_msg_requires_arg, "\"ip route flush\"");
576 arg = index_in_substrings(keywords, *argv);
577 if (arg == KW_proto) {
580 //G_filter.protocolmask = -1;
581 if (rtnl_rtprot_a2n(&prot, *argv)) {
582 if (index_in_strings(keywords, *argv) != KW_all)
583 invarg(*argv, "protocol");
585 //G_filter.protocolmask = 0;
587 //G_filter.protocol = prot;
588 } else if (arg == KW_dev || arg == KW_oif) {
591 } else if (arg == KW_iif) {
594 } else if (arg == KW_via) {
596 get_prefix(&G_filter.rvia, *argv, do_ipv6);
597 } else if (arg == KW_table) { /* table all/cache/main */
599 parm = index_in_substrings(keywords, *argv);
600 if (parm == KW_cache)
602 else if (parm == KW_all)
604 else if (parm != KW_main) {
605 #if ENABLE_FEATURE_IP_RULE
607 if (rtnl_rttable_a2n(&tid, *argv))
608 invarg(*argv, "table");
611 invarg(*argv, "table");
614 } else if (arg == KW_cache) {
615 /* The command 'ip route flush cache' is used by OpenSWAN.
616 * Assuming it's a synonym for 'ip route flush table cache' */
618 } else if (arg == KW_from) {
620 parm = index_in_substrings(keywords, *argv);
621 if (parm == KW_root) {
623 get_prefix(&G_filter.rsrc, *argv, do_ipv6);
624 } else if (parm == KW_match) {
626 get_prefix(&G_filter.msrc, *argv, do_ipv6);
628 if (parm == KW_exact)
630 get_prefix(&G_filter.msrc, *argv, do_ipv6);
631 G_filter.rsrc = G_filter.msrc;
633 } else { /* "to" is the default parameter */
636 arg = index_in_substrings(keywords, *argv);
638 /* parm = arg; - would be more plausible, but we reuse 'arg' here */
639 if (arg == KW_root) {
641 get_prefix(&G_filter.rdst, *argv, do_ipv6);
642 } else if (arg == KW_match) {
644 get_prefix(&G_filter.mdst, *argv, do_ipv6);
645 } else { /* "to exact" is the default */
648 get_prefix(&G_filter.mdst, *argv, do_ipv6);
649 G_filter.rdst = G_filter.mdst;
655 if (do_ipv6 == AF_UNSPEC && G_filter.tb) {
666 idx = xll_name_to_index(id);
668 G_filter.iifmask = -1;
671 idx = xll_name_to_index(od);
673 G_filter.oifmask = -1;
678 char flushb[4096-512];
680 if (G_filter.tb == -1) { /* "flush table cache" */
681 if (do_ipv6 != AF_INET6)
682 iproute_flush_cache();
683 if (do_ipv6 == AF_INET)
687 G_filter.flushb = flushb;
689 G_filter.flushe = sizeof(flushb);
693 xrtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE);
694 G_filter.flushed = 0;
695 xrtnl_dump_filter(&rth, print_route, NULL);
696 if (G_filter.flushed == 0)
703 if (G_filter.tb != -1) {
704 xrtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE);
705 } else if (rtnl_rtcache_request(&rth, do_ipv6) < 0) {
706 bb_perror_msg_and_die("can't send dump request");
708 xrtnl_dump_filter(&rth, print_route, NULL);
714 /* Return value becomes exitcode. It's okay to not return at all */
715 static int iproute_get(char **argv)
717 struct rtnl_handle rth;
727 static const char options[] ALIGN1 =
728 "from\0""iif\0""oif\0""dev\0""notify\0""connected\0""to\0";
730 memset(&req, 0, sizeof(req));
732 iproute_reset_filter();
734 req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
736 req.n.nlmsg_flags = NLM_F_REQUEST;
738 req.n.nlmsg_type = RTM_GETROUTE;
739 req.r.rtm_family = preferred_family;
740 /*req.r.rtm_table = 0; - memset did this already */
741 /*req.r.rtm_protocol = 0;*/
742 /*req.r.rtm_scope = 0;*/
743 /*req.r.rtm_type = 0;*/
744 /*req.r.rtm_src_len = 0;*/
745 /*req.r.rtm_dst_len = 0;*/
746 /*req.r.rtm_tos = 0;*/
749 switch (index_in_strings(options, *argv)) {
755 get_prefix(&addr, *argv, req.r.rtm_family);
756 if (req.r.rtm_family == AF_UNSPEC) {
757 req.r.rtm_family = addr.family;
760 addattr_l(&req.n, sizeof(req), RTA_SRC, &addr.data, addr.bytelen);
762 req.r.rtm_src_len = addr.bitlen;
775 req.r.rtm_flags |= RTM_F_NOTIFY;
777 case 5: /* connected */
785 get_prefix(&addr, *argv, req.r.rtm_family);
786 if (req.r.rtm_family == AF_UNSPEC) {
787 req.r.rtm_family = addr.family;
790 addattr_l(&req.n, sizeof(req), RTA_DST, &addr.data, addr.bytelen);
792 req.r.rtm_dst_len = addr.bitlen;
798 if (req.r.rtm_dst_len == 0) {
799 bb_error_msg_and_die("need at least destination address");
810 idx = xll_name_to_index(idev);
811 addattr32(&req.n, sizeof(req), RTA_IIF, idx);
814 idx = xll_name_to_index(odev);
815 addattr32(&req.n, sizeof(req), RTA_OIF, idx);
819 if (req.r.rtm_family == AF_UNSPEC) {
820 req.r.rtm_family = AF_INET;
823 if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
827 if (connected && !from_ok) {
828 struct rtmsg *r = NLMSG_DATA(&req.n);
829 int len = req.n.nlmsg_len;
830 struct rtattr * tb[RTA_MAX+1];
832 print_route(NULL, &req.n, NULL);
834 if (req.n.nlmsg_type != RTM_NEWROUTE) {
835 bb_error_msg_and_die("not a route?");
837 len -= NLMSG_LENGTH(sizeof(*r));
839 bb_error_msg_and_die("wrong len %d", len);
842 memset(tb, 0, sizeof(tb));
843 parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);
845 if (tb[RTA_PREFSRC]) {
846 tb[RTA_PREFSRC]->rta_type = RTA_SRC;
847 r->rtm_src_len = 8*RTA_PAYLOAD(tb[RTA_PREFSRC]);
848 } else if (!tb[RTA_SRC]) {
849 bb_error_msg_and_die("can't connect the route");
851 if (!odev && tb[RTA_OIF]) {
852 tb[RTA_OIF]->rta_type = 0;
854 if (tb[RTA_GATEWAY]) {
855 tb[RTA_GATEWAY]->rta_type = 0;
857 if (!idev && tb[RTA_IIF]) {
858 tb[RTA_IIF]->rta_type = 0;
860 req.n.nlmsg_flags = NLM_F_REQUEST;
861 req.n.nlmsg_type = RTM_GETROUTE;
863 if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
867 print_route(NULL, &req.n, NULL);
871 /* Return value becomes exitcode. It's okay to not return at all */
872 int FAST_FUNC do_iproute(char **argv)
874 static const char ip_route_commands[] ALIGN1 =
875 /*0-3*/ "add\0""append\0""change\0""chg\0"
876 /*4-7*/ "delete\0""get\0""list\0""show\0"
877 /*8..*/ "prepend\0""replace\0""test\0""flush\0";
880 int cmd = RTM_NEWROUTE;
883 return iproute_list_or_flush(argv, 0);
885 /* "Standard" 'ip r a' treats 'a' as 'add', not 'append' */
886 /* It probably means that it is using "first match" rule */
887 command_num = index_in_substrings(ip_route_commands, *argv);
889 switch (command_num) {
891 flags = NLM_F_CREATE|NLM_F_EXCL;
894 flags = NLM_F_CREATE|NLM_F_APPEND;
898 flags = NLM_F_REPLACE;
904 return iproute_get(argv+1);
907 return iproute_list_or_flush(argv+1, 0);
908 case 8: /* prepend */
909 flags = NLM_F_CREATE;
911 case 9: /* replace */
912 flags = NLM_F_CREATE|NLM_F_REPLACE;
918 return iproute_list_or_flush(argv+1, 1);
920 bb_error_msg_and_die("unknown command %s", *argv);
923 return iproute_modify(cmd, flags, argv+1);