For kmalloc(), MALLOC() and contigmalloc(), use M_ZERO instead of
[dragonfly.git] / sys / net / faith / if_faith.c
1 /*      $KAME: if_faith.c,v 1.23 2001/12/17 13:55:29 sumikawa Exp $     */
2
3 /*
4  * Copyright (c) 1982, 1986, 1993
5  *      The Regents of the University of California.  All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. All advertising materials mentioning features or use of this software
16  *    must display the following acknowledgement:
17  *      This product includes software developed by the University of
18  *      California, Berkeley and its contributors.
19  * 4. Neither the name of the University nor the names of its contributors
20  *    may be used to endorse or promote products derived from this software
21  *    without specific prior written permission.
22  *
23  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33  * SUCH DAMAGE.
34  *
35  * $FreeBSD: src/sys/net/if_faith.c,v 1.3.2.6 2002/04/28 05:40:25 suz Exp $
36  * $DragonFly: src/sys/net/faith/if_faith.c,v 1.17 2008/01/05 14:02:38 swildner Exp $
37  */
38 /*
39  * derived from
40  *      @(#)if_loop.c   8.1 (Berkeley) 6/10/93
41  * Id: if_loop.c,v 1.22 1996/06/19 16:24:10 wollman Exp
42  */
43
44 /*
45  * Loopback interface driver for protocol testing and timing.
46  */
47 #ifndef NFAITH
48 #include "use_faith.h"
49 #endif
50 #include "opt_inet.h"
51 #include "opt_inet6.h"
52
53 #include <sys/param.h>
54 #include <sys/systm.h>
55 #include <sys/kernel.h>
56 #include <sys/mbuf.h>
57 #include <sys/bus.h>
58 #include <sys/socket.h>
59 #include <sys/errno.h>
60 #include <sys/sockio.h>
61 #include <sys/time.h>
62 #include <sys/queue.h>
63 #include <sys/types.h>
64 #include <sys/malloc.h>
65
66 #include <net/if.h>
67 #include <net/if_types.h>
68 #include <net/netisr.h>
69 #include <net/route.h>
70 #include <net/bpf.h>
71
72 #ifdef  INET
73 #include <netinet/in.h>
74 #include <netinet/in_systm.h>
75 #include <netinet/in_var.h>
76 #include <netinet/ip.h>
77 #endif
78
79 #ifdef INET6
80 #ifndef INET
81 #include <netinet/in.h>
82 #endif
83 #include <netinet6/in6_var.h>
84 #include <netinet/ip6.h>
85 #include <netinet6/ip6_var.h>
86 #endif
87
88 #include <net/net_osdep.h>
89
90 #define FAITHNAME       "faith"
91
92 struct faith_softc {
93         struct ifnet sc_if;     /* must be first */
94         LIST_ENTRY(faith_softc) sc_list;
95 };
96
97 static int faithioctl (struct ifnet *, u_long, caddr_t, struct ucred *);
98 int faithoutput (struct ifnet *, struct mbuf *, struct sockaddr *,
99         struct rtentry *);
100 static void faithrtrequest (int, struct rtentry *, struct rt_addrinfo *);
101 static int faithprefix (struct in6_addr *);
102
103 static int faithmodevent (module_t, int, void *);
104
105 static MALLOC_DEFINE(M_FAITH, FAITHNAME, "Firewall Assisted Tunnel Interface");
106 LIST_HEAD(, faith_softc) faith_softc_list;
107
108 int     faith_clone_create (struct if_clone *, int);
109 void    faith_clone_destroy (struct ifnet *);
110
111 struct if_clone faith_cloner = IF_CLONE_INITIALIZER(FAITHNAME,
112     faith_clone_create, faith_clone_destroy, NFAITH, IF_MAXUNIT);
113
114 #define FAITHMTU        1500
115
116 static int
117 faithmodevent(module_t mod, int type, void *data)
118 {
119
120         switch (type) {
121         case MOD_LOAD:
122                 LIST_INIT(&faith_softc_list);
123                 if_clone_attach(&faith_cloner);
124
125 #ifdef INET6
126                 faithprefix_p = faithprefix;
127 #endif
128
129                 break;
130         case MOD_UNLOAD:
131 #ifdef INET6
132                 faithprefix_p = NULL;
133 #endif
134
135                 if_clone_detach(&faith_cloner);
136
137                 while (!LIST_EMPTY(&faith_softc_list))
138                         faith_clone_destroy(
139                             &LIST_FIRST(&faith_softc_list)->sc_if);
140
141                 break;
142         }
143         return 0;
144 }
145
146 static moduledata_t faith_mod = {
147         "if_faith",
148         faithmodevent,
149         0
150 };
151
152 DECLARE_MODULE(if_faith, faith_mod, SI_SUB_PSEUDO, SI_ORDER_ANY);
153 MODULE_VERSION(if_faith, 1);
154
155 int
156 faith_clone_create(struct if_clone *ifc, int unit)
157 {
158         struct faith_softc *sc;
159
160         sc = kmalloc(sizeof(struct faith_softc), M_FAITH, M_WAITOK | M_ZERO);
161
162         sc->sc_if.if_softc = sc;
163         if_initname(&(sc->sc_if), FAITHNAME, unit);
164
165         sc->sc_if.if_mtu = FAITHMTU;
166         /* Change to BROADCAST experimentaly to announce its prefix. */
167         sc->sc_if.if_flags = /* IFF_LOOPBACK */ IFF_BROADCAST | IFF_MULTICAST;
168         sc->sc_if.if_ioctl = faithioctl;
169         sc->sc_if.if_output = faithoutput;
170         sc->sc_if.if_type = IFT_FAITH;
171         sc->sc_if.if_hdrlen = 0;
172         sc->sc_if.if_addrlen = 0;
173         sc->sc_if.if_snd.ifq_maxlen = ifqmaxlen;
174         if_attach(&sc->sc_if, NULL);
175         bpfattach(&sc->sc_if, DLT_NULL, sizeof(u_int));
176         LIST_INSERT_HEAD(&faith_softc_list, sc, sc_list);
177         return (0);
178 }
179
180 void
181 faith_clone_destroy(struct ifnet *ifp)
182 {
183         struct faith_softc *sc = (struct faith_softc *) ifp;
184
185         LIST_REMOVE(sc, sc_list);
186         bpfdetach(ifp);
187         if_detach(ifp);
188
189         kfree(sc, M_FAITH);
190 }
191
192 int
193 faithoutput(struct ifnet *ifp, struct mbuf *m, struct sockaddr *dst,
194             struct rtentry *rt)
195 {
196         int isr;
197
198         if ((m->m_flags & M_PKTHDR) == 0)
199                 panic("faithoutput no HDR");
200
201         /* BPF write needs to be handled specially */
202         if (dst->sa_family == AF_UNSPEC) {
203                 dst->sa_family = *(mtod(m, int *));
204                 m->m_len -= sizeof(int);
205                 m->m_pkthdr.len -= sizeof(int);
206                 m->m_data += sizeof(int);
207         }
208
209         if (ifp->if_bpf != NULL) {
210                 /*
211                  * We need to prepend the address family as
212                  * a four byte field.
213                  */
214                 uint32_t af = dst->sa_family;
215
216                 bpf_ptap(ifp->if_bpf, m, &af, sizeof(af));
217         }
218
219         if (rt && rt->rt_flags & (RTF_REJECT|RTF_BLACKHOLE)) {
220                 m_freem(m);
221                 return (rt->rt_flags & RTF_BLACKHOLE ? 0 :
222                         rt->rt_flags & RTF_HOST ? EHOSTUNREACH : ENETUNREACH);
223         }
224         ifp->if_opackets++;
225         ifp->if_obytes += m->m_pkthdr.len;
226         switch (dst->sa_family) {
227 #ifdef INET
228         case AF_INET:
229                 isr = NETISR_IP;
230                 break;
231 #endif
232 #ifdef INET6
233         case AF_INET6:
234                 isr = NETISR_IPV6;
235                 break;
236 #endif
237         default:
238                 m_freem(m);
239                 return EAFNOSUPPORT;
240         }
241
242         /* XXX do we need more sanity checks? */
243
244         m->m_pkthdr.rcvif = ifp;
245         ifp->if_ipackets++;
246         ifp->if_ibytes += m->m_pkthdr.len;
247         netisr_dispatch(isr, m);
248         return (0);
249 }
250
251 /* ARGSUSED */
252 static void
253 faithrtrequest(int cmd, struct rtentry *rt, struct rt_addrinfo *info)
254 {
255         if (rt) {
256                 rt->rt_rmx.rmx_mtu = rt->rt_ifp->if_mtu; /* for ISO */
257                 /*
258                  * For optimal performance, the send and receive buffers
259                  * should be at least twice the MTU plus a little more for
260                  * overhead.
261                  */
262                 rt->rt_rmx.rmx_recvpipe =
263                         rt->rt_rmx.rmx_sendpipe = 3 * FAITHMTU;
264         }
265 }
266
267 /*
268  * Process an ioctl request.
269  */
270 /* ARGSUSED */
271 static int
272 faithioctl(struct ifnet *ifp, u_long cmd, caddr_t data, struct ucred *cr)
273 {
274         struct ifaddr *ifa;
275         struct ifreq *ifr = (struct ifreq *)data;
276         int error = 0;
277
278         switch (cmd) {
279
280         case SIOCSIFADDR:
281                 ifp->if_flags |= IFF_UP | IFF_RUNNING;
282                 ifa = (struct ifaddr *)data;
283                 ifa->ifa_rtrequest = faithrtrequest;
284                 /*
285                  * Everything else is done at a higher level.
286                  */
287                 break;
288
289         case SIOCADDMULTI:
290         case SIOCDELMULTI:
291                 if (ifr == 0) {
292                         error = EAFNOSUPPORT;           /* XXX */
293                         break;
294                 }
295                 switch (ifr->ifr_addr.sa_family) {
296 #ifdef INET
297                 case AF_INET:
298                         break;
299 #endif
300 #ifdef INET6
301                 case AF_INET6:
302                         break;
303 #endif
304
305                 default:
306                         error = EAFNOSUPPORT;
307                         break;
308                 }
309                 break;
310
311 #ifdef SIOCSIFMTU
312         case SIOCSIFMTU:
313                 ifp->if_mtu = ifr->ifr_mtu;
314                 break;
315 #endif
316
317         case SIOCSIFFLAGS:
318                 break;
319
320         default:
321                 error = EINVAL;
322         }
323         return (error);
324 }
325
326 #ifdef INET6
327 /*
328  * XXX could be slow
329  * XXX could be layer violation to call sys/net from sys/netinet6
330  */
331 static int
332 faithprefix(struct in6_addr *in6)
333 {
334         struct rtentry *rt;
335         struct sockaddr_in6 sin6;
336         int ret;
337
338         if (ip6_keepfaith == 0)
339                 return 0;
340
341         bzero(&sin6, sizeof sin6);
342         sin6.sin6_family = AF_INET6;
343         sin6.sin6_len = sizeof(struct sockaddr_in6);
344         sin6.sin6_addr = *in6;
345         rt = rtpurelookup((struct sockaddr *)&sin6);
346         if (rt != NULL && rt->rt_ifp && rt->rt_ifp->if_type == IFT_FAITH &&
347             (rt->rt_ifp->if_flags & IFF_UP))
348                 ret = 1;
349         else
350                 ret = 0;
351         if (rt != NULL)
352                 RTFREE(rt);
353         return ret;
354 }
355 #endif