1 /* vi: set sw=4 ts=4: */
3 * Licensed under GPLv2 or later, see file LICENSE in this source tree.
5 * Authors: Alexey Kuznetsov, <kuznet@ms2.inr.ac.ru>
9 * Rani Assaf <rani@magic.metawire.com> 980929: resolve addresses
10 * Kunihiro Ishiguro <kunihiro@zebra.org> 001102: rtnh_ifindex was not initialized
13 #include "ip_common.h" /* #include "libbb.h" is inside */
18 #define RTAX_RTTVAR RTAX_HOPS
28 struct rtnl_handle *rth;
29 //int protocol, protocolmask; - write-only fields?!
30 //int scope, scopemask; - unused
31 //int type; - read-only
32 //int typemask; - unused
33 //int tos, tosmask; - unused
36 //int realm, realmmask; - unused
37 //inet_prefix rprefsrc; - read-only
44 typedef struct filter_t filter_t;
46 #define G_filter (*(filter_t*)&bb_common_bufsiz1)
48 static int flush_update(void)
50 if (rtnl_send(G_filter.rth, G_filter.flushb, G_filter.flushp) < 0) {
51 bb_perror_msg("can't send flush request");
58 static unsigned get_hz(void)
60 static unsigned hz_internal;
66 fp = fopen_for_read("/proc/net/psched");
70 if (fscanf(fp, "%*08x%*08x%08x%08x", &nom, &denom) == 2)
76 hz_internal = sysconf(_SC_CLK_TCK);
80 static int FAST_FUNC print_route(const struct sockaddr_nl *who UNUSED_PARAM,
81 struct nlmsghdr *n, void *arg UNUSED_PARAM)
83 struct rtmsg *r = NLMSG_DATA(n);
84 int len = n->nlmsg_len;
85 struct rtattr * tb[RTA_MAX+1];
92 if (n->nlmsg_type != RTM_NEWROUTE && n->nlmsg_type != RTM_DELROUTE) {
93 fprintf(stderr, "Not a route: %08x %08x %08x\n",
94 n->nlmsg_len, n->nlmsg_type, n->nlmsg_flags);
97 if (G_filter.flushb && n->nlmsg_type != RTM_NEWROUTE)
99 len -= NLMSG_LENGTH(sizeof(*r));
101 bb_error_msg_and_die("wrong nlmsg len %d", len);
103 if (r->rtm_family == AF_INET6)
105 else if (r->rtm_family == AF_INET)
108 if (r->rtm_family == AF_INET6) {
110 if (G_filter.tb < 0) {
111 if (!(r->rtm_flags & RTM_F_CLONED)) {
115 if (r->rtm_flags & RTM_F_CLONED) {
118 if (G_filter.tb == RT_TABLE_LOCAL) {
119 if (r->rtm_type != RTN_LOCAL) {
122 } else if (G_filter.tb == RT_TABLE_MAIN) {
123 if (r->rtm_type == RTN_LOCAL) {
132 if (G_filter.tb > 0 && G_filter.tb != r->rtm_table) {
136 if (G_filter.rdst.family
137 && (r->rtm_family != G_filter.rdst.family || G_filter.rdst.bitlen > r->rtm_dst_len)
141 if (G_filter.mdst.family
142 && (r->rtm_family != G_filter.mdst.family
143 || (G_filter.mdst.bitlen >= 0 && G_filter.mdst.bitlen < r->rtm_dst_len)
148 if (G_filter.rsrc.family
149 && (r->rtm_family != G_filter.rsrc.family || G_filter.rsrc.bitlen > r->rtm_src_len)
153 if (G_filter.msrc.family
154 && (r->rtm_family != G_filter.msrc.family
155 || (G_filter.msrc.bitlen >= 0 && G_filter.msrc.bitlen < r->rtm_src_len)
161 memset(tb, 0, sizeof(tb));
162 parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);
164 if (G_filter.rdst.family
165 && inet_addr_match(&dst, &G_filter.rdst, G_filter.rdst.bitlen)
169 if (G_filter.mdst.family
170 && G_filter.mdst.bitlen >= 0
171 && inet_addr_match(&dst, &G_filter.mdst, r->rtm_dst_len)
175 if (G_filter.rsrc.family
176 && inet_addr_match(&src, &G_filter.rsrc, G_filter.rsrc.bitlen)
180 if (G_filter.msrc.family && G_filter.msrc.bitlen >= 0
181 && inet_addr_match(&src, &G_filter.msrc, r->rtm_src_len)
185 if (G_filter.oif != 0) {
188 if (G_filter.oif != *(int*)RTA_DATA(tb[RTA_OIF]))
192 if (G_filter.flushb) {
195 /* We are creating route flush commands */
197 if (r->rtm_family == AF_INET6
198 && r->rtm_dst_len == 0
199 && r->rtm_type == RTN_UNREACHABLE
201 && *(int*)RTA_DATA(tb[RTA_PRIORITY]) == -1
206 if (NLMSG_ALIGN(G_filter.flushp) + n->nlmsg_len > G_filter.flushe) {
208 bb_error_msg_and_die("flush");
210 fn = (void*)(G_filter.flushb + NLMSG_ALIGN(G_filter.flushp));
211 memcpy(fn, n, n->nlmsg_len);
212 fn->nlmsg_type = RTM_DELROUTE;
213 fn->nlmsg_flags = NLM_F_REQUEST;
214 fn->nlmsg_seq = ++G_filter.rth->seq;
215 G_filter.flushp = (((char*)fn) + n->nlmsg_len) - G_filter.flushb;
216 G_filter.flushed = 1;
220 /* We are printing routes */
222 if (n->nlmsg_type == RTM_DELROUTE) {
225 if (r->rtm_type != RTN_UNICAST /* && !G_filter.type - always 0 */) {
226 printf("%s ", rtnl_rtntype_n2a(r->rtm_type, b1));
230 if (r->rtm_dst_len != host_len) {
231 printf("%s/%u ", rt_addr_n2a(r->rtm_family,
232 RTA_DATA(tb[RTA_DST]),
237 printf("%s ", format_host(r->rtm_family,
238 RTA_PAYLOAD(tb[RTA_DST]),
239 RTA_DATA(tb[RTA_DST]),
243 } else if (r->rtm_dst_len) {
244 printf("0/%d ", r->rtm_dst_len);
249 if (r->rtm_src_len != host_len) {
250 printf("from %s/%u ", rt_addr_n2a(r->rtm_family,
251 RTA_DATA(tb[RTA_SRC]),
256 printf("from %s ", format_host(r->rtm_family,
257 RTA_PAYLOAD(tb[RTA_SRC]),
258 RTA_DATA(tb[RTA_SRC]),
262 } else if (r->rtm_src_len) {
263 printf("from 0/%u ", r->rtm_src_len);
265 if (tb[RTA_GATEWAY] && G_filter.rvia.bitlen != host_len) {
266 printf("via %s ", format_host(r->rtm_family,
267 RTA_PAYLOAD(tb[RTA_GATEWAY]),
268 RTA_DATA(tb[RTA_GATEWAY]),
269 abuf, sizeof(abuf)));
272 printf("dev %s ", ll_index_to_name(*(int*)RTA_DATA(tb[RTA_OIF])));
275 /* Todo: parse & show "proto kernel", "scope link" here */
277 if (tb[RTA_PREFSRC] && /*G_filter.rprefsrc.bitlen - always 0*/ 0 != host_len) {
278 /* Do not use format_host(). It is our local addr
279 and symbolic name will not be useful.
281 printf(" src %s ", rt_addr_n2a(r->rtm_family,
282 RTA_DATA(tb[RTA_PREFSRC]),
283 abuf, sizeof(abuf)));
285 if (tb[RTA_PRIORITY]) {
286 printf(" metric %d ", *(uint32_t*)RTA_DATA(tb[RTA_PRIORITY]));
288 if (r->rtm_family == AF_INET6) {
289 struct rta_cacheinfo *ci = NULL;
290 if (tb[RTA_CACHEINFO]) {
291 ci = RTA_DATA(tb[RTA_CACHEINFO]);
293 if ((r->rtm_flags & RTM_F_CLONED) || (ci && ci->rta_expires)) {
294 if (r->rtm_flags & RTM_F_CLONED) {
295 printf("%c cache ", _SL_);
297 if (ci->rta_expires) {
298 printf(" expires %dsec", ci->rta_expires / get_hz());
300 if (ci->rta_error != 0) {
301 printf(" error %d", ci->rta_error);
304 if (ci->rta_error != 0)
305 printf(" error %d", ci->rta_error);
308 if (tb[RTA_IIF] && G_filter.iif == 0) {
309 printf(" iif %s", ll_index_to_name(*(int*)RTA_DATA(tb[RTA_IIF])));
315 /* Return value becomes exitcode. It's okay to not return at all */
316 static int iproute_modify(int cmd, unsigned flags, char **argv)
318 static const char keywords[] ALIGN1 =
319 "src\0""via\0""mtu\0""lock\0""protocol\0"IF_FEATURE_IP_RULE("table\0")
320 "dev\0""oif\0""to\0""metric\0";
326 IF_FEATURE_IP_RULE(ARG_table,)
338 struct rtnl_handle rth;
345 struct rtattr * mxrta = (void*)mxbuf;
351 memset(&req, 0, sizeof(req));
353 req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
354 req.n.nlmsg_flags = NLM_F_REQUEST | flags;
355 req.n.nlmsg_type = cmd;
356 req.r.rtm_family = preferred_family;
357 if (RT_TABLE_MAIN) /* if it is zero, memset already did it */
358 req.r.rtm_table = RT_TABLE_MAIN;
359 if (RT_SCOPE_NOWHERE)
360 req.r.rtm_scope = RT_SCOPE_NOWHERE;
362 if (cmd != RTM_DELROUTE) {
363 req.r.rtm_protocol = RTPROT_BOOT;
364 req.r.rtm_scope = RT_SCOPE_UNIVERSE;
365 req.r.rtm_type = RTN_UNICAST;
368 mxrta->rta_type = RTA_METRICS;
369 mxrta->rta_len = RTA_LENGTH(0);
372 arg = index_in_substrings(keywords, *argv);
373 if (arg == ARG_src) {
376 get_addr(&addr, *argv, req.r.rtm_family);
377 if (req.r.rtm_family == AF_UNSPEC)
378 req.r.rtm_family = addr.family;
379 addattr_l(&req.n, sizeof(req), RTA_PREFSRC, &addr.data, addr.bytelen);
380 } else if (arg == ARG_via) {
384 get_addr(&addr, *argv, req.r.rtm_family);
385 if (req.r.rtm_family == AF_UNSPEC) {
386 req.r.rtm_family = addr.family;
388 addattr_l(&req.n, sizeof(req), RTA_GATEWAY, &addr.data, addr.bytelen);
389 } else if (arg == ARG_mtu) {
392 if (index_in_strings(keywords, *argv) == PARM_lock) {
393 mxlock |= (1 << RTAX_MTU);
396 mtu = get_unsigned(*argv, "mtu");
397 rta_addattr32(mxrta, sizeof(mxbuf), RTAX_MTU, mtu);
398 } else if (arg == ARG_protocol) {
401 if (rtnl_rtprot_a2n(&prot, *argv))
402 invarg(*argv, "protocol");
403 req.r.rtm_protocol = prot;
405 #if ENABLE_FEATURE_IP_RULE
406 } else if (arg == ARG_table) {
409 if (rtnl_rttable_a2n(&tid, *argv))
410 invarg(*argv, "table");
411 req.r.rtm_table = tid;
413 } else if (arg == ARG_dev || arg == ARG_oif) {
416 } else if (arg == ARG_metric) {
419 metric = get_u32(*argv, "metric");
420 addattr32(&req.n, sizeof(req), RTA_PRIORITY, metric);
428 if ((**argv < '0' || **argv > '9')
429 && rtnl_rtntype_a2n(&type, *argv) == 0) {
431 req.r.rtm_type = type;
436 duparg2("to", *argv);
438 get_prefix(&dst, *argv, req.r.rtm_family);
439 if (req.r.rtm_family == AF_UNSPEC) {
440 req.r.rtm_family = dst.family;
442 req.r.rtm_dst_len = dst.bitlen;
445 addattr_l(&req.n, sizeof(req), RTA_DST, &dst.data, dst.bytelen);
459 idx = xll_name_to_index(d);
460 addattr32(&req.n, sizeof(req), RTA_OIF, idx);
464 if (mxrta->rta_len > RTA_LENGTH(0)) {
466 rta_addattr32(mxrta, sizeof(mxbuf), RTAX_LOCK, mxlock);
468 addattr_l(&req.n, sizeof(req), RTA_METRICS, RTA_DATA(mxrta), RTA_PAYLOAD(mxrta));
471 if (req.r.rtm_type == RTN_LOCAL || req.r.rtm_type == RTN_NAT)
472 req.r.rtm_scope = RT_SCOPE_HOST;
474 if (req.r.rtm_type == RTN_BROADCAST
475 || req.r.rtm_type == RTN_MULTICAST
476 || req.r.rtm_type == RTN_ANYCAST
478 req.r.rtm_scope = RT_SCOPE_LINK;
480 else if (req.r.rtm_type == RTN_UNICAST || req.r.rtm_type == RTN_UNSPEC) {
481 if (cmd == RTM_DELROUTE)
482 req.r.rtm_scope = RT_SCOPE_NOWHERE;
483 else if (!(ok & gw_ok))
484 req.r.rtm_scope = RT_SCOPE_LINK;
487 if (req.r.rtm_family == AF_UNSPEC) {
488 req.r.rtm_family = AF_INET;
491 if (rtnl_talk(&rth, &req.n, 0, 0, NULL, NULL, NULL) < 0) {
498 static int rtnl_rtcache_request(struct rtnl_handle *rth, int family)
504 struct sockaddr_nl nladdr;
506 memset(&nladdr, 0, sizeof(nladdr));
507 memset(&req, 0, sizeof(req));
508 nladdr.nl_family = AF_NETLINK;
510 req.nlh.nlmsg_len = sizeof(req);
512 req.nlh.nlmsg_type = RTM_GETROUTE;
513 if (NLM_F_ROOT | NLM_F_REQUEST)
514 req.nlh.nlmsg_flags = NLM_F_ROOT | NLM_F_REQUEST;
515 /*req.nlh.nlmsg_pid = 0; - memset did it already */
516 req.nlh.nlmsg_seq = rth->dump = ++rth->seq;
517 req.rtm.rtm_family = family;
519 req.rtm.rtm_flags = RTM_F_CLONED;
521 return xsendto(rth->fd, (void*)&req, sizeof(req), (struct sockaddr*)&nladdr, sizeof(nladdr));
524 static void iproute_flush_cache(void)
526 static const char fn[] ALIGN1 = "/proc/sys/net/ipv4/route/flush";
527 int flush_fd = open_or_warn(fn, O_WRONLY);
533 if (write(flush_fd, "-1", 2) < 2) {
534 bb_perror_msg("can't flush routing cache");
540 static void iproute_reset_filter(void)
542 memset(&G_filter, 0, sizeof(G_filter));
543 G_filter.mdst.bitlen = -1;
544 G_filter.msrc.bitlen = -1;
547 /* Return value becomes exitcode. It's okay to not return at all */
548 static int iproute_list_or_flush(char **argv, int flush)
550 int do_ipv6 = preferred_family;
551 struct rtnl_handle rth;
554 static const char keywords[] ALIGN1 =
555 /* "ip route list/flush" parameters: */
556 "protocol\0" "dev\0" "oif\0" "iif\0"
557 "via\0" "table\0" "cache\0"
559 /* and possible further keywords */
567 KW_proto, KW_dev, KW_oif, KW_iif,
568 KW_via, KW_table, KW_cache,
579 iproute_reset_filter();
580 G_filter.tb = RT_TABLE_MAIN;
583 bb_error_msg_and_die(bb_msg_requires_arg, "\"ip route flush\"");
586 arg = index_in_substrings(keywords, *argv);
587 if (arg == KW_proto) {
590 //G_filter.protocolmask = -1;
591 if (rtnl_rtprot_a2n(&prot, *argv)) {
592 if (index_in_strings(keywords, *argv) != KW_all)
593 invarg(*argv, "protocol");
595 //G_filter.protocolmask = 0;
597 //G_filter.protocol = prot;
598 } else if (arg == KW_dev || arg == KW_oif) {
601 } else if (arg == KW_iif) {
604 } else if (arg == KW_via) {
606 get_prefix(&G_filter.rvia, *argv, do_ipv6);
607 } else if (arg == KW_table) { /* table all/cache/main */
609 parm = index_in_substrings(keywords, *argv);
610 if (parm == KW_cache)
612 else if (parm == KW_all)
614 else if (parm != KW_main) {
615 #if ENABLE_FEATURE_IP_RULE
617 if (rtnl_rttable_a2n(&tid, *argv))
618 invarg(*argv, "table");
621 invarg(*argv, "table");
624 } else if (arg == KW_cache) {
625 /* The command 'ip route flush cache' is used by OpenSWAN.
626 * Assuming it's a synonym for 'ip route flush table cache' */
628 } else if (arg == KW_from) {
630 parm = index_in_substrings(keywords, *argv);
631 if (parm == KW_root) {
633 get_prefix(&G_filter.rsrc, *argv, do_ipv6);
634 } else if (parm == KW_match) {
636 get_prefix(&G_filter.msrc, *argv, do_ipv6);
638 if (parm == KW_exact)
640 get_prefix(&G_filter.msrc, *argv, do_ipv6);
641 G_filter.rsrc = G_filter.msrc;
643 } else { /* "to" is the default parameter */
646 arg = index_in_substrings(keywords, *argv);
648 /* parm = arg; - would be more plausible, but we reuse 'arg' here */
649 if (arg == KW_root) {
651 get_prefix(&G_filter.rdst, *argv, do_ipv6);
652 } else if (arg == KW_match) {
654 get_prefix(&G_filter.mdst, *argv, do_ipv6);
655 } else { /* "to exact" is the default */
658 get_prefix(&G_filter.mdst, *argv, do_ipv6);
659 G_filter.rdst = G_filter.mdst;
665 if (do_ipv6 == AF_UNSPEC && G_filter.tb) {
676 idx = xll_name_to_index(id);
680 idx = xll_name_to_index(od);
686 char flushb[4096-512];
688 if (G_filter.tb == -1) { /* "flush table cache" */
689 if (do_ipv6 != AF_INET6)
690 iproute_flush_cache();
691 if (do_ipv6 == AF_INET)
695 G_filter.flushb = flushb;
697 G_filter.flushe = sizeof(flushb);
701 xrtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE);
702 G_filter.flushed = 0;
703 xrtnl_dump_filter(&rth, print_route, NULL);
704 if (G_filter.flushed == 0)
711 if (G_filter.tb != -1) {
712 xrtnl_wilddump_request(&rth, do_ipv6, RTM_GETROUTE);
713 } else if (rtnl_rtcache_request(&rth, do_ipv6) < 0) {
714 bb_perror_msg_and_die("can't send dump request");
716 xrtnl_dump_filter(&rth, print_route, NULL);
722 /* Return value becomes exitcode. It's okay to not return at all */
723 static int iproute_get(char **argv)
725 struct rtnl_handle rth;
735 static const char options[] ALIGN1 =
736 "from\0""iif\0""oif\0""dev\0""notify\0""connected\0""to\0";
738 memset(&req, 0, sizeof(req));
740 iproute_reset_filter();
742 req.n.nlmsg_len = NLMSG_LENGTH(sizeof(struct rtmsg));
744 req.n.nlmsg_flags = NLM_F_REQUEST;
746 req.n.nlmsg_type = RTM_GETROUTE;
747 req.r.rtm_family = preferred_family;
748 /*req.r.rtm_table = 0; - memset did this already */
749 /*req.r.rtm_protocol = 0;*/
750 /*req.r.rtm_scope = 0;*/
751 /*req.r.rtm_type = 0;*/
752 /*req.r.rtm_src_len = 0;*/
753 /*req.r.rtm_dst_len = 0;*/
754 /*req.r.rtm_tos = 0;*/
757 switch (index_in_strings(options, *argv)) {
763 get_prefix(&addr, *argv, req.r.rtm_family);
764 if (req.r.rtm_family == AF_UNSPEC) {
765 req.r.rtm_family = addr.family;
768 addattr_l(&req.n, sizeof(req), RTA_SRC, &addr.data, addr.bytelen);
770 req.r.rtm_src_len = addr.bitlen;
783 req.r.rtm_flags |= RTM_F_NOTIFY;
785 case 5: /* connected */
793 get_prefix(&addr, *argv, req.r.rtm_family);
794 if (req.r.rtm_family == AF_UNSPEC) {
795 req.r.rtm_family = addr.family;
798 addattr_l(&req.n, sizeof(req), RTA_DST, &addr.data, addr.bytelen);
800 req.r.rtm_dst_len = addr.bitlen;
806 if (req.r.rtm_dst_len == 0) {
807 bb_error_msg_and_die("need at least destination address");
818 idx = xll_name_to_index(idev);
819 addattr32(&req.n, sizeof(req), RTA_IIF, idx);
822 idx = xll_name_to_index(odev);
823 addattr32(&req.n, sizeof(req), RTA_OIF, idx);
827 if (req.r.rtm_family == AF_UNSPEC) {
828 req.r.rtm_family = AF_INET;
831 if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
835 if (connected && !from_ok) {
836 struct rtmsg *r = NLMSG_DATA(&req.n);
837 int len = req.n.nlmsg_len;
838 struct rtattr * tb[RTA_MAX+1];
840 print_route(NULL, &req.n, NULL);
842 if (req.n.nlmsg_type != RTM_NEWROUTE) {
843 bb_error_msg_and_die("not a route?");
845 len -= NLMSG_LENGTH(sizeof(*r));
847 bb_error_msg_and_die("wrong len %d", len);
850 memset(tb, 0, sizeof(tb));
851 parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);
853 if (tb[RTA_PREFSRC]) {
854 tb[RTA_PREFSRC]->rta_type = RTA_SRC;
855 r->rtm_src_len = 8*RTA_PAYLOAD(tb[RTA_PREFSRC]);
856 } else if (!tb[RTA_SRC]) {
857 bb_error_msg_and_die("can't connect the route");
859 if (!odev && tb[RTA_OIF]) {
860 tb[RTA_OIF]->rta_type = 0;
862 if (tb[RTA_GATEWAY]) {
863 tb[RTA_GATEWAY]->rta_type = 0;
865 if (!idev && tb[RTA_IIF]) {
866 tb[RTA_IIF]->rta_type = 0;
868 req.n.nlmsg_flags = NLM_F_REQUEST;
869 req.n.nlmsg_type = RTM_GETROUTE;
871 if (rtnl_talk(&rth, &req.n, 0, 0, &req.n, NULL, NULL) < 0) {
875 print_route(NULL, &req.n, NULL);
879 /* Return value becomes exitcode. It's okay to not return at all */
880 int FAST_FUNC do_iproute(char **argv)
882 static const char ip_route_commands[] ALIGN1 =
883 /*0-3*/ "add\0""append\0""change\0""chg\0"
884 /*4-7*/ "delete\0""get\0""list\0""show\0"
885 /*8..*/ "prepend\0""replace\0""test\0""flush\0";
888 int cmd = RTM_NEWROUTE;
891 return iproute_list_or_flush(argv, 0);
893 /* "Standard" 'ip r a' treats 'a' as 'add', not 'append' */
894 /* It probably means that it is using "first match" rule */
895 command_num = index_in_substrings(ip_route_commands, *argv);
897 switch (command_num) {
899 flags = NLM_F_CREATE|NLM_F_EXCL;
902 flags = NLM_F_CREATE|NLM_F_APPEND;
906 flags = NLM_F_REPLACE;
912 return iproute_get(argv+1);
915 return iproute_list_or_flush(argv+1, 0);
916 case 8: /* prepend */
917 flags = NLM_F_CREATE;
919 case 9: /* replace */
920 flags = NLM_F_CREATE|NLM_F_REPLACE;
926 return iproute_list_or_flush(argv+1, 1);
928 bb_error_msg_and_die("unknown command %s", *argv);
931 return iproute_modify(cmd, flags, argv+1);