[unix-history] / sys / netinet / in_pcb.c

/*
 * Copyright (c) 1982, 1986, 1991 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *	from: @(#)in_pcb.c	7.14 (Berkeley) 4/20/91
 *	$Id: in_pcb.c,v 1.4 1993/11/25 01:35:05 wollman Exp $
 */

#include "param.h"
#include "systm.h"
#include "malloc.h"
#include "mbuf.h"
#include "protosw.h"
#include "socket.h"
#include "socketvar.h"
#include "ioctl.h"

#include "../net/if.h"
#include "../net/route.h"

#include "in.h"
#include "in_systm.h"
#include "ip.h"
#include "in_pcb.h"
#include "in_var.h"

int
in_pcballoc(so, head)
	struct socket *so;
	struct inpcb *head;
{
	struct mbuf *m;
	register struct inpcb *inp;

	m = m_getclr(M_DONTWAIT, MT_PCB);
	if (m == NULL)
		return (ENOBUFS);
	inp = mtod(m, struct inpcb *);
	inp->inp_head = head;
	inp->inp_socket = so;
	insque(inp, head);
	so->so_pcb = (caddr_t)inp;
	return (0);
}
	
int
in_pcbbind(inp, nam)
	register struct inpcb *inp;
	struct mbuf *nam;
{
	register struct socket *so = inp->inp_socket;
	register struct inpcb *head = inp->inp_head;
	register struct sockaddr_in *sin;
	u_short lport = 0;

	if (in_ifaddr == 0)
		return (EADDRNOTAVAIL);
	if (inp->inp_lport || inp->inp_laddr.s_addr != INADDR_ANY)
		return (EINVAL);
	if (nam == 0)
		goto noname;
	sin = mtod(nam, struct sockaddr_in *);
	if (nam->m_len != sizeof (*sin))
		return (EINVAL);
	if (sin->sin_addr.s_addr != INADDR_ANY) {
		int tport = sin->sin_port;

		sin->sin_port = 0;		/* yech... */
		if (ifa_ifwithaddr((struct sockaddr *)sin) == 0)
			return (EADDRNOTAVAIL);
		sin->sin_port = tport;
	}
	lport = sin->sin_port;
	if (lport) {
		u_short aport = ntohs(lport);
		int wild = 0;

		/* GROSS */
		if (aport < IPPORT_RESERVED && (so->so_state & SS_PRIV) == 0)
			return (EACCES);
		/* even GROSSER, but this is the Internet */
		if ((so->so_options & SO_REUSEADDR) == 0 &&
		    ((so->so_proto->pr_flags & PR_CONNREQUIRED) == 0 ||
		     (so->so_options & SO_ACCEPTCONN) == 0))
			wild = INPLOOKUP_WILDCARD;
		if (in_pcblookup(head,
		    zeroin_addr, 0, sin->sin_addr, lport, wild))
			return (EADDRINUSE);
	}
	inp->inp_laddr = sin->sin_addr;
noname:
	if (lport == 0)
		do {
			if (head->inp_lport++ < IPPORT_RESERVED ||
			    head->inp_lport > IPPORT_USERRESERVED)
				head->inp_lport = IPPORT_RESERVED;
			lport = htons(head->inp_lport);
		} while (in_pcblookup(head,
			    zeroin_addr, 0, inp->inp_laddr, lport, 0));
	inp->inp_lport = lport;
	return (0);
}

/*
 * Connect from a socket to a specified address.
 * Both address and port must be specified in argument sin.
 * If don't have a local address for this socket yet,
 * then pick one.
 */
int
in_pcbconnect(inp, nam)
	register struct inpcb *inp;
	struct mbuf *nam;
{
	struct in_ifaddr *ia;
	struct sockaddr_in *ifaddr = 0;
	register struct sockaddr_in *sin = mtod(nam, struct sockaddr_in *);

