Merge from vendor branch BIND:
[dragonfly.git] / sys / kern / kern_jail.c
1 /*
2  * ----------------------------------------------------------------------------
3  * "THE BEER-WARE LICENSE" (Revision 42):
4  * <phk@FreeBSD.ORG> wrote this file.  As long as you retain this notice you
5  * can do whatever you want with this stuff. If we meet some day, and you think
6  * this stuff is worth it, you can buy me a beer in return.   Poul-Henning Kamp
7  * ----------------------------------------------------------------------------
8  *
9  */
10 /*-
11  * Copyright (c) 2006 Victor Balada Diaz <victor@bsdes.net>
12  * All rights reserved.
13  *
14  * Redistribution and use in source and binary forms, with or without
15  * modification, are permitted provided that the following conditions
16  * are met:
17  * 1. Redistributions of source code must retain the above copyright
18  *    notice, this list of conditions and the following disclaimer.
19  * 2. Redistributions in binary form must reproduce the above copyright
20  *    notice, this list of conditions and the following disclaimer in the
21  *    documentation and/or other materials provided with the distribution.
22  *
23  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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
36
37 /*
38  * $FreeBSD: src/sys/kern/kern_jail.c,v 1.6.2.3 2001/08/17 01:00:26 rwatson Exp $
39  * $DragonFly: src/sys/kern/kern_jail.c,v 1.18 2007/02/16 23:41:02 victor Exp $
40  */
41
42 #include "opt_inet6.h"
43
44 #include <sys/param.h>
45 #include <sys/types.h>
46 #include <sys/kernel.h>
47 #include <sys/systm.h>
48 #include <sys/errno.h>
49 #include <sys/sysproto.h>
50 #include <sys/malloc.h>
51 #include <sys/nlookup.h>
52 #include <sys/namecache.h>
53 #include <sys/proc.h>
54 #include <sys/jail.h>
55 #include <sys/socket.h>
56 #include <sys/sysctl.h>
57 #include <sys/kern_syscall.h>
58 #include <net/if.h>
59 #include <netinet/in.h>
60 #include <netinet6/in6_var.h>
61
62 static struct prison    *prison_find(int);
63 static void             prison_ipcache_init(struct prison *);
64
65 MALLOC_DEFINE(M_PRISON, "prison", "Prison structures");
66
67 SYSCTL_NODE(, OID_AUTO, jail, CTLFLAG_RW, 0,
68     "Jail rules");
69
70 int     jail_set_hostname_allowed = 1;
71 SYSCTL_INT(_jail, OID_AUTO, set_hostname_allowed, CTLFLAG_RW,
72     &jail_set_hostname_allowed, 0,
73     "Processes in jail can set their hostnames");
74
75 int     jail_socket_unixiproute_only = 1;
76 SYSCTL_INT(_jail, OID_AUTO, socket_unixiproute_only, CTLFLAG_RW,
77     &jail_socket_unixiproute_only, 0,
78     "Processes in jail are limited to creating UNIX/IPv[46]/route sockets only");
79
80 int     jail_sysvipc_allowed = 0;
81 SYSCTL_INT(_jail, OID_AUTO, sysvipc_allowed, CTLFLAG_RW,
82     &jail_sysvipc_allowed, 0,
83     "Processes in jail can use System V IPC primitives");
84
85 int    jail_chflags_allowed = 0;
86 SYSCTL_INT(_jail, OID_AUTO, chflags_allowed, CTLFLAG_RW,
87     &jail_chflags_allowed, 0,
88     "Process in jail can set chflags(1)");
89
90 int     lastprid = 0;
91 int     prisoncount = 0;
92
93 LIST_HEAD(prisonlist, prison);
94 struct  prisonlist allprison = LIST_HEAD_INITIALIZER(&allprison);
95
96 static int
97 kern_jail_attach(int jid)
98 {
99         struct proc *p = curthread->td_proc;
100         struct prison *pr;
101         int error;
102
103         pr = prison_find(jid);
104         if (pr == NULL)
105                 return(EINVAL);
106
107         error = kern_chroot(&pr->pr_root);
108         if (error)
109                 return(error);
110
111         prison_hold(pr);
112         cratom(&p->p_ucred);
113         p->p_ucred->cr_prison = pr;
114         p->p_flag |= P_JAILED;
115
116         return(0);
117 }
118
119 /*
120  * jail()
121  *
122  * jail_args(syscallarg(struct jail *) jail)
123  */
124 int
125 sys_jail(struct jail_args *uap)
126 {
127         struct prison *pr, *tpr;
128         struct jail j;
129         struct jail_v0 jv0;
130         struct thread *td = curthread;
131         int error, tryprid, i;
132         uint32_t jversion;
133         struct nlookupdata nd;
134         /* Multiip */
135         struct sockaddr_storage *uips; /* Userland ips */
136         struct sockaddr_in ip4addr;
137         struct jail_ip_storage *jip;
138         /* Multiip */
139
140         error = suser(td);
141         if (error) {
142                 uap->sysmsg_result = -1;
143                 return(error);
144         }
145         error = copyin(uap->jail, &jversion, sizeof jversion);
146         if (error) {
147                 uap->sysmsg_result = -1;
148                 return(error);
149         }
150         pr = kmalloc(sizeof *pr , M_PRISON, M_WAITOK | M_ZERO);
151         SLIST_INIT(&pr->pr_ips);
152
153         switch (jversion) {
154         case 0:
155                 error = copyin(uap->jail, &jv0, sizeof(struct jail_v0));
156                 if (error)
157                         goto bail;
158                 jip = kmalloc(sizeof(*jip),  M_PRISON, M_WAITOK | M_ZERO);
159                 ip4addr.sin_family = AF_INET;
160                 ip4addr.sin_addr.s_addr = htonl(jv0.ip_number);
161                 memcpy(&jip->ip, &ip4addr, sizeof(ip4addr));
162                 SLIST_INSERT_HEAD(&pr->pr_ips, jip, entries);
163                 break;
164         case 1:
165                 error = copyin(uap->jail, &j, sizeof(j));
166                 if (error)
167                         goto bail;
168                 uips = kmalloc((sizeof(*uips) * j.n_ips), M_PRISON,
169                                 M_WAITOK | M_ZERO);
170                 error = copyin(j.ips, uips, (sizeof(*uips) * j.n_ips));
171                 if (error) {
172                         kfree(uips, M_PRISON);
173                         goto bail;
174                 }
175                 for (i = 0; i < j.n_ips; i++) {
176                         jip = kmalloc(sizeof(*jip),  M_PRISON,
177                                       M_WAITOK | M_ZERO);
178                         memcpy(&jip->ip, &uips[i], sizeof(*uips));
179                         SLIST_INSERT_HEAD(&pr->pr_ips, jip, entries);
180                 }
181                 kfree(uips, M_PRISON);
182                 break;
183         default:
184                 error = EINVAL;
185                 goto bail;
186         }
187
188         error = copyinstr(j.hostname, &pr->pr_host, sizeof pr->pr_host, 0);
189         if (error)
190                 goto bail;
191         error = nlookup_init(&nd, j.path, UIO_USERSPACE, NLC_FOLLOW);
192         if (error)
193                 goto nlookup_init_clean;
194         error = nlookup(&nd);
195         if (error)
196                 goto nlookup_init_clean;
197         cache_copy(&nd.nl_nch, &pr->pr_root);
198
199         varsymset_init(&pr->pr_varsymset, NULL);
200         prison_ipcache_init(pr);
201
202         tryprid = lastprid + 1;
203         if (tryprid == JAIL_MAX)
204                 tryprid = 1;
205 next:
206         LIST_FOREACH(tpr, &allprison, pr_list) {
207                 if (tpr->pr_id != tryprid)
208                         continue;
209                 tryprid++;
210                 if (tryprid == JAIL_MAX) {
211                         error = ERANGE;
212                         goto varsym_clean;
213                 }
214                 goto next;
215         }
216         pr->pr_id = lastprid = tryprid;
217         LIST_INSERT_HEAD(&allprison, pr, pr_list);
218         prisoncount++;
219
220         error = kern_jail_attach(pr->pr_id);
221         if (error)
222                 goto jail_attach_clean;
223
224         nlookup_done(&nd);
225         uap->sysmsg_result = pr->pr_id;
226         return (0);
227
228 jail_attach_clean:
229         LIST_REMOVE(pr, pr_list);
230 varsym_clean:
231         varsymset_clean(&pr->pr_varsymset);
232 nlookup_init_clean:
233         nlookup_done(&nd);
234 bail:
235         /* Delete all ips */
236         while (!SLIST_EMPTY(&pr->pr_ips)) {
237                 jip = SLIST_FIRST(&pr->pr_ips);
238                 SLIST_REMOVE_HEAD(&pr->pr_ips, entries);
239                 FREE(jip, M_PRISON);
240         }
241         FREE(pr, M_PRISON);
242         return(error);
243 }
244
245 /*
246  * int jail_attach(int jid);
247  */
248 int
249 sys_jail_attach(struct jail_attach_args *uap)
250 {
251         struct thread *td = curthread;
252         int error;
253
254         error = suser(td);
255         if (error)
256                 return(error);
257
258         return(kern_jail_attach(uap->jid));
259 }
260
261 static void
262 prison_ipcache_init(struct prison *pr)
263 {
264         struct jail_ip_storage *jis;
265         struct sockaddr_in *ip4;
266         struct sockaddr_in6 *ip6;
267
268         SLIST_FOREACH(jis, &pr->pr_ips, entries) {
269                 switch (jis->ip.ss_family) {
270                 case AF_INET:
271                         ip4 = (struct sockaddr_in *)&jis->ip;
272                         if ((ntohl(ip4->sin_addr.s_addr) >> IN_CLASSA_NSHIFT) ==
273                             IN_LOOPBACKNET) {
274                                 /* loopback address */
275                                 if (pr->local_ip4 == NULL)
276                                         pr->local_ip4 = ip4;
277                         } else {
278                                 /* public address */
279                                 if (pr->nonlocal_ip4 == NULL)
280                                         pr->nonlocal_ip4 = ip4;
281                         }
282                         break;
283
284                 case AF_INET6:
285                         ip6 = (struct sockaddr_in6 *)&jis->ip;
286                         if (IN6_IS_ADDR_LOOPBACK(&ip6->sin6_addr)) {
287                                 /* loopback address */
288                                 if (pr->local_ip6 == NULL)
289                                         pr->local_ip6 = ip6;
290                         } else {
291                                 /* public address */
292                                 if (pr->nonlocal_ip6 == NULL)
293                                         pr->nonlocal_ip6 = ip6;
294                         }
295                         break;
296                 }
297         }
298 }
299
300 /* 
301  * Changes INADDR_LOOPBACK for a valid jail address.
302  * ip is in network byte order.
303  * Returns 1 if the ip is among jail valid ips.
304  * Returns 0 if is not among jail valid ips or
305  * if couldn't replace INADDR_LOOPBACK for a valid
306  * IP.
307  */
308 int
309 prison_replace_wildcards(struct thread *td, struct sockaddr *ip)
310 {
311         struct sockaddr_in *ip4 = (struct sockaddr_in *)ip;
312         struct sockaddr_in6 *ip6 = (struct sockaddr_in6 *)ip;
313         struct prison *pr;
314
315         if (td->td_proc == NULL)
316                 return (1);
317         if ((pr = td->td_proc->p_ucred->cr_prison) == NULL)
318                 return (1);
319
320         if ((ip->sa_family == AF_INET &&
321             ip4->sin_addr.s_addr == htonl(INADDR_ANY)) ||
322             (ip->sa_family == AF_INET6 &&
323             IN6_IS_ADDR_UNSPECIFIED(&ip6->sin6_addr)))
324                 return (1);
325         if ((ip->sa_family == AF_INET &&
326             ip4->sin_addr.s_addr == htonl(INADDR_LOOPBACK)) ||
327             (ip->sa_family == AF_INET6 &&
328             IN6_IS_ADDR_LOOPBACK(&ip6->sin6_addr))) {
329                 if (!prison_get_local(pr, ip->sa_family, ip) &&
330                     !prison_get_nonlocal(pr, ip->sa_family, ip))
331                         return(0);
332                 else
333                         return(1);
334         }
335         if (jailed_ip(pr, ip))
336                 return(1);
337         return(0);
338 }
339
340 int
341 prison_remote_ip(struct thread *td, struct sockaddr *ip)
342 {
343         struct sockaddr_in *ip4 = (struct sockaddr_in *)ip;
344         struct sockaddr_in6 *ip6 = (struct sockaddr_in6 *)ip;
345         struct prison *pr;
346
347         if (td == NULL || td->td_proc == NULL)
348                 return(1);
349         if ((pr = td->td_proc->p_ucred->cr_prison) == NULL)
350                 return(1);
351         if ((ip->sa_family == AF_INET &&
352             ip4->sin_addr.s_addr == htonl(INADDR_LOOPBACK)) ||
353             (ip->sa_family == AF_INET6 &&
354             IN6_IS_ADDR_LOOPBACK(&ip6->sin6_addr))) {
355                 if (!prison_get_local(pr, ip->sa_family, ip) &&
356                     !prison_get_nonlocal(pr, ip->sa_family, ip))
357                         return(0);
358                 else
359                         return(1);
360         }
361         return(1);
362 }
363
364 /*
365  * Prison get non loopback ip:
366  * - af is the address family of the ip we want (AF_INET|AF_INET6).
367  * - If ip != NULL, put the first IP address that is not a loopback address
368  *   into *ip.
369  *
370  * ip is in network by order and we don't touch it unless we find a valid ip.
371  * No matter if ip == NULL or not, we return either a valid struct sockaddr *,
372  * or NULL.  This struct may not be modified.
373  */
374 struct sockaddr *
375 prison_get_nonlocal(struct prison *pr, sa_family_t af, struct sockaddr *ip)
376 {
377         struct sockaddr_in *ip4 = (struct sockaddr_in *)ip;
378         struct sockaddr_in6 *ip6 = (struct sockaddr_in6 *)ip;
379
380         /* Check if it is cached */
381         switch(af) {
382         case AF_INET:
383                 if (ip4 != NULL && pr->nonlocal_ip4 != NULL)
384                         ip4->sin_addr.s_addr = pr->nonlocal_ip4->sin_addr.s_addr;
385                 return (struct sockaddr *)pr->nonlocal_ip4;
386
387         case AF_INET6:
388                 if (ip6 != NULL && pr->nonlocal_ip6 != NULL)
389                         ip6->sin6_addr = pr->nonlocal_ip6->sin6_addr;
390                 return (struct sockaddr *)pr->nonlocal_ip6;
391         }
392
393         /* NOTREACHED */
394         return NULL;
395 }
396
397 /*
398  * Prison get loopback ip.
399  * - af is the address family of the ip we want (AF_INET|AF_INET6).
400  * - If ip != NULL, put the first IP address that is not a loopback address
401  *   into *ip.
402  *
403  * ip is in network by order and we don't touch it unless we find a valid ip.
404  * No matter if ip == NULL or not, we return either a valid struct sockaddr *,
405  * or NULL.  This struct may not be modified.
406  */
407 struct sockaddr *
408 prison_get_local(struct prison *pr, sa_family_t af, struct sockaddr *ip)
409 {
410         struct sockaddr_in *ip4 = (struct sockaddr_in *)ip;
411         struct sockaddr_in6 *ip6 = (struct sockaddr_in6 *)ip;
412
413         /* Check if it is cached */
414         switch(af) {
415         case AF_INET:
416                 if (ip4 != NULL && pr->local_ip4 != NULL)
417                         ip4->sin_addr.s_addr = pr->local_ip4->sin_addr.s_addr;
418                 return (struct sockaddr *)pr->local_ip4;
419
420         case AF_INET6:
421                 if (ip6 != NULL && pr->local_ip6 != NULL)
422                         ip6->sin6_addr = pr->local_ip6->sin6_addr;
423                 return (struct sockaddr *)pr->local_ip6;
424         }
425
426         /* NOTREACHED */
427         return NULL;
428 }
429
430 /* Check if the IP is among ours, if it is return 1, else 0 */
431 int
432 jailed_ip(struct prison *pr, struct sockaddr *ip)
433 {
434         struct jail_ip_storage *jis;
435         struct sockaddr_in *jip4, *ip4;
436         struct sockaddr_in6 *jip6, *ip6;
437
438         if (pr == NULL)
439                 return(0);
440         ip4 = (struct sockaddr_in *)ip;
441         ip6 = (struct sockaddr_in6 *)ip;
442         SLIST_FOREACH(jis, &pr->pr_ips, entries) {
443                 switch (ip->sa_family) {
444                 case AF_INET:
445                         jip4 = (struct sockaddr_in *) &jis->ip;
446                         if (jip4->sin_family == AF_INET &&
447                             ip4->sin_addr.s_addr == jip4->sin_addr.s_addr)
448                                 return(1);
449                         break;
450                 case AF_INET6:
451                         jip6 = (struct sockaddr_in6 *) &jis->ip;
452                         if (jip6->sin6_family == AF_INET6 &&
453                             IN6_ARE_ADDR_EQUAL(&ip6->sin6_addr,
454                                                &jip6->sin6_addr))
455                                 return(1);
456                         break;
457                 }
458         }
459         /* Ip not in list */
460         return(0);
461 }
462
463 int
464 prison_if(struct ucred *cred, struct sockaddr *sa)
465 {
466         struct prison *pr;
467         struct sockaddr_in *sai = (struct sockaddr_in*) sa;
468
469         pr = cred->cr_prison;
470
471         if (((sai->sin_family != AF_INET) && (sai->sin_family != AF_INET6))
472             && jail_socket_unixiproute_only)
473                 return(1);
474         else if ((sai->sin_family != AF_INET) && (sai->sin_family != AF_INET6))
475                 return(0);
476         else if (jailed_ip(pr, sa))
477                 return(0);
478         return(1);
479 }
480
481 /*
482  * Returns a prison instance, or NULL on failure.
483  */
484 static struct prison *
485 prison_find(int prid)
486 {
487         struct prison *pr;
488
489         LIST_FOREACH(pr, &allprison, pr_list) {
490                 if (pr->pr_id == prid)
491                         break;
492         }
493         return(pr);
494 }
495
496 static int
497 sysctl_jail_list(SYSCTL_HANDLER_ARGS)
498 {
499         struct jail_ip_storage *jip;
500 #ifdef INET6
501         struct sockaddr_in6 *jsin6;
502 #endif
503         struct sockaddr_in *jsin;
504         struct proc *p;
505         struct prison *pr;
506         unsigned int jlssize, jlsused;
507         int count, error;
508         char *jls; /* Jail list */
509         char *oip; /* Output ip */
510         char *fullpath, *freepath;
511
512         jlsused = 0;
513         p = curthread->td_proc;
514
515         if (jailed(p->p_ucred))
516                 return (0);
517 retry:
518         count = prisoncount;
519
520         if (count == 0)
521                 return(0);
522
523         jlssize = (count * 1024);
524         jls = kmalloc(jlssize + 1, M_TEMP, M_WAITOK | M_ZERO);
525         if (count < prisoncount) {
526                 kfree(jls, M_TEMP);
527                 goto retry;
528         }
529         count = prisoncount;
530
531         LIST_FOREACH(pr, &allprison, pr_list) {
532                 error = cache_fullpath(p, &pr->pr_root, &fullpath, &freepath);
533                 if (error)
534                         continue;
535                 if (jlsused && jlsused < jlssize)
536                         jls[jlsused++] = '\n';
537                 count = ksnprintf(jls + jlsused, (jlssize - jlsused),
538                                  "%d %s %s", 
539                                  pr->pr_id, pr->pr_host, fullpath);
540                 kfree(freepath, M_TEMP);                
541                 if (count < 0)
542                         goto end;
543                 jlsused += count;
544
545                 /* Copy the IPS */
546                 SLIST_FOREACH(jip, &pr->pr_ips, entries) {
547                         jsin = (struct sockaddr_in *)&jip->ip;
548
549                         switch(jsin->sin_family) {
550                         case AF_INET:
551                                 oip = inet_ntoa(jsin->sin_addr);
552                                 break;
553 #ifdef INET6
554                         case AF_INET6:
555                                 jsin6 = (struct sockaddr_in6 *)&jip->ip;
556                                 oip = ip6_sprintf(&jsin6->sin6_addr);
557                                 break;
558 #endif
559                         default:
560                                 oip = "?family?";
561                                 break;
562                         }
563
564                         if ((jlssize - jlsused) < (strlen(oip) + 1)) {
565                                 error = ERANGE;
566                                 goto end;
567                         }
568                         count = ksnprintf(jls + jlsused, (jlssize - jlsused),
569                                           " %s", oip);
570                         if (count < 0)
571                                 goto end;
572                         jlsused += count;
573                 }
574         }
575
576         /* 
577          * The format is:
578          * pr_id <SPC> hostname1 <SPC> PATH1 <SPC> IP1 <SPC> IP2\npr_id...
579          */
580         error = SYSCTL_OUT(req, jls, jlsused);
581 end:
582         kfree(jls, M_TEMP);
583         return(error);
584 }
585
586 SYSCTL_OID(_jail, OID_AUTO, list, CTLTYPE_STRING | CTLFLAG_RD, NULL, 0,
587            sysctl_jail_list, "A", "List of active jails");
588
589 void
590 prison_hold(struct prison *pr)
591 {
592         pr->pr_ref++;
593 }
594
595 void
596 prison_free(struct prison *pr)
597 {
598         struct jail_ip_storage *jls;
599         KKASSERT(pr->pr_ref >= 1);
600
601         if (--pr->pr_ref > 0)
602                 return;
603
604         /* Delete all ips */
605         while (!SLIST_EMPTY(&pr->pr_ips)) {
606                 jls = SLIST_FIRST(&pr->pr_ips);
607                 SLIST_REMOVE_HEAD(&pr->pr_ips, entries);
608                 FREE(jls, M_PRISON);
609         }
610         LIST_REMOVE(pr, pr_list);
611         prisoncount--;
612
613         if (pr->pr_linux != NULL)
614                 kfree(pr->pr_linux, M_PRISON);
615         varsymset_clean(&pr->pr_varsymset);
616         cache_drop(&pr->pr_root);
617         kfree(pr, M_PRISON);
618 }