raw_ip6.c revision 148250
1/*-
2 * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
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. Neither the name of the project nor the names of its contributors
14 *    may be used to endorse or promote products derived from this software
15 *    without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 *
29 * $FreeBSD: head/sys/netinet6/raw_ip6.c 148250 2005-07-21 16:39:23Z ume $
30 */
31
32/*-
33 * Copyright (c) 1982, 1986, 1988, 1993
34 *	The Regents of the University of California.  All rights reserved.
35 *
36 * Redistribution and use in source and binary forms, with or without
37 * modification, are permitted provided that the following conditions
38 * are met:
39 * 1. Redistributions of source code must retain the above copyright
40 *    notice, this list of conditions and the following disclaimer.
41 * 2. Redistributions in binary form must reproduce the above copyright
42 *    notice, this list of conditions and the following disclaimer in the
43 *    documentation and/or other materials provided with the distribution.
44 * 4. Neither the name of the University nor the names of its contributors
45 *    may be used to endorse or promote products derived from this software
46 *    without specific prior written permission.
47 *
48 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
49 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
50 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
51 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
52 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
53 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
54 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
55 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
56 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
57 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
58 * SUCH DAMAGE.
59 *
60 *	@(#)raw_ip.c	8.2 (Berkeley) 1/4/94
61 */
62
63#include "opt_ipsec.h"
64#include "opt_inet6.h"
65
66#include <sys/param.h>
67#include <sys/errno.h>
68#include <sys/lock.h>
69#include <sys/malloc.h>
70#include <sys/mbuf.h>
71#include <sys/proc.h>
72#include <sys/protosw.h>
73#include <sys/signalvar.h>
74#include <sys/socket.h>
75#include <sys/socketvar.h>
76#include <sys/sx.h>
77#include <sys/systm.h>
78
79#include <net/if.h>
80#include <net/if_types.h>
81#include <net/route.h>
82
83#include <netinet/in.h>
84#include <netinet/in_var.h>
85#include <netinet/in_systm.h>
86#include <netinet/icmp6.h>
87#include <netinet/in_pcb.h>
88#include <netinet/ip6.h>
89#include <netinet6/ip6protosw.h>
90#include <netinet6/ip6_mroute.h>
91#include <netinet6/in6_pcb.h>
92#include <netinet6/ip6_var.h>
93#include <netinet6/nd6.h>
94#include <netinet6/raw_ip6.h>
95#ifdef ENABLE_DEFAULT_SCOPE
96#include <netinet6/scope6_var.h>
97#endif
98
99#ifdef IPSEC
100#include <netinet6/ipsec.h>
101#include <netinet6/ipsec6.h>
102#endif /*IPSEC*/
103
104#ifdef FAST_IPSEC
105#include <netipsec/ipsec.h>
106#include <netipsec/ipsec6.h>
107#endif /* FAST_IPSEC */
108
109#include <machine/stdarg.h>
110
111#define	satosin6(sa)	((struct sockaddr_in6 *)(sa))
112#define	ifatoia6(ifa)	((struct in6_ifaddr *)(ifa))
113
114/*
115 * Raw interface to IP6 protocol.
116 */
117
118extern struct	inpcbhead ripcb;
119extern struct	inpcbinfo ripcbinfo;
120extern u_long	rip_sendspace;
121extern u_long	rip_recvspace;
122
123struct rip6stat rip6stat;
124
125/*
126 * Setup generic address and protocol structures
127 * for raw_input routine, then pass them along with
128 * mbuf chain.
129 */
130int
131rip6_input(mp, offp, proto)
132	struct	mbuf **mp;
133	int	*offp, proto;
134{
135	struct mbuf *m = *mp;
136	register struct ip6_hdr *ip6 = mtod(m, struct ip6_hdr *);
137	register struct inpcb *in6p;
138	struct inpcb *last = 0;
139	struct mbuf *opts = NULL;
140	struct sockaddr_in6 fromsa;
141
142	rip6stat.rip6s_ipackets++;
143
144	if (faithprefix_p != NULL && (*faithprefix_p)(&ip6->ip6_dst)) {
145		/* XXX send icmp6 host/port unreach? */
146		m_freem(m);
147		return IPPROTO_DONE;
148	}
149
150	init_sin6(&fromsa, m); /* general init */
151
152	INP_INFO_RLOCK(&ripcbinfo);
153	LIST_FOREACH(in6p, &ripcb, inp_list) {
154		INP_LOCK(in6p);
155		if ((in6p->in6p_vflag & INP_IPV6) == 0) {
156docontinue:
157			INP_UNLOCK(in6p);
158			continue;
159		}
160		if (in6p->in6p_ip6_nxt &&
161		    in6p->in6p_ip6_nxt != proto)
162			goto docontinue;
163		if (!IN6_IS_ADDR_UNSPECIFIED(&in6p->in6p_laddr) &&
164		    !IN6_ARE_ADDR_EQUAL(&in6p->in6p_laddr, &ip6->ip6_dst))
165			goto docontinue;
166		if (!IN6_IS_ADDR_UNSPECIFIED(&in6p->in6p_faddr) &&
167		    !IN6_ARE_ADDR_EQUAL(&in6p->in6p_faddr, &ip6->ip6_src))
168			goto docontinue;
169		if (in6p->in6p_cksum != -1) {
170			rip6stat.rip6s_isum++;
171			if (in6_cksum(m, ip6->ip6_nxt, *offp,
172			    m->m_pkthdr.len - *offp)) {
173				rip6stat.rip6s_badsum++;
174				goto docontinue;
175			}
176		}
177		if (last) {
178			struct mbuf *n = m_copy(m, 0, (int)M_COPYALL);
179
180#if defined(IPSEC) || defined(FAST_IPSEC)
181			/*
182			 * Check AH/ESP integrity.
183			 */
184			if (n && ipsec6_in_reject(n, last)) {
185				m_freem(n);
186#ifdef IPSEC
187				ipsec6stat.in_polvio++;
188#endif /*IPSEC*/
189				/* do not inject data into pcb */
190			} else
191#endif /*IPSEC || FAST_IPSEC*/
192			if (n) {
193				if (last->in6p_flags & IN6P_CONTROLOPTS ||
194				    last->in6p_socket->so_options & SO_TIMESTAMP)
195					ip6_savecontrol(last, n, &opts);
196				/* strip intermediate headers */
197				m_adj(n, *offp);
198				if (sbappendaddr(&last->in6p_socket->so_rcv,
199						(struct sockaddr *)&fromsa,
200						 n, opts) == 0) {
201					m_freem(n);
202					if (opts)
203						m_freem(opts);
204					rip6stat.rip6s_fullsock++;
205				} else
206					sorwakeup(last->in6p_socket);
207				opts = NULL;
208			}
209			INP_UNLOCK(last);
210		}
211		last = in6p;
212	}
213#if defined(IPSEC) || defined(FAST_IPSEC)
214	/*
215	 * Check AH/ESP integrity.
216	 */
217	if (last && ipsec6_in_reject(m, last)) {
218		m_freem(m);
219#ifdef IPSEC
220		ipsec6stat.in_polvio++;
221#endif /*IPSEC*/
222		ip6stat.ip6s_delivered--;
223		/* do not inject data into pcb */
224	} else
225#endif /*IPSEC || FAST_IPSEC*/
226	if (last) {
227		if (last->in6p_flags & IN6P_CONTROLOPTS ||
228		    last->in6p_socket->so_options & SO_TIMESTAMP)
229			ip6_savecontrol(last, m, &opts);
230		/* strip intermediate headers */
231		m_adj(m, *offp);
232		if (sbappendaddr(&last->in6p_socket->so_rcv,
233				(struct sockaddr *)&fromsa, m, opts) == 0) {
234			m_freem(m);
235			if (opts)
236				m_freem(opts);
237			rip6stat.rip6s_fullsock++;
238		} else
239			sorwakeup(last->in6p_socket);
240		INP_UNLOCK(last);
241	} else {
242		rip6stat.rip6s_nosock++;
243		if (m->m_flags & M_MCAST)
244			rip6stat.rip6s_nosockmcast++;
245		if (proto == IPPROTO_NONE)
246			m_freem(m);
247		else {
248			char *prvnxtp = ip6_get_prevhdr(m, *offp); /* XXX */
249			icmp6_error(m, ICMP6_PARAM_PROB,
250				    ICMP6_PARAMPROB_NEXTHEADER,
251				    prvnxtp - mtod(m, char *));
252		}
253		ip6stat.ip6s_delivered--;
254	}
255	INP_INFO_RUNLOCK(&ripcbinfo);
256	return IPPROTO_DONE;
257}
258
259void
260rip6_ctlinput(cmd, sa, d)
261	int cmd;
262	struct sockaddr *sa;
263	void *d;
264{
265	struct ip6_hdr *ip6;
266	struct mbuf *m;
267	int off = 0;
268	struct ip6ctlparam *ip6cp = NULL;
269	const struct sockaddr_in6 *sa6_src = NULL;
270	void *cmdarg;
271	struct inpcb *(*notify) __P((struct inpcb *, int)) = in6_rtchange;
272
273	if (sa->sa_family != AF_INET6 ||
274	    sa->sa_len != sizeof(struct sockaddr_in6))
275		return;
276
277	if ((unsigned)cmd >= PRC_NCMDS)
278		return;
279	if (PRC_IS_REDIRECT(cmd))
280		notify = in6_rtchange, d = NULL;
281	else if (cmd == PRC_HOSTDEAD)
282		d = NULL;
283	else if (inet6ctlerrmap[cmd] == 0)
284		return;
285
286	/* if the parameter is from icmp6, decode it. */
287	if (d != NULL) {
288		ip6cp = (struct ip6ctlparam *)d;
289		m = ip6cp->ip6c_m;
290		ip6 = ip6cp->ip6c_ip6;
291		off = ip6cp->ip6c_off;
292		cmdarg = ip6cp->ip6c_cmdarg;
293		sa6_src = ip6cp->ip6c_src;
294	} else {
295		m = NULL;
296		ip6 = NULL;
297		cmdarg = NULL;
298		sa6_src = &sa6_any;
299	}
300
301	(void) in6_pcbnotify(&ripcbinfo, sa, 0,
302			     (const struct sockaddr *)sa6_src,
303			     0, cmd, cmdarg, notify);
304}
305
306/*
307 * Generate IPv6 header and pass packet to ip6_output.
308 * Tack on options user may have setup with control call.
309 */
310int
311#if __STDC__
312rip6_output(struct mbuf *m, ...)
313#else
314rip6_output(m, va_alist)
315	struct mbuf *m;
316	va_dcl
317#endif
318{
319	struct mbuf *control;
320	struct socket *so;
321	struct sockaddr_in6 *dstsock;
322	struct in6_addr *dst;
323	struct ip6_hdr *ip6;
324	struct inpcb *in6p;
325	u_int	plen = m->m_pkthdr.len;
326	int error = 0;
327	struct ip6_pktopts opt, *optp;
328	struct ifnet *oifp = NULL;
329	int type = 0, code = 0;		/* for ICMPv6 output statistics only */
330	int priv = 0;
331	struct in6_addr *in6a;
332	va_list ap;
333
334	va_start(ap, m);
335	so = va_arg(ap, struct socket *);
336	dstsock = va_arg(ap, struct sockaddr_in6 *);
337	control = va_arg(ap, struct mbuf *);
338	va_end(ap);
339
340	in6p = sotoin6pcb(so);
341	INP_LOCK(in6p);
342
343	priv = 0;
344	if (so->so_cred->cr_uid == 0)
345		priv = 1;
346	dst = &dstsock->sin6_addr;
347	if (control) {
348		if ((error = ip6_setpktopts(control, &opt,
349		    in6p->in6p_outputopts, priv, so->so_proto->pr_protocol))
350		    != 0) {
351			goto bad;
352		}
353		optp = &opt;
354	} else
355		optp = in6p->in6p_outputopts;
356
357	/*
358	 * For an ICMPv6 packet, we should know its type and code
359	 * to update statistics.
360	 */
361	if (so->so_proto->pr_protocol == IPPROTO_ICMPV6) {
362		struct icmp6_hdr *icmp6;
363		if (m->m_len < sizeof(struct icmp6_hdr) &&
364		    (m = m_pullup(m, sizeof(struct icmp6_hdr))) == NULL) {
365			error = ENOBUFS;
366			goto bad;
367		}
368		icmp6 = mtod(m, struct icmp6_hdr *);
369		type = icmp6->icmp6_type;
370		code = icmp6->icmp6_code;
371	}
372
373	M_PREPEND(m, sizeof(*ip6), M_DONTWAIT);
374	if (m == NULL) {
375		error = ENOBUFS;
376		goto bad;
377	}
378	ip6 = mtod(m, struct ip6_hdr *);
379
380	/*
381	 * Next header might not be ICMP6 but use its pseudo header anyway.
382	 */
383	ip6->ip6_dst = *dst;
384
385	/*
386	 * If the scope of the destination is link-local, embed the interface
387	 * index in the address.
388	 *
389	 * XXX advanced-api value overrides sin6_scope_id
390	 */
391	if (IN6_IS_SCOPE_LINKLOCAL(&ip6->ip6_dst)) {
392		struct in6_pktinfo *pi;
393
394		/*
395		 * XXX Boundary check is assumed to be already done in
396		 * ip6_setpktopts().
397		 */
398		if (optp &&
399		    (pi = optp->ip6po_pktinfo) &&
400		    pi->ipi6_ifindex) {
401			ip6->ip6_dst.s6_addr16[1] = htons(pi->ipi6_ifindex);
402			oifp = ifnet_byindex(pi->ipi6_ifindex);
403		} else if (IN6_IS_ADDR_MULTICAST(&ip6->ip6_dst) &&
404			 in6p->in6p_moptions &&
405			 in6p->in6p_moptions->im6o_multicast_ifp) {
406			oifp = in6p->in6p_moptions->im6o_multicast_ifp;
407			ip6->ip6_dst.s6_addr16[1] = htons(oifp->if_index);
408		} else if (dstsock->sin6_scope_id) {
409			/* boundary check */
410			if (dstsock->sin6_scope_id < 0 ||
411			    if_index < dstsock->sin6_scope_id) {
412				error = ENXIO;  /* XXX EINVAL? */
413				goto bad;
414			}
415			ip6->ip6_dst.s6_addr16[1] =
416			    htons(dstsock->sin6_scope_id & 0xffff); /* XXX */
417		}
418	}
419
420	/*
421	 * Source address selection.
422	 */
423	if ((in6a = in6_selectsrc(dstsock, optp, in6p->in6p_moptions, NULL,
424	    &in6p->in6p_laddr, &error)) == 0) {
425		if (error == 0)
426			error = EADDRNOTAVAIL;
427		goto bad;
428	}
429	ip6->ip6_src = *in6a;
430	ip6->ip6_flow = (ip6->ip6_flow & ~IPV6_FLOWINFO_MASK) |
431		(in6p->in6p_flowinfo & IPV6_FLOWINFO_MASK);
432	ip6->ip6_vfc = (ip6->ip6_vfc & ~IPV6_VERSION_MASK) |
433		(IPV6_VERSION & IPV6_VERSION_MASK);
434	/* ip6_plen will be filled in ip6_output, so not fill it here. */
435	ip6->ip6_nxt = in6p->in6p_ip6_nxt;
436	ip6->ip6_hlim = in6_selecthlim(in6p, oifp);
437
438	if (so->so_proto->pr_protocol == IPPROTO_ICMPV6 ||
439	    in6p->in6p_cksum != -1) {
440		struct mbuf *n;
441		int off;
442		u_int16_t *p;
443
444		/* compute checksum */
445		if (so->so_proto->pr_protocol == IPPROTO_ICMPV6)
446			off = offsetof(struct icmp6_hdr, icmp6_cksum);
447		else
448			off = in6p->in6p_cksum;
449		if (plen < off + 1) {
450			error = EINVAL;
451			goto bad;
452		}
453		off += sizeof(struct ip6_hdr);
454
455		n = m;
456		while (n && n->m_len <= off) {
457			off -= n->m_len;
458			n = n->m_next;
459		}
460		if (!n)
461			goto bad;
462		p = (u_int16_t *)(mtod(n, caddr_t) + off);
463		*p = 0;
464		*p = in6_cksum(m, ip6->ip6_nxt, sizeof(*ip6), plen);
465	}
466
467	error = ip6_output(m, optp, NULL, 0, in6p->in6p_moptions, &oifp, in6p);
468	if (so->so_proto->pr_protocol == IPPROTO_ICMPV6) {
469		if (oifp)
470			icmp6_ifoutstat_inc(oifp, type, code);
471		icmp6stat.icp6s_outhist[type]++;
472	} else
473		rip6stat.rip6s_opackets++;
474
475	goto freectl;
476
477 bad:
478	if (m)
479		m_freem(m);
480
481 freectl:
482	if (control) {
483		ip6_clearpktopts(&opt, -1);
484		m_freem(control);
485	}
486	INP_UNLOCK(in6p);
487	return (error);
488}
489
490/*
491 * Raw IPv6 socket option processing.
492 */
493int
494rip6_ctloutput(so, sopt)
495	struct socket *so;
496	struct sockopt *sopt;
497{
498	int error;
499
500	if (sopt->sopt_level == IPPROTO_ICMPV6)
501		/*
502		 * XXX: is it better to call icmp6_ctloutput() directly
503		 * from protosw?
504		 */
505		return (icmp6_ctloutput(so, sopt));
506	else if (sopt->sopt_level != IPPROTO_IPV6)
507		return (EINVAL);
508
509	error = 0;
510
511	switch (sopt->sopt_dir) {
512	case SOPT_GET:
513		switch (sopt->sopt_name) {
514		case MRT6_INIT:
515		case MRT6_DONE:
516		case MRT6_ADD_MIF:
517		case MRT6_DEL_MIF:
518		case MRT6_ADD_MFC:
519		case MRT6_DEL_MFC:
520		case MRT6_PIM:
521			error = ip6_mrouter_get(so, sopt);
522			break;
523		case IPV6_CHECKSUM:
524			error = ip6_raw_ctloutput(so, sopt);
525			break;
526		default:
527			error = ip6_ctloutput(so, sopt);
528			break;
529		}
530		break;
531
532	case SOPT_SET:
533		switch (sopt->sopt_name) {
534		case MRT6_INIT:
535		case MRT6_DONE:
536		case MRT6_ADD_MIF:
537		case MRT6_DEL_MIF:
538		case MRT6_ADD_MFC:
539		case MRT6_DEL_MFC:
540		case MRT6_PIM:
541			error = ip6_mrouter_set(so, sopt);
542			break;
543		case IPV6_CHECKSUM:
544			error = ip6_raw_ctloutput(so, sopt);
545			break;
546		default:
547			error = ip6_ctloutput(so, sopt);
548			break;
549		}
550		break;
551	}
552
553	return (error);
554}
555
556static int
557rip6_attach(struct socket *so, int proto, struct thread *td)
558{
559	struct inpcb *inp;
560	struct icmp6_filter *filter;
561	int error, s;
562
563	INP_INFO_WLOCK(&ripcbinfo);
564	inp = sotoinpcb(so);
565	if (inp) {
566		INP_INFO_WUNLOCK(&ripcbinfo);
567		panic("rip6_attach");
568	}
569	if (td && (error = suser(td)) != 0) {
570		INP_INFO_WUNLOCK(&ripcbinfo);
571		return error;
572	}
573	error = soreserve(so, rip_sendspace, rip_recvspace);
574	if (error) {
575		INP_INFO_WUNLOCK(&ripcbinfo);
576		return error;
577	}
578	MALLOC(filter, struct icmp6_filter *,
579	       sizeof(struct icmp6_filter), M_PCB, M_NOWAIT);
580	if (filter == NULL)
581		return ENOMEM;
582	s = splnet();
583	error = in_pcballoc(so, &ripcbinfo, "raw6inp");
584	splx(s);
585	if (error) {
586		INP_INFO_WUNLOCK(&ripcbinfo);
587		FREE(filter, M_PCB);
588		return error;
589	}
590	inp = (struct inpcb *)so->so_pcb;
591	INP_LOCK(inp);
592	INP_INFO_WUNLOCK(&ripcbinfo);
593	inp->inp_vflag |= INP_IPV6;
594	inp->in6p_ip6_nxt = (long)proto;
595	inp->in6p_hops = -1;	/* use kernel default */
596	inp->in6p_cksum = -1;
597	inp->in6p_icmp6filt = filter;
598	ICMP6_FILTER_SETPASSALL(inp->in6p_icmp6filt);
599	INP_UNLOCK(inp);
600	return 0;
601}
602
603static int
604rip6_detach(struct socket *so)
605{
606	struct inpcb *inp;
607
608	INP_INFO_WLOCK(&ripcbinfo);
609	inp = sotoinpcb(so);
610	if (inp == 0) {
611		INP_INFO_WUNLOCK(&ripcbinfo);
612		panic("rip6_detach");
613	}
614	/* xxx: RSVP */
615	if (so == ip6_mrouter)
616		ip6_mrouter_done();
617	if (inp->in6p_icmp6filt) {
618		FREE(inp->in6p_icmp6filt, M_PCB);
619		inp->in6p_icmp6filt = NULL;
620	}
621	INP_LOCK(inp);
622	in6_pcbdetach(inp);
623	INP_INFO_WUNLOCK(&ripcbinfo);
624	return 0;
625}
626
627static int
628rip6_abort(struct socket *so)
629{
630	soisdisconnected(so);
631	return rip6_detach(so);
632}
633
634static int
635rip6_disconnect(struct socket *so)
636{
637	struct inpcb *inp = sotoinpcb(so);
638
639	if ((so->so_state & SS_ISCONNECTED) == 0)
640		return ENOTCONN;
641	inp->in6p_faddr = in6addr_any;
642	return rip6_abort(so);
643}
644
645static int
646rip6_bind(struct socket *so, struct sockaddr *nam, struct thread *td)
647{
648	struct inpcb *inp = sotoinpcb(so);
649	struct sockaddr_in6 *addr = (struct sockaddr_in6 *)nam;
650	struct ifaddr *ia = NULL;
651
652	if (nam->sa_len != sizeof(*addr))
653		return EINVAL;
654	if (TAILQ_EMPTY(&ifnet) || addr->sin6_family != AF_INET6)
655		return EADDRNOTAVAIL;
656#ifdef ENABLE_DEFAULT_SCOPE
657	if (addr->sin6_scope_id == 0) {	/* not change if specified  */
658		addr->sin6_scope_id = scope6_addr2default(&addr->sin6_addr);
659	}
660#endif
661	if (!IN6_IS_ADDR_UNSPECIFIED(&addr->sin6_addr) &&
662	    (ia = ifa_ifwithaddr((struct sockaddr *)addr)) == 0)
663		return EADDRNOTAVAIL;
664	if (ia &&
665	    ((struct in6_ifaddr *)ia)->ia6_flags &
666	    (IN6_IFF_ANYCAST|IN6_IFF_NOTREADY|
667	     IN6_IFF_DETACHED|IN6_IFF_DEPRECATED)) {
668		return (EADDRNOTAVAIL);
669	}
670	INP_INFO_WLOCK(&ripcbinfo);
671	INP_LOCK(inp);
672	inp->in6p_laddr = addr->sin6_addr;
673	INP_UNLOCK(inp);
674	INP_INFO_WUNLOCK(&ripcbinfo);
675	return 0;
676}
677
678static int
679rip6_connect(struct socket *so, struct sockaddr *nam, struct thread *td)
680{
681	struct inpcb *inp = sotoinpcb(so);
682	struct sockaddr_in6 *addr = (struct sockaddr_in6 *)nam;
683	struct in6_addr *in6a = NULL;
684	int error = 0;
685#ifdef ENABLE_DEFAULT_SCOPE
686	struct sockaddr_in6 tmp;
687#endif
688
689	if (nam->sa_len != sizeof(*addr))
690		return EINVAL;
691	if (TAILQ_EMPTY(&ifnet))
692		return EADDRNOTAVAIL;
693	if (addr->sin6_family != AF_INET6)
694		return EAFNOSUPPORT;
695#ifdef ENABLE_DEFAULT_SCOPE
696	if (addr->sin6_scope_id == 0) {	/* not change if specified  */
697		/* avoid overwrites */
698		tmp = *addr;
699		addr = &tmp;
700		addr->sin6_scope_id = scope6_addr2default(&addr->sin6_addr);
701	}
702#endif
703	INP_INFO_WLOCK(&ripcbinfo);
704	INP_LOCK(inp);
705	/* Source address selection. XXX: need pcblookup? */
706	in6a = in6_selectsrc(addr, inp->in6p_outputopts,
707			     inp->in6p_moptions, NULL,
708			     &inp->in6p_laddr, &error);
709	if (in6a == NULL) {
710		INP_UNLOCK(inp);
711		INP_INFO_WUNLOCK(&ripcbinfo);
712		return (error ? error : EADDRNOTAVAIL);
713	}
714	inp->in6p_laddr = *in6a;
715	inp->in6p_faddr = addr->sin6_addr;
716	soisconnected(so);
717	INP_UNLOCK(inp);
718	INP_INFO_WUNLOCK(&ripcbinfo);
719	return 0;
720}
721
722static int
723rip6_shutdown(struct socket *so)
724{
725	struct inpcb *inp;
726
727	INP_INFO_RLOCK(&ripcbinfo);
728	inp = sotoinpcb(so);
729	INP_LOCK(inp);
730	INP_INFO_RUNLOCK(&ripcbinfo);
731	socantsendmore(so);
732	INP_UNLOCK(inp);
733	return 0;
734}
735
736static int
737rip6_send(struct socket *so, int flags, struct mbuf *m, struct sockaddr *nam,
738	 struct mbuf *control, struct thread *td)
739{
740	struct inpcb *inp = sotoinpcb(so);
741	struct sockaddr_in6 tmp;
742	struct sockaddr_in6 *dst;
743	int ret;
744
745	INP_INFO_WLOCK(&ripcbinfo);
746	/* always copy sockaddr to avoid overwrites */
747	/* Unlocked read. */
748	if (so->so_state & SS_ISCONNECTED) {
749		if (nam) {
750			INP_INFO_WUNLOCK(&ripcbinfo);
751			m_freem(m);
752			return EISCONN;
753		}
754		/* XXX */
755		bzero(&tmp, sizeof(tmp));
756		tmp.sin6_family = AF_INET6;
757		tmp.sin6_len = sizeof(struct sockaddr_in6);
758		bcopy(&inp->in6p_faddr, &tmp.sin6_addr,
759		      sizeof(struct in6_addr));
760		dst = &tmp;
761	} else {
762		if (nam == NULL) {
763			INP_INFO_WUNLOCK(&ripcbinfo);
764			m_freem(m);
765			return ENOTCONN;
766		}
767		tmp = *(struct sockaddr_in6 *)nam;
768		dst = &tmp;
769	}
770#ifdef ENABLE_DEFAULT_SCOPE
771	if (dst->sin6_scope_id == 0) {	/* not change if specified  */
772		dst->sin6_scope_id = scope6_addr2default(&dst->sin6_addr);
773	}
774#endif
775	ret = rip6_output(m, so, dst, control);
776	INP_INFO_WUNLOCK(&ripcbinfo);
777	return (ret);
778}
779
780struct pr_usrreqs rip6_usrreqs = {
781	.pru_abort =		rip6_abort,
782	.pru_attach =		rip6_attach,
783	.pru_bind =		rip6_bind,
784	.pru_connect =		rip6_connect,
785	.pru_control =		in6_control,
786	.pru_detach =		rip6_detach,
787	.pru_disconnect =	rip6_disconnect,
788	.pru_peeraddr =		in6_setpeeraddr,
789	.pru_send =		rip6_send,
790	.pru_shutdown =		rip6_shutdown,
791	.pru_sockaddr =		in6_setsockaddr,
792};
793