	if (nam->m_len != sizeof (*sin))
		return (EINVAL);
	if (sin->sin_family != AF_INET)
		return (EAFNOSUPPORT);
	if (sin->sin_port == 0)
		return (EADDRNOTAVAIL);
	if (in_ifaddr) {
		/*
		 * If the destination address is INADDR_ANY,
		 * use the primary local address.
		 * If the supplied address is INADDR_BROADCAST,
		 * and the primary interface supports broadcast,
		 * choose the broadcast address for that interface.
		 */
#define	satosin(sa)	((struct sockaddr_in *)(sa))
		if (sin->sin_addr.s_addr == INADDR_ANY)
		    sin->sin_addr = IA_SIN(in_ifaddr)->sin_addr;
		else if (sin->sin_addr.s_addr == (u_long)INADDR_BROADCAST &&
		  (in_ifaddr->ia_ifp->if_flags & IFF_BROADCAST))
		    sin->sin_addr = satosin(&in_ifaddr->ia_broadaddr)->sin_addr;
	}
	if (inp->inp_laddr.s_addr == INADDR_ANY) {
		register struct route *ro;
		struct ifnet *ifp;

		ia = (struct in_ifaddr *)0;
		/* 
		 * If route is known or can be allocated now,
		 * our src addr is taken from the i/f, else punt.
		 */
		ro = &inp->inp_route;
		if (ro->ro_rt &&
		    (satosin(&ro->ro_dst)->sin_addr.s_addr !=
			sin->sin_addr.s_addr || 
		    inp->inp_socket->so_options & SO_DONTROUTE)) {
			RTFREE(ro->ro_rt);
			ro->ro_rt = (struct rtentry *)0;
		}
		if ((inp->inp_socket->so_options & SO_DONTROUTE) == 0 && /*XXX*/
		    (ro->ro_rt == (struct rtentry *)0 ||
		    ro->ro_rt->rt_ifp == (struct ifnet *)0)) {
			/* No route yet, so try to acquire one */
			ro->ro_dst.sa_family = AF_INET;
			ro->ro_dst.sa_len = sizeof(struct sockaddr_in);
			((struct sockaddr_in *) &ro->ro_dst)->sin_addr =
				sin->sin_addr;
			rtalloc(ro);
		}
		/*
		 * If we found a route, use the address
		 * corresponding to the outgoing interface
		 * unless it is the loopback (in case a route
		 * to our address on another net goes to loopback).
		 */
		if (ro->ro_rt && (ifp = ro->ro_rt->rt_ifp) &&
		    (ifp->if_flags & IFF_LOOPBACK) == 0)
			for (ia = in_ifaddr; ia; ia = ia->ia_next)
				if (ia->ia_ifp == ifp)
					break;
		if (ia == 0) {
			int fport = sin->sin_port;

			sin->sin_port = 0;
			ia = (struct in_ifaddr *)
			    ifa_ifwithdstaddr((struct sockaddr *)sin);
			sin->sin_port = fport;
			if (ia == 0)
				ia = in_iaonnetof(in_netof(sin->sin_addr));
			if (ia == 0)
				ia = in_ifaddr;
			if (ia == 0)
				return (EADDRNOTAVAIL);
		}
		ifaddr = (struct sockaddr_in *)&ia->ia_addr;
	}
	if (in_pcblookup(inp->inp_head,
	    sin->sin_addr,
	    sin->sin_port,
	    inp->inp_laddr.s_addr ? inp->inp_laddr : ifaddr->sin_addr,
	    inp->inp_lport,
	    0))
		return (EADDRINUSE);
	if (inp->inp_laddr.s_addr == INADDR_ANY) {
		if (inp->inp_lport == 0)
			(void)in_pcbbind(inp, (struct mbuf *)0);
		inp->inp_laddr = ifaddr->sin_addr;
	}
	inp->inp_faddr = sin->sin_addr;
	inp->inp_fport = sin->sin_port;
#ifdef MTUDISC
	/*
	 * If the upper layer asked for PMTU discovery services, see
	 * if we can get an idea of what the MTU should be...
	 */
	in_pcbmtu(inp);
#endif /* MTUDISC */
	return (0);
}

void
in_pcbdisconnect(inp)
	struct inpcb *inp;
{

	inp->inp_faddr.s_addr = INADDR_ANY;
	inp->inp_fport = 0;
#ifdef MTUDISC
	inp->inp_flags &= ~INP_MTUDISCOVERED;
#endif
	if (inp->inp_socket->so_state & SS_NOFDREF)
		in_pcbdetach(inp);
}

void
in_pcbdetach(inp)
	struct inpcb *inp;
{
	struct socket *so = inp->inp_socket;

	so->so_pcb = 0;
	sofree(so);
	if (inp->inp_options)
		(void)m_free(inp->inp_options);
	if (inp->inp_route.ro_rt)
		rtfree(inp->inp_route.ro_rt);
	remque(inp);
	(void) m_free(dtom(inp));
}

