1 /* $KAME: ifmcstat.c,v 1.48 2006/11/15 05:13:59 itojun Exp $ */ 2 3 /* 4 * Copyright (c) 2007-2009 Bruce Simpson. 5 * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project. 6 * All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 3. Neither the name of the project nor the names of its contributors 17 * may be used to endorse or promote products derived from this software 18 * without specific prior written permission. 19 * 20 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND 21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 23 * ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE 24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 30 * SUCH DAMAGE. 31 */ 32 33 #include <sys/cdefs.h> 34 __FBSDID("$FreeBSD$"); 35 36 #include <sys/types.h> 37 #include <sys/param.h> 38 #include <sys/sysctl.h> 39 #include <sys/socket.h> 40 #include <sys/queue.h> 41 #include <sys/tree.h> 42 43 #include <net/if.h> 44 #include <net/if_var.h> 45 #include <net/if_types.h> 46 #include <net/if_dl.h> 47 #include <net/route.h> 48 49 #include <netinet/in.h> 50 #include <netinet/in_var.h> 51 #include <netinet/in_systm.h> 52 #include <netinet/ip.h> 53 #include <netinet/igmp.h> 54 #define KERNEL 55 # include <netinet/if_ether.h> 56 #undef KERNEL 57 #define _KERNEL 58 #define SYSCTL_DECL(x) 59 # include <netinet/igmp_var.h> 60 #undef SYSCTL_DECL 61 #undef _KERNEL 62 63 #ifdef INET6 64 #include <netinet/icmp6.h> 65 #define _KERNEL 66 # include <netinet6/mld6_var.h> 67 #undef _KERNEL 68 #endif /* INET6 */ 69 70 #include <arpa/inet.h> 71 #include <netdb.h> 72 73 #include <stddef.h> 74 #include <stdarg.h> 75 #include <stdlib.h> 76 #include <stdint.h> 77 #include <stdio.h> 78 #include <stdlib.h> 79 #include <string.h> 80 81 #include <ctype.h> 82 #include <err.h> 83 #include <errno.h> 84 #include <fcntl.h> 85 #include <kvm.h> 86 #include <limits.h> 87 #include <ifaddrs.h> 88 #include <nlist.h> 89 #include <sysexits.h> 90 #include <unistd.h> 91 92 /* XXX: This file currently assumes INET and KVM support in the base system. */ 93 #ifndef INET 94 #define INET 95 #endif 96 97 extern void printb(const char *, unsigned int, const char *); 98 99 union sockunion { 100 struct sockaddr_storage ss; 101 struct sockaddr sa; 102 struct sockaddr_dl sdl; 103 #ifdef INET 104 struct sockaddr_in sin; 105 #endif 106 #ifdef INET6 107 struct sockaddr_in6 sin6; 108 #endif 109 }; 110 typedef union sockunion sockunion_t; 111 112 uint32_t ifindex = 0; 113 int af = AF_UNSPEC; 114 #ifdef WITH_KVM 115 int Kflag = 0; 116 #endif 117 int vflag = 0; 118 119 #define sa_equal(a1, a2) \ 120 (bcmp((a1), (a2), ((a1))->sa_len) == 0) 121 122 #define sa_dl_equal(a1, a2) \ 123 ((((struct sockaddr_dl *)(a1))->sdl_len == \ 124 ((struct sockaddr_dl *)(a2))->sdl_len) && \ 125 (bcmp(LLADDR((struct sockaddr_dl *)(a1)), \ 126 LLADDR((struct sockaddr_dl *)(a2)), \ 127 ((struct sockaddr_dl *)(a1))->sdl_alen) == 0)) 128 129 /* 130 * Most of the code in this utility is to support the use of KVM for 131 * post-mortem debugging of the multicast code. 132 */ 133 #ifdef WITH_KVM 134 135 #ifdef INET 136 static void if_addrlist(struct ifaddr *); 137 static struct in_multi * 138 in_multientry(struct in_multi *); 139 #endif /* INET */ 140 141 #ifdef INET6 142 static void if6_addrlist(struct ifaddr *); 143 static struct in6_multi * 144 in6_multientry(struct in6_multi *); 145 #endif /* INET6 */ 146 147 static void kread(u_long, void *, int); 148 static void ll_addrlist(struct ifaddr *); 149 150 static int ifmcstat_kvm(const char *kernel, const char *core); 151 152 #define KREAD(addr, buf, type) \ 153 kread((u_long)addr, (void *)buf, sizeof(type)) 154 155 kvm_t *kvmd; 156 struct nlist nl[] = { 157 { "_ifnet", 0, 0, 0, 0, }, 158 { "", 0, 0, 0, 0, }, 159 }; 160 #define N_IFNET 0 161 162 #endif /* WITH_KVM */ 163 164 static int ifmcstat_getifmaddrs(void); 165 #ifdef INET 166 static void in_ifinfo(struct igmp_ifinfo *); 167 static const char * inm_mode(u_int mode); 168 #endif 169 #ifdef INET6 170 static const char * inet6_n2a(struct in6_addr *); 171 #endif 172 int main(int, char **); 173 174 static void 175 usage() 176 { 177 178 fprintf(stderr, 179 "usage: ifmcstat [-i interface] [-f address family]" 180 " [-v]" 181 #ifdef WITH_KVM 182 " [-K] [-M core] [-N system]" 183 #endif 184 "\n"); 185 exit(EX_USAGE); 186 } 187 188 static const char *options = "i:f:vM:N:" 189 #ifdef WITH_KVM 190 "K" 191 #endif 192 ; 193 194 int 195 main(int argc, char **argv) 196 { 197 int c, error; 198 #ifdef WITH_KVM 199 const char *kernel = NULL; 200 const char *core = NULL; 201 #endif 202 203 while ((c = getopt(argc, argv, options)) != -1) { 204 switch (c) { 205 case 'i': 206 if ((ifindex = if_nametoindex(optarg)) == 0) { 207 fprintf(stderr, "%s: unknown interface\n", 208 optarg); 209 exit(EX_NOHOST); 210 } 211 break; 212 213 case 'f': 214 #ifdef INET 215 if (strcmp(optarg, "inet") == 0) { 216 af = AF_INET; 217 break; 218 } 219 #endif 220 #ifdef INET6 221 if (strcmp(optarg, "inet6") == 0) { 222 af = AF_INET6; 223 break; 224 } 225 #endif 226 if (strcmp(optarg, "link") == 0) { 227 af = AF_LINK; 228 break; 229 } 230 fprintf(stderr, "%s: unknown address family\n", optarg); 231 exit(EX_USAGE); 232 /*NOTREACHED*/ 233 break; 234 235 #ifdef WITH_KVM 236 case 'K': 237 ++Kflag; 238 break; 239 #endif 240 241 case 'v': 242 ++vflag; 243 break; 244 245 #ifdef WITH_KVM 246 case 'M': 247 core = strdup(optarg); 248 break; 249 250 case 'N': 251 kernel = strdup(optarg); 252 break; 253 #endif 254 255 default: 256 usage(); 257 break; 258 /*NOTREACHED*/ 259 } 260 } 261 262 if (af == AF_LINK && vflag) 263 usage(); 264 265 #ifdef WITH_KVM 266 if (!Kflag) 267 error = ifmcstat_kvm(kernel, core); 268 /* 269 * If KVM failed, and user did not explicitly specify a core file, 270 * or force KVM backend to be disabled, try the sysctl backend. 271 */ 272 if (Kflag || (error != 0 && (core == NULL && kernel == NULL))) 273 #endif 274 error = ifmcstat_getifmaddrs(); 275 if (error != 0) 276 exit(EX_OSERR); 277 278 exit(EX_OK); 279 /*NOTREACHED*/ 280 } 281 282 #ifdef INET 283 284 static void 285 in_ifinfo(struct igmp_ifinfo *igi) 286 { 287 288 printf("\t"); 289 switch (igi->igi_version) { 290 case IGMP_VERSION_1: 291 case IGMP_VERSION_2: 292 case IGMP_VERSION_3: 293 printf("igmpv%d", igi->igi_version); 294 break; 295 default: 296 printf("igmpv?(%d)", igi->igi_version); 297 break; 298 } 299 printb(" flags", igi->igi_flags, "\020\1SILENT\2LOOPBACK"); 300 if (igi->igi_version == IGMP_VERSION_3) { 301 printf(" rv %u qi %u qri %u uri %u", 302 igi->igi_rv, igi->igi_qi, igi->igi_qri, igi->igi_uri); 303 } 304 if (vflag >= 2) { 305 printf(" v1timer %u v2timer %u v3timer %u", 306 igi->igi_v1_timer, igi->igi_v2_timer, igi->igi_v3_timer); 307 } 308 printf("\n"); 309 } 310 311 static const char *inm_modes[] = { 312 "undefined", 313 "include", 314 "exclude", 315 }; 316 317 static const char * 318 inm_mode(u_int mode) 319 { 320 321 if (mode >= MCAST_UNDEFINED && mode <= MCAST_EXCLUDE) 322 return (inm_modes[mode]); 323 return (NULL); 324 } 325 326 #endif /* INET */ 327 328 #ifdef WITH_KVM 329 330 static int 331 ifmcstat_kvm(const char *kernel, const char *core) 332 { 333 char buf[_POSIX2_LINE_MAX], ifname[IFNAMSIZ]; 334 struct ifnet *ifp, *nifp, ifnet; 335 336 if ((kvmd = kvm_openfiles(kernel, core, NULL, O_RDONLY, buf)) == 337 NULL) { 338 perror("kvm_openfiles"); 339 return (-1); 340 } 341 if (kvm_nlist(kvmd, nl) < 0) { 342 perror("kvm_nlist"); 343 return (-1); 344 } 345 if (nl[N_IFNET].n_value == 0) { 346 printf("symbol %s not found\n", nl[N_IFNET].n_name); 347 return (-1); 348 } 349 KREAD(nl[N_IFNET].n_value, &ifp, struct ifnet *); 350 while (ifp) { 351 KREAD(ifp, &ifnet, struct ifnet); 352 nifp = ifnet.if_link.tqe_next; 353 if (ifindex && ifindex != ifnet.if_index) 354 goto next; 355 356 printf("%s:\n", if_indextoname(ifnet.if_index, ifname)); 357 #ifdef INET 358 if_addrlist(TAILQ_FIRST(&ifnet.if_addrhead)); 359 #endif 360 #ifdef INET6 361 if6_addrlist(TAILQ_FIRST(&ifnet.if_addrhead)); 362 #endif 363 if (vflag) 364 ll_addrlist(TAILQ_FIRST(&ifnet.if_addrhead)); 365 next: 366 ifp = nifp; 367 } 368 369 return (0); 370 } 371 372 static void 373 kread(u_long addr, void *buf, int len) 374 { 375 376 if (kvm_read(kvmd, addr, buf, len) != len) { 377 perror("kvm_read"); 378 exit(EX_OSERR); 379 } 380 } 381 382 static void 383 ll_addrlist(struct ifaddr *ifap) 384 { 385 char addrbuf[NI_MAXHOST]; 386 struct ifaddr ifa; 387 struct sockaddr sa; 388 struct sockaddr_dl sdl; 389 struct ifaddr *ifap0; 390 int error; 391 392 if (af && af != AF_LINK) 393 return; 394 395 ifap0 = ifap; 396 while (ifap) { 397 KREAD(ifap, &ifa, struct ifaddr); 398 if (ifa.ifa_addr == NULL) 399 goto nextifap; 400 KREAD(ifa.ifa_addr, &sa, struct sockaddr); 401 if (sa.sa_family != PF_LINK) 402 goto nextifap; 403 KREAD(ifa.ifa_addr, &sdl, struct sockaddr_dl); 404 if (sdl.sdl_alen == 0) 405 goto nextifap; 406 addrbuf[0] = '\0'; 407 error = getnameinfo((struct sockaddr *)&sdl, sdl.sdl_len, 408 addrbuf, sizeof(addrbuf), NULL, 0, NI_NUMERICHOST); 409 printf("\tlink %s\n", addrbuf); 410 nextifap: 411 ifap = ifa.ifa_link.tqe_next; 412 } 413 if (ifap0) { 414 struct ifnet ifnet; 415 struct ifmultiaddr ifm, *ifmp = 0; 416 417 KREAD(ifap0, &ifa, struct ifaddr); 418 KREAD(ifa.ifa_ifp, &ifnet, struct ifnet); 419 if (TAILQ_FIRST(&ifnet.if_multiaddrs)) 420 ifmp = TAILQ_FIRST(&ifnet.if_multiaddrs); 421 while (ifmp) { 422 KREAD(ifmp, &ifm, struct ifmultiaddr); 423 if (ifm.ifma_addr == NULL) 424 goto nextmulti; 425 KREAD(ifm.ifma_addr, &sa, struct sockaddr); 426 if (sa.sa_family != AF_LINK) 427 goto nextmulti; 428 KREAD(ifm.ifma_addr, &sdl, struct sockaddr_dl); 429 addrbuf[0] = '\0'; 430 error = getnameinfo((struct sockaddr *)&sdl, 431 sdl.sdl_len, addrbuf, sizeof(addrbuf), 432 NULL, 0, NI_NUMERICHOST); 433 printf("\t\tgroup %s refcnt %d\n", 434 addrbuf, ifm.ifma_refcount); 435 nextmulti: 436 ifmp = TAILQ_NEXT(&ifm, ifma_link); 437 } 438 } 439 } 440 441 #ifdef INET6 442 443 static void 444 if6_addrlist(struct ifaddr *ifap) 445 { 446 struct ifaddr ifa; 447 struct sockaddr sa; 448 struct in6_ifaddr if6a; 449 struct ifaddr *ifap0; 450 451 if (af && af != AF_INET6) 452 return; 453 ifap0 = ifap; 454 while (ifap) { 455 KREAD(ifap, &ifa, struct ifaddr); 456 if (ifa.ifa_addr == NULL) 457 goto nextifap; 458 KREAD(ifa.ifa_addr, &sa, struct sockaddr); 459 if (sa.sa_family != PF_INET6) 460 goto nextifap; 461 KREAD(ifap, &if6a, struct in6_ifaddr); 462 printf("\tinet6 %s\n", inet6_n2a(&if6a.ia_addr.sin6_addr)); 463 nextifap: 464 ifap = ifa.ifa_link.tqe_next; 465 } 466 if (ifap0) { 467 struct ifnet ifnet; 468 struct ifmultiaddr ifm, *ifmp = 0; 469 struct sockaddr_dl sdl; 470 471 KREAD(ifap0, &ifa, struct ifaddr); 472 KREAD(ifa.ifa_ifp, &ifnet, struct ifnet); 473 if (TAILQ_FIRST(&ifnet.if_multiaddrs)) 474 ifmp = TAILQ_FIRST(&ifnet.if_multiaddrs); 475 while (ifmp) { 476 KREAD(ifmp, &ifm, struct ifmultiaddr); 477 if (ifm.ifma_addr == NULL) 478 goto nextmulti; 479 KREAD(ifm.ifma_addr, &sa, struct sockaddr); 480 if (sa.sa_family != AF_INET6) 481 goto nextmulti; 482 (void)in6_multientry((struct in6_multi *) 483 ifm.ifma_protospec); 484 if (ifm.ifma_lladdr == 0) 485 goto nextmulti; 486 KREAD(ifm.ifma_lladdr, &sdl, struct sockaddr_dl); 487 printf("\t\t\tmcast-macaddr %s refcnt %d\n", 488 ether_ntoa((struct ether_addr *)LLADDR(&sdl)), 489 ifm.ifma_refcount); 490 nextmulti: 491 ifmp = TAILQ_NEXT(&ifm, ifma_link); 492 } 493 } 494 } 495 496 static struct in6_multi * 497 in6_multientry(struct in6_multi *mc) 498 { 499 struct in6_multi multi; 500 501 KREAD(mc, &multi, struct in6_multi); 502 printf("\t\tgroup %s", inet6_n2a(&multi.in6m_addr)); 503 printf(" refcnt %u\n", multi.in6m_refcount); 504 505 return (multi.in6m_entry.le_next); 506 } 507 508 #endif /* INET6 */ 509 510 #ifdef INET 511 512 static void 513 if_addrlist(struct ifaddr *ifap) 514 { 515 struct ifaddr ifa; 516 struct ifnet ifnet; 517 struct sockaddr sa; 518 struct in_ifaddr ia; 519 struct ifaddr *ifap0; 520 521 if (af && af != AF_INET) 522 return; 523 ifap0 = ifap; 524 while (ifap) { 525 KREAD(ifap, &ifa, struct ifaddr); 526 if (ifa.ifa_addr == NULL) 527 goto nextifap; 528 KREAD(ifa.ifa_addr, &sa, struct sockaddr); 529 if (sa.sa_family != PF_INET) 530 goto nextifap; 531 KREAD(ifap, &ia, struct in_ifaddr); 532 printf("\tinet %s\n", inet_ntoa(ia.ia_addr.sin_addr)); 533 /* 534 * Print per-link IGMP information, if available. 535 */ 536 if (ifa.ifa_ifp != NULL) { 537 struct in_ifinfo ii; 538 struct igmp_ifinfo igi; 539 540 KREAD(ifa.ifa_ifp, &ifnet, struct ifnet); 541 KREAD(ifnet.if_afdata[AF_INET], &ii, struct in_ifinfo); 542 if (ii.ii_igmp != NULL) { 543 KREAD(ii.ii_igmp, &igi, struct igmp_ifinfo); 544 in_ifinfo(&igi); 545 } 546 } 547 nextifap: 548 ifap = ifa.ifa_link.tqe_next; 549 } 550 if (ifap0) { 551 struct ifmultiaddr ifm, *ifmp = 0; 552 struct sockaddr_dl sdl; 553 554 KREAD(ifap0, &ifa, struct ifaddr); 555 KREAD(ifa.ifa_ifp, &ifnet, struct ifnet); 556 if (TAILQ_FIRST(&ifnet.if_multiaddrs)) 557 ifmp = TAILQ_FIRST(&ifnet.if_multiaddrs); 558 while (ifmp) { 559 KREAD(ifmp, &ifm, struct ifmultiaddr); 560 if (ifm.ifma_addr == NULL) 561 goto nextmulti; 562 KREAD(ifm.ifma_addr, &sa, struct sockaddr); 563 if (sa.sa_family != AF_INET) 564 goto nextmulti; 565 (void)in_multientry((struct in_multi *) 566 ifm.ifma_protospec); 567 if (ifm.ifma_lladdr == 0) 568 goto nextmulti; 569 KREAD(ifm.ifma_lladdr, &sdl, struct sockaddr_dl); 570 printf("\t\t\tmcast-macaddr %s refcnt %d\n", 571 ether_ntoa((struct ether_addr *)LLADDR(&sdl)), 572 ifm.ifma_refcount); 573 nextmulti: 574 ifmp = TAILQ_NEXT(&ifm, ifma_link); 575 } 576 } 577 } 578 579 static const char *inm_states[] = { 580 "not-member", 581 "silent", 582 "idle", 583 "lazy", 584 "sleeping", 585 "awakening", 586 "query-pending", 587 "sg-query-pending", 588 "leaving" 589 }; 590 591 static const char * 592 inm_state(u_int state) 593 { 594 595 if (state >= IGMP_NOT_MEMBER && state <= IGMP_LEAVING_MEMBER) 596 return (inm_states[state]); 597 return (NULL); 598 } 599 600 #if 0 601 static struct ip_msource * 602 ims_min_kvm(struct in_multi *pinm) 603 { 604 struct ip_msource ims0; 605 struct ip_msource *tmp, *parent; 606 607 parent = NULL; 608 tmp = RB_ROOT(&pinm->inm_srcs); 609 while (tmp) { 610 parent = tmp; 611 KREAD(tmp, &ims0, struct ip_msource); 612 tmp = RB_LEFT(&ims0, ims_link); 613 } 614 return (parent); /* kva */ 615 } 616 617 /* XXX This routine is buggy. See RB_NEXT in sys/tree.h. */ 618 static struct ip_msource * 619 ims_next_kvm(struct ip_msource *ims) 620 { 621 struct ip_msource ims0, ims1; 622 struct ip_msource *tmp; 623 624 KREAD(ims, &ims0, struct ip_msource); 625 if (RB_RIGHT(&ims0, ims_link)) { 626 ims = RB_RIGHT(&ims0, ims_link); 627 KREAD(ims, &ims1, struct ip_msource); 628 while ((tmp = RB_LEFT(&ims1, ims_link))) { 629 KREAD(tmp, &ims0, struct ip_msource); 630 ims = RB_LEFT(&ims0, ims_link); 631 } 632 } else { 633 tmp = RB_PARENT(&ims0, ims_link); 634 if (tmp) { 635 KREAD(tmp, &ims1, struct ip_msource); 636 if (ims == RB_LEFT(&ims1, ims_link)) 637 ims = tmp; 638 } else { 639 while ((tmp = RB_PARENT(&ims0, ims_link))) { 640 KREAD(tmp, &ims1, struct ip_msource); 641 if (ims == RB_RIGHT(&ims1, ims_link)) { 642 ims = tmp; 643 KREAD(ims, &ims0, struct ip_msource); 644 } else 645 break; 646 } 647 ims = RB_PARENT(&ims0, ims_link); 648 } 649 } 650 return (ims); /* kva */ 651 } 652 653 static void 654 inm_print_sources_kvm(struct in_multi *pinm) 655 { 656 struct ip_msource ims0; 657 struct ip_msource *ims; 658 struct in_addr src; 659 int cnt; 660 uint8_t fmode; 661 662 cnt = 0; 663 fmode = pinm->inm_st[1].iss_fmode; 664 if (fmode == MCAST_UNDEFINED) 665 return; 666 for (ims = ims_min_kvm(pinm); ims != NULL; ims = ims_next_kvm(ims)) { 667 if (cnt == 0) 668 printf(" srcs "); 669 KREAD(ims, &ims0, struct ip_msource); 670 /* Only print sources in-mode at t1. */ 671 if (fmode != ims_get_mode(pinm, ims, 1)) 672 continue; 673 src.s_addr = htonl(ims0.ims_haddr); 674 printf("%s%s", (cnt++ == 0 ? "" : ","), inet_ntoa(src)); 675 } 676 } 677 #endif 678 679 static struct in_multi * 680 in_multientry(struct in_multi *pinm) 681 { 682 struct in_multi inm; 683 const char *state, *mode; 684 685 KREAD(pinm, &inm, struct in_multi); 686 printf("\t\tgroup %s", inet_ntoa(inm.inm_addr)); 687 printf(" refcnt %u", inm.inm_refcount); 688 689 state = inm_state(inm.inm_state); 690 if (state) 691 printf(" state %s", state); 692 else 693 printf(" state (%d)", inm.inm_state); 694 695 mode = inm_mode(inm.inm_st[1].iss_fmode); 696 if (mode) 697 printf(" mode %s", mode); 698 else 699 printf(" mode (%d)", inm.inm_st[1].iss_fmode); 700 701 if (vflag >= 2) { 702 printf(" asm %u ex %u in %u rec %u", 703 (u_int)inm.inm_st[1].iss_asm, 704 (u_int)inm.inm_st[1].iss_ex, 705 (u_int)inm.inm_st[1].iss_in, 706 (u_int)inm.inm_st[1].iss_rec); 707 } 708 709 #if 0 710 /* Buggy. */ 711 if (vflag) 712 inm_print_sources_kvm(&inm); 713 #endif 714 715 printf("\n"); 716 return (NULL); 717 } 718 719 #endif /* INET */ 720 721 #endif /* WITH_KVM */ 722 723 #ifdef INET6 724 static const char * 725 inet6_n2a(struct in6_addr *p) 726 { 727 static char buf[NI_MAXHOST]; 728 struct sockaddr_in6 sin6; 729 u_int32_t scopeid; 730 const int niflags = NI_NUMERICHOST; 731 732 memset(&sin6, 0, sizeof(sin6)); 733 sin6.sin6_family = AF_INET6; 734 sin6.sin6_len = sizeof(struct sockaddr_in6); 735 sin6.sin6_addr = *p; 736 if (IN6_IS_ADDR_LINKLOCAL(p) || IN6_IS_ADDR_MC_LINKLOCAL(p) || 737 IN6_IS_ADDR_MC_NODELOCAL(p)) { 738 scopeid = ntohs(*(u_int16_t *)&sin6.sin6_addr.s6_addr[2]); 739 if (scopeid) { 740 sin6.sin6_scope_id = scopeid; 741 sin6.sin6_addr.s6_addr[2] = 0; 742 sin6.sin6_addr.s6_addr[3] = 0; 743 } 744 } 745 if (getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len, 746 buf, sizeof(buf), NULL, 0, niflags) == 0) { 747 return (buf); 748 } else { 749 return ("(invalid)"); 750 } 751 } 752 #endif /* INET6 */ 753 754 #ifdef INET 755 /* 756 * Retrieve per-group source filter mode and lists via sysctl. 757 */ 758 static void 759 inm_print_sources_sysctl(uint32_t ifindex, struct in_addr gina) 760 { 761 #define MAX_SYSCTL_TRY 5 762 int mib[7]; 763 int ntry = 0; 764 size_t mibsize; 765 size_t len; 766 size_t needed; 767 size_t cnt; 768 int i; 769 char *buf; 770 struct in_addr *pina; 771 uint32_t *p; 772 uint32_t fmode; 773 const char *modestr; 774 775 mibsize = sizeof(mib) / sizeof(mib[0]); 776 if (sysctlnametomib("net.inet.ip.mcast.filters", mib, &mibsize) == -1) { 777 perror("sysctlnametomib"); 778 return; 779 } 780 781 needed = 0; 782 mib[5] = ifindex; 783 mib[6] = gina.s_addr; /* 32 bits wide */ 784 mibsize = sizeof(mib) / sizeof(mib[0]); 785 do { 786 if (sysctl(mib, mibsize, NULL, &needed, NULL, 0) == -1) { 787 perror("sysctl net.inet.ip.mcast.filters"); 788 return; 789 } 790 if ((buf = malloc(needed)) == NULL) { 791 perror("malloc"); 792 return; 793 } 794 if (sysctl(mib, mibsize, buf, &needed, NULL, 0) == -1) { 795 if (errno != ENOMEM || ++ntry >= MAX_SYSCTL_TRY) { 796 perror("sysctl"); 797 goto out_free; 798 } 799 free(buf); 800 buf = NULL; 801 } 802 } while (buf == NULL); 803 804 len = needed; 805 if (len < sizeof(uint32_t)) { 806 perror("sysctl"); 807 goto out_free; 808 } 809 810 p = (uint32_t *)buf; 811 fmode = *p++; 812 len -= sizeof(uint32_t); 813 814 modestr = inm_mode(fmode); 815 if (modestr) 816 printf(" mode %s", modestr); 817 else 818 printf(" mode (%u)", fmode); 819 820 if (vflag == 0) 821 goto out_free; 822 823 cnt = len / sizeof(struct in_addr); 824 pina = (struct in_addr *)p; 825 826 for (i = 0; i < cnt; i++) { 827 if (i == 0) 828 printf(" srcs "); 829 fprintf(stdout, "%s%s", (i == 0 ? "" : ","), 830 inet_ntoa(*pina++)); 831 len -= sizeof(struct in_addr); 832 } 833 if (len > 0) { 834 fprintf(stderr, "warning: %u trailing bytes from %s\n", 835 (unsigned int)len, "net.inet.ip.mcast.filters"); 836 } 837 838 out_free: 839 free(buf); 840 #undef MAX_SYSCTL_TRY 841 } 842 843 #endif /* INET */ 844 845 static int 846 ifmcstat_getifmaddrs(void) 847 { 848 char thisifname[IFNAMSIZ]; 849 char addrbuf[NI_MAXHOST]; 850 struct ifaddrs *ifap, *ifa; 851 struct ifmaddrs *ifmap, *ifma; 852 sockunion_t lastifasa; 853 sockunion_t *psa, *pgsa, *pllsa, *pifasa; 854 char *pcolon; 855 char *pafname; 856 uint32_t lastifindex, thisifindex; 857 int error; 858 859 error = 0; 860 ifap = NULL; 861 ifmap = NULL; 862 lastifindex = 0; 863 thisifindex = 0; 864 lastifasa.ss.ss_family = AF_UNSPEC; 865 866 if (getifaddrs(&ifap) != 0) { 867 warn("getifmaddrs"); 868 return (-1); 869 } 870 871 if (getifmaddrs(&ifmap) != 0) { 872 warn("getifmaddrs"); 873 error = -1; 874 goto out; 875 } 876 877 for (ifma = ifmap; ifma; ifma = ifma->ifma_next) { 878 error = 0; 879 if (ifma->ifma_name == NULL || ifma->ifma_addr == NULL) 880 continue; 881 882 psa = (sockunion_t *)ifma->ifma_name; 883 if (psa->sa.sa_family != AF_LINK) { 884 fprintf(stderr, 885 "WARNING: Kernel returned invalid data.\n"); 886 error = -1; 887 break; 888 } 889 890 /* Filter on interface name. */ 891 thisifindex = psa->sdl.sdl_index; 892 if (ifindex != 0 && thisifindex != ifindex) 893 continue; 894 895 /* Filter on address family. */ 896 pgsa = (sockunion_t *)ifma->ifma_addr; 897 if (af != 0 && pgsa->sa.sa_family != af) 898 continue; 899 900 strlcpy(thisifname, link_ntoa(&psa->sdl), IFNAMSIZ); 901 pcolon = strchr(thisifname, ':'); 902 if (pcolon) 903 *pcolon = '\0'; 904 905 /* Only print the banner for the first ifmaddrs entry. */ 906 if (lastifindex == 0 || lastifindex != thisifindex) { 907 lastifindex = thisifindex; 908 fprintf(stdout, "%s:\n", thisifname); 909 } 910 911 /* 912 * Currently, multicast joins only take place on the 913 * primary IPv4 address, and only on the link-local IPv6 914 * address, as per IGMPv2/3 and MLDv1/2 semantics. 915 * Therefore, we only look up the primary address on 916 * the first pass. 917 */ 918 pifasa = NULL; 919 for (ifa = ifap; ifa; ifa = ifa->ifa_next) { 920 if ((strcmp(ifa->ifa_name, thisifname) != 0) || 921 (ifa->ifa_addr == NULL) || 922 (ifa->ifa_addr->sa_family != pgsa->sa.sa_family)) 923 continue; 924 /* 925 * For AF_INET6 only the link-local address should 926 * be returned. If built without IPv6 support, 927 * skip this address entirely. 928 */ 929 pifasa = (sockunion_t *)ifa->ifa_addr; 930 if (pifasa->sa.sa_family == AF_INET6 931 #ifdef INET6 932 && !IN6_IS_ADDR_LINKLOCAL(&pifasa->sin6.sin6_addr) 933 #endif 934 ) { 935 pifasa = NULL; 936 continue; 937 } 938 break; 939 } 940 if (pifasa == NULL) 941 continue; /* primary address not found */ 942 943 if (!vflag && pifasa->sa.sa_family == AF_LINK) 944 continue; 945 946 /* Parse and print primary address, if not already printed. */ 947 if (lastifasa.ss.ss_family == AF_UNSPEC || 948 ((lastifasa.ss.ss_family == AF_LINK && 949 !sa_dl_equal(&lastifasa.sa, &pifasa->sa)) || 950 !sa_equal(&lastifasa.sa, &pifasa->sa))) { 951 952 switch (pifasa->sa.sa_family) { 953 case AF_INET: 954 pafname = "inet"; 955 break; 956 case AF_INET6: 957 pafname = "inet6"; 958 break; 959 case AF_LINK: 960 pafname = "link"; 961 break; 962 default: 963 pafname = "unknown"; 964 break; 965 } 966 967 switch (pifasa->sa.sa_family) { 968 case AF_INET6: 969 #ifdef INET6 970 { 971 const char *p = 972 inet6_n2a(&pifasa->sin6.sin6_addr); 973 strlcpy(addrbuf, p, sizeof(addrbuf)); 974 break; 975 } 976 #else 977 /* FALLTHROUGH */ 978 #endif 979 case AF_INET: 980 case AF_LINK: 981 error = getnameinfo(&pifasa->sa, 982 pifasa->sa.sa_len, 983 addrbuf, sizeof(addrbuf), NULL, 0, 984 NI_NUMERICHOST); 985 if (error) 986 perror("getnameinfo"); 987 break; 988 default: 989 addrbuf[0] = '\0'; 990 break; 991 } 992 993 fprintf(stdout, "\t%s %s\n", pafname, addrbuf); 994 #ifdef INET 995 /* 996 * Print per-link IGMP information, if available. 997 */ 998 if (pifasa->sa.sa_family == AF_INET) { 999 struct igmp_ifinfo igi; 1000 size_t mibsize, len; 1001 int mib[5]; 1002 1003 mibsize = sizeof(mib) / sizeof(mib[0]); 1004 if (sysctlnametomib("net.inet.igmp.ifinfo", 1005 mib, &mibsize) == -1) { 1006 perror("sysctlnametomib"); 1007 goto next_ifnet; 1008 } 1009 mib[mibsize] = thisifindex; 1010 len = sizeof(struct igmp_ifinfo); 1011 if (sysctl(mib, mibsize + 1, &igi, &len, NULL, 1012 0) == -1) { 1013 perror("sysctl net.inet.igmp.ifinfo"); 1014 goto next_ifnet; 1015 } 1016 in_ifinfo(&igi); 1017 } 1018 next_ifnet: 1019 #endif 1020 lastifasa = *pifasa; 1021 } 1022 1023 /* Print this group address. */ 1024 #ifdef INET6 1025 if (pgsa->sa.sa_family == AF_INET6) { 1026 const char *p = inet6_n2a(&pgsa->sin6.sin6_addr); 1027 strlcpy(addrbuf, p, sizeof(addrbuf)); 1028 } else 1029 #endif 1030 { 1031 error = getnameinfo(&pgsa->sa, pgsa->sa.sa_len, 1032 addrbuf, sizeof(addrbuf), NULL, 0, NI_NUMERICHOST); 1033 if (error) 1034 perror("getnameinfo"); 1035 } 1036 1037 fprintf(stdout, "\t\tgroup %s", addrbuf); 1038 #ifdef INET 1039 if (pgsa->sa.sa_family == AF_INET) { 1040 inm_print_sources_sysctl(thisifindex, 1041 pgsa->sin.sin_addr); 1042 } 1043 #endif 1044 fprintf(stdout, "\n"); 1045 1046 /* Link-layer mapping, if present. */ 1047 pllsa = (sockunion_t *)ifma->ifma_lladdr; 1048 if (pllsa != NULL) { 1049 error = getnameinfo(&pllsa->sa, pllsa->sa.sa_len, 1050 addrbuf, sizeof(addrbuf), NULL, 0, NI_NUMERICHOST); 1051 fprintf(stdout, "\t\t\tmcast-macaddr %s\n", addrbuf); 1052 } 1053 } 1054 out: 1055 if (ifmap != NULL) 1056 freeifmaddrs(ifmap); 1057 if (ifap != NULL) 1058 freeifaddrs(ifap); 1059 1060 return (error); 1061 } 1062