xref: /dragonfly/usr.sbin/ifmcstat/ifmcstat.c (revision c9f721c2) 
1 /*
2  * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
3  * All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. Neither the name of the project nor the names of its contributors
14  *    may be used to endorse or promote products derived from this software
15  *    without specific prior written permission.
16  *
17  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27  * SUCH DAMAGE.
28  *
29  * $FreeBSD: src/usr.sbin/ifmcstat/ifmcstat.c,v 1.3.2.2 2001/07/03 11:02:06 ume Exp $
30  * $DragonFly: src/usr.sbin/ifmcstat/ifmcstat.c,v 1.6 2004/01/06 03:17:22 dillon Exp $
31  */
32 
33 #define _KERNEL_STRUCTURES
34 
35 #include <stdio.h>
36 #include <stdlib.h>
37 #include <fcntl.h>
38 #include <kvm.h>
39 #include <nlist.h>
40 #include <string.h>
41 #include <limits.h>
42 
43 #include <sys/types.h>
44 #include <sys/socket.h>
45 #include <sys/queue.h>
46 
47 #include <net/if.h>
48 #include <net/if_var.h>
49 #include <net/if_types.h>
50 #include <net/if_dl.h>
51 #include <netinet/in.h>
52 #include <netinet/if_ether.h>
53 #include <netinet/in_var.h>
54 #include <arpa/inet.h>
55 
56 #include <netdb.h>
57 
58 kvm_t	*kvmd;
59 
60 struct	nlist nl[] = {
61 #define	N_IFNET	0
62 	{ "_ifnet" },
63 	{ "" },
64 };
65 
66 const char *inet6_n2a(struct in6_addr *);
67 int main(int, char **);
68 char *ifname(struct ifnet *);
69 void kread(u_long, void *, int);
70 void if6_addrlist(struct ifaddr *);
71 void in6_multilist(struct in6_multi *);
72 struct in6_multi * in6_multientry(struct in6_multi *);
73 
74 #define	KREAD(addr, buf, type) \
75 	kread((u_long)addr, (void *)buf, sizeof(type))
76 
77 #ifdef N_IN6_MK
78 struct multi6_kludge {
79 	LIST_ENTRY(multi6_kludge) mk_entry;
80 	struct ifnet *mk_ifp;
81 	struct in6_multihead mk_head;
82 };
83 #endif
84 
85 const char
86 *inet6_n2a(struct in6_addr *p)
87 {
88 	static char buf[NI_MAXHOST];
89 	struct sockaddr_in6 sin6;
90 	u_int32_t scopeid;
91 #ifdef NI_WITHSCOPEID
92 	const int niflags = NI_NUMERICHOST | NI_WITHSCOPEID;
93 #else
94 	const int niflags = NI_NUMERICHOST;
95 #endif
96 
97 	memset(&sin6, 0, sizeof(sin6));
98 	sin6.sin6_family = AF_INET6;
99 	sin6.sin6_len = sizeof(struct sockaddr_in6);
100 	sin6.sin6_addr = *p;
101 	if (IN6_IS_ADDR_LINKLOCAL(p) || IN6_IS_ADDR_MC_LINKLOCAL(p)) {
102 		scopeid = ntohs(*(u_int16_t *)&sin6.sin6_addr.s6_addr[2]);
103 		if (scopeid) {
104 			sin6.sin6_scope_id = scopeid;
105 			sin6.sin6_addr.s6_addr[2] = 0;
106 			sin6.sin6_addr.s6_addr[3] = 0;
107 		}
108 	}
109 	if (getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len,
110 			buf, sizeof(buf), NULL, 0, niflags) == 0)
111 		return buf;
112 	else
113 		return "(invalid)";
114 }
115 
116 int
117 main(int argc __unused, char **argv __unused)
118 {
119 	char	buf[_POSIX2_LINE_MAX], ifname[IFNAMSIZ];
120 	struct	ifnet	*ifp, *nifp, ifnet;
121 	struct	arpcom	arpcom;
122 
123 	if ((kvmd = kvm_openfiles(NULL, NULL, NULL, O_RDONLY, buf)) == NULL) {
124 		perror("kvm_openfiles");
125 		exit(1);
126 	}
127 	if (kvm_nlist(kvmd, nl) < 0) {
128 		perror("kvm_nlist");
129 		exit(1);
130 	}
131 	if (nl[N_IFNET].n_value == 0) {
132 		printf("symbol %s not found\n", nl[N_IFNET].n_name);
133 		exit(1);
134 	}
135 	KREAD(nl[N_IFNET].n_value, &ifp, struct ifnet *);
136 	while (ifp) {
137 		KREAD(ifp, &ifnet, struct ifnet);
138 		printf("%s:\n", if_indextoname(ifnet.if_index, ifname));
139 
140 		if6_addrlist(TAILQ_FIRST(&ifnet.if_addrhead));
141 		nifp = ifnet.if_link.tqe_next;
142 
143 		/* not supported */
144 
145 		ifp = nifp;
146 	}
147 
148 	exit(0);
149 	/*NOTREACHED*/
150 }
151 
152 char
153 *ifname(struct ifnet *ifp)
154 {
155 	static char buf[BUFSIZ];
156 	struct ifnet ifnet;
157 
158 	KREAD(ifp, &ifnet, struct ifnet);
159 	strlcpy(buf, ifnet.if_xname, sizeof(buf));
160 	return buf;
161 }
162 
163 void
164 kread(u_long addr, void *buf, int len)
165 {
166 	if (kvm_read(kvmd, addr, buf, len) != len) {
167 		perror("kvm_read");
168 		exit(1);
169 	}
170 }
171 
172 void
173 if6_addrlist(struct ifaddr *ifap)
174 {
175 	struct ifaddr ifa;
176 	struct sockaddr sa;
177 	struct in6_ifaddr if6a;
178 	struct in6_multi *mc = 0;
179 	struct ifaddr *ifap0;
180 
181 	ifap0 = ifap;
182 	while (ifap) {
183 		KREAD(ifap, &ifa, struct ifaddr);
184 		if (ifa.ifa_addr == NULL)
185 			goto nextifap;
186 		KREAD(ifa.ifa_addr, &sa, struct sockaddr);
187 		if (sa.sa_family != PF_INET6)
188 			goto nextifap;
189 		KREAD(ifap, &if6a, struct in6_ifaddr);
190 		printf("\tinet6 %s\n", inet6_n2a(&if6a.ia_addr.sin6_addr));
191 	nextifap:
192 		ifap = ifa.ifa_link.tqe_next;
193 	}
194 	if (ifap0) {
195 		struct ifnet ifnet;
196 		struct ifmultiaddr ifm, *ifmp = 0;
197 		struct sockaddr_in6 sin6;
198 		struct in6_multi in6m;
199 		struct sockaddr_dl sdl;
200 		int in6_multilist_done = 0;
201 
202 		KREAD(ifap0, &ifa, struct ifaddr);
203 		KREAD(ifa.ifa_ifp, &ifnet, struct ifnet);
204 		if (ifnet.if_multiaddrs.lh_first)
205 			ifmp = ifnet.if_multiaddrs.lh_first;
206 		while (ifmp) {
207 			KREAD(ifmp, &ifm, struct ifmultiaddr);
208 			if (ifm.ifma_addr == NULL)
209 				goto nextmulti;
210 			KREAD(ifm.ifma_addr, &sa, struct sockaddr);
211 			if (sa.sa_family != AF_INET6)
212 				goto nextmulti;
213 			(void)in6_multientry((struct in6_multi *)
214 					     ifm.ifma_protospec);
215 			if (ifm.ifma_lladdr == 0)
216 				goto nextmulti;
217 			KREAD(ifm.ifma_lladdr, &sdl, struct sockaddr_dl);
218 			printf("\t\t\tmcast-macaddr %s multicnt %d\n",
219 			       ether_ntoa((struct ether_addr *)LLADDR(&sdl)),
220 			       ifm.ifma_refcount);
221 		    nextmulti:
222 			ifmp = ifm.ifma_link.le_next;
223 		}
224 	}
225 #ifdef N_IN6_MK
226 	if (nl[N_IN6_MK].n_value != 0) {
227 		LIST_HEAD(in6_mktype, multi6_kludge) in6_mk;
228 		struct multi6_kludge *mkp, mk;
229 		char *nam;
230 
231 		KREAD(nl[N_IN6_MK].n_value, &in6_mk, struct in6_mktype);
232 		KREAD(ifap0, &ifa, struct ifaddr);
233 
234 		nam = strdup(ifname(ifa.ifa_ifp));
235 		if (!nam) {
236 			fprintf(stderr, "ifmcstat: not enough core\n");
237 			exit(1);
238 		}
239 
240 		for (mkp = in6_mk.lh_first; mkp; mkp = mk.mk_entry.le_next) {
241 			KREAD(mkp, &mk, struct multi6_kludge);
242 			if (strcmp(nam, ifname(mk.mk_ifp)) == 0 &&
243 			    mk.mk_head.lh_first) {
244 				printf("\t(on kludge entry for %s)\n", nam);
245 				in6_multilist(mk.mk_head.lh_first);
246 			}
247 		}
248 
249 		free(nam);
250 	}
251 #endif
252 }
253 
254 struct in6_multi *
255 in6_multientry(struct in6_multi *mc)
256 {
257 	struct in6_multi multi;
258 
259 	KREAD(mc, &multi, struct in6_multi);
260 	printf("\t\tgroup %s", inet6_n2a(&multi.in6m_addr));
261 	printf(" refcnt %u\n", multi.in6m_refcount);
262 	return(multi.in6m_entry.le_next);
263 }
264 
265 void
266 in6_multilist(struct in6_multi *mc)
267 {
268 	while (mc)
269 		mc = in6_multientry(mc);
270 }
271