void
in_setsockaddr(inp, nam)
	register struct inpcb *inp;
	struct mbuf *nam;
{
	register struct sockaddr_in *sin;
	
	nam->m_len = sizeof (*sin);
	sin = mtod(nam, struct sockaddr_in *);
	bzero((caddr_t)sin, sizeof (*sin));
	sin->sin_family = AF_INET;
	sin->sin_len = sizeof(*sin);
	sin->sin_port = inp->inp_lport;
	sin->sin_addr = inp->inp_laddr;
}

void
in_setpeeraddr(inp, nam)
	struct inpcb *inp;
	struct mbuf *nam;
{
	register struct sockaddr_in *sin;
	
	nam->m_len = sizeof (*sin);
	sin = mtod(nam, struct sockaddr_in *);
	bzero((caddr_t)sin, sizeof (*sin));
	sin->sin_family = AF_INET;
	sin->sin_len = sizeof(*sin);
	sin->sin_port = inp->inp_fport;
	sin->sin_addr = inp->inp_faddr;
}

/*
 * Pass some notification to all connections of a protocol
 * associated with address dst.  The local address and/or port numbers
 * may be specified to limit the search.  The "usual action" will be
 * taken, depending on the ctlinput cmd.  The caller must filter any
 * cmds that are uninteresting (e.g., no error in the map).
 * Call the protocol specific routine (if any) to report
 * any errors for each matching socket.
 *
 * Must be called at splnet.
 */
void
in_pcbnotify(head, dst, fport, laddr, lport, cmd, notify)
	struct inpcb *head;
	struct sockaddr *dst;
	u_short fport, lport;
	struct in_addr laddr;
	int cmd;
	void (*notify)(struct inpcb *, int);
{
	register struct inpcb *inp, *oinp;
	struct in_addr faddr;
	int errno;

	if ((unsigned)cmd > PRC_NCMDS || dst->sa_family != AF_INET)
		return;
	faddr = ((struct sockaddr_in *)dst)->sin_addr;
	if (faddr.s_addr == INADDR_ANY)
		return;

	/*
	 * Redirects go to all references to the destination,
	 * and use in_rtchange to invalidate the route cache.
	 * Dead host indications: notify all references to the destination.
	 * MTU change indications: same thing.
	 * Otherwise, if we have knowledge of the local port and address,
	 * deliver only to that socket.
	 */
	if (PRC_IS_REDIRECT(cmd) || cmd == PRC_HOSTDEAD 
	    || cmd == PRC_MTUCHANGED) {
		fport = 0;
		lport = 0;
		laddr.s_addr = 0;
		if (cmd != PRC_HOSTDEAD && cmd != PRC_MTUCHANGED)
			notify = in_rtchange;
	}
	errno = inetctlerrmap[cmd];
	for (inp = head->inp_next; inp != head;) {
		if (inp->inp_faddr.s_addr != faddr.s_addr ||
		    inp->inp_socket == 0 ||
		    (lport && inp->inp_lport != lport) ||
		    (laddr.s_addr && inp->inp_laddr.s_addr != laddr.s_addr) ||
		    (fport && inp->inp_fport != fport)) {
			inp = inp->inp_next;
			continue;
		}
		oinp = inp;
		inp = inp->inp_next;
		if (notify)
			(*notify)(oinp, errno);
	}
}

/*
 * Check for alternatives when higher level complains
 * about service problems.  For now, invalidate cached
 * routing information.  If the route was created dynamically
 * (by a redirect), time to try a default gateway again.
 */
void
in_losing(inp)
	struct inpcb *inp;
{
	register struct rtentry *rt;

	if ((rt = inp->inp_route.ro_rt)) {
		rt_missmsg(RTM_LOSING, &inp->inp_route.ro_dst,
			    rt->rt_gateway, (struct sockaddr *)rt_mask(rt),
			    (struct sockaddr *)0, rt->rt_flags, 0);
		if (rt->rt_flags & RTF_DYNAMIC)
			(void) rtrequest(RTM_DELETE, rt_key(rt),
				rt->rt_gateway, rt_mask(rt), rt->rt_flags, 
				(struct rtentry **)0);
		inp->inp_route.ro_rt = 0;
		rtfree(rt);

#ifdef MTUDISC
		/*
		 * When doing MTU discovery, we want to find out as
		 * quickly as possible what the MTU of the new route is.
		 */
		in_pcbmtu(inp);
#endif /* MTUDISC */
	}
}

