1 /* $NetBSD: rtsock.c,v 1.21 1996/07/01 01:12:32 christos Exp $ */ 2 3 /* 4 * Copyright (c) 1988, 1991, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. All advertising materials mentioning features or use of this software 16 * must display the following acknowledgement: 17 * This product includes software developed by the University of 18 * California, Berkeley and its contributors. 19 * 4. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 * 35 * @(#)rtsock.c 8.6 (Berkeley) 2/11/95 36 */ 37 38 #include <sys/param.h> 39 #include <sys/systm.h> 40 #include <sys/proc.h> 41 #include <sys/mbuf.h> 42 #include <sys/socket.h> 43 #include <sys/socketvar.h> 44 #include <sys/domain.h> 45 #include <sys/protosw.h> 46 47 #include <vm/vm.h> 48 #include <sys/sysctl.h> 49 50 #include <net/if.h> 51 #include <net/route.h> 52 #include <net/raw_cb.h> 53 54 #include <machine/stdarg.h> 55 56 struct sockaddr route_dst = { 2, PF_ROUTE, }; 57 struct sockaddr route_src = { 2, PF_ROUTE, }; 58 struct sockproto route_proto = { PF_ROUTE, }; 59 60 struct walkarg { 61 int w_op, w_arg, w_given, w_needed, w_tmemsize; 62 caddr_t w_where, w_tmem; 63 }; 64 65 static struct mbuf *rt_msg1 __P((int, struct rt_addrinfo *)); 66 static int rt_msg2 __P((int, struct rt_addrinfo *, caddr_t, struct walkarg *)); 67 static void rt_xaddrs __P((caddr_t, caddr_t, struct rt_addrinfo *)); 68 69 /* Sleazy use of local variables throughout file, warning!!!! */ 70 #define dst info.rti_info[RTAX_DST] 71 #define gate info.rti_info[RTAX_GATEWAY] 72 #define netmask info.rti_info[RTAX_NETMASK] 73 #define genmask info.rti_info[RTAX_GENMASK] 74 #define ifpaddr info.rti_info[RTAX_IFP] 75 #define ifaaddr info.rti_info[RTAX_IFA] 76 #define brdaddr info.rti_info[RTAX_BRD] 77 78 /*ARGSUSED*/ 79 int 80 route_usrreq(so, req, m, nam, control, p) 81 register struct socket *so; 82 int req; 83 struct mbuf *m, *nam, *control; 84 struct proc *p; 85 { 86 register int error = 0; 87 register struct rawcb *rp = sotorawcb(so); 88 int s; 89 90 if (req == PRU_ATTACH) { 91 MALLOC(rp, struct rawcb *, sizeof(*rp), M_PCB, M_WAITOK); 92 if ((so->so_pcb = rp) != NULL) 93 bzero(so->so_pcb, sizeof(*rp)); 94 95 } 96 if (req == PRU_DETACH && rp) { 97 int af = rp->rcb_proto.sp_protocol; 98 if (af == AF_INET) 99 route_cb.ip_count--; 100 else if (af == AF_NS) 101 route_cb.ns_count--; 102 else if (af == AF_ISO) 103 route_cb.iso_count--; 104 route_cb.any_count--; 105 } 106 s = splsoftnet(); 107 error = raw_usrreq(so, req, m, nam, control, p); 108 rp = sotorawcb(so); 109 if (req == PRU_ATTACH && rp) { 110 int af = rp->rcb_proto.sp_protocol; 111 if (error) { 112 free((caddr_t)rp, M_PCB); 113 splx(s); 114 return (error); 115 } 116 if (af == AF_INET) 117 route_cb.ip_count++; 118 else if (af == AF_NS) 119 route_cb.ns_count++; 120 else if (af == AF_ISO) 121 route_cb.iso_count++; 122 route_cb.any_count++; 123 rp->rcb_laddr = &route_src; 124 rp->rcb_faddr = &route_dst; 125 soisconnected(so); 126 so->so_options |= SO_USELOOPBACK; 127 } 128 splx(s); 129 return (error); 130 } 131 132 /*ARGSUSED*/ 133 int 134 #if __STDC__ 135 route_output(struct mbuf *m, ...) 136 #else 137 route_output(m, va_alist) 138 struct mbuf *m; 139 va_dcl 140 #endif 141 { 142 register struct rt_msghdr *rtm = 0; 143 register struct rtentry *rt = 0; 144 struct rtentry *saved_nrt = 0; 145 struct radix_node_head *rnh; 146 struct rt_addrinfo info; 147 int len, error = 0; 148 struct ifnet *ifp = 0; 149 struct ifaddr *ifa = 0; 150 struct socket *so; 151 va_list ap; 152 153 va_start(ap, m); 154 so = va_arg(ap, struct socket *); 155 va_end(ap); 156 157 158 #define senderr(e) { error = e; goto flush;} 159 if (m == 0 || ((m->m_len < sizeof(int32_t)) && 160 (m = m_pullup(m, sizeof(int32_t))) == 0)) 161 return (ENOBUFS); 162 if ((m->m_flags & M_PKTHDR) == 0) 163 panic("route_output"); 164 len = m->m_pkthdr.len; 165 if (len < sizeof(*rtm) || 166 len != mtod(m, struct rt_msghdr *)->rtm_msglen) { 167 dst = 0; 168 senderr(EINVAL); 169 } 170 R_Malloc(rtm, struct rt_msghdr *, len); 171 if (rtm == 0) { 172 dst = 0; 173 senderr(ENOBUFS); 174 } 175 m_copydata(m, 0, len, (caddr_t)rtm); 176 if (rtm->rtm_version != RTM_VERSION) { 177 dst = 0; 178 senderr(EPROTONOSUPPORT); 179 } 180 rtm->rtm_pid = curproc->p_pid; 181 info.rti_addrs = rtm->rtm_addrs; 182 rt_xaddrs((caddr_t)(rtm + 1), len + (caddr_t)rtm, &info); 183 if (dst == 0) 184 senderr(EINVAL); 185 if (genmask) { 186 struct radix_node *t; 187 t = rn_addmask((caddr_t)genmask, 0, 1); 188 if (t && Bcmp(genmask, t->rn_key, *(u_char *)genmask) == 0) 189 genmask = (struct sockaddr *)(t->rn_key); 190 else 191 senderr(ENOBUFS); 192 } 193 switch (rtm->rtm_type) { 194 195 case RTM_ADD: 196 if (gate == 0) 197 senderr(EINVAL); 198 error = rtrequest(RTM_ADD, dst, gate, netmask, 199 rtm->rtm_flags, &saved_nrt); 200 if (error == 0 && saved_nrt) { 201 rt_setmetrics(rtm->rtm_inits, 202 &rtm->rtm_rmx, &saved_nrt->rt_rmx); 203 saved_nrt->rt_refcnt--; 204 saved_nrt->rt_genmask = genmask; 205 } 206 break; 207 208 case RTM_DELETE: 209 error = rtrequest(RTM_DELETE, dst, gate, netmask, 210 rtm->rtm_flags, &saved_nrt); 211 if (error == 0) { 212 (rt = saved_nrt)->rt_refcnt++; 213 goto report; 214 } 215 break; 216 217 case RTM_GET: 218 case RTM_CHANGE: 219 case RTM_LOCK: 220 if ((rnh = rt_tables[dst->sa_family]) == 0) { 221 senderr(EAFNOSUPPORT); 222 } else if ((rt = (struct rtentry *) 223 rnh->rnh_lookup(dst, netmask, rnh)) != NULL) 224 rt->rt_refcnt++; 225 else 226 senderr(ESRCH); 227 switch(rtm->rtm_type) { 228 229 case RTM_GET: 230 report: 231 dst = rt_key(rt); 232 gate = rt->rt_gateway; 233 netmask = rt_mask(rt); 234 genmask = rt->rt_genmask; 235 if (rtm->rtm_addrs & (RTA_IFP | RTA_IFA)) { 236 if ((ifp = rt->rt_ifp) != NULL) { 237 ifpaddr = ifp->if_addrlist.tqh_first->ifa_addr; 238 ifaaddr = rt->rt_ifa->ifa_addr; 239 if (ifp->if_flags & IFF_POINTOPOINT) 240 brdaddr = rt->rt_ifa->ifa_dstaddr; 241 else 242 brdaddr = 0; 243 rtm->rtm_index = ifp->if_index; 244 } else { 245 ifpaddr = 0; 246 ifaaddr = 0; 247 } 248 } 249 len = rt_msg2(rtm->rtm_type, &info, NULL, NULL); 250 if (len > rtm->rtm_msglen) { 251 struct rt_msghdr *new_rtm; 252 R_Malloc(new_rtm, struct rt_msghdr *, len); 253 if (new_rtm == 0) 254 senderr(ENOBUFS); 255 Bcopy(rtm, new_rtm, rtm->rtm_msglen); 256 Free(rtm); rtm = new_rtm; 257 } 258 (void)rt_msg2(rtm->rtm_type, &info, (caddr_t)rtm, NULL); 259 rtm->rtm_flags = rt->rt_flags; 260 rtm->rtm_rmx = rt->rt_rmx; 261 rtm->rtm_addrs = info.rti_addrs; 262 break; 263 264 case RTM_CHANGE: 265 if (gate && rt_setgate(rt, rt_key(rt), gate)) 266 senderr(EDQUOT); 267 /* new gateway could require new ifaddr, ifp; 268 flags may also be different; ifp may be specified 269 by ll sockaddr when protocol address is ambiguous */ 270 if (ifpaddr && (ifa = ifa_ifwithnet(ifpaddr)) && 271 (ifp = ifa->ifa_ifp)) 272 ifa = ifaof_ifpforaddr(ifaaddr ? ifaaddr : gate, 273 ifp); 274 else if ((ifaaddr && (ifa = ifa_ifwithaddr(ifaaddr))) || 275 (gate && (ifa = ifa_ifwithroute(rt->rt_flags, 276 rt_key(rt), gate)))) 277 ifp = ifa->ifa_ifp; 278 if (ifa) { 279 register struct ifaddr *oifa = rt->rt_ifa; 280 if (oifa != ifa) { 281 if (oifa && oifa->ifa_rtrequest) 282 oifa->ifa_rtrequest(RTM_DELETE, 283 rt, gate); 284 IFAFREE(rt->rt_ifa); 285 rt->rt_ifa = ifa; 286 ifa->ifa_refcnt++; 287 rt->rt_ifp = ifp; 288 } 289 } 290 rt_setmetrics(rtm->rtm_inits, &rtm->rtm_rmx, 291 &rt->rt_rmx); 292 if (rt->rt_ifa && rt->rt_ifa->ifa_rtrequest) 293 rt->rt_ifa->ifa_rtrequest(RTM_ADD, rt, gate); 294 if (genmask) 295 rt->rt_genmask = genmask; 296 /* 297 * Fall into 298 */ 299 case RTM_LOCK: 300 rt->rt_rmx.rmx_locks &= ~(rtm->rtm_inits); 301 rt->rt_rmx.rmx_locks |= 302 (rtm->rtm_inits & rtm->rtm_rmx.rmx_locks); 303 break; 304 } 305 break; 306 307 default: 308 senderr(EOPNOTSUPP); 309 } 310 311 flush: 312 if (rtm) { 313 if (error) 314 rtm->rtm_errno = error; 315 else 316 rtm->rtm_flags |= RTF_DONE; 317 } 318 if (rt) 319 rtfree(rt); 320 { 321 register struct rawcb *rp = 0; 322 /* 323 * Check to see if we don't want our own messages. 324 */ 325 if ((so->so_options & SO_USELOOPBACK) == 0) { 326 if (route_cb.any_count <= 1) { 327 if (rtm) 328 Free(rtm); 329 m_freem(m); 330 return (error); 331 } 332 /* There is another listener, so construct message */ 333 rp = sotorawcb(so); 334 } 335 if (rtm) { 336 m_copyback(m, 0, rtm->rtm_msglen, (caddr_t)rtm); 337 Free(rtm); 338 } 339 if (rp) 340 rp->rcb_proto.sp_family = 0; /* Avoid us */ 341 if (dst) 342 route_proto.sp_protocol = dst->sa_family; 343 raw_input(m, &route_proto, &route_src, &route_dst); 344 if (rp) 345 rp->rcb_proto.sp_family = PF_ROUTE; 346 } 347 return (error); 348 } 349 350 void 351 rt_setmetrics(which, in, out) 352 u_long which; 353 register struct rt_metrics *in, *out; 354 { 355 #define metric(f, e) if (which & (f)) out->e = in->e; 356 metric(RTV_RPIPE, rmx_recvpipe); 357 metric(RTV_SPIPE, rmx_sendpipe); 358 metric(RTV_SSTHRESH, rmx_ssthresh); 359 metric(RTV_RTT, rmx_rtt); 360 metric(RTV_RTTVAR, rmx_rttvar); 361 metric(RTV_HOPCOUNT, rmx_hopcount); 362 metric(RTV_MTU, rmx_mtu); 363 metric(RTV_EXPIRE, rmx_expire); 364 #undef metric 365 } 366 367 #define ROUNDUP(a) \ 368 ((a) > 0 ? (1 + (((a) - 1) | (sizeof(long) - 1))) : sizeof(long)) 369 #define ADVANCE(x, n) (x += ROUNDUP((n)->sa_len)) 370 371 static void 372 rt_xaddrs(cp, cplim, rtinfo) 373 register caddr_t cp, cplim; 374 register struct rt_addrinfo *rtinfo; 375 { 376 register struct sockaddr *sa; 377 register int i; 378 379 bzero(rtinfo->rti_info, sizeof(rtinfo->rti_info)); 380 for (i = 0; (i < RTAX_MAX) && (cp < cplim); i++) { 381 if ((rtinfo->rti_addrs & (1 << i)) == 0) 382 continue; 383 rtinfo->rti_info[i] = sa = (struct sockaddr *)cp; 384 ADVANCE(cp, sa); 385 } 386 } 387 388 /* 389 * Copy data from a buffer back into the indicated mbuf chain, 390 * starting "off" bytes from the beginning, extending the mbuf 391 * chain if necessary. 392 */ 393 void 394 m_copyback(m0, off, len, cp) 395 struct mbuf *m0; 396 register int off; 397 register int len; 398 caddr_t cp; 399 { 400 register int mlen; 401 register struct mbuf *m = m0, *n; 402 int totlen = 0; 403 404 if (m0 == 0) 405 return; 406 while (off > (mlen = m->m_len)) { 407 off -= mlen; 408 totlen += mlen; 409 if (m->m_next == 0) { 410 n = m_getclr(M_DONTWAIT, m->m_type); 411 if (n == 0) 412 goto out; 413 n->m_len = min(MLEN, len + off); 414 m->m_next = n; 415 } 416 m = m->m_next; 417 } 418 while (len > 0) { 419 mlen = min (m->m_len - off, len); 420 bcopy(cp, off + mtod(m, caddr_t), (unsigned)mlen); 421 cp += mlen; 422 len -= mlen; 423 mlen += off; 424 off = 0; 425 totlen += mlen; 426 if (len == 0) 427 break; 428 if (m->m_next == 0) { 429 n = m_get(M_DONTWAIT, m->m_type); 430 if (n == 0) 431 break; 432 n->m_len = min(MLEN, len); 433 m->m_next = n; 434 } 435 m = m->m_next; 436 } 437 out: if (((m = m0)->m_flags & M_PKTHDR) && (m->m_pkthdr.len < totlen)) 438 m->m_pkthdr.len = totlen; 439 } 440 441 static struct mbuf * 442 rt_msg1(type, rtinfo) 443 int type; 444 register struct rt_addrinfo *rtinfo; 445 { 446 register struct rt_msghdr *rtm; 447 register struct mbuf *m; 448 register int i; 449 register struct sockaddr *sa; 450 int len, dlen; 451 452 m = m_gethdr(M_DONTWAIT, MT_DATA); 453 if (m == 0) 454 return (m); 455 switch (type) { 456 457 case RTM_DELADDR: 458 case RTM_NEWADDR: 459 len = sizeof(struct ifa_msghdr); 460 break; 461 462 case RTM_IFINFO: 463 len = sizeof(struct if_msghdr); 464 break; 465 466 default: 467 len = sizeof(struct rt_msghdr); 468 } 469 if (len > MHLEN) 470 panic("rt_msg1"); 471 m->m_pkthdr.len = m->m_len = len; 472 m->m_pkthdr.rcvif = 0; 473 rtm = mtod(m, struct rt_msghdr *); 474 bzero(rtm, len); 475 for (i = 0; i < RTAX_MAX; i++) { 476 if ((sa = rtinfo->rti_info[i]) == NULL) 477 continue; 478 rtinfo->rti_addrs |= (1 << i); 479 dlen = ROUNDUP(sa->sa_len); 480 m_copyback(m, len, dlen, (caddr_t)sa); 481 len += dlen; 482 } 483 if (m->m_pkthdr.len != len) { 484 m_freem(m); 485 return (NULL); 486 } 487 rtm->rtm_msglen = len; 488 rtm->rtm_version = RTM_VERSION; 489 rtm->rtm_type = type; 490 return (m); 491 } 492 493 static int 494 rt_msg2(type, rtinfo, cp, w) 495 int type; 496 register struct rt_addrinfo *rtinfo; 497 caddr_t cp; 498 struct walkarg *w; 499 { 500 register int i; 501 int len, dlen, second_time = 0; 502 caddr_t cp0; 503 504 rtinfo->rti_addrs = 0; 505 again: 506 switch (type) { 507 508 case RTM_DELADDR: 509 case RTM_NEWADDR: 510 len = sizeof(struct ifa_msghdr); 511 break; 512 513 case RTM_IFINFO: 514 len = sizeof(struct if_msghdr); 515 break; 516 517 default: 518 len = sizeof(struct rt_msghdr); 519 } 520 if ((cp0 = cp) != NULL) 521 cp += len; 522 for (i = 0; i < RTAX_MAX; i++) { 523 register struct sockaddr *sa; 524 525 if ((sa = rtinfo->rti_info[i]) == 0) 526 continue; 527 rtinfo->rti_addrs |= (1 << i); 528 dlen = ROUNDUP(sa->sa_len); 529 if (cp) { 530 bcopy(sa, cp, (unsigned)dlen); 531 cp += dlen; 532 } 533 len += dlen; 534 } 535 if (cp == 0 && w != NULL && !second_time) { 536 register struct walkarg *rw = w; 537 538 rw->w_needed += len; 539 if (rw->w_needed <= 0 && rw->w_where) { 540 if (rw->w_tmemsize < len) { 541 if (rw->w_tmem) 542 free(rw->w_tmem, M_RTABLE); 543 rw->w_tmem = (caddr_t) malloc(len, M_RTABLE, 544 M_NOWAIT); 545 if (rw->w_tmem) 546 rw->w_tmemsize = len; 547 } 548 if (rw->w_tmem) { 549 cp = rw->w_tmem; 550 second_time = 1; 551 goto again; 552 } else 553 rw->w_where = 0; 554 } 555 } 556 if (cp) { 557 register struct rt_msghdr *rtm = (struct rt_msghdr *)cp0; 558 559 rtm->rtm_version = RTM_VERSION; 560 rtm->rtm_type = type; 561 rtm->rtm_msglen = len; 562 } 563 return (len); 564 } 565 566 /* 567 * This routine is called to generate a message from the routing 568 * socket indicating that a redirect has occured, a routing lookup 569 * has failed, or that a protocol has detected timeouts to a particular 570 * destination. 571 */ 572 void 573 rt_missmsg(type, rtinfo, flags, error) 574 int type, flags, error; 575 register struct rt_addrinfo *rtinfo; 576 { 577 register struct rt_msghdr *rtm; 578 register struct mbuf *m; 579 struct sockaddr *sa = rtinfo->rti_info[RTAX_DST]; 580 581 if (route_cb.any_count == 0) 582 return; 583 m = rt_msg1(type, rtinfo); 584 if (m == 0) 585 return; 586 rtm = mtod(m, struct rt_msghdr *); 587 rtm->rtm_flags = RTF_DONE | flags; 588 rtm->rtm_errno = error; 589 rtm->rtm_addrs = rtinfo->rti_addrs; 590 route_proto.sp_protocol = sa ? sa->sa_family : 0; 591 raw_input(m, &route_proto, &route_src, &route_dst); 592 } 593 594 /* 595 * This routine is called to generate a message from the routing 596 * socket indicating that the status of a network interface has changed. 597 */ 598 void 599 rt_ifmsg(ifp) 600 register struct ifnet *ifp; 601 { 602 register struct if_msghdr *ifm; 603 struct mbuf *m; 604 struct rt_addrinfo info; 605 606 if (route_cb.any_count == 0) 607 return; 608 bzero(&info, sizeof(info)); 609 m = rt_msg1(RTM_IFINFO, &info); 610 if (m == 0) 611 return; 612 ifm = mtod(m, struct if_msghdr *); 613 ifm->ifm_index = ifp->if_index; 614 ifm->ifm_flags = ifp->if_flags; 615 ifm->ifm_data = ifp->if_data; 616 ifm->ifm_addrs = 0; 617 route_proto.sp_protocol = 0; 618 raw_input(m, &route_proto, &route_src, &route_dst); 619 } 620 621 /* 622 * This is called to generate messages from the routing socket 623 * indicating a network interface has had addresses associated with it. 624 * if we ever reverse the logic and replace messages TO the routing 625 * socket indicate a request to configure interfaces, then it will 626 * be unnecessary as the routing socket will automatically generate 627 * copies of it. 628 */ 629 void 630 rt_newaddrmsg(cmd, ifa, error, rt) 631 int cmd, error; 632 register struct ifaddr *ifa; 633 register struct rtentry *rt; 634 { 635 struct rt_addrinfo info; 636 struct sockaddr *sa = NULL; 637 int pass; 638 struct mbuf *m = NULL; 639 struct ifnet *ifp = ifa->ifa_ifp; 640 641 if (route_cb.any_count == 0) 642 return; 643 for (pass = 1; pass < 3; pass++) { 644 bzero(&info, sizeof(info)); 645 if ((cmd == RTM_ADD && pass == 1) || 646 (cmd == RTM_DELETE && pass == 2)) { 647 register struct ifa_msghdr *ifam; 648 int ncmd = cmd == RTM_ADD ? RTM_NEWADDR : RTM_DELADDR; 649 650 ifaaddr = sa = ifa->ifa_addr; 651 ifpaddr = ifp->if_addrlist.tqh_first->ifa_addr; 652 netmask = ifa->ifa_netmask; 653 brdaddr = ifa->ifa_dstaddr; 654 if ((m = rt_msg1(ncmd, &info)) == NULL) 655 continue; 656 ifam = mtod(m, struct ifa_msghdr *); 657 ifam->ifam_index = ifp->if_index; 658 ifam->ifam_metric = ifa->ifa_metric; 659 ifam->ifam_flags = ifa->ifa_flags; 660 ifam->ifam_addrs = info.rti_addrs; 661 } 662 if ((cmd == RTM_ADD && pass == 2) || 663 (cmd == RTM_DELETE && pass == 1)) { 664 register struct rt_msghdr *rtm; 665 666 if (rt == 0) 667 continue; 668 netmask = rt_mask(rt); 669 dst = sa = rt_key(rt); 670 gate = rt->rt_gateway; 671 if ((m = rt_msg1(cmd, &info)) == NULL) 672 continue; 673 rtm = mtod(m, struct rt_msghdr *); 674 rtm->rtm_index = ifp->if_index; 675 rtm->rtm_flags |= rt->rt_flags; 676 rtm->rtm_errno = error; 677 rtm->rtm_addrs = info.rti_addrs; 678 } 679 route_proto.sp_protocol = sa ? sa->sa_family : 0; 680 raw_input(m, &route_proto, &route_src, &route_dst); 681 } 682 } 683 684 /* 685 * This is used in dumping the kernel table via sysctl(). 686 */ 687 int 688 sysctl_dumpentry(rn, v) 689 struct radix_node *rn; 690 register void *v; 691 { 692 register struct walkarg *w = v; 693 register struct rtentry *rt = (struct rtentry *)rn; 694 int error = 0, size; 695 struct rt_addrinfo info; 696 697 if (w->w_op == NET_RT_FLAGS && !(rt->rt_flags & w->w_arg)) 698 return 0; 699 bzero(&info, sizeof(info)); 700 dst = rt_key(rt); 701 gate = rt->rt_gateway; 702 netmask = rt_mask(rt); 703 genmask = rt->rt_genmask; 704 if (rt->rt_ifp) { 705 ifpaddr = rt->rt_ifp->if_addrlist.tqh_first->ifa_addr; 706 ifaaddr = rt->rt_ifa->ifa_addr; 707 if (rt->rt_ifp->if_flags & IFF_POINTOPOINT) 708 brdaddr = rt->rt_ifa->ifa_dstaddr; 709 } 710 size = rt_msg2(RTM_GET, &info, 0, w); 711 if (w->w_where && w->w_tmem) { 712 register struct rt_msghdr *rtm = (struct rt_msghdr *)w->w_tmem; 713 714 rtm->rtm_flags = rt->rt_flags; 715 rtm->rtm_use = rt->rt_use; 716 rtm->rtm_rmx = rt->rt_rmx; 717 rtm->rtm_index = rt->rt_ifp->if_index; 718 rtm->rtm_errno = rtm->rtm_pid = rtm->rtm_seq = 0; 719 rtm->rtm_addrs = info.rti_addrs; 720 if ((error = copyout(rtm, w->w_where, size)) != 0) 721 w->w_where = NULL; 722 else 723 w->w_where += size; 724 } 725 return (error); 726 } 727 728 int 729 sysctl_iflist(af, w) 730 int af; 731 register struct walkarg *w; 732 { 733 register struct ifnet *ifp; 734 register struct ifaddr *ifa; 735 struct rt_addrinfo info; 736 int len, error = 0; 737 738 bzero(&info, sizeof(info)); 739 for (ifp = ifnet.tqh_first; ifp != 0; ifp = ifp->if_list.tqe_next) { 740 if (w->w_arg && w->w_arg != ifp->if_index) 741 continue; 742 ifa = ifp->if_addrlist.tqh_first; 743 ifpaddr = ifa->ifa_addr; 744 len = rt_msg2(RTM_IFINFO, &info, NULL, w); 745 ifpaddr = 0; 746 if (w->w_where && w->w_tmem) { 747 register struct if_msghdr *ifm; 748 749 ifm = (struct if_msghdr *)w->w_tmem; 750 ifm->ifm_index = ifp->if_index; 751 ifm->ifm_flags = ifp->if_flags; 752 ifm->ifm_data = ifp->if_data; 753 ifm->ifm_addrs = info.rti_addrs; 754 error = copyout(ifm, w->w_where, len); 755 if (error) 756 return (error); 757 w->w_where += len; 758 } 759 while ((ifa = ifa->ifa_list.tqe_next) != NULL) { 760 if (af && af != ifa->ifa_addr->sa_family) 761 continue; 762 ifaaddr = ifa->ifa_addr; 763 netmask = ifa->ifa_netmask; 764 brdaddr = ifa->ifa_dstaddr; 765 len = rt_msg2(RTM_NEWADDR, &info, 0, w); 766 if (w->w_where && w->w_tmem) { 767 register struct ifa_msghdr *ifam; 768 769 ifam = (struct ifa_msghdr *)w->w_tmem; 770 ifam->ifam_index = ifa->ifa_ifp->if_index; 771 ifam->ifam_flags = ifa->ifa_flags; 772 ifam->ifam_metric = ifa->ifa_metric; 773 ifam->ifam_addrs = info.rti_addrs; 774 error = copyout(w->w_tmem, w->w_where, len); 775 if (error) 776 return (error); 777 w->w_where += len; 778 } 779 } 780 ifaaddr = netmask = brdaddr = 0; 781 } 782 return (0); 783 } 784 785 int 786 sysctl_rtable(name, namelen, where, given, new, newlen) 787 int *name; 788 u_int namelen; 789 void *where; 790 size_t *given; 791 void *new; 792 size_t newlen; 793 { 794 register struct radix_node_head *rnh; 795 int i, s, error = EINVAL; 796 u_char af; 797 struct walkarg w; 798 799 if (new) 800 return (EPERM); 801 if (namelen != 3) 802 return (EINVAL); 803 af = name[0]; 804 Bzero(&w, sizeof(w)); 805 w.w_where = where; 806 w.w_given = *given; 807 w.w_needed = 0 - w.w_given; 808 w.w_op = name[1]; 809 w.w_arg = name[2]; 810 811 s = splsoftnet(); 812 switch (w.w_op) { 813 814 case NET_RT_DUMP: 815 case NET_RT_FLAGS: 816 for (i = 1; i <= AF_MAX; i++) 817 if ((rnh = rt_tables[i]) && (af == 0 || af == i) && 818 (error = (*rnh->rnh_walktree)(rnh, 819 sysctl_dumpentry, &w))) 820 break; 821 break; 822 823 case NET_RT_IFLIST: 824 error = sysctl_iflist(af, &w); 825 } 826 splx(s); 827 if (w.w_tmem) 828 free(w.w_tmem, M_RTABLE); 829 w.w_needed += w.w_given; 830 if (where) { 831 *given = w.w_where - (caddr_t) where; 832 if (*given < w.w_needed) 833 return (ENOMEM); 834 } else { 835 *given = (11 * w.w_needed) / 10; 836 } 837 return (error); 838 } 839 840 /* 841 * Definitions of protocols supported in the ROUTE domain. 842 */ 843 844 extern struct domain routedomain; /* or at least forward */ 845 846 struct protosw routesw[] = { 847 { SOCK_RAW, &routedomain, 0, PR_ATOMIC|PR_ADDR, 848 raw_input, route_output, raw_ctlinput, 0, 849 route_usrreq, 850 raw_init, 0, 0, 0, 851 sysctl_rtable, 852 } 853 }; 854 855 struct domain routedomain = 856 { PF_ROUTE, "route", route_init, 0, 0, 857 routesw, &routesw[sizeof(routesw)/sizeof(routesw[0])] }; 858