1 /* 2 * Copyright (c) 1983, 1993 3 * The Regents of the University of California. 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 * 4. Neither the name of the University 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 REGENTS 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 REGENTS 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 30 #ifndef lint 31 static const char rcsid[] = 32 "$FreeBSD$"; 33 #endif /* not lint */ 34 35 #include <sys/param.h> 36 #include <sys/ioctl.h> 37 #include <sys/socket.h> 38 #include <net/if.h> 39 #include <net/route.h> /* for RTX_IFA */ 40 41 #include <err.h> 42 #include <stdio.h> 43 #include <stdlib.h> 44 #include <string.h> 45 #include <unistd.h> 46 #include <ifaddrs.h> 47 48 #include <arpa/inet.h> 49 50 #include <netinet/in.h> 51 #include <net/if_var.h> /* for struct ifaddr */ 52 #include <netinet/in_var.h> 53 #include <arpa/inet.h> 54 #include <netdb.h> 55 56 #include <netinet6/nd6.h> /* Define ND6_INFINITE_LIFETIME */ 57 58 #include "ifconfig.h" 59 60 /* wrapper for KAME-special getnameinfo() */ 61 #ifndef NI_WITHSCOPEID 62 #define NI_WITHSCOPEID 0 63 #endif 64 65 static struct in6_ifreq in6_ridreq; 66 static struct in6_aliasreq in6_addreq = 67 { { 0 }, 68 { 0 }, 69 { 0 }, 70 { 0 }, 71 0, 72 { 0, 0, ND6_INFINITE_LIFETIME, ND6_INFINITE_LIFETIME } }; 73 static int ip6lifetime; 74 75 static void in6_fillscopeid(struct sockaddr_in6 *sin6); 76 static int prefix(void *, int); 77 static char *sec2str(time_t); 78 static int explicit_prefix = 0; 79 80 static char addr_buf[MAXHOSTNAMELEN *2 + 1]; /*for getnameinfo()*/ 81 82 static void 83 setifprefixlen(const char *addr, int dummy __unused, int s, 84 const struct afswtch *afp) 85 { 86 if (afp->af_getprefix != NULL) 87 afp->af_getprefix(addr, MASK); 88 explicit_prefix = 1; 89 } 90 91 static void 92 setip6flags(const char *dummyaddr __unused, int flag, int dummysoc __unused, 93 const struct afswtch *afp) 94 { 95 if (afp->af_af != AF_INET6) 96 err(1, "address flags can be set only for inet6 addresses"); 97 98 if (flag < 0) 99 in6_addreq.ifra_flags &= ~(-flag); 100 else 101 in6_addreq.ifra_flags |= flag; 102 } 103 104 static void 105 setip6lifetime(const char *cmd, const char *val, int s, 106 const struct afswtch *afp) 107 { 108 time_t newval, t; 109 char *ep; 110 111 t = time(NULL); 112 newval = (time_t)strtoul(val, &ep, 0); 113 if (val == ep) 114 errx(1, "invalid %s", cmd); 115 if (afp->af_af != AF_INET6) 116 errx(1, "%s not allowed for the AF", cmd); 117 if (strcmp(cmd, "vltime") == 0) { 118 in6_addreq.ifra_lifetime.ia6t_expire = t + newval; 119 in6_addreq.ifra_lifetime.ia6t_vltime = newval; 120 } else if (strcmp(cmd, "pltime") == 0) { 121 in6_addreq.ifra_lifetime.ia6t_preferred = t + newval; 122 in6_addreq.ifra_lifetime.ia6t_pltime = newval; 123 } 124 } 125 126 static void 127 setip6pltime(const char *seconds, int dummy __unused, int s, 128 const struct afswtch *afp) 129 { 130 setip6lifetime("pltime", seconds, s, afp); 131 } 132 133 static void 134 setip6vltime(const char *seconds, int dummy __unused, int s, 135 const struct afswtch *afp) 136 { 137 setip6lifetime("vltime", seconds, s, afp); 138 } 139 140 static void 141 setip6eui64(const char *cmd, int dummy __unused, int s, 142 const struct afswtch *afp) 143 { 144 struct ifaddrs *ifap, *ifa; 145 const struct sockaddr_in6 *sin6 = NULL; 146 const struct in6_addr *lladdr = NULL; 147 struct in6_addr *in6; 148 149 if (afp->af_af != AF_INET6) 150 errx(EXIT_FAILURE, "%s not allowed for the AF", cmd); 151 in6 = (struct in6_addr *)&in6_addreq.ifra_addr.sin6_addr; 152 if (memcmp(&in6addr_any.s6_addr[8], &in6->s6_addr[8], 8) != 0) 153 errx(EXIT_FAILURE, "interface index is already filled"); 154 if (getifaddrs(&ifap) != 0) 155 err(EXIT_FAILURE, "getifaddrs"); 156 for (ifa = ifap; ifa; ifa = ifa->ifa_next) { 157 if (ifa->ifa_addr->sa_family == AF_INET6 && 158 strcmp(ifa->ifa_name, name) == 0) { 159 sin6 = (const struct sockaddr_in6 *)ifa->ifa_addr; 160 if (IN6_IS_ADDR_LINKLOCAL(&sin6->sin6_addr)) { 161 lladdr = &sin6->sin6_addr; 162 break; 163 } 164 } 165 } 166 if (!lladdr) 167 errx(EXIT_FAILURE, "could not determine link local address"); 168 169 memcpy(&in6->s6_addr[8], &lladdr->s6_addr[8], 8); 170 171 freeifaddrs(ifap); 172 } 173 174 static void 175 in6_fillscopeid(struct sockaddr_in6 *sin6) 176 { 177 #if defined(__KAME__) && defined(KAME_SCOPEID) 178 if (IN6_IS_ADDR_LINKLOCAL(&sin6->sin6_addr)) { 179 sin6->sin6_scope_id = 180 ntohs(*(u_int16_t *)&sin6->sin6_addr.s6_addr[2]); 181 sin6->sin6_addr.s6_addr[2] = sin6->sin6_addr.s6_addr[3] = 0; 182 } 183 #endif 184 } 185 186 static void 187 in6_status(int s __unused, const struct rt_addrinfo * info) 188 { 189 struct sockaddr_in6 *sin, null_sin; 190 struct in6_ifreq ifr6; 191 int s6; 192 u_int32_t flags6; 193 struct in6_addrlifetime lifetime; 194 time_t t = time(NULL); 195 int error; 196 u_int32_t scopeid; 197 198 memset(&null_sin, 0, sizeof(null_sin)); 199 200 sin = (struct sockaddr_in6 *)info->rti_info[RTAX_IFA]; 201 if (sin == NULL) 202 return; 203 204 strncpy(ifr6.ifr_name, ifr.ifr_name, sizeof(ifr.ifr_name)); 205 if ((s6 = socket(AF_INET6, SOCK_DGRAM, 0)) < 0) { 206 warn("socket(AF_INET6,SOCK_DGRAM)"); 207 return; 208 } 209 ifr6.ifr_addr = *sin; 210 if (ioctl(s6, SIOCGIFAFLAG_IN6, &ifr6) < 0) { 211 warn("ioctl(SIOCGIFAFLAG_IN6)"); 212 close(s6); 213 return; 214 } 215 flags6 = ifr6.ifr_ifru.ifru_flags6; 216 memset(&lifetime, 0, sizeof(lifetime)); 217 ifr6.ifr_addr = *sin; 218 if (ioctl(s6, SIOCGIFALIFETIME_IN6, &ifr6) < 0) { 219 warn("ioctl(SIOCGIFALIFETIME_IN6)"); 220 close(s6); 221 return; 222 } 223 lifetime = ifr6.ifr_ifru.ifru_lifetime; 224 close(s6); 225 226 /* XXX: embedded link local addr check */ 227 if (IN6_IS_ADDR_LINKLOCAL(&sin->sin6_addr) && 228 *(u_short *)&sin->sin6_addr.s6_addr[2] != 0) { 229 u_short index; 230 231 index = *(u_short *)&sin->sin6_addr.s6_addr[2]; 232 *(u_short *)&sin->sin6_addr.s6_addr[2] = 0; 233 if (sin->sin6_scope_id == 0) 234 sin->sin6_scope_id = ntohs(index); 235 } 236 scopeid = sin->sin6_scope_id; 237 238 error = getnameinfo((struct sockaddr *)sin, sin->sin6_len, addr_buf, 239 sizeof(addr_buf), NULL, 0, 240 NI_NUMERICHOST|NI_WITHSCOPEID); 241 if (error != 0) 242 inet_ntop(AF_INET6, &sin->sin6_addr, addr_buf, 243 sizeof(addr_buf)); 244 printf("\tinet6 %s ", addr_buf); 245 246 if (flags & IFF_POINTOPOINT) { 247 /* note RTAX_BRD overlap with IFF_BROADCAST */ 248 sin = (struct sockaddr_in6 *)info->rti_info[RTAX_BRD]; 249 /* 250 * some of the interfaces do not have valid destination 251 * address. 252 */ 253 if (sin && sin->sin6_family == AF_INET6) { 254 int error; 255 256 /* XXX: embedded link local addr check */ 257 if (IN6_IS_ADDR_LINKLOCAL(&sin->sin6_addr) && 258 *(u_short *)&sin->sin6_addr.s6_addr[2] != 0) { 259 u_short index; 260 261 index = *(u_short *)&sin->sin6_addr.s6_addr[2]; 262 *(u_short *)&sin->sin6_addr.s6_addr[2] = 0; 263 if (sin->sin6_scope_id == 0) 264 sin->sin6_scope_id = ntohs(index); 265 } 266 267 error = getnameinfo((struct sockaddr *)sin, 268 sin->sin6_len, addr_buf, 269 sizeof(addr_buf), NULL, 0, 270 NI_NUMERICHOST|NI_WITHSCOPEID); 271 if (error != 0) 272 inet_ntop(AF_INET6, &sin->sin6_addr, addr_buf, 273 sizeof(addr_buf)); 274 printf("--> %s ", addr_buf); 275 } 276 } 277 278 sin = (struct sockaddr_in6 *)info->rti_info[RTAX_NETMASK]; 279 if (!sin) 280 sin = &null_sin; 281 printf("prefixlen %d ", prefix(&sin->sin6_addr, 282 sizeof(struct in6_addr))); 283 284 if ((flags6 & IN6_IFF_ANYCAST) != 0) 285 printf("anycast "); 286 if ((flags6 & IN6_IFF_TENTATIVE) != 0) 287 printf("tentative "); 288 if ((flags6 & IN6_IFF_DUPLICATED) != 0) 289 printf("duplicated "); 290 if ((flags6 & IN6_IFF_DETACHED) != 0) 291 printf("detached "); 292 if ((flags6 & IN6_IFF_DEPRECATED) != 0) 293 printf("deprecated "); 294 if ((flags6 & IN6_IFF_AUTOCONF) != 0) 295 printf("autoconf "); 296 if ((flags6 & IN6_IFF_TEMPORARY) != 0) 297 printf("temporary "); 298 299 if (scopeid) 300 printf("scopeid 0x%x ", scopeid); 301 302 if (ip6lifetime && (lifetime.ia6t_preferred || lifetime.ia6t_expire)) { 303 printf("pltime "); 304 if (lifetime.ia6t_preferred) { 305 printf("%s ", lifetime.ia6t_preferred < t 306 ? "0" : sec2str(lifetime.ia6t_preferred - t)); 307 } else 308 printf("infty "); 309 310 printf("vltime "); 311 if (lifetime.ia6t_expire) { 312 printf("%s ", lifetime.ia6t_expire < t 313 ? "0" : sec2str(lifetime.ia6t_expire - t)); 314 } else 315 printf("infty "); 316 } 317 318 putchar('\n'); 319 } 320 321 #define SIN6(x) ((struct sockaddr_in6 *) &(x)) 322 static struct sockaddr_in6 *sin6tab[] = { 323 SIN6(in6_ridreq.ifr_addr), SIN6(in6_addreq.ifra_addr), 324 SIN6(in6_addreq.ifra_prefixmask), SIN6(in6_addreq.ifra_dstaddr) 325 }; 326 327 static void 328 in6_getprefix(const char *plen, int which) 329 { 330 struct sockaddr_in6 *sin = sin6tab[which]; 331 u_char *cp; 332 int len = atoi(plen); 333 334 if ((len < 0) || (len > 128)) 335 errx(1, "%s: bad value", plen); 336 sin->sin6_len = sizeof(*sin); 337 if (which != MASK) 338 sin->sin6_family = AF_INET6; 339 if ((len == 0) || (len == 128)) { 340 memset(&sin->sin6_addr, 0xff, sizeof(struct in6_addr)); 341 return; 342 } 343 memset((void *)&sin->sin6_addr, 0x00, sizeof(sin->sin6_addr)); 344 for (cp = (u_char *)&sin->sin6_addr; len > 7; len -= 8) 345 *cp++ = 0xff; 346 *cp = 0xff << (8 - len); 347 } 348 349 static void 350 in6_getaddr(const char *s, int which) 351 { 352 struct sockaddr_in6 *sin = sin6tab[which]; 353 struct addrinfo hints, *res; 354 int error = -1; 355 356 newaddr &= 1; 357 358 sin->sin6_len = sizeof(*sin); 359 if (which != MASK) 360 sin->sin6_family = AF_INET6; 361 362 if (which == ADDR) { 363 char *p = NULL; 364 if((p = strrchr(s, '/')) != NULL) { 365 *p = '\0'; 366 in6_getprefix(p + 1, MASK); 367 explicit_prefix = 1; 368 } 369 } 370 371 if (sin->sin6_family == AF_INET6) { 372 bzero(&hints, sizeof(struct addrinfo)); 373 hints.ai_family = AF_INET6; 374 error = getaddrinfo(s, NULL, &hints, &res); 375 } 376 if (error != 0) { 377 if (inet_pton(AF_INET6, s, &sin->sin6_addr) != 1) 378 errx(1, "%s: bad value", s); 379 } else 380 bcopy(res->ai_addr, sin, res->ai_addrlen); 381 } 382 383 static int 384 prefix(void *val, int size) 385 { 386 u_char *name = (u_char *)val; 387 int byte, bit, plen = 0; 388 389 for (byte = 0; byte < size; byte++, plen += 8) 390 if (name[byte] != 0xff) 391 break; 392 if (byte == size) 393 return (plen); 394 for (bit = 7; bit != 0; bit--, plen++) 395 if (!(name[byte] & (1 << bit))) 396 break; 397 for (; bit != 0; bit--) 398 if (name[byte] & (1 << bit)) 399 return(0); 400 byte++; 401 for (; byte < size; byte++) 402 if (name[byte]) 403 return(0); 404 return (plen); 405 } 406 407 static char * 408 sec2str(time_t total) 409 { 410 static char result[256]; 411 int days, hours, mins, secs; 412 int first = 1; 413 char *p = result; 414 415 if (0) { 416 days = total / 3600 / 24; 417 hours = (total / 3600) % 24; 418 mins = (total / 60) % 60; 419 secs = total % 60; 420 421 if (days) { 422 first = 0; 423 p += sprintf(p, "%dd", days); 424 } 425 if (!first || hours) { 426 first = 0; 427 p += sprintf(p, "%dh", hours); 428 } 429 if (!first || mins) { 430 first = 0; 431 p += sprintf(p, "%dm", mins); 432 } 433 sprintf(p, "%ds", secs); 434 } else 435 sprintf(result, "%lu", (unsigned long)total); 436 437 return(result); 438 } 439 440 static void 441 in6_postproc(int s, const struct afswtch *afp) 442 { 443 if (explicit_prefix == 0) { 444 /* Aggregatable address architecture defines all prefixes 445 are 64. So, it is convenient to set prefixlen to 64 if 446 it is not specified. */ 447 setifprefixlen("64", 0, s, afp); 448 /* in6_getprefix("64", MASK) if MASK is available here... */ 449 } 450 } 451 452 static void 453 in6_status_tunnel(int s) 454 { 455 char src[NI_MAXHOST]; 456 char dst[NI_MAXHOST]; 457 #ifdef NI_WITHSCOPEID 458 const int niflag = NI_NUMERICHOST | NI_WITHSCOPEID; 459 #else 460 const int niflag = NI_NUMERICHOST; 461 #endif 462 struct in6_ifreq in6_ifr; 463 const struct sockaddr *sa = (const struct sockaddr *) &in6_ifr.ifr_addr; 464 465 memset(&in6_ifr, 0, sizeof(in6_ifr)); 466 strncpy(in6_ifr.ifr_name, name, IFNAMSIZ); 467 468 if (ioctl(s, SIOCGIFPSRCADDR_IN6, (caddr_t)&in6_ifr) < 0) 469 return; 470 if (sa->sa_family == AF_INET6) 471 in6_fillscopeid(&in6_ifr.ifr_addr); 472 if (getnameinfo(sa, sa->sa_len, src, sizeof(src), 0, 0, niflag) != 0) 473 src[0] = '\0'; 474 475 if (ioctl(s, SIOCGIFPDSTADDR_IN6, (caddr_t)&in6_ifr) < 0) 476 return; 477 if (sa->sa_family == AF_INET6) 478 in6_fillscopeid(&in6_ifr.ifr_addr); 479 if (getnameinfo(sa, sa->sa_len, dst, sizeof(dst), 0, 0, niflag) != 0) 480 dst[0] = '\0'; 481 482 printf("\ttunnel inet6 %s --> %s\n", src, dst); 483 } 484 485 static void 486 in6_set_tunnel(int s, struct addrinfo *srcres, struct addrinfo *dstres) 487 { 488 struct in6_aliasreq in6_addreq; 489 490 memset(&in6_addreq, 0, sizeof(in6_addreq)); 491 strncpy(in6_addreq.ifra_name, name, IFNAMSIZ); 492 memcpy(&in6_addreq.ifra_addr, srcres->ai_addr, srcres->ai_addr->sa_len); 493 memcpy(&in6_addreq.ifra_dstaddr, dstres->ai_addr, 494 dstres->ai_addr->sa_len); 495 496 if (ioctl(s, SIOCSIFPHYADDR_IN6, &in6_addreq) < 0) 497 warn("SIOCSIFPHYADDR_IN6"); 498 } 499 500 static struct cmd inet6_cmds[] = { 501 DEF_CMD_ARG("prefixlen", setifprefixlen), 502 DEF_CMD("anycast", IN6_IFF_ANYCAST, setip6flags), 503 DEF_CMD("tentative", IN6_IFF_TENTATIVE, setip6flags), 504 DEF_CMD("-tentative", -IN6_IFF_TENTATIVE, setip6flags), 505 DEF_CMD("deprecated", IN6_IFF_DEPRECATED, setip6flags), 506 DEF_CMD("-deprecated", -IN6_IFF_DEPRECATED, setip6flags), 507 DEF_CMD("autoconf", IN6_IFF_AUTOCONF, setip6flags), 508 DEF_CMD("-autoconf", -IN6_IFF_AUTOCONF, setip6flags), 509 DEF_CMD_ARG("pltime", setip6pltime), 510 DEF_CMD_ARG("vltime", setip6vltime), 511 DEF_CMD("eui64", 0, setip6eui64), 512 }; 513 514 static struct afswtch af_inet6 = { 515 .af_name = "inet6", 516 .af_af = AF_INET6, 517 .af_status = in6_status, 518 .af_getaddr = in6_getaddr, 519 .af_getprefix = in6_getprefix, 520 .af_postproc = in6_postproc, 521 .af_status_tunnel = in6_status_tunnel, 522 .af_settunnel = in6_set_tunnel, 523 .af_difaddr = SIOCDIFADDR_IN6, 524 .af_aifaddr = SIOCAIFADDR_IN6, 525 .af_ridreq = &in6_addreq, 526 .af_addreq = &in6_addreq, 527 }; 528 529 static void 530 in6_Lopt_cb(const char *optarg __unused) 531 { 532 ip6lifetime++; /* print IPv6 address lifetime */ 533 } 534 static struct option in6_Lopt = { "L", "[-L]", in6_Lopt_cb }; 535 536 static __constructor void 537 inet6_ctor(void) 538 { 539 #define N(a) (sizeof(a) / sizeof(a[0])) 540 int i; 541 542 for (i = 0; i < N(inet6_cmds); i++) 543 cmd_register(&inet6_cmds[i]); 544 af_register(&af_inet6); 545 opt_register(&in6_Lopt); 546 #undef N 547 } 548