/*
 * After a routing change, flush old routing
 * and allocate a (hopefully) better one.
 */
void
in_rtchange(inp, errno)
	register struct inpcb *inp;
	int errno;
{
	if (inp->inp_route.ro_rt) {
		rtfree(inp->inp_route.ro_rt);
		inp->inp_route.ro_rt = 0;
#ifdef MTUDISC
		/*
		 * A new route can be allocated the next time
		 * output is attempted, but make sure to let
		 * MTU discovery know about it.
		 */
		in_pcbmtu(inp);
#endif /* MTUDISC */
	}
}

struct inpcb *
in_pcblookup(head, faddr, fport, laddr, lport, flags)
	struct inpcb *head;
	struct in_addr faddr, laddr;
	u_short fport, lport;
	int flags;
{
	register struct inpcb *inp, *match = 0;
	int matchwild = 3, wildcard;

	for (inp = head->inp_next; inp != head; inp = inp->inp_next) {
		if (inp->inp_lport != lport)
			continue;
		wildcard = 0;
		if (inp->inp_laddr.s_addr != INADDR_ANY) {
			if (laddr.s_addr == INADDR_ANY)
				wildcard++;
			else if (inp->inp_laddr.s_addr != laddr.s_addr)
				continue;
		} else {
			if (laddr.s_addr != INADDR_ANY)
				wildcard++;
		}
		if (inp->inp_faddr.s_addr != INADDR_ANY) {
			if (faddr.s_addr == INADDR_ANY)
				wildcard++;
			else if (inp->inp_faddr.s_addr != faddr.s_addr ||
			    inp->inp_fport != fport)
				continue;
		} else {
			if (faddr.s_addr != INADDR_ANY)
				wildcard++;
		}
		if (wildcard && (flags & INPLOOKUP_WILDCARD) == 0)
			continue;
		if (wildcard < matchwild) {
			match = inp;
			matchwild = wildcard;
			if (matchwild == 0)
				break;
		}
	}
	return (match);
}
Commit	Line	Data
15637ed4 RG	1	/*
	2	* Copyright (c) 1982, 1986, 1991 Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* Redistribution and use in source and binary forms, with or without
	6	* modification, are permitted provided that the following conditions
	7	* are met:
	8	* 1. Redistributions of source code must retain the above copyright
	9	* notice, this list of conditions and the following disclaimer.
	10	* 2. Redistributions in binary form must reproduce the above copyright
	11	* notice, this list of conditions and the following disclaimer in the
	12	* documentation and/or other materials provided with the distribution.
	13	* 3. All advertising materials mentioning features or use of this software
	14	* must display the following acknowledgement:
	15	* This product includes software developed by the University of
	16	* California, Berkeley and its contributors.
	17	* 4. Neither the name of the University nor the names of its contributors
	18	* may be used to endorse or promote products derived from this software
	19	* without specific prior written permission.
	20	*
	21	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	22	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	23	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	24	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	25	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	26	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	27	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	28	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	29	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	30	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	31	* SUCH DAMAGE.
	32	*
38e82238	33	* from: @(#)in_pcb.c 7.14 (Berkeley) 4/20/91
fde1aeb2	34	* $Id: in_pcb.c,v 1.4 1993/11/25 01:35:05 wollman Exp $
15637ed4 RG	35	*/
	36
	37	#include "param.h"
	38	#include "systm.h"
	39	#include "malloc.h"
	40	#include "mbuf.h"
	41	#include "protosw.h"
	42	#include "socket.h"
	43	#include "socketvar.h"
	44	#include "ioctl.h"
	45
	46	#include "../net/if.h"
	47	#include "../net/route.h"
	48
	49	#include "in.h"
	50	#include "in_systm.h"
	51	#include "ip.h"
	52	#include "in_pcb.h"
	53	#include "in_var.h"
	54
