Home | History | Annotate | Line # | Download | only in netinet
ip_output.c revision 1.220
      1  1.220  christos /*	$NetBSD: ip_output.c,v 1.220 2013/06/05 19:01:26 christos Exp $	*/
      2   1.61    itojun 
      3   1.61    itojun /*
      4   1.61    itojun  * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
      5   1.61    itojun  * All rights reserved.
      6   1.97    itojun  *
      7   1.61    itojun  * Redistribution and use in source and binary forms, with or without
      8   1.61    itojun  * modification, are permitted provided that the following conditions
      9   1.61    itojun  * are met:
     10   1.61    itojun  * 1. Redistributions of source code must retain the above copyright
     11   1.61    itojun  *    notice, this list of conditions and the following disclaimer.
     12   1.61    itojun  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.61    itojun  *    notice, this list of conditions and the following disclaimer in the
     14   1.61    itojun  *    documentation and/or other materials provided with the distribution.
     15   1.61    itojun  * 3. Neither the name of the project nor the names of its contributors
     16   1.61    itojun  *    may be used to endorse or promote products derived from this software
     17   1.61    itojun  *    without specific prior written permission.
     18   1.97    itojun  *
     19   1.61    itojun  * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
     20   1.61    itojun  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21   1.61    itojun  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22   1.61    itojun  * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
     23   1.61    itojun  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24   1.61    itojun  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25   1.61    itojun  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26   1.61    itojun  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27   1.61    itojun  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28   1.61    itojun  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29   1.61    itojun  * SUCH DAMAGE.
     30   1.61    itojun  */
     31   1.54   thorpej 
     32   1.54   thorpej /*-
     33   1.54   thorpej  * Copyright (c) 1998 The NetBSD Foundation, Inc.
     34   1.54   thorpej  * All rights reserved.
     35   1.54   thorpej  *
     36   1.54   thorpej  * This code is derived from software contributed to The NetBSD Foundation
     37   1.54   thorpej  * by Public Access Networks Corporation ("Panix").  It was developed under
     38   1.54   thorpej  * contract to Panix by Eric Haszlakiewicz and Thor Lancelot Simon.
     39   1.54   thorpej  *
     40   1.54   thorpej  * Redistribution and use in source and binary forms, with or without
     41   1.54   thorpej  * modification, are permitted provided that the following conditions
     42   1.54   thorpej  * are met:
     43   1.54   thorpej  * 1. Redistributions of source code must retain the above copyright
     44   1.54   thorpej  *    notice, this list of conditions and the following disclaimer.
     45   1.54   thorpej  * 2. Redistributions in binary form must reproduce the above copyright
     46   1.54   thorpej  *    notice, this list of conditions and the following disclaimer in the
     47   1.54   thorpej  *    documentation and/or other materials provided with the distribution.
     48   1.54   thorpej  *
     49   1.54   thorpej  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     50   1.54   thorpej  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     51   1.54   thorpej  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     52   1.54   thorpej  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     53   1.54   thorpej  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     54   1.54   thorpej  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     55   1.54   thorpej  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     56   1.54   thorpej  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     57   1.54   thorpej  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     58   1.54   thorpej  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     59   1.54   thorpej  * POSSIBILITY OF SUCH DAMAGE.
     60   1.54   thorpej  */
     61   1.19       cgd 
     62    1.1       cgd /*
     63   1.18   mycroft  * Copyright (c) 1982, 1986, 1988, 1990, 1993
     64   1.18   mycroft  *	The Regents of the University of California.  All rights reserved.
     65    1.1       cgd  *
     66    1.1       cgd  * Redistribution and use in source and binary forms, with or without
     67    1.1       cgd  * modification, are permitted provided that the following conditions
     68    1.1       cgd  * are met:
     69    1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     70    1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     71    1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     72    1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     73    1.1       cgd  *    documentation and/or other materials provided with the distribution.
     74  1.108       agc  * 3. Neither the name of the University nor the names of its contributors
     75    1.1       cgd  *    may be used to endorse or promote products derived from this software
     76    1.1       cgd  *    without specific prior written permission.
     77    1.1       cgd  *
     78    1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     79    1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     80    1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     81    1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     82    1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     83    1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     84    1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     85    1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     86    1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     87    1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     88    1.1       cgd  * SUCH DAMAGE.
     89    1.1       cgd  *
     90   1.19       cgd  *	@(#)ip_output.c	8.3 (Berkeley) 1/21/94
     91    1.1       cgd  */
     92   1.89     lukem 
     93   1.89     lukem #include <sys/cdefs.h>
     94  1.220  christos __KERNEL_RCSID(0, "$NetBSD: ip_output.c,v 1.220 2013/06/05 19:01:26 christos Exp $");
     95   1.42    scottr 
     96   1.50       mrg #include "opt_pfil_hooks.h"
     97  1.128  jonathan #include "opt_inet.h"
     98   1.62   thorpej #include "opt_ipsec.h"
     99   1.42    scottr #include "opt_mrouting.h"
    100    1.1       cgd 
    101    1.8   mycroft #include <sys/param.h>
    102    1.8   mycroft #include <sys/malloc.h>
    103  1.215     rmind #include <sys/kmem.h>
    104    1.8   mycroft #include <sys/mbuf.h>
    105    1.8   mycroft #include <sys/errno.h>
    106    1.8   mycroft #include <sys/protosw.h>
    107    1.8   mycroft #include <sys/socket.h>
    108    1.8   mycroft #include <sys/socketvar.h>
    109  1.162  christos #include <sys/kauth.h>
    110  1.220  christos #ifdef IPSEC
    111  1.118    itojun #include <sys/domain.h>
    112  1.118    itojun #endif
    113   1.28  christos #include <sys/systm.h>
    114   1.61    itojun #include <sys/proc.h>
    115   1.61    itojun 
    116    1.8   mycroft #include <net/if.h>
    117    1.8   mycroft #include <net/route.h>
    118   1.38       mrg #include <net/pfil.h>
    119    1.1       cgd 
    120    1.8   mycroft #include <netinet/in.h>
    121    1.8   mycroft #include <netinet/in_systm.h>
    122    1.8   mycroft #include <netinet/ip.h>
    123    1.8   mycroft #include <netinet/in_pcb.h>
    124    1.8   mycroft #include <netinet/in_var.h>
    125    1.8   mycroft #include <netinet/ip_var.h>
    126  1.194   thorpej #include <netinet/ip_private.h>
    127  1.152      yamt #include <netinet/in_offload.h>
    128  1.217  christos #include <netinet/portalgo.h>
    129  1.219  christos #include <netinet/udp.h>
    130   1.72  jdolecek 
    131   1.72  jdolecek #ifdef MROUTING
    132   1.72  jdolecek #include <netinet/ip_mroute.h>
    133   1.72  jdolecek #endif
    134   1.32       mrg 
    135  1.220  christos #ifdef IPSEC
    136  1.109  jonathan #include <netipsec/ipsec.h>
    137  1.109  jonathan #include <netipsec/key.h>
    138  1.109  jonathan #include <netipsec/xform.h>
    139  1.220  christos #endif	/* IPSEC*/
    140  1.109  jonathan 
    141  1.160  christos 
    142  1.139     perry static struct mbuf *ip_insertoptions(struct mbuf *, struct mbuf *, int *);
    143  1.139     perry static struct ifnet *ip_multicast_if(struct in_addr *, int *);
    144  1.180    dyoung static void ip_mloopback(struct ifnet *, struct mbuf *,
    145  1.180    dyoung     const struct sockaddr_in *);
    146    1.1       cgd 
    147   1.78   thorpej #ifdef PFIL_HOOKS
    148   1.78   thorpej extern struct pfil_head inet_pfil_hook;			/* XXX */
    149   1.78   thorpej #endif
    150   1.78   thorpej 
    151  1.151      yamt int	ip_do_loopback_cksum = 0;
    152  1.151      yamt 
    153    1.1       cgd /*
    154    1.1       cgd  * IP output.  The packet in mbuf chain m contains a skeletal IP
    155    1.1       cgd  * header (with len, off, ttl, proto, tos, src, dst).
    156    1.1       cgd  * The mbuf chain containing the packet will be freed.
    157    1.1       cgd  * The mbuf opt, if present, will not be freed.
    158    1.1       cgd  */
    159   1.12   mycroft int
    160   1.28  christos ip_output(struct mbuf *m0, ...)
    161    1.1       cgd {
    162  1.186    dyoung 	struct rtentry *rt;
    163  1.110    itojun 	struct ip *ip;
    164   1.71  augustss 	struct ifnet *ifp;
    165   1.71  augustss 	struct mbuf *m = m0;
    166   1.71  augustss 	int hlen = sizeof (struct ip);
    167  1.110    itojun 	int len, error = 0;
    168    1.1       cgd 	struct route iproute;
    169  1.180    dyoung 	const struct sockaddr_in *dst;
    170    1.1       cgd 	struct in_ifaddr *ia;
    171  1.166    dyoung 	struct ifaddr *xifa;
    172   1.28  christos 	struct mbuf *opt;
    173   1.28  christos 	struct route *ro;
    174   1.86   thorpej 	int flags, sw_csum;
    175   1.40      matt 	int *mtu_p;
    176   1.96    itojun 	u_long mtu;
    177   1.28  christos 	struct ip_moptions *imo;
    178  1.116    itojun 	struct socket *so;
    179   1.28  christos 	va_list ap;
    180  1.141      manu 	int natt_frag = 0;
    181  1.220  christos #ifdef IPSEC
    182  1.116    itojun 	struct inpcb *inp;
    183  1.109  jonathan 	struct secpolicy *sp = NULL;
    184  1.109  jonathan 	int s;
    185  1.109  jonathan #endif
    186  1.180    dyoung 	union {
    187  1.180    dyoung 		struct sockaddr		dst;
    188  1.180    dyoung 		struct sockaddr_in	dst4;
    189  1.180    dyoung 	} u;
    190  1.180    dyoung 	struct sockaddr *rdst = &u.dst;	/* real IP destination, as opposed
    191  1.180    dyoung 					 * to the nexthop
    192  1.180    dyoung 					 */
    193   1.28  christos 
    194  1.102   darrenr 	len = 0;
    195   1.28  christos 	va_start(ap, m0);
    196   1.28  christos 	opt = va_arg(ap, struct mbuf *);
    197   1.28  christos 	ro = va_arg(ap, struct route *);
    198   1.28  christos 	flags = va_arg(ap, int);
    199   1.28  christos 	imo = va_arg(ap, struct ip_moptions *);
    200  1.116    itojun 	so = va_arg(ap, struct socket *);
    201   1.40      matt 	if (flags & IP_RETURNMTU)
    202   1.40      matt 		mtu_p = va_arg(ap, int *);
    203   1.40      matt 	else
    204   1.40      matt 		mtu_p = NULL;
    205   1.28  christos 	va_end(ap);
    206   1.28  christos 
    207  1.103      matt 	MCLAIM(m, &ip_tx_mowner);
    208  1.220  christos #ifdef IPSEC
    209  1.121  jonathan 	if (so != NULL && so->so_proto->pr_domain->dom_family == AF_INET)
    210  1.116    itojun 		inp = (struct inpcb *)so->so_pcb;
    211  1.116    itojun 	else
    212  1.116    itojun 		inp = NULL;
    213  1.220  christos #endif /* IPSEC */
    214   1.61    itojun 
    215    1.1       cgd #ifdef	DIAGNOSTIC
    216    1.1       cgd 	if ((m->m_flags & M_PKTHDR) == 0)
    217  1.163      tron 		panic("ip_output: no HDR");
    218  1.163      tron 
    219  1.164      tron 	if ((m->m_pkthdr.csum_flags & (M_CSUM_TCPv6|M_CSUM_UDPv6)) != 0) {
    220  1.163      tron 		panic("ip_output: IPv6 checksum offload flags: %d",
    221  1.163      tron 		    m->m_pkthdr.csum_flags);
    222  1.163      tron 	}
    223  1.163      tron 
    224  1.163      tron 	if ((m->m_pkthdr.csum_flags & (M_CSUM_TCPv4|M_CSUM_UDPv4)) ==
    225  1.163      tron 	    (M_CSUM_TCPv4|M_CSUM_UDPv4)) {
    226  1.163      tron 		panic("ip_output: conflicting checksum offload flags: %d",
    227  1.163      tron 		    m->m_pkthdr.csum_flags);
    228  1.163      tron 	}
    229    1.1       cgd #endif
    230    1.1       cgd 	if (opt) {
    231    1.1       cgd 		m = ip_insertoptions(m, opt, &len);
    232  1.102   darrenr 		if (len >= sizeof(struct ip))
    233  1.102   darrenr 			hlen = len;
    234    1.1       cgd 	}
    235    1.1       cgd 	ip = mtod(m, struct ip *);
    236    1.1       cgd 	/*
    237    1.1       cgd 	 * Fill in IP header.
    238    1.1       cgd 	 */
    239   1.18   mycroft 	if ((flags & (IP_FORWARDING|IP_RAWOUTPUT)) == 0) {
    240    1.1       cgd 		ip->ip_v = IPVERSION;
    241  1.100    itojun 		ip->ip_off = htons(0);
    242  1.192      matt 		/* ip->ip_id filled in after we find out source ia */
    243    1.1       cgd 		ip->ip_hl = hlen >> 2;
    244  1.194   thorpej 		IP_STATINC(IP_STAT_LOCALOUT);
    245    1.1       cgd 	} else {
    246    1.1       cgd 		hlen = ip->ip_hl << 2;
    247    1.1       cgd 	}
    248    1.1       cgd 	/*
    249    1.1       cgd 	 * Route packet.
    250    1.1       cgd 	 */
    251  1.176    dyoung 	memset(&iproute, 0, sizeof(iproute));
    252  1.174     joerg 	if (ro == NULL)
    253    1.1       cgd 		ro = &iproute;
    254  1.180    dyoung 	sockaddr_in_init(&u.dst4, &ip->ip_dst, 0);
    255  1.180    dyoung 	dst = satocsin(rtcache_getdst(ro));
    256    1.1       cgd 	/*
    257    1.1       cgd 	 * If there is a cached route,
    258    1.1       cgd 	 * check that it is to the same destination
    259    1.1       cgd 	 * and is still up.  If not, free it and try again.
    260   1.92    itojun 	 * The address family should also be checked in case of sharing the
    261   1.92    itojun 	 * cache with IPv6.
    262    1.1       cgd 	 */
    263  1.180    dyoung 	if (dst == NULL)
    264  1.180    dyoung 		;
    265  1.180    dyoung 	else if (dst->sin_family != AF_INET ||
    266  1.180    dyoung 		 !in_hosteq(dst->sin_addr, ip->ip_dst))
    267  1.171     joerg 		rtcache_free(ro);
    268  1.190    dyoung 
    269  1.190    dyoung 	if ((rt = rtcache_validate(ro)) == NULL &&
    270  1.190    dyoung 	    (rt = rtcache_update(ro, 1)) == NULL) {
    271  1.180    dyoung 		dst = &u.dst4;
    272  1.180    dyoung 		rtcache_setdst(ro, &u.dst);
    273    1.1       cgd 	}
    274    1.1       cgd 	/*
    275    1.1       cgd 	 * If routing to interface only,
    276    1.1       cgd 	 * short circuit routing lookup.
    277    1.1       cgd 	 */
    278    1.1       cgd 	if (flags & IP_ROUTETOIF) {
    279  1.180    dyoung 		if ((ia = ifatoia(ifa_ifwithladdr(sintocsa(dst)))) == NULL) {
    280  1.194   thorpej 			IP_STATINC(IP_STAT_NOROUTE);
    281    1.1       cgd 			error = ENETUNREACH;
    282    1.1       cgd 			goto bad;
    283    1.1       cgd 		}
    284    1.1       cgd 		ifp = ia->ia_ifp;
    285   1.48      matt 		mtu = ifp->if_mtu;
    286   1.18   mycroft 		ip->ip_ttl = 1;
    287   1.98    itojun 	} else if ((IN_MULTICAST(ip->ip_dst.s_addr) ||
    288   1.98    itojun 	    ip->ip_dst.s_addr == INADDR_BROADCAST) &&
    289   1.98    itojun 	    imo != NULL && imo->imo_multicast_ifp != NULL) {
    290   1.98    itojun 		ifp = imo->imo_multicast_ifp;
    291   1.98    itojun 		mtu = ifp->if_mtu;
    292   1.99    itojun 		IFP_TO_IA(ifp, ia);
    293    1.1       cgd 	} else {
    294  1.186    dyoung 		if (rt == NULL)
    295  1.190    dyoung 			rt = rtcache_init(ro);
    296  1.190    dyoung 		if (rt == NULL) {
    297  1.194   thorpej 			IP_STATINC(IP_STAT_NOROUTE);
    298    1.1       cgd 			error = EHOSTUNREACH;
    299    1.1       cgd 			goto bad;
    300    1.1       cgd 		}
    301  1.186    dyoung 		ia = ifatoia(rt->rt_ifa);
    302  1.186    dyoung 		ifp = rt->rt_ifp;
    303  1.186    dyoung 		if ((mtu = rt->rt_rmx.rmx_mtu) == 0)
    304   1.48      matt 			mtu = ifp->if_mtu;
    305  1.186    dyoung 		rt->rt_use++;
    306  1.186    dyoung 		if (rt->rt_flags & RTF_GATEWAY)
    307  1.186    dyoung 			dst = satosin(rt->rt_gateway);
    308    1.1       cgd 	}
    309   1.64        is 	if (IN_MULTICAST(ip->ip_dst.s_addr) ||
    310   1.64        is 	    (ip->ip_dst.s_addr == INADDR_BROADCAST)) {
    311    1.5   hpeyerl 		struct in_multi *inm;
    312    1.5   hpeyerl 
    313   1.64        is 		m->m_flags |= (ip->ip_dst.s_addr == INADDR_BROADCAST) ?
    314   1.64        is 			M_BCAST : M_MCAST;
    315    1.5   hpeyerl 		/*
    316    1.5   hpeyerl 		 * See if the caller provided any multicast options
    317    1.5   hpeyerl 		 */
    318   1.98    itojun 		if (imo != NULL)
    319    1.5   hpeyerl 			ip->ip_ttl = imo->imo_multicast_ttl;
    320   1.98    itojun 		else
    321    1.5   hpeyerl 			ip->ip_ttl = IP_DEFAULT_MULTICAST_TTL;
    322   1.98    itojun 
    323   1.98    itojun 		/*
    324   1.98    itojun 		 * if we don't know the outgoing ifp yet, we can't generate
    325   1.98    itojun 		 * output
    326   1.98    itojun 		 */
    327   1.98    itojun 		if (!ifp) {
    328  1.194   thorpej 			IP_STATINC(IP_STAT_NOROUTE);
    329   1.98    itojun 			error = ENETUNREACH;
    330   1.98    itojun 			goto bad;
    331   1.98    itojun 		}
    332   1.98    itojun 
    333    1.5   hpeyerl 		/*
    334   1.95   thorpej 		 * If the packet is multicast or broadcast, confirm that
    335   1.95   thorpej 		 * the outgoing interface can transmit it.
    336    1.5   hpeyerl 		 */
    337   1.64        is 		if (((m->m_flags & M_MCAST) &&
    338   1.64        is 		     (ifp->if_flags & IFF_MULTICAST) == 0) ||
    339   1.97    itojun 		    ((m->m_flags & M_BCAST) &&
    340   1.95   thorpej 		     (ifp->if_flags & (IFF_BROADCAST|IFF_POINTOPOINT)) == 0))  {
    341  1.194   thorpej 			IP_STATINC(IP_STAT_NOROUTE);
    342    1.5   hpeyerl 			error = ENETUNREACH;
    343    1.5   hpeyerl 			goto bad;
    344    1.5   hpeyerl 		}
    345    1.5   hpeyerl 		/*
    346   1.44       tls 		 * If source address not specified yet, use an address
    347    1.5   hpeyerl 		 * of outgoing interface.
    348    1.5   hpeyerl 		 */
    349   1.31   mycroft 		if (in_nullhost(ip->ip_src)) {
    350  1.153  christos 			struct in_ifaddr *xia;
    351    1.5   hpeyerl 
    352  1.153  christos 			IFP_TO_IA(ifp, xia);
    353  1.153  christos 			if (!xia) {
    354   1.91    itojun 				error = EADDRNOTAVAIL;
    355   1.91    itojun 				goto bad;
    356   1.91    itojun 			}
    357  1.166    dyoung 			xifa = &xia->ia_ifa;
    358  1.166    dyoung 			if (xifa->ifa_getifa != NULL) {
    359  1.180    dyoung 				xia = ifatoia((*xifa->ifa_getifa)(xifa, rdst));
    360  1.166    dyoung 			}
    361  1.153  christos 			ip->ip_src = xia->ia_addr.sin_addr;
    362    1.5   hpeyerl 		}
    363    1.5   hpeyerl 
    364    1.5   hpeyerl 		IN_LOOKUP_MULTI(ip->ip_dst, ifp, inm);
    365    1.5   hpeyerl 		if (inm != NULL &&
    366    1.5   hpeyerl 		   (imo == NULL || imo->imo_multicast_loop)) {
    367    1.5   hpeyerl 			/*
    368   1.11   mycroft 			 * If we belong to the destination multicast group
    369    1.5   hpeyerl 			 * on the outgoing interface, and the caller did not
    370    1.5   hpeyerl 			 * forbid loopback, loop back a copy.
    371    1.5   hpeyerl 			 */
    372  1.180    dyoung 			ip_mloopback(ifp, m, &u.dst4);
    373    1.5   hpeyerl 		}
    374    1.5   hpeyerl #ifdef MROUTING
    375   1.18   mycroft 		else {
    376    1.5   hpeyerl 			/*
    377    1.5   hpeyerl 			 * If we are acting as a multicast router, perform
    378    1.5   hpeyerl 			 * multicast forwarding as if the packet had just
    379    1.5   hpeyerl 			 * arrived on the interface to which we are about
    380    1.5   hpeyerl 			 * to send.  The multicast forwarding function
    381    1.5   hpeyerl 			 * recursively calls this function, using the
    382    1.5   hpeyerl 			 * IP_FORWARDING flag to prevent infinite recursion.
    383    1.5   hpeyerl 			 *
    384    1.5   hpeyerl 			 * Multicasts that are looped back by ip_mloopback(),
    385    1.5   hpeyerl 			 * above, will be forwarded by the ip_input() routine,
    386    1.5   hpeyerl 			 * if necessary.
    387    1.5   hpeyerl 			 */
    388   1.18   mycroft 			extern struct socket *ip_mrouter;
    389   1.22       cgd 
    390   1.18   mycroft 			if (ip_mrouter && (flags & IP_FORWARDING) == 0) {
    391   1.18   mycroft 				if (ip_mforward(m, ifp) != 0) {
    392   1.18   mycroft 					m_freem(m);
    393   1.18   mycroft 					goto done;
    394   1.18   mycroft 				}
    395    1.5   hpeyerl 			}
    396    1.5   hpeyerl 		}
    397    1.5   hpeyerl #endif
    398    1.5   hpeyerl 		/*
    399    1.5   hpeyerl 		 * Multicasts with a time-to-live of zero may be looped-
    400    1.5   hpeyerl 		 * back, above, but must not be transmitted on a network.
    401    1.5   hpeyerl 		 * Also, multicasts addressed to the loopback interface
    402    1.5   hpeyerl 		 * are not sent -- the above call to ip_mloopback() will
    403    1.5   hpeyerl 		 * loop back a copy if this host actually belongs to the
    404    1.5   hpeyerl 		 * destination group on the loopback interface.
    405    1.5   hpeyerl 		 */
    406   1.20   mycroft 		if (ip->ip_ttl == 0 || (ifp->if_flags & IFF_LOOPBACK) != 0) {
    407    1.5   hpeyerl 			m_freem(m);
    408    1.5   hpeyerl 			goto done;
    409    1.5   hpeyerl 		}
    410    1.5   hpeyerl 
    411    1.5   hpeyerl 		goto sendit;
    412    1.5   hpeyerl 	}
    413    1.1       cgd 	/*
    414    1.1       cgd 	 * If source address not specified yet, use address
    415    1.1       cgd 	 * of outgoing interface.
    416    1.1       cgd 	 */
    417  1.166    dyoung 	if (in_nullhost(ip->ip_src)) {
    418  1.166    dyoung 		xifa = &ia->ia_ifa;
    419  1.166    dyoung 		if (xifa->ifa_getifa != NULL)
    420  1.180    dyoung 			ia = ifatoia((*xifa->ifa_getifa)(xifa, rdst));
    421   1.25   mycroft 		ip->ip_src = ia->ia_addr.sin_addr;
    422  1.166    dyoung 	}
    423   1.59       hwr 
    424   1.59       hwr 	/*
    425   1.97    itojun 	 * packets with Class-D address as source are not valid per
    426   1.59       hwr 	 * RFC 1112
    427   1.59       hwr 	 */
    428   1.59       hwr 	if (IN_MULTICAST(ip->ip_src.s_addr)) {
    429  1.194   thorpej 		IP_STATINC(IP_STAT_ODROPPED);
    430   1.59       hwr 		error = EADDRNOTAVAIL;
    431   1.59       hwr 		goto bad;
    432   1.59       hwr 	}
    433   1.59       hwr 
    434    1.1       cgd 	/*
    435    1.1       cgd 	 * Look for broadcast address and
    436    1.1       cgd 	 * and verify user is allowed to send
    437    1.1       cgd 	 * such a packet.
    438    1.1       cgd 	 */
    439   1.18   mycroft 	if (in_broadcast(dst->sin_addr, ifp)) {
    440    1.1       cgd 		if ((ifp->if_flags & IFF_BROADCAST) == 0) {
    441    1.1       cgd 			error = EADDRNOTAVAIL;
    442    1.1       cgd 			goto bad;
    443    1.1       cgd 		}
    444    1.1       cgd 		if ((flags & IP_ALLOWBROADCAST) == 0) {
    445    1.1       cgd 			error = EACCES;
    446    1.1       cgd 			goto bad;
    447    1.1       cgd 		}
    448    1.1       cgd 		/* don't allow broadcast messages to be fragmented */
    449  1.100    itojun 		if (ntohs(ip->ip_len) > ifp->if_mtu) {
    450    1.1       cgd 			error = EMSGSIZE;
    451    1.1       cgd 			goto bad;
    452    1.1       cgd 		}
    453    1.1       cgd 		m->m_flags |= M_BCAST;
    454   1.18   mycroft 	} else
    455   1.18   mycroft 		m->m_flags &= ~M_BCAST;
    456   1.18   mycroft 
    457   1.60       mrg sendit:
    458  1.192      matt 	if ((flags & (IP_FORWARDING|IP_NOIPNEWID)) == 0) {
    459  1.192      matt 		if (m->m_pkthdr.len < IP_MINFRAGSIZE) {
    460  1.192      matt 			ip->ip_id = 0;
    461  1.192      matt 		} else if ((m->m_pkthdr.csum_flags & M_CSUM_TSOv4) == 0) {
    462  1.192      matt 			ip->ip_id = ip_newid(ia);
    463  1.192      matt 		} else {
    464  1.192      matt 
    465  1.192      matt 			/*
    466  1.192      matt 			 * TSO capable interfaces (typically?) increment
    467  1.192      matt 			 * ip_id for each segment.
    468  1.192      matt 			 * "allocate" enough ids here to increase the chance
    469  1.192      matt 			 * for them to be unique.
    470  1.192      matt 			 *
    471  1.192      matt 			 * note that the following calculation is not
    472  1.192      matt 			 * needed to be precise.  wasting some ip_id is fine.
    473  1.192      matt 			 */
    474  1.192      matt 
    475  1.192      matt 			unsigned int segsz = m->m_pkthdr.segsz;
    476  1.192      matt 			unsigned int datasz = ntohs(ip->ip_len) - hlen;
    477  1.192      matt 			unsigned int num = howmany(datasz, segsz);
    478  1.192      matt 
    479  1.192      matt 			ip->ip_id = ip_newid_range(ia, num);
    480  1.192      matt 		}
    481  1.192      matt 	}
    482   1.76   thorpej 	/*
    483   1.76   thorpej 	 * If we're doing Path MTU Discovery, we need to set DF unless
    484   1.76   thorpej 	 * the route's MTU is locked.
    485   1.76   thorpej 	 */
    486  1.186    dyoung 	if ((flags & IP_MTUDISC) != 0 && rt != NULL &&
    487  1.186    dyoung 	    (rt->rt_rmx.rmx_locks & RTV_MTU) == 0)
    488  1.100    itojun 		ip->ip_off |= htons(IP_DF);
    489   1.76   thorpej 
    490  1.220  christos #ifdef IPSEC
    491  1.109  jonathan 	/*
    492  1.109  jonathan 	 * Check the security policy (SP) for the packet and, if
    493  1.109  jonathan 	 * required, do IPsec-related processing.  There are two
    494  1.109  jonathan 	 * cases here; the first time a packet is sent through
    495  1.109  jonathan 	 * it will be untagged and handled by ipsec4_checkpolicy.
    496  1.109  jonathan 	 * If the packet is resubmitted to ip_output (e.g. after
    497  1.109  jonathan 	 * AH, ESP, etc. processing), there will be a tag to bypass
    498  1.109  jonathan 	 * the lookup and related policy checking.
    499  1.109  jonathan 	 */
    500  1.188  degroote 	if (!ipsec_outdone(m)) {
    501  1.188  degroote 		s = splsoftnet();
    502  1.130   thorpej 		if (inp != NULL &&
    503  1.203    martin 		    IPSEC_PCB_SKIP_IPSEC(inp->inp_sp, IPSEC_DIR_OUTBOUND)) {
    504  1.203    martin 			splx(s);
    505  1.130   thorpej 			goto spd_done;
    506  1.203    martin 		}
    507  1.109  jonathan 		sp = ipsec4_checkpolicy(m, IPSEC_DIR_OUTBOUND, flags,
    508  1.188  degroote 				&error, inp);
    509  1.160  christos 		/*
    510  1.188  degroote 		 * There are four return cases:
    511  1.188  degroote 		 *    sp != NULL	 	    apply IPsec policy
    512  1.188  degroote 		 *    sp == NULL, error == 0	    no IPsec handling needed
    513  1.188  degroote 		 *    sp == NULL, error == -EINVAL  discard packet w/o error
    514  1.188  degroote 		 *    sp == NULL, error != 0	    discard packet, report error
    515  1.160  christos 		 */
    516  1.188  degroote 		if (sp != NULL) {
    517  1.188  degroote 			/*
    518  1.219  christos 			 * NAT-T ESP fragmentation: don't do IPSec processing
    519  1.219  christos 			 * now, we'll do it on each fragmented packet.
    520  1.188  degroote 			 */
    521  1.219  christos 			if (sp->req->sav && (sp->req->sav->natt_type &
    522  1.219  christos 			    (UDP_ENCAP_ESPINUDP|UDP_ENCAP_ESPINUDP_NON_IKE))) {
    523  1.219  christos 				if (ntohs(ip->ip_len) > sp->req->sav->esp_frag)
    524  1.219  christos 				{
    525  1.188  degroote 					natt_frag = 1;
    526  1.188  degroote 					mtu = sp->req->sav->esp_frag;
    527  1.189  degroote 					splx(s);
    528  1.188  degroote 					goto spd_done;
    529  1.188  degroote 				}
    530  1.160  christos 			}
    531  1.188  degroote 
    532  1.109  jonathan 			/*
    533  1.188  degroote 			 * Do delayed checksums now because we send before
    534  1.188  degroote 			 * this is done in the normal processing path.
    535  1.109  jonathan 			 */
    536  1.188  degroote 			if (m->m_pkthdr.csum_flags & (M_CSUM_TCPv4|M_CSUM_UDPv4)) {
    537  1.188  degroote 				in_delayed_cksum(m);
    538  1.188  degroote 				m->m_pkthdr.csum_flags &= ~(M_CSUM_TCPv4|M_CSUM_UDPv4);
    539  1.109  jonathan 			}
    540  1.109  jonathan 
    541  1.109  jonathan #ifdef __FreeBSD__
    542  1.188  degroote 			ip->ip_len = htons(ip->ip_len);
    543  1.188  degroote 			ip->ip_off = htons(ip->ip_off);
    544  1.109  jonathan #endif
    545  1.109  jonathan 
    546  1.188  degroote 			/* NB: callee frees mbuf */
    547  1.188  degroote 			error = ipsec4_process_packet(m, sp->req, flags, 0);
    548  1.109  jonathan 			/*
    549  1.188  degroote 			 * Preserve KAME behaviour: ENOENT can be returned
    550  1.188  degroote 			 * when an SA acquire is in progress.  Don't propagate
    551  1.188  degroote 			 * this to user-level; it confuses applications.
    552  1.188  degroote 			 *
    553  1.188  degroote 			 * XXX this will go away when the SADB is redone.
    554  1.109  jonathan 			 */
    555  1.188  degroote 			if (error == ENOENT)
    556  1.109  jonathan 				error = 0;
    557  1.188  degroote 			splx(s);
    558  1.188  degroote 			goto done;
    559  1.109  jonathan 		} else {
    560  1.188  degroote 			splx(s);
    561  1.188  degroote 
    562  1.188  degroote 			if (error != 0) {
    563  1.188  degroote 				/*
    564  1.188  degroote 				 * Hack: -EINVAL is used to signal that a packet
    565  1.188  degroote 				 * should be silently discarded.  This is typically
    566  1.188  degroote 				 * because we asked key management for an SA and
    567  1.188  degroote 				 * it was delayed (e.g. kicked up to IKE).
    568  1.188  degroote 				 */
    569  1.188  degroote 				if (error == -EINVAL)
    570  1.188  degroote 					error = 0;
    571  1.188  degroote 				goto bad;
    572  1.188  degroote 			} else {
    573  1.188  degroote 				/* No IPsec processing for this packet. */
    574  1.188  degroote 			}
    575  1.109  jonathan 		}
    576  1.109  jonathan 	}
    577  1.109  jonathan spd_done:
    578  1.220  christos #endif /* IPSEC */
    579   1.61    itojun 
    580   1.82    itojun #ifdef PFIL_HOOKS
    581   1.82    itojun 	/*
    582   1.82    itojun 	 * Run through list of hooks for output packets.
    583   1.82    itojun 	 */
    584  1.106    itojun 	if ((error = pfil_run_hooks(&inet_pfil_hook, &m, ifp, PFIL_OUT)) != 0)
    585   1.82    itojun 		goto done;
    586   1.82    itojun 	if (m == NULL)
    587   1.82    itojun 		goto done;
    588   1.82    itojun 
    589   1.82    itojun 	ip = mtod(m, struct ip *);
    590  1.106    itojun 	hlen = ip->ip_hl << 2;
    591   1.82    itojun #endif /* PFIL_HOOKS */
    592   1.82    itojun 
    593  1.146      matt 	m->m_pkthdr.csum_data |= hlen << 16;
    594  1.146      matt 
    595  1.136   thorpej #if IFA_STATS
    596  1.136   thorpej 	/*
    597  1.136   thorpej 	 * search for the source address structure to
    598  1.136   thorpej 	 * maintain output statistics.
    599  1.136   thorpej 	 */
    600  1.136   thorpej 	INADDR_TO_IA(ip->ip_src, ia);
    601  1.136   thorpej #endif
    602  1.136   thorpej 
    603  1.138   thorpej 	/* Maybe skip checksums on loopback interfaces. */
    604  1.151      yamt 	if (IN_NEED_CHECKSUM(ifp, M_CSUM_IPv4)) {
    605  1.138   thorpej 		m->m_pkthdr.csum_flags |= M_CSUM_IPv4;
    606  1.151      yamt 	}
    607  1.104      yamt 	sw_csum = m->m_pkthdr.csum_flags & ~ifp->if_csum_flags_tx;
    608    1.1       cgd 	/*
    609  1.147      matt 	 * If small enough for mtu of path, or if using TCP segmentation
    610  1.147      matt 	 * offload, can just send directly.
    611    1.1       cgd 	 */
    612  1.218    kefren 	if (ntohs(ip->ip_len) <= mtu ||
    613  1.147      matt 	    (m->m_pkthdr.csum_flags & M_CSUM_TSOv4) != 0) {
    614   1.63    itojun #if IFA_STATS
    615   1.63    itojun 		if (ia)
    616  1.218    kefren 			ia->ia_ifa.ifa_data.ifad_outbytes += ntohs(ip->ip_len);
    617   1.63    itojun #endif
    618   1.86   thorpej 		/*
    619   1.86   thorpej 		 * Always initialize the sum to 0!  Some HW assisted
    620   1.86   thorpej 		 * checksumming requires this.
    621   1.86   thorpej 		 */
    622    1.1       cgd 		ip->ip_sum = 0;
    623   1.86   thorpej 
    624  1.149      matt 		if ((m->m_pkthdr.csum_flags & M_CSUM_TSOv4) == 0) {
    625  1.147      matt 			/*
    626  1.147      matt 			 * Perform any checksums that the hardware can't do
    627  1.147      matt 			 * for us.
    628  1.147      matt 			 *
    629  1.147      matt 			 * XXX Does any hardware require the {th,uh}_sum
    630  1.147      matt 			 * XXX fields to be 0?
    631  1.147      matt 			 */
    632  1.147      matt 			if (sw_csum & M_CSUM_IPv4) {
    633  1.151      yamt 				KASSERT(IN_NEED_CHECKSUM(ifp, M_CSUM_IPv4));
    634  1.147      matt 				ip->ip_sum = in_cksum(m, hlen);
    635  1.147      matt 				m->m_pkthdr.csum_flags &= ~M_CSUM_IPv4;
    636  1.147      matt 			}
    637  1.147      matt 			if (sw_csum & (M_CSUM_TCPv4|M_CSUM_UDPv4)) {
    638  1.151      yamt 				if (IN_NEED_CHECKSUM(ifp,
    639  1.151      yamt 				    sw_csum & (M_CSUM_TCPv4|M_CSUM_UDPv4))) {
    640  1.151      yamt 					in_delayed_cksum(m);
    641  1.151      yamt 				}
    642  1.147      matt 				m->m_pkthdr.csum_flags &=
    643  1.147      matt 				    ~(M_CSUM_TCPv4|M_CSUM_UDPv4);
    644  1.147      matt 			}
    645  1.146      matt 		}
    646   1.86   thorpej 
    647  1.152      yamt 		if (__predict_true(
    648  1.152      yamt 		    (m->m_pkthdr.csum_flags & M_CSUM_TSOv4) == 0 ||
    649  1.152      yamt 		    (ifp->if_capenable & IFCAP_TSOv4) != 0)) {
    650  1.208      yamt 			KERNEL_LOCK(1, NULL);
    651  1.152      yamt 			error =
    652  1.181      cube 			    (*ifp->if_output)(ifp, m,
    653  1.181      cube 				(m->m_flags & M_MCAST) ?
    654  1.181      cube 				    sintocsa(rdst) : sintocsa(dst),
    655  1.186    dyoung 				rt);
    656  1.208      yamt 			KERNEL_UNLOCK_ONE(NULL);
    657  1.152      yamt 		} else {
    658  1.152      yamt 			error =
    659  1.181      cube 			    ip_tso_output(ifp, m,
    660  1.181      cube 				(m->m_flags & M_MCAST) ?
    661  1.181      cube 				    sintocsa(rdst) : sintocsa(dst),
    662  1.186    dyoung 				rt);
    663  1.152      yamt 		}
    664    1.1       cgd 		goto done;
    665    1.1       cgd 	}
    666   1.61    itojun 
    667    1.1       cgd 	/*
    668   1.86   thorpej 	 * We can't use HW checksumming if we're about to
    669   1.86   thorpej 	 * to fragment the packet.
    670   1.86   thorpej 	 *
    671   1.86   thorpej 	 * XXX Some hardware can do this.
    672   1.86   thorpej 	 */
    673   1.86   thorpej 	if (m->m_pkthdr.csum_flags & (M_CSUM_TCPv4|M_CSUM_UDPv4)) {
    674  1.151      yamt 		if (IN_NEED_CHECKSUM(ifp,
    675  1.151      yamt 		    m->m_pkthdr.csum_flags & (M_CSUM_TCPv4|M_CSUM_UDPv4))) {
    676  1.151      yamt 			in_delayed_cksum(m);
    677  1.151      yamt 		}
    678   1.86   thorpej 		m->m_pkthdr.csum_flags &= ~(M_CSUM_TCPv4|M_CSUM_UDPv4);
    679   1.86   thorpej 	}
    680   1.86   thorpej 
    681   1.86   thorpej 	/*
    682    1.1       cgd 	 * Too large for interface; fragment if possible.
    683    1.1       cgd 	 * Must be able to put at least 8 bytes per fragment.
    684    1.1       cgd 	 */
    685  1.100    itojun 	if (ntohs(ip->ip_off) & IP_DF) {
    686   1.40      matt 		if (flags & IP_RETURNMTU)
    687   1.48      matt 			*mtu_p = mtu;
    688    1.1       cgd 		error = EMSGSIZE;
    689  1.194   thorpej 		IP_STATINC(IP_STAT_CANTFRAG);
    690    1.1       cgd 		goto bad;
    691    1.1       cgd 	}
    692  1.110    itojun 
    693  1.110    itojun 	error = ip_fragment(m, ifp, mtu);
    694  1.124    itojun 	if (error) {
    695  1.124    itojun 		m = NULL;
    696    1.1       cgd 		goto bad;
    697  1.124    itojun 	}
    698  1.110    itojun 
    699  1.119    itojun 	for (; m; m = m0) {
    700  1.110    itojun 		m0 = m->m_nextpkt;
    701  1.110    itojun 		m->m_nextpkt = 0;
    702  1.110    itojun 		if (error == 0) {
    703  1.110    itojun #if IFA_STATS
    704  1.136   thorpej 			if (ia)
    705  1.110    itojun 				ia->ia_ifa.ifa_data.ifad_outbytes +=
    706  1.110    itojun 				    ntohs(ip->ip_len);
    707  1.110    itojun #endif
    708  1.144     perry 			/*
    709  1.219  christos 			 * If we get there, the packet has not been handled by
    710  1.144     perry 			 * IPSec whereas it should have. Now that it has been
    711  1.141      manu 			 * fragmented, re-inject it in ip_output so that IPsec
    712  1.141      manu 			 * processing can occur.
    713  1.141      manu 			 */
    714  1.141      manu 			if (natt_frag) {
    715  1.219  christos 				error = ip_output(m, opt, ro,
    716  1.219  christos 				    flags | IP_RAWOUTPUT | IP_NOIPNEWID,
    717  1.219  christos 				    imo, so, mtu_p);
    718  1.219  christos 			} else {
    719  1.141      manu 				KASSERT((m->m_pkthdr.csum_flags &
    720  1.141      manu 				    (M_CSUM_UDPv4 | M_CSUM_TCPv4)) == 0);
    721  1.208      yamt 				KERNEL_LOCK(1, NULL);
    722  1.181      cube 				error = (*ifp->if_output)(ifp, m,
    723  1.181      cube 				    (m->m_flags & M_MCAST) ?
    724  1.181      cube 					sintocsa(rdst) : sintocsa(dst),
    725  1.186    dyoung 				    rt);
    726  1.208      yamt 				KERNEL_UNLOCK_ONE(NULL);
    727  1.141      manu 			}
    728  1.110    itojun 		} else
    729  1.110    itojun 			m_freem(m);
    730    1.1       cgd 	}
    731    1.1       cgd 
    732  1.110    itojun 	if (error == 0)
    733  1.194   thorpej 		IP_STATINC(IP_STAT_FRAGMENTED);
    734  1.110    itojun done:
    735  1.174     joerg 	rtcache_free(&iproute);
    736  1.110    itojun 
    737  1.220  christos #ifdef IPSEC
    738  1.110    itojun 	if (sp != NULL)
    739  1.110    itojun 		KEY_FREESP(&sp);
    740  1.220  christos #endif /* IPSEC */
    741  1.110    itojun 
    742  1.110    itojun 	return (error);
    743  1.110    itojun bad:
    744  1.110    itojun 	m_freem(m);
    745  1.110    itojun 	goto done;
    746  1.110    itojun }
    747  1.110    itojun 
    748  1.113    itojun int
    749  1.110    itojun ip_fragment(struct mbuf *m, struct ifnet *ifp, u_long mtu)
    750  1.110    itojun {
    751  1.110    itojun 	struct ip *ip, *mhip;
    752  1.110    itojun 	struct mbuf *m0;
    753  1.110    itojun 	int len, hlen, off;
    754  1.110    itojun 	int mhlen, firstlen;
    755  1.110    itojun 	struct mbuf **mnext;
    756  1.135      manu 	int sw_csum = m->m_pkthdr.csum_flags;
    757   1.48      matt 	int fragments = 0;
    758   1.48      matt 	int s;
    759  1.110    itojun 	int error = 0;
    760  1.110    itojun 
    761  1.110    itojun 	ip = mtod(m, struct ip *);
    762  1.110    itojun 	hlen = ip->ip_hl << 2;
    763  1.135      manu 	if (ifp != NULL)
    764  1.135      manu 		sw_csum &= ~ifp->if_csum_flags_tx;
    765  1.110    itojun 
    766  1.110    itojun 	len = (mtu - hlen) &~ 7;
    767  1.124    itojun 	if (len < 8) {
    768  1.124    itojun 		m_freem(m);
    769  1.110    itojun 		return (EMSGSIZE);
    770  1.124    itojun 	}
    771  1.110    itojun 
    772  1.110    itojun 	firstlen = len;
    773  1.110    itojun 	mnext = &m->m_nextpkt;
    774    1.1       cgd 
    775    1.1       cgd 	/*
    776    1.1       cgd 	 * Loop through length of segment after first fragment,
    777    1.1       cgd 	 * make new header and copy data of each part and link onto chain.
    778    1.1       cgd 	 */
    779    1.1       cgd 	m0 = m;
    780    1.1       cgd 	mhlen = sizeof (struct ip);
    781  1.100    itojun 	for (off = hlen + len; off < ntohs(ip->ip_len); off += len) {
    782    1.1       cgd 		MGETHDR(m, M_DONTWAIT, MT_HEADER);
    783    1.1       cgd 		if (m == 0) {
    784    1.1       cgd 			error = ENOBUFS;
    785  1.194   thorpej 			IP_STATINC(IP_STAT_ODROPPED);
    786    1.1       cgd 			goto sendorfree;
    787    1.1       cgd 		}
    788  1.103      matt 		MCLAIM(m, m0->m_owner);
    789   1.22       cgd 		*mnext = m;
    790   1.22       cgd 		mnext = &m->m_nextpkt;
    791    1.1       cgd 		m->m_data += max_linkhdr;
    792    1.1       cgd 		mhip = mtod(m, struct ip *);
    793    1.1       cgd 		*mhip = *ip;
    794   1.73        is 		/* we must inherit MCAST and BCAST flags */
    795   1.73        is 		m->m_flags |= m0->m_flags & (M_MCAST|M_BCAST);
    796    1.1       cgd 		if (hlen > sizeof (struct ip)) {
    797    1.1       cgd 			mhlen = ip_optcopy(ip, mhip) + sizeof (struct ip);
    798    1.1       cgd 			mhip->ip_hl = mhlen >> 2;
    799    1.1       cgd 		}
    800    1.1       cgd 		m->m_len = mhlen;
    801  1.122    itojun 		mhip->ip_off = ((off - hlen) >> 3) +
    802  1.122    itojun 		    (ntohs(ip->ip_off) & ~IP_MF);
    803  1.122    itojun 		if (ip->ip_off & htons(IP_MF))
    804    1.1       cgd 			mhip->ip_off |= IP_MF;
    805  1.100    itojun 		if (off + len >= ntohs(ip->ip_len))
    806  1.100    itojun 			len = ntohs(ip->ip_len) - off;
    807    1.1       cgd 		else
    808    1.1       cgd 			mhip->ip_off |= IP_MF;
    809  1.100    itojun 		HTONS(mhip->ip_off);
    810   1.21       cgd 		mhip->ip_len = htons((u_int16_t)(len + mhlen));
    811  1.182    dyoung 		m->m_next = m_copym(m0, off, len, M_DONTWAIT);
    812    1.1       cgd 		if (m->m_next == 0) {
    813    1.1       cgd 			error = ENOBUFS;	/* ??? */
    814  1.194   thorpej 			IP_STATINC(IP_STAT_ODROPPED);
    815    1.1       cgd 			goto sendorfree;
    816    1.1       cgd 		}
    817    1.1       cgd 		m->m_pkthdr.len = mhlen + len;
    818  1.212  christos 		m->m_pkthdr.rcvif = NULL;
    819    1.1       cgd 		mhip->ip_sum = 0;
    820  1.210      yamt 		KASSERT((m->m_pkthdr.csum_flags & M_CSUM_IPv4) == 0);
    821  1.104      yamt 		if (sw_csum & M_CSUM_IPv4) {
    822  1.104      yamt 			mhip->ip_sum = in_cksum(m, mhlen);
    823  1.104      yamt 		} else {
    824  1.210      yamt 			/*
    825  1.210      yamt 			 * checksum is hw-offloaded or not necessary.
    826  1.210      yamt 			 */
    827  1.210      yamt 			m->m_pkthdr.csum_flags |=
    828  1.210      yamt 			    m0->m_pkthdr.csum_flags & M_CSUM_IPv4;
    829  1.148   thorpej 			m->m_pkthdr.csum_data |= mhlen << 16;
    830  1.210      yamt 			KASSERT(!(ifp != NULL &&
    831  1.210      yamt 			    IN_NEED_CHECKSUM(ifp, M_CSUM_IPv4))
    832  1.210      yamt 			    || (m->m_pkthdr.csum_flags & M_CSUM_IPv4) != 0);
    833  1.104      yamt 		}
    834  1.194   thorpej 		IP_STATINC(IP_STAT_OFRAGMENTS);
    835   1.48      matt 		fragments++;
    836    1.1       cgd 	}
    837    1.1       cgd 	/*
    838    1.1       cgd 	 * Update first fragment by trimming what's been copied out
    839    1.1       cgd 	 * and updating header, then send each fragment (in order).
    840    1.1       cgd 	 */
    841    1.1       cgd 	m = m0;
    842  1.100    itojun 	m_adj(m, hlen + firstlen - ntohs(ip->ip_len));
    843    1.1       cgd 	m->m_pkthdr.len = hlen + firstlen;
    844   1.21       cgd 	ip->ip_len = htons((u_int16_t)m->m_pkthdr.len);
    845  1.100    itojun 	ip->ip_off |= htons(IP_MF);
    846    1.1       cgd 	ip->ip_sum = 0;
    847  1.210      yamt 	if (sw_csum & M_CSUM_IPv4) {
    848  1.210      yamt 		ip->ip_sum = in_cksum(m, hlen);
    849  1.210      yamt 		m->m_pkthdr.csum_flags &= ~M_CSUM_IPv4;
    850  1.210      yamt 	} else {
    851  1.210      yamt 		/*
    852  1.210      yamt 		 * checksum is hw-offloaded or not necessary.
    853  1.210      yamt 		 */
    854  1.210      yamt 		KASSERT(!(ifp != NULL && IN_NEED_CHECKSUM(ifp, M_CSUM_IPv4))
    855  1.210      yamt 		   || (m->m_pkthdr.csum_flags & M_CSUM_IPv4) != 0);
    856  1.210      yamt 		KASSERT(M_CSUM_DATA_IPv4_IPHL(m->m_pkthdr.csum_data) >=
    857  1.210      yamt 			sizeof(struct ip));
    858  1.104      yamt 	}
    859    1.1       cgd sendorfree:
    860   1.48      matt 	/*
    861   1.48      matt 	 * If there is no room for all the fragments, don't queue
    862   1.48      matt 	 * any of them.
    863   1.48      matt 	 */
    864  1.135      manu 	if (ifp != NULL) {
    865  1.135      manu 		s = splnet();
    866  1.135      manu 		if (ifp->if_snd.ifq_maxlen - ifp->if_snd.ifq_len < fragments &&
    867  1.135      manu 		    error == 0) {
    868  1.135      manu 			error = ENOBUFS;
    869  1.194   thorpej 			IP_STATINC(IP_STAT_ODROPPED);
    870  1.135      manu 			IFQ_INC_DROPS(&ifp->if_snd);
    871  1.135      manu 		}
    872  1.135      manu 		splx(s);
    873  1.126     enami 	}
    874  1.124    itojun 	if (error) {
    875  1.125    itojun 		for (m = m0; m; m = m0) {
    876  1.124    itojun 			m0 = m->m_nextpkt;
    877  1.124    itojun 			m->m_nextpkt = NULL;
    878  1.124    itojun 			m_freem(m);
    879  1.124    itojun 		}
    880  1.124    itojun 	}
    881    1.1       cgd 	return (error);
    882   1.86   thorpej }
    883   1.86   thorpej 
    884   1.86   thorpej /*
    885   1.86   thorpej  * Process a delayed payload checksum calculation.
    886   1.86   thorpej  */
    887   1.86   thorpej void
    888   1.86   thorpej in_delayed_cksum(struct mbuf *m)
    889   1.86   thorpej {
    890   1.86   thorpej 	struct ip *ip;
    891   1.86   thorpej 	u_int16_t csum, offset;
    892   1.86   thorpej 
    893   1.86   thorpej 	ip = mtod(m, struct ip *);
    894   1.86   thorpej 	offset = ip->ip_hl << 2;
    895   1.86   thorpej 	csum = in4_cksum(m, 0, offset, ntohs(ip->ip_len) - offset);
    896   1.86   thorpej 	if (csum == 0 && (m->m_pkthdr.csum_flags & M_CSUM_UDPv4) != 0)
    897   1.86   thorpej 		csum = 0xffff;
    898   1.86   thorpej 
    899  1.145    briggs 	offset += M_CSUM_DATA_IPv4_OFFSET(m->m_pkthdr.csum_data);
    900   1.86   thorpej 
    901   1.86   thorpej 	if ((offset + sizeof(u_int16_t)) > m->m_len) {
    902   1.87      yamt 		/* This happen when ip options were inserted
    903   1.86   thorpej 		printf("in_delayed_cksum: pullup len %d off %d proto %d\n",
    904   1.86   thorpej 		    m->m_len, offset, ip->ip_p);
    905   1.87      yamt 		 */
    906  1.179  christos 		m_copyback(m, offset, sizeof(csum), (void *) &csum);
    907   1.86   thorpej 	} else
    908  1.179  christos 		*(u_int16_t *)(mtod(m, char *) + offset) = csum;
    909    1.1       cgd }
    910   1.47       kml 
    911   1.47       kml /*
    912   1.47       kml  * Determine the maximum length of the options to be inserted;
    913   1.47       kml  * we would far rather allocate too much space rather than too little.
    914   1.47       kml  */
    915   1.47       kml 
    916   1.47       kml u_int
    917  1.140     perry ip_optlen(struct inpcb *inp)
    918   1.47       kml {
    919   1.47       kml 	struct mbuf *m = inp->inp_options;
    920   1.47       kml 
    921   1.47       kml 	if (m && m->m_len > offsetof(struct ipoption, ipopt_dst))
    922  1.101    itojun 		return (m->m_len - offsetof(struct ipoption, ipopt_dst));
    923   1.47       kml 	else
    924   1.47       kml 		return 0;
    925   1.47       kml }
    926   1.47       kml 
    927    1.1       cgd 
    928    1.1       cgd /*
    929    1.1       cgd  * Insert IP options into preformed packet.
    930    1.1       cgd  * Adjust IP destination as required for IP source routing,
    931    1.1       cgd  * as indicated by a non-zero in_addr at the start of the options.
    932    1.1       cgd  */
    933   1.12   mycroft static struct mbuf *
    934  1.140     perry ip_insertoptions(struct mbuf *m, struct mbuf *opt, int *phlen)
    935    1.1       cgd {
    936   1.71  augustss 	struct ipoption *p = mtod(opt, struct ipoption *);
    937    1.1       cgd 	struct mbuf *n;
    938   1.71  augustss 	struct ip *ip = mtod(m, struct ip *);
    939    1.1       cgd 	unsigned optlen;
    940    1.1       cgd 
    941    1.1       cgd 	optlen = opt->m_len - sizeof(p->ipopt_dst);
    942  1.100    itojun 	if (optlen + ntohs(ip->ip_len) > IP_MAXPACKET)
    943    1.1       cgd 		return (m);		/* XXX should fail */
    944   1.31   mycroft 	if (!in_nullhost(p->ipopt_dst))
    945    1.1       cgd 		ip->ip_dst = p->ipopt_dst;
    946  1.123    itojun 	if (M_READONLY(m) || M_LEADINGSPACE(m) < optlen) {
    947    1.1       cgd 		MGETHDR(n, M_DONTWAIT, MT_HEADER);
    948    1.1       cgd 		if (n == 0)
    949    1.1       cgd 			return (m);
    950  1.103      matt 		MCLAIM(n, m->m_owner);
    951  1.155      yamt 		M_MOVE_PKTHDR(n, m);
    952    1.1       cgd 		m->m_len -= sizeof(struct ip);
    953    1.1       cgd 		m->m_data += sizeof(struct ip);
    954    1.1       cgd 		n->m_next = m;
    955    1.1       cgd 		m = n;
    956    1.1       cgd 		m->m_len = optlen + sizeof(struct ip);
    957    1.1       cgd 		m->m_data += max_linkhdr;
    958  1.179  christos 		bcopy((void *)ip, mtod(m, void *), sizeof(struct ip));
    959    1.1       cgd 	} else {
    960    1.1       cgd 		m->m_data -= optlen;
    961    1.1       cgd 		m->m_len += optlen;
    962  1.179  christos 		memmove(mtod(m, void *), ip, sizeof(struct ip));
    963    1.1       cgd 	}
    964   1.87      yamt 	m->m_pkthdr.len += optlen;
    965    1.1       cgd 	ip = mtod(m, struct ip *);
    966  1.179  christos 	bcopy((void *)p->ipopt_list, (void *)(ip + 1), (unsigned)optlen);
    967    1.1       cgd 	*phlen = sizeof(struct ip) + optlen;
    968  1.100    itojun 	ip->ip_len = htons(ntohs(ip->ip_len) + optlen);
    969    1.1       cgd 	return (m);
    970    1.1       cgd }
    971    1.1       cgd 
    972    1.1       cgd /*
    973    1.1       cgd  * Copy options from ip to jp,
    974    1.1       cgd  * omitting those not copied during fragmentation.
    975    1.1       cgd  */
    976   1.12   mycroft int
    977  1.140     perry ip_optcopy(struct ip *ip, struct ip *jp)
    978    1.1       cgd {
    979   1.71  augustss 	u_char *cp, *dp;
    980    1.1       cgd 	int opt, optlen, cnt;
    981    1.1       cgd 
    982    1.1       cgd 	cp = (u_char *)(ip + 1);
    983    1.1       cgd 	dp = (u_char *)(jp + 1);
    984    1.1       cgd 	cnt = (ip->ip_hl << 2) - sizeof (struct ip);
    985    1.1       cgd 	for (; cnt > 0; cnt -= optlen, cp += optlen) {
    986    1.1       cgd 		opt = cp[0];
    987    1.1       cgd 		if (opt == IPOPT_EOL)
    988    1.1       cgd 			break;
    989   1.18   mycroft 		if (opt == IPOPT_NOP) {
    990   1.18   mycroft 			/* Preserve for IP mcast tunnel's LSRR alignment. */
    991   1.18   mycroft 			*dp++ = IPOPT_NOP;
    992    1.1       cgd 			optlen = 1;
    993   1.18   mycroft 			continue;
    994   1.74    itojun 		}
    995   1.74    itojun #ifdef DIAGNOSTIC
    996   1.74    itojun 		if (cnt < IPOPT_OLEN + sizeof(*cp))
    997   1.74    itojun 			panic("malformed IPv4 option passed to ip_optcopy");
    998   1.74    itojun #endif
    999   1.74    itojun 		optlen = cp[IPOPT_OLEN];
   1000   1.74    itojun #ifdef DIAGNOSTIC
   1001   1.74    itojun 		if (optlen < IPOPT_OLEN + sizeof(*cp) || optlen > cnt)
   1002   1.74    itojun 			panic("malformed IPv4 option passed to ip_optcopy");
   1003   1.74    itojun #endif
   1004    1.1       cgd 		/* bogus lengths should have been caught by ip_dooptions */
   1005    1.1       cgd 		if (optlen > cnt)
   1006    1.1       cgd 			optlen = cnt;
   1007    1.1       cgd 		if (IPOPT_COPIED(opt)) {
   1008  1.179  christos 			bcopy((void *)cp, (void *)dp, (unsigned)optlen);
   1009    1.1       cgd 			dp += optlen;
   1010    1.1       cgd 		}
   1011    1.1       cgd 	}
   1012    1.1       cgd 	for (optlen = dp - (u_char *)(jp+1); optlen & 0x3; optlen++)
   1013    1.1       cgd 		*dp++ = IPOPT_EOL;
   1014    1.1       cgd 	return (optlen);
   1015    1.1       cgd }
   1016    1.1       cgd 
   1017    1.1       cgd /*
   1018    1.1       cgd  * IP socket option processing.
   1019    1.1       cgd  */
   1020   1.12   mycroft int
   1021  1.197    plunky ip_ctloutput(int op, struct socket *so, struct sockopt *sopt)
   1022    1.1       cgd {
   1023   1.71  augustss 	struct inpcb *inp = sotoinpcb(so);
   1024   1.71  augustss 	int optval = 0;
   1025    1.1       cgd 	int error = 0;
   1026  1.220  christos #if defined(IPSEC)
   1027  1.165        ad 	struct lwp *l = curlwp;	/*XXX*/
   1028   1.61    itojun #endif
   1029    1.1       cgd 
   1030  1.197    plunky 	if (sopt->sopt_level != IPPROTO_IP) {
   1031  1.197    plunky 		if (sopt->sopt_level == SOL_SOCKET && sopt->sopt_name == SO_NOHEADER)
   1032  1.184    dyoung 			return 0;
   1033  1.184    dyoung 		return ENOPROTOOPT;
   1034  1.184    dyoung 	}
   1035  1.184    dyoung 
   1036  1.184    dyoung 	switch (op) {
   1037    1.1       cgd 	case PRCO_SETOPT:
   1038  1.197    plunky 		switch (sopt->sopt_name) {
   1039    1.1       cgd 		case IP_OPTIONS:
   1040    1.1       cgd #ifdef notyet
   1041    1.1       cgd 		case IP_RETOPTS:
   1042    1.1       cgd #endif
   1043  1.200    plunky 			error = ip_pcbopts(&inp->inp_options, sopt);
   1044  1.197    plunky 			break;
   1045    1.1       cgd 
   1046    1.1       cgd 		case IP_TOS:
   1047    1.1       cgd 		case IP_TTL:
   1048  1.205   minskim 		case IP_MINTTL:
   1049    1.1       cgd 		case IP_RECVOPTS:
   1050    1.1       cgd 		case IP_RECVRETOPTS:
   1051    1.1       cgd 		case IP_RECVDSTADDR:
   1052   1.37   thorpej 		case IP_RECVIF:
   1053  1.204   minskim 		case IP_RECVTTL:
   1054  1.197    plunky 			error = sockopt_getint(sopt, &optval);
   1055  1.197    plunky 			if (error)
   1056  1.197    plunky 				break;
   1057  1.197    plunky 
   1058  1.197    plunky 			switch (sopt->sopt_name) {
   1059  1.197    plunky 			case IP_TOS:
   1060  1.197    plunky 				inp->inp_ip.ip_tos = optval;
   1061  1.197    plunky 				break;
   1062  1.197    plunky 
   1063  1.197    plunky 			case IP_TTL:
   1064  1.197    plunky 				inp->inp_ip.ip_ttl = optval;
   1065  1.197    plunky 				break;
   1066  1.205   minskim 
   1067  1.205   minskim 			case IP_MINTTL:
   1068  1.205   minskim 				if (optval > 0 && optval <= MAXTTL)
   1069  1.205   minskim 					inp->inp_ip_minttl = optval;
   1070  1.205   minskim 				else
   1071  1.205   minskim 					error = EINVAL;
   1072  1.205   minskim 				break;
   1073    1.1       cgd #define	OPTSET(bit) \
   1074    1.1       cgd 	if (optval) \
   1075    1.1       cgd 		inp->inp_flags |= bit; \
   1076    1.1       cgd 	else \
   1077    1.1       cgd 		inp->inp_flags &= ~bit;
   1078    1.1       cgd 
   1079  1.197    plunky 			case IP_RECVOPTS:
   1080  1.197    plunky 				OPTSET(INP_RECVOPTS);
   1081  1.197    plunky 				break;
   1082  1.197    plunky 
   1083  1.197    plunky 			case IP_RECVRETOPTS:
   1084  1.197    plunky 				OPTSET(INP_RECVRETOPTS);
   1085  1.197    plunky 				break;
   1086  1.197    plunky 
   1087  1.197    plunky 			case IP_RECVDSTADDR:
   1088  1.197    plunky 				OPTSET(INP_RECVDSTADDR);
   1089  1.197    plunky 				break;
   1090  1.197    plunky 
   1091  1.197    plunky 			case IP_RECVIF:
   1092  1.197    plunky 				OPTSET(INP_RECVIF);
   1093  1.197    plunky 				break;
   1094  1.204   minskim 
   1095  1.204   minskim 			case IP_RECVTTL:
   1096  1.204   minskim 				OPTSET(INP_RECVTTL);
   1097  1.204   minskim 				break;
   1098    1.1       cgd 			}
   1099  1.197    plunky 		break;
   1100    1.1       cgd #undef OPTSET
   1101   1.18   mycroft 
   1102   1.18   mycroft 		case IP_MULTICAST_IF:
   1103   1.18   mycroft 		case IP_MULTICAST_TTL:
   1104   1.18   mycroft 		case IP_MULTICAST_LOOP:
   1105   1.18   mycroft 		case IP_ADD_MEMBERSHIP:
   1106   1.18   mycroft 		case IP_DROP_MEMBERSHIP:
   1107  1.197    plunky 			error = ip_setmoptions(&inp->inp_moptions, sopt);
   1108   1.18   mycroft 			break;
   1109    1.1       cgd 
   1110   1.41     lukem 		case IP_PORTRANGE:
   1111  1.197    plunky 			error = sockopt_getint(sopt, &optval);
   1112  1.197    plunky 			if (error)
   1113  1.197    plunky 				break;
   1114  1.197    plunky 
   1115  1.197    plunky 			/* INP_LOCK(inp); */
   1116  1.197    plunky 			switch (optval) {
   1117  1.197    plunky 			case IP_PORTRANGE_DEFAULT:
   1118  1.197    plunky 			case IP_PORTRANGE_HIGH:
   1119  1.197    plunky 				inp->inp_flags &= ~(INP_LOWPORT);
   1120  1.197    plunky 				break;
   1121   1.41     lukem 
   1122  1.197    plunky 			case IP_PORTRANGE_LOW:
   1123  1.197    plunky 				inp->inp_flags |= INP_LOWPORT;
   1124  1.197    plunky 				break;
   1125   1.41     lukem 
   1126  1.197    plunky 			default:
   1127  1.197    plunky 				error = EINVAL;
   1128  1.197    plunky 				break;
   1129   1.41     lukem 			}
   1130  1.197    plunky 			/* INP_UNLOCK(inp); */
   1131   1.41     lukem 			break;
   1132   1.41     lukem 
   1133  1.216  christos 		case IP_PORTALGO:
   1134  1.216  christos 			error = sockopt_getint(sopt, &optval);
   1135  1.216  christos 			if (error)
   1136  1.216  christos 				break;
   1137  1.216  christos 
   1138  1.217  christos 			error = portalgo_algo_index_select(
   1139  1.216  christos 			    (struct inpcb_hdr *)inp, optval);
   1140  1.216  christos 			break;
   1141  1.216  christos 
   1142  1.220  christos #if defined(IPSEC)
   1143   1.61    itojun 		case IP_IPSEC_POLICY:
   1144  1.197    plunky 			error = ipsec4_set_policy(inp, sopt->sopt_name,
   1145  1.202      elad 			    sopt->sopt_data, sopt->sopt_size, l->l_cred);
   1146   1.61    itojun 			break;
   1147   1.61    itojun #endif /*IPSEC*/
   1148   1.61    itojun 
   1149    1.1       cgd 		default:
   1150   1.18   mycroft 			error = ENOPROTOOPT;
   1151    1.1       cgd 			break;
   1152    1.1       cgd 		}
   1153    1.1       cgd 		break;
   1154    1.1       cgd 
   1155    1.1       cgd 	case PRCO_GETOPT:
   1156  1.197    plunky 		switch (sopt->sopt_name) {
   1157    1.1       cgd 		case IP_OPTIONS:
   1158    1.1       cgd 		case IP_RETOPTS:
   1159    1.1       cgd 			if (inp->inp_options) {
   1160  1.197    plunky 				struct mbuf *m;
   1161  1.197    plunky 
   1162  1.199    plunky 				m = m_copym(inp->inp_options, 0, M_COPYALL,
   1163  1.199    plunky 				    M_DONTWAIT);
   1164  1.199    plunky 				if (m == NULL) {
   1165  1.199    plunky 					error = ENOBUFS;
   1166  1.199    plunky 					break;
   1167  1.199    plunky 				}
   1168  1.199    plunky 
   1169  1.197    plunky 				error = sockopt_setmbuf(sopt, m);
   1170  1.197    plunky 			}
   1171    1.1       cgd 			break;
   1172    1.1       cgd 
   1173    1.1       cgd 		case IP_TOS:
   1174    1.1       cgd 		case IP_TTL:
   1175  1.205   minskim 		case IP_MINTTL:
   1176    1.1       cgd 		case IP_RECVOPTS:
   1177    1.1       cgd 		case IP_RECVRETOPTS:
   1178    1.1       cgd 		case IP_RECVDSTADDR:
   1179   1.37   thorpej 		case IP_RECVIF:
   1180  1.204   minskim 		case IP_RECVTTL:
   1181   1.40      matt 		case IP_ERRORMTU:
   1182  1.197    plunky 			switch (sopt->sopt_name) {
   1183    1.1       cgd 			case IP_TOS:
   1184    1.1       cgd 				optval = inp->inp_ip.ip_tos;
   1185    1.1       cgd 				break;
   1186    1.1       cgd 
   1187    1.1       cgd 			case IP_TTL:
   1188    1.1       cgd 				optval = inp->inp_ip.ip_ttl;
   1189   1.40      matt 				break;
   1190   1.40      matt 
   1191  1.205   minskim 			case IP_MINTTL:
   1192  1.205   minskim 				optval = inp->inp_ip_minttl;
   1193  1.205   minskim 				break;
   1194  1.205   minskim 
   1195   1.40      matt 			case IP_ERRORMTU:
   1196   1.40      matt 				optval = inp->inp_errormtu;
   1197    1.1       cgd 				break;
   1198    1.1       cgd 
   1199    1.1       cgd #define	OPTBIT(bit)	(inp->inp_flags & bit ? 1 : 0)
   1200    1.1       cgd 
   1201    1.1       cgd 			case IP_RECVOPTS:
   1202    1.1       cgd 				optval = OPTBIT(INP_RECVOPTS);
   1203    1.1       cgd 				break;
   1204    1.1       cgd 
   1205    1.1       cgd 			case IP_RECVRETOPTS:
   1206    1.1       cgd 				optval = OPTBIT(INP_RECVRETOPTS);
   1207    1.1       cgd 				break;
   1208    1.1       cgd 
   1209    1.1       cgd 			case IP_RECVDSTADDR:
   1210    1.1       cgd 				optval = OPTBIT(INP_RECVDSTADDR);
   1211   1.37   thorpej 				break;
   1212   1.37   thorpej 
   1213   1.37   thorpej 			case IP_RECVIF:
   1214   1.37   thorpej 				optval = OPTBIT(INP_RECVIF);
   1215    1.1       cgd 				break;
   1216  1.204   minskim 
   1217  1.204   minskim 			case IP_RECVTTL:
   1218  1.204   minskim 				optval = OPTBIT(INP_RECVTTL);
   1219  1.204   minskim 				break;
   1220    1.1       cgd 			}
   1221  1.197    plunky 			error = sockopt_setint(sopt, optval);
   1222    1.1       cgd 			break;
   1223   1.61    itojun 
   1224  1.220  christos #if 0	/* defined(IPSEC) */
   1225   1.61    itojun 		case IP_IPSEC_POLICY:
   1226   1.66    itojun 		{
   1227  1.197    plunky 			struct mbuf *m = NULL;
   1228   1.66    itojun 
   1229  1.197    plunky 			/* XXX this will return EINVAL as sopt is empty */
   1230  1.197    plunky 			error = ipsec4_get_policy(inp, sopt->sopt_data,
   1231  1.197    plunky 			    sopt->sopt_size, &m);
   1232  1.197    plunky 			if (error == 0)
   1233  1.197    plunky 				error = sockopt_setmbuf(sopt, m);
   1234   1.61    itojun 			break;
   1235   1.66    itojun 		}
   1236   1.61    itojun #endif /*IPSEC*/
   1237   1.18   mycroft 
   1238   1.18   mycroft 		case IP_MULTICAST_IF:
   1239   1.18   mycroft 		case IP_MULTICAST_TTL:
   1240   1.18   mycroft 		case IP_MULTICAST_LOOP:
   1241   1.18   mycroft 		case IP_ADD_MEMBERSHIP:
   1242   1.18   mycroft 		case IP_DROP_MEMBERSHIP:
   1243  1.197    plunky 			error = ip_getmoptions(inp->inp_moptions, sopt);
   1244   1.41     lukem 			break;
   1245   1.41     lukem 
   1246   1.41     lukem 		case IP_PORTRANGE:
   1247   1.41     lukem 			if (inp->inp_flags & INP_LOWPORT)
   1248   1.41     lukem 				optval = IP_PORTRANGE_LOW;
   1249   1.41     lukem 			else
   1250   1.41     lukem 				optval = IP_PORTRANGE_DEFAULT;
   1251   1.41     lukem 
   1252  1.197    plunky 			error = sockopt_setint(sopt, optval);
   1253  1.197    plunky 
   1254   1.18   mycroft 			break;
   1255    1.1       cgd 
   1256  1.216  christos 		case IP_PORTALGO:
   1257  1.217  christos 			optval = ((struct inpcb_hdr *)inp)->inph_portalgo;
   1258  1.216  christos 			error = sockopt_setint(sopt, optval);
   1259  1.216  christos 			break;
   1260  1.216  christos 
   1261    1.1       cgd 		default:
   1262   1.18   mycroft 			error = ENOPROTOOPT;
   1263    1.1       cgd 			break;
   1264    1.1       cgd 		}
   1265    1.1       cgd 		break;
   1266    1.1       cgd 	}
   1267    1.1       cgd 	return (error);
   1268    1.1       cgd }
   1269    1.1       cgd 
   1270    1.1       cgd /*
   1271    1.1       cgd  * Set up IP options in pcb for insertion in output packets.
   1272    1.1       cgd  * Store in mbuf with pointer in pcbopt, adding pseudo-option
   1273    1.1       cgd  * with destination address if source routed.
   1274    1.1       cgd  */
   1275   1.12   mycroft int
   1276  1.200    plunky ip_pcbopts(struct mbuf **pcbopt, const struct sockopt *sopt)
   1277    1.1       cgd {
   1278  1.200    plunky 	struct mbuf *m;
   1279  1.200    plunky 	const u_char *cp;
   1280  1.200    plunky 	u_char *dp;
   1281  1.200    plunky 	int cnt;
   1282  1.200    plunky 	uint8_t optval, olen, offset;
   1283    1.1       cgd 
   1284    1.1       cgd 	/* turn off any old options */
   1285    1.1       cgd 	if (*pcbopt)
   1286    1.1       cgd 		(void)m_free(*pcbopt);
   1287  1.200    plunky 	*pcbopt = NULL;
   1288  1.200    plunky 
   1289  1.200    plunky 	cp = sopt->sopt_data;
   1290  1.200    plunky 	cnt = sopt->sopt_size;
   1291  1.200    plunky 
   1292  1.200    plunky 	if (cnt == 0)
   1293  1.200    plunky 		return (0);	/* Only turning off any previous options */
   1294    1.1       cgd 
   1295   1.85     ragge #ifndef	__vax__
   1296  1.200    plunky 	if (cnt % sizeof(int32_t))
   1297  1.200    plunky 		return (EINVAL);
   1298    1.1       cgd #endif
   1299  1.200    plunky 
   1300  1.200    plunky 	m = m_get(M_DONTWAIT, MT_SOOPTS);
   1301  1.200    plunky 	if (m == NULL)
   1302  1.200    plunky 		return (ENOBUFS);
   1303  1.200    plunky 
   1304  1.200    plunky 	dp = mtod(m, u_char *);
   1305  1.200    plunky 	memset(dp, 0, sizeof(struct in_addr));
   1306  1.200    plunky 	dp += sizeof(struct in_addr);
   1307  1.200    plunky 	m->m_len = sizeof(struct in_addr);
   1308  1.200    plunky 
   1309    1.1       cgd 	/*
   1310  1.200    plunky 	 * IP option list according to RFC791. Each option is of the form
   1311  1.200    plunky 	 *
   1312  1.200    plunky 	 *	[optval] [olen] [(olen - 2) data bytes]
   1313  1.200    plunky 	 *
   1314  1.200    plunky 	 * we validate the list and copy options to an mbuf for prepending
   1315  1.200    plunky 	 * to data packets. The IP first-hop destination address will be
   1316  1.200    plunky 	 * stored before actual options and is zero if unset.
   1317    1.1       cgd 	 */
   1318  1.200    plunky 	while (cnt > 0) {
   1319  1.200    plunky 		optval = cp[IPOPT_OPTVAL];
   1320    1.1       cgd 
   1321  1.200    plunky 		if (optval == IPOPT_EOL || optval == IPOPT_NOP) {
   1322  1.200    plunky 			olen = 1;
   1323  1.200    plunky 		} else {
   1324  1.200    plunky 			if (cnt < IPOPT_OLEN + 1)
   1325   1.74    itojun 				goto bad;
   1326  1.200    plunky 
   1327  1.200    plunky 			olen = cp[IPOPT_OLEN];
   1328  1.200    plunky 			if (olen < IPOPT_OLEN + 1 || olen > cnt)
   1329    1.1       cgd 				goto bad;
   1330    1.1       cgd 		}
   1331    1.1       cgd 
   1332  1.200    plunky 		if (optval == IPOPT_LSRR || optval == IPOPT_SSRR) {
   1333    1.1       cgd 			/*
   1334    1.1       cgd 			 * user process specifies route as:
   1335    1.1       cgd 			 *	->A->B->C->D
   1336    1.1       cgd 			 * D must be our final destination (but we can't
   1337    1.1       cgd 			 * check that since we may not have connected yet).
   1338    1.1       cgd 			 * A is first hop destination, which doesn't appear in
   1339    1.1       cgd 			 * actual IP option, but is stored before the options.
   1340    1.1       cgd 			 */
   1341  1.200    plunky 			if (olen < IPOPT_OFFSET + 1 + sizeof(struct in_addr))
   1342    1.1       cgd 				goto bad;
   1343  1.200    plunky 
   1344  1.200    plunky 			offset = cp[IPOPT_OFFSET];
   1345  1.200    plunky 			memcpy(mtod(m, u_char *), cp + IPOPT_OFFSET + 1,
   1346  1.200    plunky 			    sizeof(struct in_addr));
   1347  1.200    plunky 
   1348  1.200    plunky 			cp += sizeof(struct in_addr);
   1349    1.1       cgd 			cnt -= sizeof(struct in_addr);
   1350  1.200    plunky 			olen -= sizeof(struct in_addr);
   1351  1.200    plunky 
   1352  1.200    plunky 			if (m->m_len + olen > MAX_IPOPTLEN + sizeof(struct in_addr))
   1353  1.200    plunky 				goto bad;
   1354  1.200    plunky 
   1355  1.200    plunky 			memcpy(dp, cp, olen);
   1356  1.200    plunky 			dp[IPOPT_OPTVAL] = optval;
   1357  1.200    plunky 			dp[IPOPT_OLEN] = olen;
   1358  1.200    plunky 			dp[IPOPT_OFFSET] = offset;
   1359  1.200    plunky 			break;
   1360  1.200    plunky 		} else {
   1361  1.200    plunky 			if (m->m_len + olen > MAX_IPOPTLEN + sizeof(struct in_addr))
   1362  1.200    plunky 				goto bad;
   1363  1.200    plunky 
   1364  1.200    plunky 			memcpy(dp, cp, olen);
   1365    1.1       cgd 			break;
   1366    1.1       cgd 		}
   1367  1.200    plunky 
   1368  1.200    plunky 		dp += olen;
   1369  1.200    plunky 		m->m_len += olen;
   1370  1.200    plunky 
   1371  1.200    plunky 		if (optval == IPOPT_EOL)
   1372  1.200    plunky 			break;
   1373  1.200    plunky 
   1374  1.200    plunky 		cp += olen;
   1375  1.200    plunky 		cnt -= olen;
   1376    1.1       cgd 	}
   1377  1.200    plunky 
   1378    1.1       cgd 	*pcbopt = m;
   1379    1.1       cgd 	return (0);
   1380    1.1       cgd 
   1381    1.1       cgd bad:
   1382    1.1       cgd 	(void)m_free(m);
   1383    1.1       cgd 	return (EINVAL);
   1384    1.1       cgd }
   1385    1.5   hpeyerl 
   1386    1.5   hpeyerl /*
   1387   1.81    itojun  * following RFC1724 section 3.3, 0.0.0.0/8 is interpreted as interface index.
   1388   1.81    itojun  */
   1389   1.81    itojun static struct ifnet *
   1390  1.140     perry ip_multicast_if(struct in_addr *a, int *ifindexp)
   1391   1.81    itojun {
   1392   1.81    itojun 	int ifindex;
   1393  1.111    itojun 	struct ifnet *ifp = NULL;
   1394  1.110    itojun 	struct in_ifaddr *ia;
   1395   1.81    itojun 
   1396   1.81    itojun 	if (ifindexp)
   1397   1.81    itojun 		*ifindexp = 0;
   1398   1.81    itojun 	if (ntohl(a->s_addr) >> 24 == 0) {
   1399   1.81    itojun 		ifindex = ntohl(a->s_addr) & 0xffffff;
   1400  1.129    itojun 		if (ifindex < 0 || if_indexlim <= ifindex)
   1401   1.81    itojun 			return NULL;
   1402   1.81    itojun 		ifp = ifindex2ifnet[ifindex];
   1403  1.129    itojun 		if (!ifp)
   1404  1.129    itojun 			return NULL;
   1405   1.81    itojun 		if (ifindexp)
   1406   1.81    itojun 			*ifindexp = ifindex;
   1407   1.81    itojun 	} else {
   1408  1.110    itojun 		LIST_FOREACH(ia, &IN_IFADDR_HASH(a->s_addr), ia_hash) {
   1409  1.110    itojun 			if (in_hosteq(ia->ia_addr.sin_addr, *a) &&
   1410  1.111    itojun 			    (ia->ia_ifp->if_flags & IFF_MULTICAST) != 0) {
   1411  1.111    itojun 				ifp = ia->ia_ifp;
   1412  1.110    itojun 				break;
   1413  1.111    itojun 			}
   1414  1.110    itojun 		}
   1415   1.81    itojun 	}
   1416   1.81    itojun 	return ifp;
   1417   1.81    itojun }
   1418   1.81    itojun 
   1419  1.156  christos static int
   1420  1.198    plunky ip_getoptval(const struct sockopt *sopt, u_int8_t *val, u_int maxval)
   1421  1.156  christos {
   1422  1.156  christos 	u_int tval;
   1423  1.197    plunky 	u_char cval;
   1424  1.197    plunky 	int error;
   1425  1.156  christos 
   1426  1.197    plunky 	if (sopt == NULL)
   1427  1.156  christos 		return EINVAL;
   1428  1.156  christos 
   1429  1.197    plunky 	switch (sopt->sopt_size) {
   1430  1.156  christos 	case sizeof(u_char):
   1431  1.197    plunky 		error = sockopt_get(sopt, &cval, sizeof(u_char));
   1432  1.197    plunky 		tval = cval;
   1433  1.156  christos 		break;
   1434  1.197    plunky 
   1435  1.156  christos 	case sizeof(u_int):
   1436  1.197    plunky 		error = sockopt_get(sopt, &tval, sizeof(u_int));
   1437  1.156  christos 		break;
   1438  1.197    plunky 
   1439  1.156  christos 	default:
   1440  1.197    plunky 		error = EINVAL;
   1441  1.156  christos 	}
   1442  1.156  christos 
   1443  1.197    plunky 	if (error)
   1444  1.197    plunky 		return error;
   1445  1.197    plunky 
   1446  1.156  christos 	if (tval > maxval)
   1447  1.156  christos 		return EINVAL;
   1448  1.156  christos 
   1449  1.156  christos 	*val = tval;
   1450  1.156  christos 	return 0;
   1451  1.156  christos }
   1452  1.156  christos 
   1453   1.81    itojun /*
   1454    1.5   hpeyerl  * Set the IP multicast options in response to user setsockopt().
   1455    1.5   hpeyerl  */
   1456    1.5   hpeyerl int
   1457  1.198    plunky ip_setmoptions(struct ip_moptions **imop, const struct sockopt *sopt)
   1458    1.5   hpeyerl {
   1459    1.5   hpeyerl 	struct in_addr addr;
   1460  1.197    plunky 	struct ip_mreq lmreq, *mreq;
   1461   1.71  augustss 	struct ifnet *ifp;
   1462   1.71  augustss 	struct ip_moptions *imo = *imop;
   1463  1.215     rmind 	int i, ifindex, error = 0;
   1464    1.5   hpeyerl 
   1465    1.5   hpeyerl 	if (imo == NULL) {
   1466    1.5   hpeyerl 		/*
   1467    1.5   hpeyerl 		 * No multicast option buffer attached to the pcb;
   1468    1.5   hpeyerl 		 * allocate one and initialize to default values.
   1469    1.5   hpeyerl 		 */
   1470  1.215     rmind 		imo = kmem_intr_alloc(sizeof(*imo), KM_NOSLEEP);
   1471    1.5   hpeyerl 		if (imo == NULL)
   1472  1.215     rmind 			return ENOBUFS;
   1473  1.199    plunky 
   1474    1.5   hpeyerl 		imo->imo_multicast_ifp = NULL;
   1475   1.81    itojun 		imo->imo_multicast_addr.s_addr = INADDR_ANY;
   1476    1.5   hpeyerl 		imo->imo_multicast_ttl = IP_DEFAULT_MULTICAST_TTL;
   1477    1.5   hpeyerl 		imo->imo_multicast_loop = IP_DEFAULT_MULTICAST_LOOP;
   1478    1.5   hpeyerl 		imo->imo_num_memberships = 0;
   1479  1.215     rmind 		*imop = imo;
   1480    1.5   hpeyerl 	}
   1481    1.5   hpeyerl 
   1482  1.197    plunky 	switch (sopt->sopt_name) {
   1483    1.5   hpeyerl 	case IP_MULTICAST_IF:
   1484    1.5   hpeyerl 		/*
   1485    1.5   hpeyerl 		 * Select the interface for outgoing multicast packets.
   1486    1.5   hpeyerl 		 */
   1487  1.197    plunky 		error = sockopt_get(sopt, &addr, sizeof(addr));
   1488  1.197    plunky 		if (error)
   1489    1.5   hpeyerl 			break;
   1490  1.197    plunky 
   1491    1.5   hpeyerl 		/*
   1492    1.5   hpeyerl 		 * INADDR_ANY is used to remove a previous selection.
   1493   1.11   mycroft 		 * When no interface is selected, a default one is
   1494    1.5   hpeyerl 		 * chosen every time a multicast packet is sent.
   1495    1.5   hpeyerl 		 */
   1496   1.31   mycroft 		if (in_nullhost(addr)) {
   1497    1.5   hpeyerl 			imo->imo_multicast_ifp = NULL;
   1498    1.5   hpeyerl 			break;
   1499    1.5   hpeyerl 		}
   1500    1.5   hpeyerl 		/*
   1501    1.5   hpeyerl 		 * The selected interface is identified by its local
   1502    1.5   hpeyerl 		 * IP address.  Find the interface and confirm that
   1503   1.11   mycroft 		 * it supports multicasting.
   1504    1.5   hpeyerl 		 */
   1505   1.81    itojun 		ifp = ip_multicast_if(&addr, &ifindex);
   1506    1.5   hpeyerl 		if (ifp == NULL || (ifp->if_flags & IFF_MULTICAST) == 0) {
   1507    1.5   hpeyerl 			error = EADDRNOTAVAIL;
   1508    1.5   hpeyerl 			break;
   1509    1.5   hpeyerl 		}
   1510    1.5   hpeyerl 		imo->imo_multicast_ifp = ifp;
   1511   1.81    itojun 		if (ifindex)
   1512   1.81    itojun 			imo->imo_multicast_addr = addr;
   1513   1.81    itojun 		else
   1514   1.81    itojun 			imo->imo_multicast_addr.s_addr = INADDR_ANY;
   1515    1.5   hpeyerl 		break;
   1516    1.5   hpeyerl 
   1517    1.5   hpeyerl 	case IP_MULTICAST_TTL:
   1518    1.5   hpeyerl 		/*
   1519    1.5   hpeyerl 		 * Set the IP time-to-live for outgoing multicast packets.
   1520    1.5   hpeyerl 		 */
   1521  1.197    plunky 		error = ip_getoptval(sopt, &imo->imo_multicast_ttl, MAXTTL);
   1522    1.5   hpeyerl 		break;
   1523   1.11   mycroft 
   1524    1.5   hpeyerl 	case IP_MULTICAST_LOOP:
   1525    1.5   hpeyerl 		/*
   1526    1.5   hpeyerl 		 * Set the loopback flag for outgoing multicast packets.
   1527    1.5   hpeyerl 		 * Must be zero or one.
   1528    1.5   hpeyerl 		 */
   1529  1.197    plunky 		error = ip_getoptval(sopt, &imo->imo_multicast_loop, 1);
   1530    1.5   hpeyerl 		break;
   1531    1.5   hpeyerl 
   1532    1.5   hpeyerl 	case IP_ADD_MEMBERSHIP:
   1533    1.5   hpeyerl 		/*
   1534    1.5   hpeyerl 		 * Add a multicast group membership.
   1535    1.5   hpeyerl 		 * Group must be a valid IP multicast address.
   1536    1.5   hpeyerl 		 */
   1537  1.197    plunky 		error = sockopt_get(sopt, &lmreq, sizeof(lmreq));
   1538  1.197    plunky 		if (error)
   1539    1.5   hpeyerl 			break;
   1540  1.197    plunky 
   1541  1.197    plunky 		mreq = &lmreq;
   1542  1.197    plunky 
   1543   1.23   mycroft 		if (!IN_MULTICAST(mreq->imr_multiaddr.s_addr)) {
   1544    1.5   hpeyerl 			error = EINVAL;
   1545    1.5   hpeyerl 			break;
   1546    1.5   hpeyerl 		}
   1547    1.5   hpeyerl 		/*
   1548    1.5   hpeyerl 		 * If no interface address was provided, use the interface of
   1549    1.5   hpeyerl 		 * the route to the given multicast address.
   1550    1.5   hpeyerl 		 */
   1551   1.31   mycroft 		if (in_nullhost(mreq->imr_interface)) {
   1552  1.186    dyoung 			struct rtentry *rt;
   1553  1.180    dyoung 			union {
   1554  1.180    dyoung 				struct sockaddr		dst;
   1555  1.180    dyoung 				struct sockaddr_in	dst4;
   1556  1.180    dyoung 			} u;
   1557  1.180    dyoung 			struct route ro;
   1558  1.180    dyoung 
   1559  1.176    dyoung 			memset(&ro, 0, sizeof(ro));
   1560  1.180    dyoung 
   1561  1.180    dyoung 			sockaddr_in_init(&u.dst4, &mreq->imr_multiaddr, 0);
   1562  1.180    dyoung 			rtcache_setdst(&ro, &u.dst);
   1563  1.190    dyoung 			ifp = (rt = rtcache_init(&ro)) != NULL ? rt->rt_ifp
   1564  1.186    dyoung 			                                        : NULL;
   1565  1.171     joerg 			rtcache_free(&ro);
   1566   1.23   mycroft 		} else {
   1567   1.81    itojun 			ifp = ip_multicast_if(&mreq->imr_interface, NULL);
   1568    1.5   hpeyerl 		}
   1569    1.5   hpeyerl 		/*
   1570    1.5   hpeyerl 		 * See if we found an interface, and confirm that it
   1571    1.5   hpeyerl 		 * supports multicast.
   1572    1.5   hpeyerl 		 */
   1573   1.11   mycroft 		if (ifp == NULL || (ifp->if_flags & IFF_MULTICAST) == 0) {
   1574    1.5   hpeyerl 			error = EADDRNOTAVAIL;
   1575    1.5   hpeyerl 			break;
   1576    1.5   hpeyerl 		}
   1577    1.5   hpeyerl 		/*
   1578    1.5   hpeyerl 		 * See if the membership already exists or if all the
   1579    1.5   hpeyerl 		 * membership slots are full.
   1580   1.11   mycroft 		 */
   1581    1.5   hpeyerl 		for (i = 0; i < imo->imo_num_memberships; ++i) {
   1582    1.5   hpeyerl 			if (imo->imo_membership[i]->inm_ifp == ifp &&
   1583   1.31   mycroft 			    in_hosteq(imo->imo_membership[i]->inm_addr,
   1584   1.31   mycroft 				      mreq->imr_multiaddr))
   1585    1.5   hpeyerl 				break;
   1586   1.11   mycroft 		}
   1587    1.5   hpeyerl 		if (i < imo->imo_num_memberships) {
   1588    1.5   hpeyerl 			error = EADDRINUSE;
   1589    1.5   hpeyerl 			break;
   1590    1.5   hpeyerl 		}
   1591    1.5   hpeyerl 		if (i == IP_MAX_MEMBERSHIPS) {
   1592   1.11   mycroft 			error = ETOOMANYREFS;
   1593    1.5   hpeyerl 			break;
   1594    1.5   hpeyerl 		}
   1595    1.5   hpeyerl 		/*
   1596    1.5   hpeyerl 		 * Everything looks good; add a new record to the multicast
   1597    1.5   hpeyerl 		 * address list for the given interface.
   1598    1.5   hpeyerl 		 */
   1599    1.5   hpeyerl 		if ((imo->imo_membership[i] =
   1600    1.5   hpeyerl 		    in_addmulti(&mreq->imr_multiaddr, ifp)) == NULL) {
   1601    1.5   hpeyerl 			error = ENOBUFS;
   1602    1.5   hpeyerl 			break;
   1603    1.5   hpeyerl 		}
   1604    1.5   hpeyerl 		++imo->imo_num_memberships;
   1605    1.5   hpeyerl 		break;
   1606    1.5   hpeyerl 
   1607    1.5   hpeyerl 	case IP_DROP_MEMBERSHIP:
   1608    1.5   hpeyerl 		/*
   1609    1.5   hpeyerl 		 * Drop a multicast group membership.
   1610    1.5   hpeyerl 		 * Group must be a valid IP multicast address.
   1611    1.5   hpeyerl 		 */
   1612  1.197    plunky 		error = sockopt_get(sopt, &lmreq, sizeof(lmreq));
   1613  1.197    plunky 		if (error)
   1614    1.5   hpeyerl 			break;
   1615  1.197    plunky 
   1616  1.197    plunky 		mreq = &lmreq;
   1617  1.197    plunky 
   1618   1.23   mycroft 		if (!IN_MULTICAST(mreq->imr_multiaddr.s_addr)) {
   1619    1.5   hpeyerl 			error = EINVAL;
   1620    1.5   hpeyerl 			break;
   1621    1.5   hpeyerl 		}
   1622    1.5   hpeyerl 		/*
   1623    1.5   hpeyerl 		 * If an interface address was specified, get a pointer
   1624    1.5   hpeyerl 		 * to its ifnet structure.
   1625    1.5   hpeyerl 		 */
   1626   1.31   mycroft 		if (in_nullhost(mreq->imr_interface))
   1627    1.5   hpeyerl 			ifp = NULL;
   1628    1.5   hpeyerl 		else {
   1629   1.81    itojun 			ifp = ip_multicast_if(&mreq->imr_interface, NULL);
   1630    1.5   hpeyerl 			if (ifp == NULL) {
   1631    1.5   hpeyerl 				error = EADDRNOTAVAIL;
   1632    1.5   hpeyerl 				break;
   1633    1.5   hpeyerl 			}
   1634    1.5   hpeyerl 		}
   1635    1.5   hpeyerl 		/*
   1636    1.5   hpeyerl 		 * Find the membership in the membership array.
   1637    1.5   hpeyerl 		 */
   1638    1.5   hpeyerl 		for (i = 0; i < imo->imo_num_memberships; ++i) {
   1639    1.5   hpeyerl 			if ((ifp == NULL ||
   1640    1.5   hpeyerl 			     imo->imo_membership[i]->inm_ifp == ifp) &&
   1641   1.31   mycroft 			     in_hosteq(imo->imo_membership[i]->inm_addr,
   1642   1.31   mycroft 				       mreq->imr_multiaddr))
   1643    1.5   hpeyerl 				break;
   1644    1.5   hpeyerl 		}
   1645    1.5   hpeyerl 		if (i == imo->imo_num_memberships) {
   1646    1.5   hpeyerl 			error = EADDRNOTAVAIL;
   1647    1.5   hpeyerl 			break;
   1648    1.5   hpeyerl 		}
   1649    1.5   hpeyerl 		/*
   1650    1.5   hpeyerl 		 * Give up the multicast address record to which the
   1651    1.5   hpeyerl 		 * membership points.
   1652    1.5   hpeyerl 		 */
   1653   1.11   mycroft 		in_delmulti(imo->imo_membership[i]);
   1654    1.5   hpeyerl 		/*
   1655    1.5   hpeyerl 		 * Remove the gap in the membership array.
   1656    1.5   hpeyerl 		 */
   1657    1.5   hpeyerl 		for (++i; i < imo->imo_num_memberships; ++i)
   1658    1.5   hpeyerl 			imo->imo_membership[i-1] = imo->imo_membership[i];
   1659    1.5   hpeyerl 		--imo->imo_num_memberships;
   1660    1.5   hpeyerl 		break;
   1661    1.5   hpeyerl 
   1662    1.5   hpeyerl 	default:
   1663    1.5   hpeyerl 		error = EOPNOTSUPP;
   1664    1.5   hpeyerl 		break;
   1665    1.5   hpeyerl 	}
   1666    1.5   hpeyerl 
   1667    1.5   hpeyerl 	/*
   1668    1.5   hpeyerl 	 * If all options have default values, no need to keep the mbuf.
   1669    1.5   hpeyerl 	 */
   1670    1.5   hpeyerl 	if (imo->imo_multicast_ifp == NULL &&
   1671    1.5   hpeyerl 	    imo->imo_multicast_ttl == IP_DEFAULT_MULTICAST_TTL &&
   1672    1.5   hpeyerl 	    imo->imo_multicast_loop == IP_DEFAULT_MULTICAST_LOOP &&
   1673    1.5   hpeyerl 	    imo->imo_num_memberships == 0) {
   1674  1.215     rmind 		kmem_free(imo, sizeof(*imo));
   1675    1.5   hpeyerl 		*imop = NULL;
   1676    1.5   hpeyerl 	}
   1677    1.5   hpeyerl 
   1678  1.215     rmind 	return error;
   1679    1.5   hpeyerl }
   1680    1.5   hpeyerl 
   1681    1.5   hpeyerl /*
   1682    1.5   hpeyerl  * Return the IP multicast options in response to user getsockopt().
   1683    1.5   hpeyerl  */
   1684    1.5   hpeyerl int
   1685  1.197    plunky ip_getmoptions(struct ip_moptions *imo, struct sockopt *sopt)
   1686    1.5   hpeyerl {
   1687  1.197    plunky 	struct in_addr addr;
   1688    1.5   hpeyerl 	struct in_ifaddr *ia;
   1689  1.197    plunky 	int error;
   1690  1.197    plunky 	uint8_t optval;
   1691    1.5   hpeyerl 
   1692  1.197    plunky 	error = 0;
   1693    1.5   hpeyerl 
   1694  1.197    plunky 	switch (sopt->sopt_name) {
   1695    1.5   hpeyerl 	case IP_MULTICAST_IF:
   1696    1.5   hpeyerl 		if (imo == NULL || imo->imo_multicast_ifp == NULL)
   1697  1.197    plunky 			addr = zeroin_addr;
   1698   1.81    itojun 		else if (imo->imo_multicast_addr.s_addr) {
   1699   1.81    itojun 			/* return the value user has set */
   1700  1.197    plunky 			addr = imo->imo_multicast_addr;
   1701   1.81    itojun 		} else {
   1702    1.5   hpeyerl 			IFP_TO_IA(imo->imo_multicast_ifp, ia);
   1703  1.197    plunky 			addr = ia ? ia->ia_addr.sin_addr : zeroin_addr;
   1704    1.5   hpeyerl 		}
   1705  1.197    plunky 		error = sockopt_set(sopt, &addr, sizeof(addr));
   1706  1.197    plunky 		break;
   1707    1.5   hpeyerl 
   1708    1.5   hpeyerl 	case IP_MULTICAST_TTL:
   1709  1.197    plunky 		optval = imo ? imo->imo_multicast_ttl
   1710  1.197    plunky 			     : IP_DEFAULT_MULTICAST_TTL;
   1711  1.197    plunky 
   1712  1.197    plunky 		error = sockopt_set(sopt, &optval, sizeof(optval));
   1713  1.197    plunky 		break;
   1714    1.5   hpeyerl 
   1715    1.5   hpeyerl 	case IP_MULTICAST_LOOP:
   1716  1.197    plunky 		optval = imo ? imo->imo_multicast_loop
   1717  1.197    plunky 			     : IP_DEFAULT_MULTICAST_LOOP;
   1718  1.197    plunky 
   1719  1.197    plunky 		error = sockopt_set(sopt, &optval, sizeof(optval));
   1720  1.197    plunky 		break;
   1721    1.5   hpeyerl 
   1722    1.5   hpeyerl 	default:
   1723  1.197    plunky 		error = EOPNOTSUPP;
   1724    1.5   hpeyerl 	}
   1725  1.197    plunky 
   1726  1.197    plunky 	return (error);
   1727    1.5   hpeyerl }
   1728    1.5   hpeyerl 
   1729    1.5   hpeyerl /*
   1730    1.5   hpeyerl  * Discard the IP multicast options.
   1731    1.5   hpeyerl  */
   1732    1.5   hpeyerl void
   1733  1.140     perry ip_freemoptions(struct ip_moptions *imo)
   1734    1.5   hpeyerl {
   1735   1.71  augustss 	int i;
   1736    1.5   hpeyerl 
   1737    1.5   hpeyerl 	if (imo != NULL) {
   1738    1.5   hpeyerl 		for (i = 0; i < imo->imo_num_memberships; ++i)
   1739    1.5   hpeyerl 			in_delmulti(imo->imo_membership[i]);
   1740  1.215     rmind 		kmem_free(imo, sizeof(*imo));
   1741    1.5   hpeyerl 	}
   1742    1.5   hpeyerl }
   1743    1.5   hpeyerl 
   1744    1.5   hpeyerl /*
   1745    1.5   hpeyerl  * Routine called from ip_output() to loop back a copy of an IP multicast
   1746    1.5   hpeyerl  * packet to the input queue of a specified interface.  Note that this
   1747    1.5   hpeyerl  * calls the output routine of the loopback "driver", but with an interface
   1748  1.137     peter  * pointer that might NOT be lo0ifp -- easier than replicating that code here.
   1749    1.5   hpeyerl  */
   1750   1.12   mycroft static void
   1751  1.180    dyoung ip_mloopback(struct ifnet *ifp, struct mbuf *m, const struct sockaddr_in *dst)
   1752    1.5   hpeyerl {
   1753   1.71  augustss 	struct ip *ip;
   1754    1.5   hpeyerl 	struct mbuf *copym;
   1755    1.5   hpeyerl 
   1756  1.183    dyoung 	copym = m_copypacket(m, M_DONTWAIT);
   1757   1.70    itojun 	if (copym != NULL
   1758   1.65    itojun 	 && (copym->m_flags & M_EXT || copym->m_len < sizeof(struct ip)))
   1759   1.65    itojun 		copym = m_pullup(copym, sizeof(struct ip));
   1760  1.180    dyoung 	if (copym == NULL)
   1761  1.180    dyoung 		return;
   1762  1.180    dyoung 	/*
   1763  1.180    dyoung 	 * We don't bother to fragment if the IP length is greater
   1764  1.180    dyoung 	 * than the interface's MTU.  Can this possibly matter?
   1765  1.180    dyoung 	 */
   1766  1.180    dyoung 	ip = mtod(copym, struct ip *);
   1767   1.93    itojun 
   1768  1.180    dyoung 	if (copym->m_pkthdr.csum_flags & (M_CSUM_TCPv4|M_CSUM_UDPv4)) {
   1769  1.180    dyoung 		in_delayed_cksum(copym);
   1770  1.180    dyoung 		copym->m_pkthdr.csum_flags &=
   1771  1.180    dyoung 		    ~(M_CSUM_TCPv4|M_CSUM_UDPv4);
   1772  1.180    dyoung 	}
   1773   1.93    itojun 
   1774  1.180    dyoung 	ip->ip_sum = 0;
   1775  1.180    dyoung 	ip->ip_sum = in_cksum(copym, ip->ip_hl << 2);
   1776  1.180    dyoung 	(void)looutput(ifp, copym, sintocsa(dst), NULL);
   1777    1.5   hpeyerl }
   1778