Home | History | Annotate | Download | only in ip
      1 /*
      2  * ipmroute.c		"ip mroute".
      3  *
      4  *		This program is free software; you can redistribute it and/or
      5  *		modify it under the terms of the GNU General Public License
      6  *		as published by the Free Software Foundation; either version
      7  *		2 of the License, or (at your option) any later version.
      8  *
      9  * Authors:	Alexey Kuznetsov, <kuznet (at) ms2.inr.ac.ru>
     10  *
     11  */
     12 
     13 #include <stdio.h>
     14 #include <stdlib.h>
     15 #include <unistd.h>
     16 #include <syslog.h>
     17 #include <fcntl.h>
     18 #include <inttypes.h>
     19 #include <sys/ioctl.h>
     20 #include <sys/socket.h>
     21 #include <netinet/in.h>
     22 #include <arpa/inet.h>
     23 #include <string.h>
     24 
     25 #include <linux/netdevice.h>
     26 #include <linux/if.h>
     27 #include <linux/if_arp.h>
     28 #include <linux/sockios.h>
     29 
     30 #include <rt_names.h>
     31 #include "utils.h"
     32 #include "ip_common.h"
     33 
     34 static void usage(void) __attribute__((noreturn));
     35 
     36 static void usage(void)
     37 {
     38 	fprintf(stderr, "Usage: ip mroute show [ [ to ] PREFIX ] [ from PREFIX ] [ iif DEVICE ]\n");
     39 	fprintf(stderr, "                      [ table TABLE_ID ]\n");
     40 	fprintf(stderr, "TABLE_ID := [ local | main | default | all | NUMBER ]\n");
     41 #if 0
     42 	fprintf(stderr, "Usage: ip mroute [ add | del ] DESTINATION from SOURCE [ iif DEVICE ] [ oif DEVICE ]\n");
     43 #endif
     44 	exit(-1);
     45 }
     46 
     47 struct rtfilter
     48 {
     49 	int tb;
     50 	int af;
     51 	int iif;
     52 	inet_prefix mdst;
     53 	inet_prefix msrc;
     54 } filter;
     55 
     56 int print_mroute(const struct sockaddr_nl *who, struct nlmsghdr *n, void *arg)
     57 {
     58 	FILE *fp = (FILE*)arg;
     59 	struct rtmsg *r = NLMSG_DATA(n);
     60 	int len = n->nlmsg_len;
     61 	struct rtattr * tb[RTA_MAX+1];
     62 	char abuf[256];
     63 	char obuf[256];
     64 	SPRINT_BUF(b1);
     65 	__u32 table;
     66 	int iif = 0;
     67 	int family;
     68 
     69 	if ((n->nlmsg_type != RTM_NEWROUTE &&
     70 	     n->nlmsg_type != RTM_DELROUTE)) {
     71 		fprintf(stderr, "Not a multicast route: %08x %08x %08x\n",
     72 			n->nlmsg_len, n->nlmsg_type, n->nlmsg_flags);
     73 		return 0;
     74 	}
     75 	len -= NLMSG_LENGTH(sizeof(*r));
     76 	if (len < 0) {
     77 		fprintf(stderr, "BUG: wrong nlmsg len %d\n", len);
     78 		return -1;
     79 	}
     80 	if (r->rtm_type != RTN_MULTICAST) {
     81 		fprintf(stderr, "Not a multicast route (type: %s)\n",
     82 			rtnl_rtntype_n2a(r->rtm_type, b1, sizeof(b1)));
     83 		return 0;
     84 	}
     85 
     86 	parse_rtattr(tb, RTA_MAX, RTM_RTA(r), len);
     87 	table = rtm_get_table(r, tb);
     88 
     89 	if (filter.tb > 0 && filter.tb != table)
     90 		return 0;
     91 
     92 	if (tb[RTA_IIF])
     93 		iif = *(int*)RTA_DATA(tb[RTA_IIF]);
     94 	if (filter.iif && filter.iif != iif)
     95 		return 0;
     96 
     97 	if (filter.af && filter.af != r->rtm_family)
     98 		return 0;
     99 
    100 	if (tb[RTA_DST] && filter.mdst.bitlen > 0) {
    101 		inet_prefix dst;
    102 
    103 		memset(&dst, 0, sizeof(dst));
    104 		dst.family = r->rtm_family;
    105 		memcpy(&dst.data, RTA_DATA(tb[RTA_DST]), RTA_PAYLOAD(tb[RTA_DST]));
    106 		if (inet_addr_match(&dst, &filter.mdst, filter.mdst.bitlen))
    107 			return 0;
    108 	}
    109 
    110 	if (tb[RTA_SRC] && filter.msrc.bitlen > 0) {
    111 		inet_prefix src;
    112 
    113 		memset(&src, 0, sizeof(src));
    114 		src.family = r->rtm_family;
    115 		memcpy(&src.data, RTA_DATA(tb[RTA_SRC]), RTA_PAYLOAD(tb[RTA_SRC]));
    116 		if (inet_addr_match(&src, &filter.msrc, filter.msrc.bitlen))
    117 			return 0;
    118 	}
    119 
    120 	family = r->rtm_family == RTNL_FAMILY_IPMR ? AF_INET : AF_INET6;
    121 
    122 	if (n->nlmsg_type == RTM_DELROUTE)
    123 		fprintf(fp, "Deleted ");
    124 
    125 	if (tb[RTA_SRC])
    126 		len = snprintf(obuf, sizeof(obuf),
    127 			       "(%s, ", rt_addr_n2a(family,
    128 						    RTA_PAYLOAD(tb[RTA_SRC]),
    129 						    RTA_DATA(tb[RTA_SRC]),
    130 						    abuf, sizeof(abuf)));
    131 	else
    132 		len = sprintf(obuf, "(unknown, ");
    133 	if (tb[RTA_DST])
    134 		snprintf(obuf + len, sizeof(obuf) - len,
    135 			 "%s)", rt_addr_n2a(family,
    136 					    RTA_PAYLOAD(tb[RTA_DST]),
    137 					    RTA_DATA(tb[RTA_DST]),
    138 					    abuf, sizeof(abuf)));
    139 	else
    140 		snprintf(obuf + len, sizeof(obuf) - len, "unknown) ");
    141 
    142 	fprintf(fp, "%-32s Iif: ", obuf);
    143 	if (iif)
    144 		fprintf(fp, "%-10s ", ll_index_to_name(iif));
    145 	else
    146 		fprintf(fp, "unresolved ");
    147 
    148 	if (tb[RTA_MULTIPATH]) {
    149 		struct rtnexthop *nh = RTA_DATA(tb[RTA_MULTIPATH]);
    150 		int first = 1;
    151 
    152 		len = RTA_PAYLOAD(tb[RTA_MULTIPATH]);
    153 
    154 		for (;;) {
    155 			if (len < sizeof(*nh))
    156 				break;
    157 			if (nh->rtnh_len > len)
    158 				break;
    159 
    160 			if (first) {
    161 				fprintf(fp, "Oifs: ");
    162 				first = 0;
    163 			}
    164 			fprintf(fp, "%s", ll_index_to_name(nh->rtnh_ifindex));
    165 			if (nh->rtnh_hops > 1)
    166 				fprintf(fp, "(ttl %d) ", nh->rtnh_hops);
    167 			else
    168 				fprintf(fp, " ");
    169 			len -= NLMSG_ALIGN(nh->rtnh_len);
    170 			nh = RTNH_NEXT(nh);
    171 		}
    172 	}
    173 	if (show_stats && tb[RTA_MFC_STATS]) {
    174 		struct rta_mfc_stats *mfcs = RTA_DATA(tb[RTA_MFC_STATS]);
    175 
    176 		fprintf(fp, "%s  %"PRIu64" packets, %"PRIu64" bytes", _SL_,
    177 			(uint64_t)mfcs->mfcs_packets,
    178 			(uint64_t)mfcs->mfcs_bytes);
    179 		if (mfcs->mfcs_wrong_if)
    180 			fprintf(fp, ", %"PRIu64" arrived on wrong iif.",
    181 				(uint64_t)mfcs->mfcs_wrong_if);
    182 	}
    183 	fprintf(fp, "\n");
    184 	fflush(fp);
    185 	return 0;
    186 }
    187 
    188 void ipmroute_reset_filter(int ifindex)
    189 {
    190 	memset(&filter, 0, sizeof(filter));
    191 	filter.mdst.bitlen = -1;
    192 	filter.msrc.bitlen = -1;
    193 	filter.iif = ifindex;
    194 }
    195 
    196 static int mroute_list(int argc, char **argv)
    197 {
    198 	char *id = NULL;
    199 	int family;
    200 
    201 	ipmroute_reset_filter(0);
    202 	if (preferred_family == AF_UNSPEC)
    203 		family = AF_INET;
    204 	else
    205 		family = AF_INET6;
    206 	if (family == AF_INET) {
    207 		filter.af = RTNL_FAMILY_IPMR;
    208 		filter.tb = RT_TABLE_DEFAULT;  /* for backward compatibility */
    209 	} else
    210 		filter.af = RTNL_FAMILY_IP6MR;
    211 
    212 	while (argc > 0) {
    213 		if (matches(*argv, "table") == 0) {
    214 			__u32 tid;
    215 			NEXT_ARG();
    216 			if (rtnl_rttable_a2n(&tid, *argv)) {
    217 				if (strcmp(*argv, "all") == 0) {
    218 					filter.tb = 0;
    219 				} else if (strcmp(*argv, "help") == 0) {
    220 					usage();
    221 				} else {
    222 					invarg("table id value is invalid\n", *argv);
    223 				}
    224 			} else
    225 				filter.tb = tid;
    226 		} else if (strcmp(*argv, "iif") == 0) {
    227 			NEXT_ARG();
    228 			id = *argv;
    229 		} else if (matches(*argv, "from") == 0) {
    230 			NEXT_ARG();
    231 			get_prefix(&filter.msrc, *argv, family);
    232 		} else {
    233 			if (strcmp(*argv, "to") == 0) {
    234 				NEXT_ARG();
    235 			}
    236 			if (matches(*argv, "help") == 0)
    237 				usage();
    238 			get_prefix(&filter.mdst, *argv, family);
    239 		}
    240 		argc--; argv++;
    241 	}
    242 
    243 	ll_init_map(&rth);
    244 
    245 	if (id)  {
    246 		int idx;
    247 
    248 		if ((idx = ll_name_to_index(id)) == 0) {
    249 			fprintf(stderr, "Cannot find device \"%s\"\n", id);
    250 			return -1;
    251 		}
    252 		filter.iif = idx;
    253 	}
    254 
    255 	if (rtnl_wilddump_request(&rth, filter.af, RTM_GETROUTE) < 0) {
    256 		perror("Cannot send dump request");
    257 		return 1;
    258 	}
    259 
    260 	if (rtnl_dump_filter(&rth, print_mroute, stdout) < 0) {
    261 		fprintf(stderr, "Dump terminated\n");
    262 		exit(1);
    263 	}
    264 
    265 	exit(0);
    266 }
    267 
    268 int do_multiroute(int argc, char **argv)
    269 {
    270 	if (argc < 1)
    271 		return mroute_list(0, NULL);
    272 #if 0
    273 	if (matches(*argv, "add") == 0)
    274 		return mroute_modify(RTM_NEWADDR, argc-1, argv+1);
    275 	if (matches(*argv, "delete") == 0)
    276 		return mroute_modify(RTM_DELADDR, argc-1, argv+1);
    277 	if (matches(*argv, "get") == 0)
    278 		return mroute_get(argc-1, argv+1);
    279 #endif
    280 	if (matches(*argv, "list") == 0 || matches(*argv, "show") == 0
    281 	    || matches(*argv, "lst") == 0)
    282 		return mroute_list(argc-1, argv+1);
    283 	if (matches(*argv, "help") == 0)
    284 		usage();
    285 	fprintf(stderr, "Command \"%s\" is unknown, try \"ip mroute help\".\n", *argv);
    286 	exit(-1);
    287 }
    288