4c45483e	55	int
15637ed4 RG	56	in_pcballoc(so, head)
	57	struct socket *so;
	58	struct inpcb *head;
	59	{
	60	struct mbuf *m;
	61	register struct inpcb *inp;
	62
	63	m = m_getclr(M_DONTWAIT, MT_PCB);
	64	if (m == NULL)
	65	return (ENOBUFS);
	66	inp = mtod(m, struct inpcb *);
	67	inp->inp_head = head;
	68	inp->inp_socket = so;
	69	insque(inp, head);
	70	so->so_pcb = (caddr_t)inp;
	71	return (0);
	72	}
	73
4c45483e	74	int
15637ed4 RG	75	in_pcbbind(inp, nam)
	76	register struct inpcb *inp;
	77	struct mbuf *nam;
	78	{
	79	register struct socket *so = inp->inp_socket;
	80	register struct inpcb *head = inp->inp_head;
	81	register struct sockaddr_in *sin;
	82	u_short lport = 0;
	83
	84	if (in_ifaddr == 0)
	85	return (EADDRNOTAVAIL);
	86	if (inp->inp_lport \|\| inp->inp_laddr.s_addr != INADDR_ANY)
	87	return (EINVAL);
	88	if (nam == 0)
	89	goto noname;
	90	sin = mtod(nam, struct sockaddr_in *);
	91	if (nam->m_len != sizeof (*sin))
	92	return (EINVAL);
	93	if (sin->sin_addr.s_addr != INADDR_ANY) {
	94	int tport = sin->sin_port;
	95
	96	sin->sin_port = 0; /* yech... */
	97	if (ifa_ifwithaddr((struct sockaddr *)sin) == 0)
	98	return (EADDRNOTAVAIL);
	99	sin->sin_port = tport;
	100	}
	101	lport = sin->sin_port;
	102	if (lport) {
	103	u_short aport = ntohs(lport);
	104	int wild = 0;
	105
	106	/* GROSS */
	107	if (aport < IPPORT_RESERVED && (so->so_state & SS_PRIV) == 0)
	108	return (EACCES);
	109	/* even GROSSER, but this is the Internet */
	110	if ((so->so_options & SO_REUSEADDR) == 0 &&
	111	((so->so_proto->pr_flags & PR_CONNREQUIRED) == 0 \|\|
	112	(so->so_options & SO_ACCEPTCONN) == 0))
	113	wild = INPLOOKUP_WILDCARD;
	114	if (in_pcblookup(head,
	115	zeroin_addr, 0, sin->sin_addr, lport, wild))
	116	return (EADDRINUSE);
	117	}
	118	inp->inp_laddr = sin->sin_addr;
	119	noname:
	120	if (lport == 0)
	121	do {
	122	if (head->inp_lport++ < IPPORT_RESERVED \|\|
	123	head->inp_lport > IPPORT_USERRESERVED)
	124	head->inp_lport = IPPORT_RESERVED;
	125	lport = htons(head->inp_lport);
	126	} while (in_pcblookup(head,
	127	zeroin_addr, 0, inp->inp_laddr, lport, 0));
	128	inp->inp_lport = lport;
	129	return (0);
	130	}
	131
	132	/*
	133	* Connect from a socket to a specified address.
	134	* Both address and port must be specified in argument sin.
	135	* If don't have a local address for this socket yet,
	136	* then pick one.
	137	*/
