usr.sbin/ndp/ndp.c

   1 /*      $FreeBSD$       */
   2 /*      $KAME: ndp.c,v 1.46 2000/10/09 09:17:10 sumikawa Exp $  */
   3
   4 /*
   5  * Copyright (C) 1995, 1996, 1997, 1998, and 1999 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  * Copyright (c) 1984, 1993
  34  *      The Regents of the University of California.  All rights reserved.
  35  *
  36  * This code is derived from software contributed to Berkeley by
  37  * Sun Microsystems, Inc.
  38  *
  39  * Redistribution and use in source and binary forms, with or without
  40  * modification, are permitted provided that the following conditions
  41  * are met:
  42  * 1. Redistributions of source code must retain the above copyright
  43  *    notice, this list of conditions and the following disclaimer.
  44  * 2. Redistributions in binary form must reproduce the above copyright
  45  *    notice, this list of conditions and the following disclaimer in the
  46  *    documentation and/or other materials provided with the distribution.
  47  * 3. All advertising materials mentioning features or use of this software
  48  *    must display the following acknowledgement:
  49  *      This product includes software developed by the University of
  50  *      California, Berkeley and its contributors.
  51  * 4. Neither the name of the University nor the names of its contributors
  52  *    may be used to endorse or promote products derived from this software
  53  *    without specific prior written permission.
  54  *
  55  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  56  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  57  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  58  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  59  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  60  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  61  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  62  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  63  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  64  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  65  * SUCH DAMAGE.
  66  */
  67
  68 /*
  69  * Based on:
  70  * "@(#) Copyright (c) 1984, 1993\n\
  71  *      The Regents of the University of California.  All rights reserved.\n";
  72  *
  73  * "@(#)arp.c   8.2 (Berkeley) 1/2/94";
  74  */
  75
  76 /*
  77  * ndp - display, set, delete and flush neighbor cache
  78  */
  79
  80
  81 #include <sys/param.h>
  82 #include <sys/file.h>
  83 #include <sys/ioctl.h>
  84 #include <sys/socket.h>
  85 #include <sys/sysctl.h>
  86 #include <sys/time.h>
  87
  88 #include <net/if.h>
  89 #include <net/if_var.h>
  90 #include <net/if_dl.h>
  91 #include <net/if_types.h>
  92 #include <net/route.h>
  93
  94 #include <netinet/in.h>
  95 #include <netinet/if_ether.h>
  96
  97 #include <netinet/icmp6.h>
  98 #include <netinet6/in6_var.h>
  99 #include <netinet6/nd6.h>
 100
 101 #include <arpa/inet.h>
 102
 103 #include <netdb.h>
 104 #include <errno.h>
 105 #include <nlist.h>
 106 #include <stdio.h>
 107 #include <string.h>
 108 #include <paths.h>
 109 #include <err.h>
 110 #include <stdlib.h>
 111 #include <fcntl.h>
 112 #include <unistd.h>
 113 #include "gmt2local.h"
 114
 115 #ifndef NI_WITHSCOPEID
 116 #define NI_WITHSCOPEID  0
 117 #endif
 118
 119 /* packing rule for routing socket */
 120 #define ROUNDUP(a) \
 121         ((a) > 0 ? (1 + (((a) - 1) | (sizeof(long) - 1))) : sizeof(long))
 122 #define ADVANCE(x, n) (x += ROUNDUP((n)->sa_len))
 123
 124 static int pid;
 125 static int cflag;
 126 static int nflag;
 127 static int tflag;
 128 static int32_t thiszone;        /* time difference with gmt */
 129 static int s = -1;
 130 static int repeat = 0;
 131 static int lflag = 0;
 132
 133 char ntop_buf[INET6_ADDRSTRLEN];        /* inet_ntop() */
 134 char host_buf[NI_MAXHOST];              /* getnameinfo() */
 135 char ifix_buf[IFNAMSIZ];                /* if_indextoname() */
 136
 137 int main __P((int, char **));
 138 int file __P((char *));
 139 void getsocket __P((void));
 140 int set __P((int, char **));
 141 void get __P((char *));
 142 int delete __P((char *));
 143 void dump __P((struct in6_addr *));
 144 static struct in6_nbrinfo *getnbrinfo __P((struct in6_addr *addr,
 145                                            int ifindex, int));
 146 static char *ether_str __P((struct sockaddr_dl *));
 147 int ndp_ether_aton __P((char *, u_char *));
 148 void usage __P((void));
 149 int rtmsg __P((int));
 150 void ifinfo __P((int, char **));
 151 void rtrlist __P((void));
 152 void plist __P((void));
 153 void pfx_flush __P((void));
 154 void rtrlist __P((void));
 155 void rtr_flush __P((void));
 156 void harmonize_rtr __P((void));
 157 #ifdef SIOCSDEFIFACE_IN6        /* XXX: check SIOCGDEFIFACE_IN6 as well? */
 158 static void getdefif __P((void));
 159 static void setdefif __P((char *));
 160 #endif
 161 static char *sec2str __P((time_t t));
 162 static char *ether_str __P((struct sockaddr_dl *sdl));
 163 static void ts_print __P((const struct timeval *));
 164
 165 int
 166 main(argc, argv)
 167         int argc;
 168         char **argv;
 169 {
 170         int ch;
 171         int aflag = 0, dflag = 0, sflag = 0, Hflag = 0,
 172                 pflag = 0, rflag = 0, Pflag = 0, Rflag = 0;
 173
 174         pid = getpid();
 175         thiszone = gmt2local(0);
 176         while ((ch = getopt(argc, argv, "acndfIilprstA:HPR")) != EOF)
 177                 switch ((char)ch) {
 178                 case 'a':
 179                         aflag = 1;
 180                         break;
 181                 case 'c':
 182                         cflag = 1;
 183                         break;
 184                 case 'd':
 185                         dflag = 1;
 186                         break;
 187                 case 'I':
 188 #ifdef SIOCSDEFIFACE_IN6        /* XXX: check SIOCGDEFIFACE_IN6 as well? */
 189                         if (argc > 2)
 190                                 setdefif(argv[2]);
 191                         getdefif(); /* always call it to print the result */
 192                         exit(0);
 193 #else
 194                         errx(1, "not supported yet");
 195                         /*NOTREACHED*/
 196 #endif
 197                 case 'i' :
 198                         argc -= optind;
 199                         argv += optind;
 200                         if (argc < 1)
 201                                 usage();
 202                         ifinfo(argc, argv);
 203                         exit(0);
 204                 case 'n':
 205                         nflag = 1;
 206                         continue;
 207                 case 'p':
 208                         pflag = 1;
 209                         break;
 210                 case 'f' :
 211                         if (argc != 3)
 212                                 usage();
 213                         file(argv[2]);
 214                         exit(0);
 215                 case 'l' :
 216                         lflag = 1;
 217                         break;
 218                 case 'r' :
 219                         rflag = 1;
 220                         break;
 221                 case 's':
 222                         sflag = 1;
 223                         break;
 224                 case 't':
 225                         tflag = 1;
 226                         break;
 227                 case 'A':
 228                         aflag = 1;
 229                         repeat = atoi(optarg);
 230                         if (repeat < 0)
 231                                 usage();
 232                         break;
 233                 case 'H' :
 234                         Hflag = 1;
 235                         break;
 236                 case 'P':
 237                         Pflag = 1;
 238                         break;
 239                 case 'R':
 240                         Rflag = 1;
 241                         break;
 242                 default:
 243                         usage();
 244                 }
 245
 246         argc -= optind;
 247         argv += optind;
 248
 249         if (aflag || cflag) {
 250                 dump(0);
 251                 exit(0);
 252         }
 253         if (dflag) {
 254                 if (argc != 1)
 255                         usage();
 256                 delete(argv[0]);
 257                 exit(0);
 258         }
 259         if (pflag) {
 260                 plist();
 261                 exit(0);
 262         }
 263         if (rflag) {
 264                 rtrlist();
 265                 exit(0);
 266         }
 267         if (sflag) {
 268                 if (argc < 2 || argc > 4)
 269                         usage();
 270                 exit(set(argc, argv) ? 1 : 0);
 271         }
 272         if (Hflag) {
 273                 harmonize_rtr();
 274                 exit(0);
 275         }
 276         if (Pflag) {
 277                 pfx_flush();
 278                 exit(0);
 279         }
 280         if (Rflag) {
 281                 rtr_flush();
 282                 exit(0);
 283         }
 284
 285         if (argc != 1)
 286                 usage();
 287         get(argv[0]);
 288         exit(0);
 289 }
 290
 291 /*
 292  * Process a file to set standard ndp entries
 293  */
 294 int
 295 file(name)
 296         char *name;
 297 {
 298         FILE *fp;
 299         int i, retval;
 300         char line[100], arg[5][50], *args[5];
 301
 302         if ((fp = fopen(name, "r")) == NULL) {
 303                 fprintf(stderr, "ndp: cannot open %s\n", name);
 304                 exit(1);
 305         }
 306         args[0] = &arg[0][0];
 307         args[1] = &arg[1][0];
 308         args[2] = &arg[2][0];
 309         args[3] = &arg[3][0];
 310         args[4] = &arg[4][0];
 311         retval = 0;
 312         while(fgets(line, 100, fp) != NULL) {
 313                 i = sscanf(line, "%s %s %s %s %s", arg[0], arg[1], arg[2],
 314                     arg[3], arg[4]);
 315                 if (i < 2) {
 316                         fprintf(stderr, "ndp: bad line: %s\n", line);
 317                         retval = 1;
 318                         continue;
 319                 }
 320                 if (set(i, args))
 321                         retval = 1;
 322         }
 323         fclose(fp);
 324         return (retval);
 325 }
 326
 327 void
 328 getsocket()
 329 {
 330         if (s < 0) {
 331                 s = socket(PF_ROUTE, SOCK_RAW, 0);
 332                 if (s < 0) {
 333                         perror("ndp: socket");
 334                         exit(1);
 335                 }
 336         }
 337 }
 338
 339 struct  sockaddr_in6 so_mask = {sizeof(so_mask), AF_INET6 };
 340 struct  sockaddr_in6 blank_sin = {sizeof(blank_sin), AF_INET6 }, sin_m;
 341 struct  sockaddr_dl blank_sdl = {sizeof(blank_sdl), AF_LINK }, sdl_m;
 342 int     expire_time, flags, found_entry;
 343 struct  {
 344         struct  rt_msghdr m_rtm;
 345         char    m_space[512];
 346 }       m_rtmsg;
 347
 348 /*
 349  * Set an individual neighbor cache entry
 350  */
 351 int
 352 set(argc, argv)
 353         int argc;
 354         char **argv;
 355 {
 356         register struct sockaddr_in6 *sin = &sin_m;
 357         register struct sockaddr_dl *sdl;
 358         register struct rt_msghdr *rtm = &(m_rtmsg.m_rtm);
 359         struct addrinfo hints, *res;
 360         int gai_error;
 361         u_char *ea;
 362         char *host = argv[0], *eaddr = argv[1];
 363
 364         getsocket();
 365         argc -= 2;
 366         argv += 2;
 367         sdl_m = blank_sdl;
 368         sin_m = blank_sin;
 369
 370         bzero(&hints, sizeof(hints));
 371         hints.ai_family = AF_INET6;
 372         gai_error = getaddrinfo(host, NULL, &hints, &res);
 373         if (gai_error) {
 374                 fprintf(stderr, "ndp: %s: %s\n", host,
 375                         gai_strerror(gai_error));
 376                 return 1;
 377         }
 378         sin->sin6_addr = ((struct sockaddr_in6 *)res->ai_addr)->sin6_addr;
 379 #ifdef __KAME__
 380         if (IN6_IS_ADDR_LINKLOCAL(&sin->sin6_addr)) {
 381                 *(u_int16_t *)&sin->sin6_addr.s6_addr[2] =
 382                         htons(((struct sockaddr_in6 *)res->ai_addr)->sin6_scope_id);
 383         }
 384 #endif
 385         ea = (u_char *)LLADDR(&sdl_m);
 386         if (ndp_ether_aton(eaddr, ea) == 0)
 387                 sdl_m.sdl_alen = 6;
 388         flags = expire_time = 0;
 389         while (argc-- > 0) {
 390                 if (strncmp(argv[0], "temp", 4) == 0) {
 391                         struct timeval time;
 392                         gettimeofday(&time, 0);
 393                         expire_time = time.tv_sec + 20 * 60;
 394                 } else if (strncmp(argv[0], "proxy", 5) == 0)
 395                         flags |= RTF_ANNOUNCE;
 396                 argv++;
 397         }
 398         if (rtmsg(RTM_GET) < 0) {
 399                 perror(host);
 400                 return (1);
 401         }
 402         sin = (struct sockaddr_in6 *)(rtm + 1);
 403         sdl = (struct sockaddr_dl *)(ROUNDUP(sin->sin6_len) + (char *)sin);
 404         if (IN6_ARE_ADDR_EQUAL(&sin->sin6_addr, &sin_m.sin6_addr)) {
 405                 if (sdl->sdl_family == AF_LINK &&
 406                     (rtm->rtm_flags & RTF_LLINFO) &&
 407                     !(rtm->rtm_flags & RTF_GATEWAY)) switch (sdl->sdl_type) {
 408                 case IFT_ETHER: case IFT_FDDI: case IFT_ISO88023:
 409                 case IFT_ISO88024: case IFT_ISO88025:
 410                         goto overwrite;
 411                 }
 412                 /*
 413                  * IPv4 arp command retries with sin_other = SIN_PROXY here.
 414                  */
 415                 fprintf(stderr, "set: cannot configure a new entry\n");
 416                 return 1;
 417         }
 418
 419 overwrite:
 420         if (sdl->sdl_family != AF_LINK) {
 421                 printf("cannot intuit interface index and type for %s\n", host);
 422                 return (1);
 423         }
 424         sdl_m.sdl_type = sdl->sdl_type;
 425         sdl_m.sdl_index = sdl->sdl_index;
 426         return (rtmsg(RTM_ADD));
 427 }
 428
 429 /*
 430  * Display an individual neighbor cache entry
 431  */
 432 void
 433 get(host)
 434         char *host;
 435 {
 436         struct sockaddr_in6 *sin = &sin_m;
 437         struct addrinfo hints, *res;
 438         int gai_error;
 439
 440         sin_m = blank_sin;
 441         bzero(&hints, sizeof(hints));
 442         hints.ai_family = AF_INET6;
 443         gai_error = getaddrinfo(host, NULL, &hints, &res);
 444         if (gai_error) {
 445                 fprintf(stderr, "ndp: %s: %s\n", host,
 446                         gai_strerror(gai_error));
 447                 return;
 448         }
 449         sin->sin6_addr = ((struct sockaddr_in6 *)res->ai_addr)->sin6_addr;
 450 #ifdef __KAME__
 451         if (IN6_IS_ADDR_LINKLOCAL(&sin->sin6_addr)) {
 452                 *(u_int16_t *)&sin->sin6_addr.s6_addr[2] =
 453                         htons(((struct sockaddr_in6 *)res->ai_addr)->sin6_scope_id);
 454         }
 455 #endif
 456         dump(&sin->sin6_addr);
 457         if (found_entry == 0) {
 458                 getnameinfo((struct sockaddr *)sin, sin->sin6_len, host_buf,
 459                             sizeof(host_buf), NULL ,0,
 460                             NI_WITHSCOPEID | (nflag ? NI_NUMERICHOST : 0));
 461                 printf("%s (%s) -- no entry\n", host, host_buf);
 462                 exit(1);
 463         }
 464 }
 465
 466 /*
 467  * Delete a neighbor cache entry
 468  */
 469 int
 470 delete(host)
 471         char *host;
 472 {
 473         struct sockaddr_in6 *sin = &sin_m;
 474         register struct rt_msghdr *rtm = &m_rtmsg.m_rtm;
 475         struct sockaddr_dl *sdl;
 476         struct addrinfo hints, *res;
 477         int gai_error;
 478
 479         getsocket();
 480         sin_m = blank_sin;
 481
 482         bzero(&hints, sizeof(hints));
 483         hints.ai_family = AF_INET6;
 484         gai_error = getaddrinfo(host, NULL, &hints, &res);
 485         if (gai_error) {
 486                 fprintf(stderr, "ndp: %s: %s\n", host,
 487                         gai_strerror(gai_error));
 488                 return 1;
 489         }
 490         sin->sin6_addr = ((struct sockaddr_in6 *)res->ai_addr)->sin6_addr;
 491 #ifdef __KAME__
 492         if (IN6_IS_ADDR_LINKLOCAL(&sin->sin6_addr)) {
 493                 *(u_int16_t *)&sin->sin6_addr.s6_addr[2] =
 494                         htons(((struct sockaddr_in6 *)res->ai_addr)->sin6_scope_id);
 495         }
 496 #endif
 497         if (rtmsg(RTM_GET) < 0) {
 498                 perror(host);
 499                 return (1);
 500         }
 501         sin = (struct sockaddr_in6 *)(rtm + 1);
 502         sdl = (struct sockaddr_dl *)(ROUNDUP(sin->sin6_len) + (char *)sin);
 503         if (IN6_ARE_ADDR_EQUAL(&sin->sin6_addr, &sin_m.sin6_addr)) {
 504                 if (sdl->sdl_family == AF_LINK &&
 505                     (rtm->rtm_flags & RTF_LLINFO) &&
 506                     !(rtm->rtm_flags & RTF_GATEWAY)) {
 507                         switch (sdl->sdl_type) {
 508                         case IFT_ETHER: case IFT_FDDI: case IFT_ISO88023:
 509                         case IFT_ISO88024: case IFT_ISO88025:
 510                                 goto delete;
 511                         }
 512                 }
 513                 /*
 514                  * IPv4 arp command retries with sin_other = SIN_PROXY here.
 515                  */
 516                 fprintf(stderr, "delete: cannot delete non-NDP entry\n");
 517                 return 1;
 518         }
 519
 520 delete:
 521         if (sdl->sdl_family != AF_LINK) {
 522                 printf("cannot locate %s\n", host);
 523                 return (1);
 524         }
 525         if (rtmsg(RTM_DELETE) == 0) {
 526                 struct sockaddr_in6 s6 = *sin; /* XXX: for safety */
 527
 528 #ifdef __KAME__
 529                 if (IN6_IS_ADDR_LINKLOCAL(&s6.sin6_addr)) {
 530                         s6.sin6_scope_id = ntohs(*(u_int16_t *)&s6.sin6_addr.s6_addr[2]);
 531                         *(u_int16_t *)&s6.sin6_addr.s6_addr[2] = 0;
 532                 }
 533 #endif
 534                 getnameinfo((struct sockaddr *)&s6,
 535                             s6.sin6_len, host_buf,
 536                             sizeof(host_buf), NULL, 0,
 537                             NI_WITHSCOPEID | (nflag ? NI_NUMERICHOST : 0));
 538                 printf("%s (%s) deleted\n", host, host_buf);
 539         }
 540
 541         return 0;
 542 }
 543
 544 /*
 545  * Dump the entire neighbor cache
 546  */
 547 void
 548 dump(addr)
 549         struct in6_addr *addr;
 550 {
 551         int mib[6];
 552         size_t needed;
 553         char *lim, *buf, *next;
 554         struct rt_msghdr *rtm;
 555         struct sockaddr_in6 *sin;
 556         struct sockaddr_dl *sdl;
 557         extern int h_errno;
 558         struct in6_nbrinfo *nbi;
 559         struct timeval time;
 560         int addrwidth;
 561         char flgbuf[8];
 562
 563         /* Print header */
 564         if (!tflag && !cflag)
 565                 printf("%-31.31s %-17.17s %6.6s %-9.9s %2s %4s %4s\n",
 566                        "Neighbor", "Linklayer Address", "Netif", "Expire",
 567                        "St", "Flgs", "Prbs");
 568
 569 again:;
 570         mib[0] = CTL_NET;
 571         mib[1] = PF_ROUTE;
 572         mib[2] = 0;
 573         mib[3] = AF_INET6;
 574         mib[4] = NET_RT_FLAGS;
 575         mib[5] = RTF_LLINFO;
 576         if (sysctl(mib, 6, NULL, &needed, NULL, 0) < 0)
 577                 err(1, "sysctl(PF_ROUTE estimate)");
 578         if (needed > 0) {
 579                 if ((buf = malloc(needed)) == NULL)
 580                         errx(1, "malloc");
 581                 if (sysctl(mib, 6, buf, &needed, NULL, 0) < 0)
 582                         err(1, "sysctl(PF_ROUTE, NET_RT_FLAGS)");
 583                 lim = buf + needed;
 584         } else
 585                 buf = lim = NULL;
 586
 587         for (next = buf; next && next < lim; next += rtm->rtm_msglen) {
 588                 int isrouter = 0, prbs = 0;
 589
 590                 rtm = (struct rt_msghdr *)next;
 591                 sin = (struct sockaddr_in6 *)(rtm + 1);
 592                 sdl = (struct sockaddr_dl *)((char *)sin + ROUNDUP(sin->sin6_len));
 593                 if (addr) {
 594                         if (!IN6_ARE_ADDR_EQUAL(addr, &sin->sin6_addr))
 595                                 continue;
 596                         found_entry = 1;
 597                 } else if (IN6_IS_ADDR_MULTICAST(&sin->sin6_addr))
 598                         continue;
 599                 if (IN6_IS_ADDR_LINKLOCAL(&sin->sin6_addr) ||
 600                     IN6_IS_ADDR_MC_LINKLOCAL(&sin->sin6_addr)) {
 601                         /* XXX: should scope id be filled in the kernel? */
 602                         if (sin->sin6_scope_id == 0)
 603                                 sin->sin6_scope_id = sdl->sdl_index;
 604 #ifdef __KAME__
 605                         /* KAME specific hack; removed the embedded id */
 606                         *(u_int16_t *)&sin->sin6_addr.s6_addr[2] = 0;
 607 #endif
 608                 }
 609                 getnameinfo((struct sockaddr *)sin, sin->sin6_len, host_buf,
 610                             sizeof(host_buf), NULL, 0,
 611                             NI_WITHSCOPEID | (nflag ? NI_NUMERICHOST : 0));
 612                 if (cflag == 1) {
 613                         delete(host_buf);
 614                         continue;
 615                 }
 616                 gettimeofday(&time, 0);
 617                 if (tflag)
 618                         ts_print(&time);
 619
 620                 if (lflag) {
 621                         addrwidth = strlen(host_buf);
 622                         if (addrwidth < 31)
 623                                 addrwidth = 31;
 624                 } else
 625                         addrwidth = 31;
 626
 627                 printf("%-*.*s %-17.17s %6.6s", addrwidth, addrwidth, host_buf,
 628                        ether_str(sdl),
 629                        if_indextoname(sdl->sdl_index, ifix_buf));
 630
 631                 /* Print neighbor discovery specific informations */
 632                 nbi = getnbrinfo(&sin->sin6_addr, sdl->sdl_index, 1);
 633                 if (nbi) {
 634                         if (nbi->expire > time.tv_sec) {
 635                                 printf(" %-9.9s",
 636                                        sec2str(nbi->expire - time.tv_sec));
 637                         }
 638                         else if (nbi->expire == 0)
 639                                 printf(" %-9.9s", "permanent");
 640                         else
 641                                 printf(" %-9.9s", "expired");
 642
 643                         switch(nbi->state) {
 644                          case ND6_LLINFO_NOSTATE:
 645                                  printf(" N");
 646                                  break;
 647                          case ND6_LLINFO_WAITDELETE:
 648                                  printf(" W");
 649                                  break;
 650                          case ND6_LLINFO_INCOMPLETE:
 651                                  printf(" I");
 652                                  break;
 653                          case ND6_LLINFO_REACHABLE:
 654                                  printf(" R");
 655                                  break;
 656                          case ND6_LLINFO_STALE:
 657                                  printf(" S");
 658                                  break;
 659                          case ND6_LLINFO_DELAY:
 660                                  printf(" D");
 661                                  break;
 662                          case ND6_LLINFO_PROBE:
 663                                  printf(" P");
 664                                  break;
 665                          default:
 666                                  printf(" ?");
 667                                  break;
 668                         }
 669
 670                         isrouter = nbi->isrouter;
 671                         prbs = nbi->asked;
 672                 }
 673                 else {
 674                         warnx("failed to get neighbor information");
 675                         printf("  ");
 676                 }
 677                 putchar(' ');
 678
 679                 /*
 680                  * other flags. R: router, P: proxy, W: ??
 681                  */
 682                 if ((rtm->rtm_addrs & RTA_NETMASK) == 0) {
 683                         snprintf(flgbuf, sizeof(flgbuf), "%s%s",
 684                                 isrouter ? "R" : "",
 685                                 (rtm->rtm_flags & RTF_ANNOUNCE) ? "p" : "");
 686                 } else {
 687                         sin = (struct sockaddr_in6 *)
 688                                 (sdl->sdl_len + (char *)sdl);
 689                         snprintf(flgbuf, sizeof(flgbuf), "%s%s%s%s",
 690                                 isrouter ? "R" : "",
 691                                 !IN6_IS_ADDR_UNSPECIFIED(&sin->sin6_addr)
 692                                         ? "P" : "",
 693                                 (sin->sin6_len != sizeof(struct sockaddr_in6))
 694                                         ? "W" : "",
 695                                 (rtm->rtm_flags & RTF_ANNOUNCE) ? "p" : "");
 696                 }
 697                 printf(" %-4.4s", flgbuf);
 698
 699                 if (prbs)
 700                         printf(" %4d", prbs);
 701
 702                 printf("\n");
 703         }
 704
 705         if (repeat) {
 706                 printf("\n");
 707                 sleep(repeat);
 708                 goto again;
 709         }
 710 }
 711
 712 static struct in6_nbrinfo *
 713 getnbrinfo(addr, ifindex, warning)
 714         struct in6_addr *addr;
 715         int ifindex;
 716         int warning;
 717 {
 718         static struct in6_nbrinfo nbi;
 719         int s;
 720
 721         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0)
 722                 err(1, "socket");
 723
 724         bzero(&nbi, sizeof(nbi));
 725         if_indextoname(ifindex, nbi.ifname);
 726         nbi.addr = *addr;
 727         if (ioctl(s, SIOCGNBRINFO_IN6, (caddr_t)&nbi) < 0) {
 728                 if (warning)
 729                         warn("ioctl(SIOCGNBRINFO_IN6)");
 730                 close(s);
 731                 return(NULL);
 732         }
 733
 734         close(s);
 735         return(&nbi);
 736 }
 737
 738 static char *
 739 ether_str(sdl)
 740         struct sockaddr_dl *sdl;
 741 {
 742         static char ebuf[32];
 743         u_char *cp;
 744
 745         if (sdl->sdl_alen) {
 746                 cp = (u_char *)LLADDR(sdl);
 747                 sprintf(ebuf, "%x:%x:%x:%x:%x:%x",
 748                         cp[0], cp[1], cp[2], cp[3], cp[4], cp[5]);
 749         }
 750         else {
 751                 sprintf(ebuf, "(incomplete)");
 752         }
 753
 754         return(ebuf);
 755 }
 756
 757 int
 758 ndp_ether_aton(a, n)
 759         char *a;
 760         u_char *n;
 761 {
 762         int i, o[6];
 763
 764         i = sscanf(a, "%x:%x:%x:%x:%x:%x", &o[0], &o[1], &o[2],
 765                                            &o[3], &o[4], &o[5]);
 766         if (i != 6) {
 767                 fprintf(stderr, "ndp: invalid Ethernet address '%s'\n", a);
 768                 return (1);
 769         }
 770         for (i=0; i<6; i++)
 771                 n[i] = o[i];
 772         return (0);
 773 }
 774
 775 void
 776 usage()
 777 {
 778         printf("usage: ndp hostname\n");
 779         printf("       ndp -a[ntl]\n");
 780         printf("       ndp [-ntl] -A wait\n");
 781         printf("       ndp -c[nt]\n");
 782         printf("       ndp -d[nt] hostname\n");
 783         printf("       ndp -f[nt] filename\n");
 784         printf("       ndp -i interface [flags...]\n");
 785 #ifdef SIOCSDEFIFACE_IN6
 786         printf("       ndp -I [interface|delete]\n");
 787 #endif
 788         printf("       ndp -p\n");
 789         printf("       ndp -r\n");
 790         printf("       ndp -s hostname ether_addr [temp] [proxy]\n");
 791         printf("       ndp -H\n");
 792         printf("       ndp -P\n");
 793         printf("       ndp -R\n");
 794         exit(1);
 795 }
 796
 797 int
 798 rtmsg(cmd)
 799         int cmd;
 800 {
 801         static int seq;
 802         int rlen;
 803         register struct rt_msghdr *rtm = &m_rtmsg.m_rtm;
 804         register char *cp = m_rtmsg.m_space;
 805         register int l;
 806
 807         errno = 0;
 808         if (cmd == RTM_DELETE)
 809                 goto doit;
 810         bzero((char *)&m_rtmsg, sizeof(m_rtmsg));
 811         rtm->rtm_flags = flags;
 812         rtm->rtm_version = RTM_VERSION;
 813
 814         switch (cmd) {
 815         default:
 816                 fprintf(stderr, "ndp: internal wrong cmd\n");
 817                 exit(1);
 818         case RTM_ADD:
 819                 rtm->rtm_addrs |= RTA_GATEWAY;
 820                 rtm->rtm_rmx.rmx_expire = expire_time;
 821                 rtm->rtm_inits = RTV_EXPIRE;
 822                 rtm->rtm_flags |= (RTF_HOST | RTF_STATIC);
 823                 if (rtm->rtm_flags & RTF_ANNOUNCE) {
 824                         rtm->rtm_flags &= ~RTF_HOST;
 825                         rtm->rtm_flags |= RTA_NETMASK;
 826                 }
 827                 /* FALLTHROUGH */
 828         case RTM_GET:
 829                 rtm->rtm_addrs |= RTA_DST;
 830         }
 831 #define NEXTADDR(w, s) \
 832         if (rtm->rtm_addrs & (w)) { \
 833                 bcopy((char *)&s, cp, sizeof(s)); cp += sizeof(s);}
 834
 835         NEXTADDR(RTA_DST, sin_m);
 836         NEXTADDR(RTA_GATEWAY, sdl_m);
 837         memset(&so_mask.sin6_addr, 0xff, sizeof(so_mask.sin6_addr));
 838         NEXTADDR(RTA_NETMASK, so_mask);
 839
 840         rtm->rtm_msglen = cp - (char *)&m_rtmsg;
 841 doit:
 842         l = rtm->rtm_msglen;
 843         rtm->rtm_seq = ++seq;
 844         rtm->rtm_type = cmd;
 845         if ((rlen = write(s, (char *)&m_rtmsg, l)) < 0) {
 846                 if (errno != ESRCH || cmd != RTM_DELETE) {
 847                         perror("writing to routing socket");
 848                         return (-1);
 849                 }
 850         }
 851         do {
 852                 l = read(s, (char *)&m_rtmsg, sizeof(m_rtmsg));
 853         } while (l > 0 && (rtm->rtm_seq != seq || rtm->rtm_pid != pid));
 854         if (l < 0)
 855                 (void) fprintf(stderr, "ndp: read from routing socket: %s\n",
 856                     strerror(errno));
 857         return (0);
 858 }
 859
 860 void
 861 ifinfo(argc, argv)
 862         int argc;
 863         char **argv;
 864 {
 865         struct in6_ndireq nd;
 866         int i, s;
 867         char *ifname = argv[0];
 868         u_int32_t newflags;
 869
 870         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0) {
 871                 perror("ndp: socket");
 872                 exit(1);
 873         }
 874         bzero(&nd, sizeof(nd));
 875         strcpy(nd.ifname, ifname);
 876         if (ioctl(s, SIOCGIFINFO_IN6, (caddr_t)&nd) < 0) {
 877                 perror("ioctl (SIOCGIFINFO_IN6)");
 878                 exit(1);
 879         }
 880 #define ND nd.ndi
 881         newflags = ND.flags;
 882         for (i = 1; i < argc; i++) {
 883                 int clear = 0;
 884                 char *cp = argv[i];
 885
 886                 if (*cp == '-') {
 887                         clear = 1;
 888                         cp++;
 889                 }
 890
 891 #define SETFLAG(s, f) \
 892         do {\
 893                 if (strcmp(cp, (s)) == 0) {\
 894                         if (clear)\
 895                                 newflags &= ~(f);\
 896                         else\
 897                                 newflags |= (f);\
 898                 }\
 899         } while (0)
 900                 SETFLAG("nud", ND6_IFF_PERFORMNUD);
 901
 902                 ND.flags = newflags;
 903                 if (ioctl(s, SIOCSIFINFO_FLAGS, (caddr_t)&nd) < 0) {
 904                         perror("ioctl(SIOCSIFINFO_FLAGS)");
 905                         exit(1);
 906                 }
 907 #undef SETFLAG
 908         }
 909
 910         printf("linkmtu=%d", ND.linkmtu);
 911         printf(", curhlim=%d", ND.chlim);
 912         printf(", basereachable=%ds%dms",
 913                ND.basereachable / 1000, ND.basereachable % 1000);
 914         printf(", reachable=%ds", ND.reachable);
 915         printf(", retrans=%ds%dms", ND.retrans / 1000, ND.retrans % 1000);
 916         if (ND.flags) {
 917                 printf("\nFlags: ");
 918                 if ((ND.flags & ND6_IFF_PERFORMNUD) != 0)
 919                         printf("PERFORMNUD ");
 920         }
 921         putc('\n', stdout);
 922 #undef ND
 923
 924         close(s);
 925 }
 926
 927 void
 928 rtrlist()
 929 {
 930         struct in6_drlist dr;
 931         int s, i;
 932         struct timeval time;
 933
 934         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0) {
 935                 perror("ndp: socket");
 936                 exit(1);
 937         }
 938         bzero(&dr, sizeof(dr));
 939         strcpy(dr.ifname, "lo0"); /* dummy */
 940         if (ioctl(s, SIOCGDRLST_IN6, (caddr_t)&dr) < 0) {
 941                 perror("ioctl (SIOCGDRLST_IN6)");
 942                 exit(1);
 943         }
 944 #define DR dr.defrouter[i]
 945         for (i = 0 ; DR.if_index && i < PRLSTSIZ ; i++) {
 946                 struct sockaddr_in6 sin6;
 947
 948                 bzero(&sin6, sizeof(sin6));
 949                 sin6.sin6_family = AF_INET6;
 950                 sin6.sin6_len = sizeof(sin6);
 951                 sin6.sin6_addr = DR.rtaddr;
 952                 getnameinfo((struct sockaddr *)&sin6, sin6.sin6_len, host_buf,
 953                             sizeof(host_buf), NULL, 0,
 954                             NI_WITHSCOPEID | (nflag ? NI_NUMERICHOST : 0));
 955
 956                 printf("%s if=%s", host_buf,
 957                        if_indextoname(DR.if_index, ifix_buf));
 958                 printf(", flags=%s%s",
 959                        DR.flags & ND_RA_FLAG_MANAGED ? "M" : "",
 960                        DR.flags & ND_RA_FLAG_OTHER   ? "O" : "");
 961                 gettimeofday(&time, 0);
 962                 if (DR.expire == 0)
 963                         printf(", expire=Never\n");
 964                 else
 965                         printf(", expire=%s\n",
 966                                 sec2str(DR.expire - time.tv_sec));
 967         }
 968 #undef DR
 969         close(s);
 970 }
 971
 972 void
 973 plist()
 974 {
 975         struct in6_prlist pr;
 976         int s, i;
 977         struct timeval time;
 978
 979         gettimeofday(&time, 0);
 980
 981         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0) {
 982                 perror("ndp: socket");
 983                 exit(1);
 984         }
 985         bzero(&pr, sizeof(pr));
 986         strcpy(pr.ifname, "lo0"); /* dummy */
 987         if (ioctl(s, SIOCGPRLST_IN6, (caddr_t)&pr) < 0) {
 988                 perror("ioctl (SIOCGPRLST_IN6)");
 989                 exit(1);
 990         }
 991 #define PR pr.prefix[i]
 992         for (i = 0; PR.if_index && i < PRLSTSIZ ; i++) {
 993                 printf("%s/%d if=%s\n",
 994                        inet_ntop(AF_INET6, &PR.prefix, ntop_buf,
 995                                  sizeof(ntop_buf)), PR.prefixlen,
 996                        if_indextoname(PR.if_index, ifix_buf));
 997                 gettimeofday(&time, 0);
 998                 /*
 999                  * meaning of fields, especially flags, is very different
1000                  * by origin.  notify the difference to the users.
1001                  */
1002                 printf("  %s", PR.origin == PR_ORIG_RA ? "" : "advertise: ");
1003                 printf("flags=%s%s",
1004                        PR.raflags.onlink ? "L" : "",
1005                        PR.raflags.autonomous ? "A" : "");
1006                 if (PR.vltime == ND6_INFINITE_LIFETIME)
1007                         printf(" vltime=infinity");
1008                 else
1009                         printf(" vltime=%ld", (long)PR.vltime);
1010                 if (PR.pltime == ND6_INFINITE_LIFETIME)
1011                         printf(", pltime=infinity");
1012                 else
1013                         printf(", pltime=%ld", (long)PR.pltime);
1014                 if (PR.expire == 0)
1015                         printf(", expire=Never");
1016                 else if (PR.expire >= time.tv_sec)
1017                         printf(", expire=%s",
1018                                 sec2str(PR.expire - time.tv_sec));
1019                 else
1020                         printf(", expired");
1021                 switch (PR.origin) {
1022                 case PR_ORIG_RA:
1023                         printf(", origin=RA");
1024                         break;
1025                 case PR_ORIG_RR:
1026                         printf(", origin=RR");
1027                         break;
1028                 case PR_ORIG_STATIC:
1029                         printf(", origin=static");
1030                         break;
1031                 case PR_ORIG_KERNEL:
1032                         printf(", origin=kernel");
1033                         break;
1034                 default:
1035                         printf(", origin=?");
1036                         break;
1037                 }
1038                 printf("\n");
1039                 /*
1040                  * "advertising router" list is meaningful only if the prefix
1041                  * information is from RA.
1042                  */
1043                 if (PR.origin != PR_ORIG_RA)
1044                         ;
1045                 else if (PR.advrtrs) {
1046                         int j;
1047                         printf("  advertised by\n");
1048                         for (j = 0; j < PR.advrtrs; j++) {
1049                                 struct sockaddr_in6 sin6;
1050                                 struct in6_nbrinfo *nbi;
1051
1052                                 bzero(&sin6, sizeof(sin6));
1053                                 sin6.sin6_family = AF_INET6;
1054                                 sin6.sin6_len = sizeof(sin6);
1055                                 sin6.sin6_addr = PR.advrtr[j];
1056                                 sin6.sin6_scope_id = PR.if_index; /* XXX */
1057                                 getnameinfo((struct sockaddr *)&sin6,
1058                                             sin6.sin6_len, host_buf,
1059                                             sizeof(host_buf), NULL, 0,
1060                                             NI_WITHSCOPEID | (nflag ? NI_NUMERICHOST : 0));
1061                                 printf("    %s", host_buf);
1062
1063                                 nbi = getnbrinfo(&sin6.sin6_addr, PR.if_index,
1064                                                  0);
1065                                 if (nbi) {
1066                                         switch(nbi->state) {
1067                                          case ND6_LLINFO_REACHABLE:
1068                                          case ND6_LLINFO_STALE:
1069                                          case ND6_LLINFO_DELAY:
1070                                          case ND6_LLINFO_PROBE:
1071                                                  printf(" (reachable)\n");
1072                                                  break;
1073                                          default:
1074                                                  printf(" (unreachable)\n");
1075                                         }
1076                                 }
1077                                 else
1078                                         printf(" (no neighbor state)\n");
1079                         }
1080                         if (PR.advrtrs > DRLSTSIZ)
1081                                 printf("    and %d routers\n",
1082                                        PR.advrtrs - DRLSTSIZ);
1083                 } else
1084                         printf("  No advertising router\n");
1085         }
1086 #undef PR
1087         close(s);
1088 }
1089
1090 void
1091 pfx_flush()
1092 {
1093         char dummyif[IFNAMSIZ+8];
1094         int s;
1095
1096         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0)
1097                 err(1, "socket");
1098         strcpy(dummyif, "lo0"); /* dummy */
1099         if (ioctl(s, SIOCSPFXFLUSH_IN6, (caddr_t)&dummyif) < 0)
1100                 err(1, "ioctl(SIOCSPFXFLUSH_IN6)");
1101 }
1102
1103 void
1104 rtr_flush()
1105 {
1106         char dummyif[IFNAMSIZ+8];
1107         int s;
1108
1109         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0)
1110                 err(1, "socket");
1111         strcpy(dummyif, "lo0"); /* dummy */
1112         if (ioctl(s, SIOCSRTRFLUSH_IN6, (caddr_t)&dummyif) < 0)
1113                 err(1, "ioctl(SIOCSRTRFLUSH_IN6)");
1114
1115         close(s);
1116 }
1117
1118 void
1119 harmonize_rtr()
1120 {
1121         char dummyif[IFNAMSIZ+8];
1122         int s;
1123
1124         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0)
1125                 err(1, "socket");
1126         strcpy(dummyif, "lo0"); /* dummy */
1127         if (ioctl(s, SIOCSNDFLUSH_IN6, (caddr_t)&dummyif) < 0)
1128                 err(1, "ioctl (SIOCSNDFLUSH_IN6)");
1129
1130         close(s);
1131 }
1132
1133 #ifdef SIOCSDEFIFACE_IN6        /* XXX: check SIOCGDEFIFACE_IN6 as well? */
1134 static void
1135 setdefif(ifname)
1136         char *ifname;
1137 {
1138         struct in6_ndifreq ndifreq;
1139         unsigned int ifindex;
1140
1141         if (strcasecmp(ifname, "delete") == 0)
1142                 ifindex = 0;
1143         else {
1144                 if ((ifindex = if_nametoindex(ifname)) == 0)
1145                         err(1, "failed to resolve i/f index for %s", ifname);
1146         }
1147
1148         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0)
1149                 err(1, "socket");
1150
1151         strcpy(ndifreq.ifname, "lo0"); /* dummy */
1152         ndifreq.ifindex = ifindex;
1153
1154         if (ioctl(s, SIOCSDEFIFACE_IN6, (caddr_t)&ndifreq) < 0)
1155                 err(1, "ioctl (SIOCSDEFIFACE_IN6)");
1156
1157         close(s);
1158 }
1159
1160 static void
1161 getdefif()
1162 {
1163         struct in6_ndifreq ndifreq;
1164         char ifname[IFNAMSIZ+8];
1165
1166         if ((s = socket(AF_INET6, SOCK_DGRAM, 0)) < 0)
1167                 err(1, "socket");
1168
1169         memset(&ndifreq, 0, sizeof(ndifreq));
1170         strcpy(ndifreq.ifname, "lo0"); /* dummy */
1171
1172         if (ioctl(s, SIOCGDEFIFACE_IN6, (caddr_t)&ndifreq) < 0)
1173                 err(1, "ioctl (SIOCGDEFIFACE_IN6)");
1174
1175         if (ndifreq.ifindex == 0)
1176                 printf("No default interface.\n");
1177         else {
1178                 if ((if_indextoname(ndifreq.ifindex, ifname)) == NULL)
1179                         err(1, "failed to resolve ifname for index %lu",
1180                             ndifreq.ifindex);
1181                 printf("ND default interface = %s\n", ifname);
1182         }
1183
1184         close(s);
1185 }
1186 #endif
1187
1188 static char *
1189 sec2str(total)
1190         time_t total;
1191 {
1192         static char result[256];
1193         int days, hours, mins, secs;
1194         int first = 1;
1195         char *p = result;
1196
1197         days = total / 3600 / 24;
1198         hours = (total / 3600) % 24;
1199         mins = (total / 60) % 60;
1200         secs = total % 60;
1201
1202         if (days) {
1203                 first = 0;
1204                 p += sprintf(p, "%dd", days);
1205         }
1206         if (!first || hours) {
1207                 first = 0;
1208                 p += sprintf(p, "%dh", hours);
1209         }
1210         if (!first || mins) {
1211                 first = 0;
1212                 p += sprintf(p, "%dm", mins);
1213         }
1214         sprintf(p, "%ds", secs);
1215
1216         return(result);
1217 }
1218
1219 /*
1220  * Print the timestamp
1221  * from tcpdump/util.c
1222  */
1223 static void
1224 ts_print(tvp)
1225         const struct timeval *tvp;
1226 {
1227         int s;
1228
1229         /* Default */
1230         s = (tvp->tv_sec + thiszone) % 86400;
1231         (void)printf("%02d:%02d:%02d.%06u ",
1232             s / 3600, (s % 3600) / 60, s % 60, (u_int32_t)tvp->tv_usec);
1233 }