4c45483e	138	int
15637ed4 RG	139	in_pcbconnect(inp, nam)
	140	register struct inpcb *inp;
	141	struct mbuf *nam;
	142	{
	143	struct in_ifaddr *ia;
4c45483e	144	struct sockaddr_in *ifaddr = 0;
15637ed4 RG	145	register struct sockaddr_in sin = mtod(nam, struct sockaddr_in );
	146
	147	if (nam->m_len != sizeof (*sin))
	148	return (EINVAL);
	149	if (sin->sin_family != AF_INET)
	150	return (EAFNOSUPPORT);
	151	if (sin->sin_port == 0)
	152	return (EADDRNOTAVAIL);
	153	if (in_ifaddr) {
	154	/*
	155	* If the destination address is INADDR_ANY,
	156	* use the primary local address.
	157	* If the supplied address is INADDR_BROADCAST,
	158	* and the primary interface supports broadcast,
	159	* choose the broadcast address for that interface.
	160	*/
	161	#define satosin(sa) ((struct sockaddr_in *)(sa))
	162	if (sin->sin_addr.s_addr == INADDR_ANY)
	163	sin->sin_addr = IA_SIN(in_ifaddr)->sin_addr;
	164	else if (sin->sin_addr.s_addr == (u_long)INADDR_BROADCAST &&
	165	(in_ifaddr->ia_ifp->if_flags & IFF_BROADCAST))
	166	sin->sin_addr = satosin(&in_ifaddr->ia_broadaddr)->sin_addr;
	167	}
	168	if (inp->inp_laddr.s_addr == INADDR_ANY) {
	169	register struct route *ro;
	170	struct ifnet *ifp;
	171
	172	ia = (struct in_ifaddr *)0;
	173	/*
	174	* If route is known or can be allocated now,
	175	* our src addr is taken from the i/f, else punt.
	176	*/
	177	ro = &inp->inp_route;
	178	if (ro->ro_rt &&
	179	(satosin(&ro->ro_dst)->sin_addr.s_addr !=
	180	sin->sin_addr.s_addr \|\|
	181	inp->inp_socket->so_options & SO_DONTROUTE)) {
	182	RTFREE(ro->ro_rt);
	183	ro->ro_rt = (struct rtentry *)0;
	184	}
	185	if ((inp->inp_socket->so_options & SO_DONTROUTE) == 0 && /XXX/
	186	(ro->ro_rt == (struct rtentry *)0 \|\|
	187	ro->ro_rt->rt_ifp == (struct ifnet *)0)) {
	188	/* No route yet, so try to acquire one */
	189	ro->ro_dst.sa_family = AF_INET;
	190	ro->ro_dst.sa_len = sizeof(struct sockaddr_in);
	191	((struct sockaddr_in *) &ro->ro_dst)->sin_addr =
	192	sin->sin_addr;
	193	rtalloc(ro);
	194	}
	195	/*
	196	* If we found a route, use the address
	197	* corresponding to the outgoing interface
	198	* unless it is the loopback (in case a route
	199	* to our address on another net goes to loopback).
	200	*/
	201	if (ro->ro_rt && (ifp = ro->ro_rt->rt_ifp) &&
	202	(ifp->if_flags & IFF_LOOPBACK) == 0)
	203	for (ia = in_ifaddr; ia; ia = ia->ia_next)
	204	if (ia->ia_ifp == ifp)
	205	break;
	206	if (ia == 0) {
	207	int fport = sin->sin_port;
	208
209	sin->sin_port = 0;
210	ia = (struct in_ifaddr *)
211	ifa_ifwithdstaddr((struct sockaddr *)sin);
212	sin->sin_port = fport;
213	if (ia == 0)
214	ia = in_iaonnetof(in_netof(sin->sin_addr));
215	if (ia == 0)
216	ia = in_ifaddr;
217	if (ia == 0)
218	return (EADDRNOTAVAIL);
219	}
220	ifaddr = (struct sockaddr_in *)&ia->ia_addr;
221	}
222	if (in_pcblookup(inp->inp_head,
223	sin->sin_addr,
224	sin->sin_port,
225	inp->inp_laddr.s_addr ? inp->inp_laddr : ifaddr->sin_addr,
226	inp->inp_lport,
227	0))
228	return (EADDRINUSE);
229	if (inp->inp_laddr.s_addr == INADDR_ANY) {
230	if (inp->inp_lport == 0)
231	(void)in_pcbbind(inp, (struct mbuf *)0);
232	inp->inp_laddr = ifaddr->sin_addr;
233	}
234	inp->inp_faddr = sin->sin_addr;
235	inp->inp_fport = sin->sin_port;
2cb63509 GW	236	#ifdef MTUDISC
	237	/*
	238	* If the upper layer asked for PMTU discovery services, see
	239	* if we can get an idea of what the MTU should be...
	240	*/
	241	in_pcbmtu(inp);
	242	#endif /* MTUDISC */
15637ed4 RG	243	return (0);
	244	}
	245
4c45483e	246	void
15637ed4 RG	247	in_pcbdisconnect(inp)
	248	struct inpcb *inp;
	249	{
	250
	251	inp->inp_faddr.s_addr = INADDR_ANY;
	252	inp->inp_fport = 0;
2cb63509 GW	253	#ifdef MTUDISC
	254	inp->inp_flags &= ~INP_MTUDISCOVERED;
	255	#endif
15637ed4 RG	256	if (inp->inp_socket->so_state & SS_NOFDREF)
	257	in_pcbdetach(inp);
	258	}
	259
4c45483e	260	void
15637ed4 RG	261	in_pcbdetach(inp)
	262	struct inpcb *inp;
	263	{
	264	struct socket *so = inp->inp_socket;
	265
	266	so->so_pcb = 0;
	267	sofree(so);
	268	if (inp->inp_options)
	269	(void)m_free(inp->inp_options);
	270	if (inp->inp_route.ro_rt)
	271	rtfree(inp->inp_route.ro_rt);
	272	remque(inp);
	273	(void) m_free(dtom(inp));
	274	}
	275
4c45483e	276	void
15637ed4 RG	277	in_setsockaddr(inp, nam)
	278	register struct inpcb *inp;
	279	struct mbuf *nam;
	280	{
	281	register struct sockaddr_in *sin;
	282
	283	nam->m_len = sizeof (*sin);
	284	sin = mtod(nam, struct sockaddr_in *);
	285	bzero((caddr_t)sin, sizeof (*sin));
	286	sin->sin_family = AF_INET;
	287	sin->sin_len = sizeof(*sin);
	288	sin->sin_port = inp->inp_lport;
	289	sin->sin_addr = inp->inp_laddr;
	290	}
	291
4c45483e	292	void
15637ed4 RG	293	in_setpeeraddr(inp, nam)
	294	struct inpcb *inp;
	295	struct mbuf *nam;
	296	{
	297	register struct sockaddr_in *sin;
	298
	299	nam->m_len = sizeof (*sin);
	300	sin = mtod(nam, struct sockaddr_in *);
	301	bzero((caddr_t)sin, sizeof (*sin));
	302	sin->sin_family = AF_INET;
	303	sin->sin_len = sizeof(*sin);
	304	sin->sin_port = inp->inp_fport;
	305	sin->sin_addr = inp->inp_faddr;
	306	}
	307
	308	/*
	309	* Pass some notification to all connections of a protocol
	310	* associated with address dst. The local address and/or port numbers
	311	* may be specified to limit the search. The "usual action" will be
	312	* taken, depending on the ctlinput cmd. The caller must filter any
	313	* cmds that are uninteresting (e.g., no error in the map).
	314	* Call the protocol specific routine (if any) to report
	315	* any errors for each matching socket.
	316	*
	317	* Must be called at splnet.
	318	*/
2cb63509	319	void
15637ed4 RG	320	in_pcbnotify(head, dst, fport, laddr, lport, cmd, notify)
	321	struct inpcb *head;
	322	struct sockaddr *dst;
	323	u_short fport, lport;
	324	struct in_addr laddr;
4c45483e GW	325	int cmd;
4c45483e GW	326	void (notify)(struct inpcb , int);
15637ed4 RG	327	{
	328	register struct inpcb inp, oinp;
	329	struct in_addr faddr;
	330	int errno;
15637ed4 RG	331
	332	if ((unsigned)cmd > PRC_NCMDS \|\| dst->sa_family != AF_INET)
	333	return;
	334	faddr = ((struct sockaddr_in *)dst)->sin_addr;
	335	if (faddr.s_addr == INADDR_ANY)
	336	return;
	337
	338	/*
	339	* Redirects go to all references to the destination,
	340	* and use in_rtchange to invalidate the route cache.
	341	* Dead host indications: notify all references to the destination.
2cb63509	342	* MTU change indications: same thing.
15637ed4 RG	343	* Otherwise, if we have knowledge of the local port and address,
	344	* deliver only to that socket.
	345	*/
2cb63509 GW	346	if (PRC_IS_REDIRECT(cmd) \|\| cmd == PRC_HOSTDEAD
2cb63509 GW	347	\|\| cmd == PRC_MTUCHANGED) {
15637ed4 RG	348	fport = 0;
	349	lport = 0;
	350	laddr.s_addr = 0;
2cb63509	351	if (cmd != PRC_HOSTDEAD && cmd != PRC_MTUCHANGED)
15637ed4 RG	352	notify = in_rtchange;
	353	}
	354	errno = inetctlerrmap[cmd];
	355	for (inp = head->inp_next; inp != head;) {
	356	if (inp->inp_faddr.s_addr != faddr.s_addr \|\|
	357	inp->inp_socket == 0 \|\|
	358	(lport && inp->inp_lport != lport) \|\|
	359	(laddr.s_addr && inp->inp_laddr.s_addr != laddr.s_addr) \|\|
	360	(fport && inp->inp_fport != fport)) {
	361	inp = inp->inp_next;
	362	continue;
	363	}
	364	oinp = inp;
	365	inp = inp->inp_next;
	366	if (notify)
	367	(*notify)(oinp, errno);
	368	}
	369	}
	370
	371	/*
	372	* Check for alternatives when higher level complains
	373	* about service problems. For now, invalidate cached
	374	* routing information. If the route was created dynamically
	375	* (by a redirect), time to try a default gateway again.
	376	*/
2cb63509	377	void
15637ed4 RG	378	in_losing(inp)
	379	struct inpcb *inp;
	380	{
	381	register struct rtentry *rt;
	382
	383	if ((rt = inp->inp_route.ro_rt)) {
	384	rt_missmsg(RTM_LOSING, &inp->inp_route.ro_dst,
	385	rt->rt_gateway, (struct sockaddr *)rt_mask(rt),
	386	(struct sockaddr *)0, rt->rt_flags, 0);
	387	if (rt->rt_flags & RTF_DYNAMIC)
	388	(void) rtrequest(RTM_DELETE, rt_key(rt),
	389	rt->rt_gateway, rt_mask(rt), rt->rt_flags,
	390	(struct rtentry **)0);
	391	inp->inp_route.ro_rt = 0;
	392	rtfree(rt);
2cb63509 GW	393
2cb63509 GW	394	#ifdef MTUDISC
15637ed4	395	/*
2cb63509 GW	396	* When doing MTU discovery, we want to find out as
2cb63509 GW	397	* quickly as possible what the MTU of the new route is.
15637ed4	398	*/
2cb63509 GW	399	in_pcbmtu(inp);
2cb63509 GW	400	#endif /* MTUDISC */
15637ed4 RG	401	}
	402	}
	403
	404	/*
	405	* After a routing change, flush old routing
	406	* and allocate a (hopefully) better one.
	407	*/
4c45483e GW	408	void
4c45483e GW	409	in_rtchange(inp, errno)
15637ed4	410	register struct inpcb *inp;
4c45483e	411	int errno;
15637ed4 RG	412	{
	413	if (inp->inp_route.ro_rt) {
	414	rtfree(inp->inp_route.ro_rt);
	415	inp->inp_route.ro_rt = 0;
2cb63509	416	#ifdef MTUDISC
15637ed4 RG	417	/*
15637ed4 RG	418	* A new route can be allocated the next time
2cb63509 GW	419	* output is attempted, but make sure to let
2cb63509 GW	420	* MTU discovery know about it.
15637ed4	421	*/
2cb63509 GW	422	in_pcbmtu(inp);
2cb63509 GW	423	#endif /* MTUDISC */
15637ed4 RG	424	}
	425	}
	426
	427	struct inpcb *
	428	in_pcblookup(head, faddr, fport, laddr, lport, flags)
	429	struct inpcb *head;
	430	struct in_addr faddr, laddr;
	431	u_short fport, lport;
	432	int flags;
	433	{
	434	register struct inpcb inp, match = 0;
	435	int matchwild = 3, wildcard;
	436
	437	for (inp = head->inp_next; inp != head; inp = inp->inp_next) {
	438	if (inp->inp_lport != lport)
	439	continue;
	440	wildcard = 0;
	441	if (inp->inp_laddr.s_addr != INADDR_ANY) {
	442	if (laddr.s_addr == INADDR_ANY)
	443	wildcard++;
	444	else if (inp->inp_laddr.s_addr != laddr.s_addr)
	445	continue;
	446	} else {
	447	if (laddr.s_addr != INADDR_ANY)
	448	wildcard++;
	449	}
	450	if (inp->inp_faddr.s_addr != INADDR_ANY) {
	451	if (faddr.s_addr == INADDR_ANY)
	452	wildcard++;
	453	else if (inp->inp_faddr.s_addr != faddr.s_addr \|\|
	454	inp->inp_fport != fport)
	455	continue;
	456	} else {
	457	if (faddr.s_addr != INADDR_ANY)
	458	wildcard++;
	459	}
	460	if (wildcard && (flags & INPLOOKUP_WILDCARD) == 0)
	461	continue;
	462	if (wildcard < matchwild) {
	463	match = inp;
	464	matchwild = wildcard;
	465	if (matchwild == 0)
	466	break;
	467	}
	468	}
	469	return (match);
	470	}