kern_auth.c revision 1.34 1 1.34 ad /* $NetBSD: kern_auth.c,v 1.34 2006/12/23 08:38:00 ad Exp $ */
2 1.2 elad
3 1.2 elad /*-
4 1.2 elad * Copyright (c) 2005, 2006 Elad Efrat <elad (at) NetBSD.org>
5 1.2 elad * All rights reserved.
6 1.2 elad *
7 1.2 elad * Redistribution and use in source and binary forms, with or without
8 1.2 elad * modification, are permitted provided that the following conditions
9 1.2 elad * are met:
10 1.2 elad * 1. Redistributions of source code must retain the above copyright
11 1.2 elad * notice, this list of conditions and the following disclaimer.
12 1.2 elad * 2. Redistributions in binary form must reproduce the above copyright
13 1.2 elad * notice, this list of conditions and the following disclaimer in the
14 1.2 elad * documentation and/or other materials provided with the distribution.
15 1.2 elad * 3. All advertising materials mentioning features or use of this software
16 1.2 elad * must display the following acknowledgement:
17 1.2 elad * This product includes software developed by Elad Efrat.
18 1.2 elad * 4. The name of the author may not be used to endorse or promote products
19 1.2 elad * derived from this software without specific prior written permission.
20 1.2 elad *
21 1.2 elad * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
22 1.2 elad * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
23 1.2 elad * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
24 1.2 elad * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
25 1.2 elad * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
26 1.2 elad * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
27 1.2 elad * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
28 1.2 elad * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
29 1.2 elad * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
30 1.2 elad * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31 1.2 elad */
32 1.2 elad
33 1.20 elad #include <sys/cdefs.h>
34 1.34 ad __KERNEL_RCSID(0, "$NetBSD: kern_auth.c,v 1.34 2006/12/23 08:38:00 ad Exp $");
35 1.20 elad
36 1.2 elad #include <sys/types.h>
37 1.2 elad #include <sys/param.h>
38 1.2 elad #include <sys/queue.h>
39 1.2 elad #include <sys/time.h>
40 1.2 elad #include <sys/proc.h>
41 1.2 elad #include <sys/ucred.h>
42 1.2 elad #include <sys/pool.h>
43 1.2 elad #include <sys/kauth.h>
44 1.2 elad #include <sys/acct.h>
45 1.2 elad #include <sys/sysctl.h>
46 1.34 ad #include <sys/kmem.h>
47 1.2 elad
48 1.2 elad /*
49 1.2 elad * Credentials.
50 1.2 elad */
51 1.2 elad struct kauth_cred {
52 1.11 ad struct simplelock cr_lock; /* lock on cr_refcnt */
53 1.11 ad u_int cr_refcnt; /* reference count */
54 1.2 elad uid_t cr_uid; /* user id */
55 1.2 elad uid_t cr_euid; /* effective user id */
56 1.2 elad uid_t cr_svuid; /* saved effective user id */
57 1.2 elad gid_t cr_gid; /* group id */
58 1.2 elad gid_t cr_egid; /* effective group id */
59 1.2 elad gid_t cr_svgid; /* saved effective group id */
60 1.11 ad u_int cr_ngroups; /* number of groups */
61 1.2 elad gid_t cr_groups[NGROUPS]; /* group memberships */
62 1.2 elad };
63 1.2 elad
64 1.2 elad /*
65 1.2 elad * Listener.
66 1.2 elad */
67 1.2 elad struct kauth_listener {
68 1.2 elad kauth_scope_callback_t func; /* callback */
69 1.2 elad kauth_scope_t scope; /* scope backpointer */
70 1.11 ad u_int refcnt; /* reference count */
71 1.2 elad SIMPLEQ_ENTRY(kauth_listener) listener_next; /* listener list */
72 1.2 elad };
73 1.2 elad
74 1.2 elad /*
75 1.2 elad * Scope.
76 1.2 elad */
77 1.2 elad struct kauth_scope {
78 1.2 elad const char *id; /* scope name */
79 1.2 elad void *cookie; /* user cookie */
80 1.11 ad u_int nlisteners; /* # of listeners */
81 1.2 elad SIMPLEQ_HEAD(, kauth_listener) listenq; /* listener list */
82 1.2 elad SIMPLEQ_ENTRY(kauth_scope) next_scope; /* scope list */
83 1.2 elad };
84 1.2 elad
85 1.6 yamt static POOL_INIT(kauth_cred_pool, sizeof(struct kauth_cred), 0, 0, 0,
86 1.34 ad "kauthcredpl", &pool_allocator_nointr);
87 1.2 elad
88 1.2 elad /* List of scopes and its lock. */
89 1.6 yamt static SIMPLEQ_HEAD(, kauth_scope) scope_list;
90 1.6 yamt static struct simplelock scopes_lock;
91 1.2 elad
92 1.2 elad /* Built-in scopes: generic, process. */
93 1.2 elad static kauth_scope_t kauth_builtin_scope_generic;
94 1.19 elad static kauth_scope_t kauth_builtin_scope_system;
95 1.2 elad static kauth_scope_t kauth_builtin_scope_process;
96 1.19 elad static kauth_scope_t kauth_builtin_scope_network;
97 1.19 elad static kauth_scope_t kauth_builtin_scope_machdep;
98 1.25 elad static kauth_scope_t kauth_builtin_scope_device;
99 1.2 elad
100 1.22 elad static boolean_t listeners_have_been_loaded = FALSE;
101 1.22 elad
102 1.2 elad /* Allocate new, empty kauth credentials. */
103 1.2 elad kauth_cred_t
104 1.3 yamt kauth_cred_alloc(void)
105 1.3 yamt {
106 1.2 elad kauth_cred_t cred;
107 1.2 elad
108 1.2 elad cred = pool_get(&kauth_cred_pool, PR_WAITOK);
109 1.2 elad memset(cred, 0, sizeof(*cred));
110 1.2 elad simple_lock_init(&cred->cr_lock);
111 1.2 elad cred->cr_refcnt = 1;
112 1.2 elad
113 1.2 elad return (cred);
114 1.2 elad }
115 1.2 elad
116 1.2 elad /* Increment reference count to cred. */
117 1.2 elad void
118 1.2 elad kauth_cred_hold(kauth_cred_t cred)
119 1.2 elad {
120 1.2 elad KASSERT(cred != NULL);
121 1.11 ad KASSERT(cred->cr_refcnt > 0);
122 1.2 elad
123 1.2 elad simple_lock(&cred->cr_lock);
124 1.2 elad cred->cr_refcnt++;
125 1.2 elad simple_unlock(&cred->cr_lock);
126 1.2 elad }
127 1.2 elad
128 1.2 elad /* Decrease reference count to cred. If reached zero, free it. */
129 1.2 elad void
130 1.3 yamt kauth_cred_free(kauth_cred_t cred)
131 1.3 yamt {
132 1.11 ad u_int refcnt;
133 1.11 ad
134 1.2 elad KASSERT(cred != NULL);
135 1.11 ad KASSERT(cred->cr_refcnt > 0);
136 1.2 elad
137 1.2 elad simple_lock(&cred->cr_lock);
138 1.11 ad refcnt = --cred->cr_refcnt;
139 1.2 elad simple_unlock(&cred->cr_lock);
140 1.2 elad
141 1.11 ad if (refcnt == 0)
142 1.5 yamt pool_put(&kauth_cred_pool, cred);
143 1.2 elad }
144 1.2 elad
145 1.2 elad void
146 1.2 elad kauth_cred_clone(kauth_cred_t from, kauth_cred_t to)
147 1.2 elad {
148 1.2 elad KASSERT(from != NULL);
149 1.2 elad KASSERT(to != NULL);
150 1.11 ad KASSERT(from->cr_refcnt > 0);
151 1.2 elad
152 1.2 elad to->cr_uid = from->cr_uid;
153 1.2 elad to->cr_euid = from->cr_euid;
154 1.2 elad to->cr_svuid = from->cr_svuid;
155 1.2 elad to->cr_gid = from->cr_gid;
156 1.2 elad to->cr_egid = from->cr_egid;
157 1.2 elad to->cr_svgid = from->cr_svgid;
158 1.2 elad to->cr_ngroups = from->cr_ngroups;
159 1.11 ad memcpy(to->cr_groups, from->cr_groups, sizeof(to->cr_groups));
160 1.2 elad }
161 1.2 elad
162 1.2 elad /*
163 1.2 elad * Duplicate cred and return a new kauth_cred_t.
164 1.2 elad */
165 1.2 elad kauth_cred_t
166 1.2 elad kauth_cred_dup(kauth_cred_t cred)
167 1.2 elad {
168 1.2 elad kauth_cred_t new_cred;
169 1.2 elad
170 1.2 elad KASSERT(cred != NULL);
171 1.11 ad KASSERT(cred->cr_refcnt > 0);
172 1.2 elad
173 1.2 elad new_cred = kauth_cred_alloc();
174 1.2 elad
175 1.2 elad kauth_cred_clone(cred, new_cred);
176 1.2 elad
177 1.2 elad return (new_cred);
178 1.2 elad }
179 1.2 elad
180 1.2 elad /*
181 1.2 elad * Similar to crcopy(), only on a kauth_cred_t.
182 1.2 elad * XXX: Is this even needed? [kauth_cred_copy]
183 1.2 elad */
184 1.2 elad kauth_cred_t
185 1.2 elad kauth_cred_copy(kauth_cred_t cred)
186 1.2 elad {
187 1.2 elad kauth_cred_t new_cred;
188 1.2 elad
189 1.2 elad KASSERT(cred != NULL);
190 1.11 ad KASSERT(cred->cr_refcnt > 0);
191 1.2 elad
192 1.2 elad /* If the provided credentials already have one reference, use them. */
193 1.2 elad if (cred->cr_refcnt == 1)
194 1.2 elad return (cred);
195 1.2 elad
196 1.2 elad new_cred = kauth_cred_alloc();
197 1.2 elad
198 1.2 elad kauth_cred_clone(cred, new_cred);
199 1.2 elad
200 1.2 elad kauth_cred_free(cred);
201 1.2 elad
202 1.2 elad return (new_cred);
203 1.2 elad }
204 1.2 elad
205 1.2 elad uid_t
206 1.2 elad kauth_cred_getuid(kauth_cred_t cred)
207 1.2 elad {
208 1.2 elad KASSERT(cred != NULL);
209 1.2 elad
210 1.2 elad return (cred->cr_uid);
211 1.2 elad }
212 1.2 elad
213 1.2 elad uid_t
214 1.2 elad kauth_cred_geteuid(kauth_cred_t cred)
215 1.2 elad {
216 1.2 elad KASSERT(cred != NULL);
217 1.2 elad
218 1.2 elad return (cred->cr_euid);
219 1.2 elad }
220 1.2 elad
221 1.2 elad uid_t
222 1.2 elad kauth_cred_getsvuid(kauth_cred_t cred)
223 1.2 elad {
224 1.2 elad KASSERT(cred != NULL);
225 1.2 elad
226 1.2 elad return (cred->cr_svuid);
227 1.2 elad }
228 1.2 elad
229 1.2 elad gid_t
230 1.2 elad kauth_cred_getgid(kauth_cred_t cred)
231 1.2 elad {
232 1.2 elad KASSERT(cred != NULL);
233 1.2 elad
234 1.2 elad return (cred->cr_gid);
235 1.2 elad }
236 1.2 elad
237 1.2 elad gid_t
238 1.2 elad kauth_cred_getegid(kauth_cred_t cred)
239 1.2 elad {
240 1.2 elad KASSERT(cred != NULL);
241 1.2 elad
242 1.2 elad return (cred->cr_egid);
243 1.2 elad }
244 1.2 elad
245 1.2 elad gid_t
246 1.2 elad kauth_cred_getsvgid(kauth_cred_t cred)
247 1.2 elad {
248 1.2 elad KASSERT(cred != NULL);
249 1.2 elad
250 1.2 elad return (cred->cr_svgid);
251 1.2 elad }
252 1.2 elad
253 1.2 elad void
254 1.2 elad kauth_cred_setuid(kauth_cred_t cred, uid_t uid)
255 1.2 elad {
256 1.2 elad KASSERT(cred != NULL);
257 1.11 ad KASSERT(cred->cr_refcnt == 1);
258 1.2 elad
259 1.2 elad cred->cr_uid = uid;
260 1.2 elad }
261 1.2 elad
262 1.2 elad void
263 1.2 elad kauth_cred_seteuid(kauth_cred_t cred, uid_t uid)
264 1.2 elad {
265 1.2 elad KASSERT(cred != NULL);
266 1.11 ad KASSERT(cred->cr_refcnt == 1);
267 1.2 elad
268 1.2 elad cred->cr_euid = uid;
269 1.2 elad }
270 1.2 elad
271 1.2 elad void
272 1.2 elad kauth_cred_setsvuid(kauth_cred_t cred, uid_t uid)
273 1.2 elad {
274 1.2 elad KASSERT(cred != NULL);
275 1.11 ad KASSERT(cred->cr_refcnt == 1);
276 1.2 elad
277 1.2 elad cred->cr_svuid = uid;
278 1.2 elad }
279 1.2 elad
280 1.2 elad void
281 1.2 elad kauth_cred_setgid(kauth_cred_t cred, gid_t gid)
282 1.2 elad {
283 1.2 elad KASSERT(cred != NULL);
284 1.11 ad KASSERT(cred->cr_refcnt == 1);
285 1.2 elad
286 1.2 elad cred->cr_gid = gid;
287 1.2 elad }
288 1.2 elad
289 1.2 elad void
290 1.2 elad kauth_cred_setegid(kauth_cred_t cred, gid_t gid)
291 1.2 elad {
292 1.2 elad KASSERT(cred != NULL);
293 1.11 ad KASSERT(cred->cr_refcnt == 1);
294 1.2 elad
295 1.2 elad cred->cr_egid = gid;
296 1.2 elad }
297 1.2 elad
298 1.2 elad void
299 1.2 elad kauth_cred_setsvgid(kauth_cred_t cred, gid_t gid)
300 1.2 elad {
301 1.2 elad KASSERT(cred != NULL);
302 1.11 ad KASSERT(cred->cr_refcnt == 1);
303 1.2 elad
304 1.2 elad cred->cr_svgid = gid;
305 1.2 elad }
306 1.2 elad
307 1.2 elad /* Checks if gid is a member of the groups in cred. */
308 1.2 elad int
309 1.2 elad kauth_cred_ismember_gid(kauth_cred_t cred, gid_t gid, int *resultp)
310 1.2 elad {
311 1.2 elad int i;
312 1.2 elad
313 1.2 elad KASSERT(cred != NULL);
314 1.2 elad KASSERT(resultp != NULL);
315 1.2 elad
316 1.2 elad *resultp = 0;
317 1.2 elad
318 1.2 elad for (i = 0; i < cred->cr_ngroups; i++)
319 1.2 elad if (cred->cr_groups[i] == gid) {
320 1.2 elad *resultp = 1;
321 1.2 elad break;
322 1.2 elad }
323 1.2 elad
324 1.2 elad return (0);
325 1.2 elad }
326 1.2 elad
327 1.11 ad u_int
328 1.2 elad kauth_cred_ngroups(kauth_cred_t cred)
329 1.2 elad {
330 1.2 elad KASSERT(cred != NULL);
331 1.2 elad
332 1.2 elad return (cred->cr_ngroups);
333 1.2 elad }
334 1.2 elad
335 1.2 elad /*
336 1.2 elad * Return the group at index idx from the groups in cred.
337 1.2 elad */
338 1.2 elad gid_t
339 1.11 ad kauth_cred_group(kauth_cred_t cred, u_int idx)
340 1.2 elad {
341 1.2 elad KASSERT(cred != NULL);
342 1.2 elad KASSERT(idx < cred->cr_ngroups);
343 1.2 elad
344 1.2 elad return (cred->cr_groups[idx]);
345 1.2 elad }
346 1.2 elad
347 1.2 elad /* XXX elad: gmuid is unused for now. */
348 1.2 elad int
349 1.30 yamt kauth_cred_setgroups(kauth_cred_t cred, gid_t *grbuf, size_t len, uid_t gmuid)
350 1.2 elad {
351 1.2 elad KASSERT(cred != NULL);
352 1.11 ad KASSERT(cred->cr_refcnt == 1);
353 1.9 yamt KASSERT(len <= sizeof(cred->cr_groups) / sizeof(cred->cr_groups[0]));
354 1.2 elad
355 1.2 elad if (len)
356 1.2 elad memcpy(cred->cr_groups, grbuf, len * sizeof(cred->cr_groups[0]));
357 1.2 elad memset(cred->cr_groups + len, 0xff,
358 1.2 elad sizeof(cred->cr_groups) - (len * sizeof(cred->cr_groups[0])));
359 1.2 elad
360 1.2 elad cred->cr_ngroups = len;
361 1.2 elad
362 1.2 elad return (0);
363 1.2 elad }
364 1.2 elad
365 1.2 elad int
366 1.2 elad kauth_cred_getgroups(kauth_cred_t cred, gid_t *grbuf, size_t len)
367 1.2 elad {
368 1.2 elad KASSERT(cred != NULL);
369 1.2 elad KASSERT(len <= cred->cr_ngroups);
370 1.2 elad
371 1.2 elad memset(grbuf, 0xff, sizeof(*grbuf) * len);
372 1.2 elad memcpy(grbuf, cred->cr_groups, sizeof(*grbuf) * len);
373 1.2 elad
374 1.2 elad return (0);
375 1.2 elad }
376 1.2 elad
377 1.2 elad /*
378 1.19 elad * Match uids in two credentials.
379 1.2 elad */
380 1.19 elad int
381 1.2 elad kauth_cred_uidmatch(kauth_cred_t cred1, kauth_cred_t cred2)
382 1.2 elad {
383 1.2 elad KASSERT(cred1 != NULL);
384 1.2 elad KASSERT(cred2 != NULL);
385 1.2 elad
386 1.2 elad if (cred1->cr_uid == cred2->cr_uid ||
387 1.2 elad cred1->cr_euid == cred2->cr_uid ||
388 1.2 elad cred1->cr_uid == cred2->cr_euid ||
389 1.2 elad cred1->cr_euid == cred2->cr_euid)
390 1.2 elad return (1);
391 1.2 elad
392 1.2 elad return (0);
393 1.2 elad }
394 1.2 elad
395 1.11 ad u_int
396 1.2 elad kauth_cred_getrefcnt(kauth_cred_t cred)
397 1.2 elad {
398 1.2 elad KASSERT(cred != NULL);
399 1.2 elad
400 1.2 elad return (cred->cr_refcnt);
401 1.2 elad }
402 1.2 elad
403 1.2 elad /*
404 1.2 elad * Convert userland credentials (struct uucred) to kauth_cred_t.
405 1.29 pooka * XXX: For NFS & puffs
406 1.2 elad */
407 1.29 pooka void
408 1.29 pooka kauth_uucred_to_cred(kauth_cred_t cred, const struct uucred *uuc)
409 1.29 pooka {
410 1.2 elad KASSERT(cred != NULL);
411 1.2 elad KASSERT(uuc != NULL);
412 1.29 pooka
413 1.2 elad cred->cr_refcnt = 1;
414 1.2 elad cred->cr_uid = uuc->cr_uid;
415 1.2 elad cred->cr_euid = uuc->cr_uid;
416 1.2 elad cred->cr_svuid = uuc->cr_uid;
417 1.2 elad cred->cr_gid = uuc->cr_gid;
418 1.2 elad cred->cr_egid = uuc->cr_gid;
419 1.2 elad cred->cr_svgid = uuc->cr_gid;
420 1.2 elad cred->cr_ngroups = min(uuc->cr_ngroups, NGROUPS);
421 1.2 elad kauth_cred_setgroups(cred, __UNCONST(uuc->cr_groups),
422 1.2 elad cred->cr_ngroups, -1);
423 1.2 elad }
424 1.2 elad
425 1.2 elad /*
426 1.29 pooka * Convert kauth_cred_t to userland credentials (struct uucred).
427 1.29 pooka * XXX: For NFS & puffs
428 1.29 pooka */
429 1.29 pooka void
430 1.29 pooka kauth_cred_to_uucred(struct uucred *uuc, const kauth_cred_t cred)
431 1.29 pooka {
432 1.29 pooka KASSERT(cred != NULL);
433 1.29 pooka KASSERT(uuc != NULL);
434 1.29 pooka int ng;
435 1.29 pooka
436 1.29 pooka ng = min(cred->cr_ngroups, NGROUPS);
437 1.29 pooka uuc->cr_uid = cred->cr_euid;
438 1.29 pooka uuc->cr_gid = cred->cr_egid;
439 1.29 pooka uuc->cr_ngroups = ng;
440 1.29 pooka kauth_cred_getgroups(cred, uuc->cr_groups, ng);
441 1.29 pooka }
442 1.29 pooka
443 1.29 pooka /*
444 1.2 elad * Compare kauth_cred_t and uucred credentials.
445 1.2 elad * XXX: Modelled after crcmp() for NFS.
446 1.2 elad */
447 1.2 elad int
448 1.2 elad kauth_cred_uucmp(kauth_cred_t cred, const struct uucred *uuc)
449 1.2 elad {
450 1.2 elad KASSERT(cred != NULL);
451 1.2 elad KASSERT(uuc != NULL);
452 1.2 elad
453 1.2 elad if (cred->cr_euid == uuc->cr_uid &&
454 1.2 elad cred->cr_egid == uuc->cr_gid &&
455 1.2 elad cred->cr_ngroups == uuc->cr_ngroups) {
456 1.2 elad int i;
457 1.2 elad
458 1.2 elad /* Check if all groups from uuc appear in cred. */
459 1.2 elad for (i = 0; i < uuc->cr_ngroups; i++) {
460 1.2 elad int ismember;
461 1.2 elad
462 1.2 elad ismember = 0;
463 1.2 elad if (kauth_cred_ismember_gid(cred, uuc->cr_groups[i],
464 1.2 elad &ismember) != 0 || !ismember)
465 1.4 yamt return (1);
466 1.2 elad }
467 1.2 elad
468 1.4 yamt return (0);
469 1.2 elad }
470 1.2 elad
471 1.4 yamt return (1);
472 1.2 elad }
473 1.2 elad
474 1.2 elad /*
475 1.12 ad * Make a struct ucred out of a kauth_cred_t. For compatibility.
476 1.2 elad */
477 1.2 elad void
478 1.2 elad kauth_cred_toucred(kauth_cred_t cred, struct ucred *uc)
479 1.2 elad {
480 1.2 elad KASSERT(cred != NULL);
481 1.2 elad KASSERT(uc != NULL);
482 1.2 elad
483 1.12 ad uc->cr_ref = cred->cr_refcnt;
484 1.2 elad uc->cr_uid = cred->cr_euid;
485 1.2 elad uc->cr_gid = cred->cr_egid;
486 1.2 elad uc->cr_ngroups = min(cred->cr_ngroups,
487 1.2 elad sizeof(uc->cr_groups) / sizeof(uc->cr_groups[0]));
488 1.2 elad memcpy(uc->cr_groups, cred->cr_groups,
489 1.2 elad uc->cr_ngroups * sizeof(uc->cr_groups[0]));
490 1.2 elad }
491 1.2 elad
492 1.2 elad /*
493 1.12 ad * Make a struct pcred out of a kauth_cred_t. For compatibility.
494 1.2 elad */
495 1.2 elad void
496 1.2 elad kauth_cred_topcred(kauth_cred_t cred, struct pcred *pc)
497 1.2 elad {
498 1.2 elad KASSERT(cred != NULL);
499 1.2 elad KASSERT(pc != NULL);
500 1.2 elad
501 1.12 ad pc->pc_ucred = NULL;
502 1.2 elad pc->p_ruid = cred->cr_uid;
503 1.2 elad pc->p_svuid = cred->cr_svuid;
504 1.2 elad pc->p_rgid = cred->cr_gid;
505 1.2 elad pc->p_svgid = cred->cr_svgid;
506 1.2 elad pc->p_refcnt = cred->cr_refcnt;
507 1.2 elad }
508 1.2 elad
509 1.2 elad /*
510 1.14 ad * Return kauth_cred_t for the current LWP.
511 1.2 elad */
512 1.2 elad kauth_cred_t
513 1.2 elad kauth_cred_get(void)
514 1.2 elad {
515 1.14 ad return (curlwp->l_cred);
516 1.2 elad }
517 1.2 elad
518 1.2 elad /*
519 1.2 elad * Returns a scope matching the provided id.
520 1.2 elad * Requires the scope list lock to be held by the caller.
521 1.2 elad */
522 1.2 elad static kauth_scope_t
523 1.3 yamt kauth_ifindscope(const char *id)
524 1.3 yamt {
525 1.2 elad kauth_scope_t scope;
526 1.2 elad
527 1.2 elad /* XXX: assert lock on scope list? */
528 1.2 elad
529 1.2 elad scope = NULL;
530 1.2 elad SIMPLEQ_FOREACH(scope, &scope_list, next_scope) {
531 1.2 elad if (strcmp(scope->id, id) == 0)
532 1.2 elad break;
533 1.2 elad }
534 1.2 elad
535 1.2 elad return (scope);
536 1.2 elad }
537 1.2 elad
538 1.2 elad /*
539 1.2 elad * Register a new scope.
540 1.2 elad *
541 1.2 elad * id - identifier for the scope
542 1.2 elad * callback - the scope's default listener
543 1.2 elad * cookie - cookie to be passed to the listener(s)
544 1.2 elad */
545 1.2 elad kauth_scope_t
546 1.2 elad kauth_register_scope(const char *id, kauth_scope_callback_t callback,
547 1.16 christos void *cookie)
548 1.2 elad {
549 1.2 elad kauth_scope_t scope;
550 1.21 yamt kauth_listener_t listener = NULL; /* XXX gcc */
551 1.2 elad
552 1.2 elad /* Sanitize input */
553 1.16 christos if (id == NULL)
554 1.2 elad return (NULL);
555 1.2 elad
556 1.2 elad /* Allocate space for a new scope and listener. */
557 1.34 ad scope = kmem_alloc(sizeof(*scope), KM_SLEEP);
558 1.34 ad if (scope == NULL)
559 1.34 ad return NULL;
560 1.21 yamt if (callback != NULL) {
561 1.34 ad listener = kmem_alloc(sizeof(*listener), KM_SLEEP);
562 1.34 ad if (listener == NULL) {
563 1.34 ad kmem_free(scope, sizeof(*scope));
564 1.34 ad return (NULL);
565 1.34 ad }
566 1.21 yamt }
567 1.2 elad
568 1.34 ad /*
569 1.34 ad * Acquire scope list lock.
570 1.34 ad *
571 1.34 ad * XXXSMP insufficient locking.
572 1.34 ad */
573 1.2 elad simple_lock(&scopes_lock);
574 1.2 elad
575 1.2 elad /* Check we don't already have a scope with the same id */
576 1.2 elad if (kauth_ifindscope(id) != NULL) {
577 1.2 elad simple_unlock(&scopes_lock);
578 1.2 elad
579 1.34 ad kmem_free(scope, sizeof(*scope));
580 1.34 ad if (callback != NULL)
581 1.34 ad kmem_free(listener, sizeof(*listener));
582 1.2 elad
583 1.2 elad return (NULL);
584 1.2 elad }
585 1.2 elad
586 1.2 elad /* Initialize new scope with parameters */
587 1.2 elad scope->id = id;
588 1.2 elad scope->cookie = cookie;
589 1.2 elad scope->nlisteners = 1;
590 1.2 elad
591 1.16 christos SIMPLEQ_INIT(&scope->listenq);
592 1.16 christos
593 1.2 elad /* Add default listener */
594 1.16 christos if (callback != NULL) {
595 1.16 christos listener->func = callback;
596 1.16 christos listener->scope = scope;
597 1.16 christos listener->refcnt = 0;
598 1.16 christos SIMPLEQ_INSERT_HEAD(&scope->listenq, listener, listener_next);
599 1.16 christos }
600 1.2 elad
601 1.2 elad /* Insert scope to scopes list */
602 1.16 christos SIMPLEQ_INSERT_TAIL(&scope_list, scope, next_scope);
603 1.2 elad
604 1.2 elad simple_unlock(&scopes_lock);
605 1.2 elad
606 1.2 elad return (scope);
607 1.2 elad }
608 1.2 elad
609 1.2 elad /*
610 1.2 elad * Initialize the kernel authorization subsystem.
611 1.2 elad *
612 1.2 elad * Initialize the scopes list lock.
613 1.2 elad * Register built-in scopes: generic, process.
614 1.2 elad */
615 1.2 elad void
616 1.2 elad kauth_init(void)
617 1.2 elad {
618 1.16 christos SIMPLEQ_INIT(&scope_list);
619 1.2 elad simple_lock_init(&scopes_lock);
620 1.2 elad
621 1.2 elad /* Register generic scope. */
622 1.2 elad kauth_builtin_scope_generic = kauth_register_scope(KAUTH_SCOPE_GENERIC,
623 1.19 elad NULL, NULL);
624 1.19 elad
625 1.19 elad /* Register system scope. */
626 1.19 elad kauth_builtin_scope_system = kauth_register_scope(KAUTH_SCOPE_SYSTEM,
627 1.19 elad NULL, NULL);
628 1.2 elad
629 1.2 elad /* Register process scope. */
630 1.2 elad kauth_builtin_scope_process = kauth_register_scope(KAUTH_SCOPE_PROCESS,
631 1.19 elad NULL, NULL);
632 1.19 elad
633 1.19 elad /* Register network scope. */
634 1.19 elad kauth_builtin_scope_network = kauth_register_scope(KAUTH_SCOPE_NETWORK,
635 1.19 elad NULL, NULL);
636 1.19 elad
637 1.19 elad /* Register machdep scope. */
638 1.19 elad kauth_builtin_scope_machdep = kauth_register_scope(KAUTH_SCOPE_MACHDEP,
639 1.19 elad NULL, NULL);
640 1.25 elad
641 1.25 elad /* Register device scope. */
642 1.25 elad kauth_builtin_scope_device = kauth_register_scope(KAUTH_SCOPE_DEVICE,
643 1.25 elad NULL, NULL);
644 1.2 elad }
645 1.2 elad
646 1.2 elad /*
647 1.2 elad * Deregister a scope.
648 1.2 elad * Requires scope list lock to be held by the caller.
649 1.2 elad *
650 1.2 elad * scope - the scope to deregister
651 1.2 elad */
652 1.2 elad void
653 1.2 elad kauth_deregister_scope(kauth_scope_t scope)
654 1.2 elad {
655 1.2 elad if (scope != NULL) {
656 1.2 elad /* Remove scope from list */
657 1.2 elad SIMPLEQ_REMOVE(&scope_list, scope, kauth_scope, next_scope);
658 1.2 elad }
659 1.2 elad }
660 1.2 elad
661 1.2 elad /*
662 1.2 elad * Register a listener.
663 1.2 elad *
664 1.2 elad * id - scope identifier.
665 1.2 elad * callback - the callback routine for the listener.
666 1.2 elad * cookie - cookie to pass unmoidfied to the callback.
667 1.2 elad */
668 1.2 elad kauth_listener_t
669 1.2 elad kauth_listen_scope(const char *id, kauth_scope_callback_t callback,
670 1.30 yamt void *cookie)
671 1.2 elad {
672 1.2 elad kauth_scope_t scope;
673 1.2 elad kauth_listener_t listener;
674 1.2 elad
675 1.34 ad /*
676 1.34 ad * Find scope struct.
677 1.34 ad *
678 1.34 ad * XXXSMP insufficient locking.
679 1.34 ad */
680 1.2 elad simple_lock(&scopes_lock);
681 1.2 elad scope = kauth_ifindscope(id);
682 1.2 elad simple_unlock(&scopes_lock);
683 1.2 elad if (scope == NULL)
684 1.2 elad return (NULL);
685 1.2 elad
686 1.2 elad /* Allocate listener */
687 1.34 ad listener = kmem_alloc(sizeof(*listener), KM_SLEEP);
688 1.34 ad if (listener == NULL)
689 1.34 ad return (NULL);
690 1.2 elad
691 1.2 elad /* Initialize listener with parameters */
692 1.2 elad listener->func = callback;
693 1.2 elad listener->refcnt = 0;
694 1.2 elad
695 1.2 elad /* Add listener to scope */
696 1.2 elad SIMPLEQ_INSERT_TAIL(&scope->listenq, listener, listener_next);
697 1.2 elad
698 1.2 elad /* Raise number of listeners on scope. */
699 1.2 elad scope->nlisteners++;
700 1.2 elad listener->scope = scope;
701 1.2 elad
702 1.22 elad listeners_have_been_loaded = TRUE;
703 1.22 elad
704 1.2 elad return (listener);
705 1.2 elad }
706 1.2 elad
707 1.2 elad /*
708 1.2 elad * Deregister a listener.
709 1.2 elad *
710 1.2 elad * listener - listener reference as returned from kauth_listen_scope().
711 1.2 elad */
712 1.2 elad void
713 1.2 elad kauth_unlisten_scope(kauth_listener_t listener)
714 1.2 elad {
715 1.2 elad if (listener != NULL) {
716 1.3 yamt SIMPLEQ_REMOVE(&listener->scope->listenq, listener,
717 1.3 yamt kauth_listener, listener_next);
718 1.2 elad listener->scope->nlisteners--;
719 1.2 elad }
720 1.2 elad }
721 1.2 elad
722 1.2 elad /*
723 1.2 elad * Authorize a request.
724 1.2 elad *
725 1.2 elad * scope - the scope of the request as defined by KAUTH_SCOPE_* or as
726 1.2 elad * returned from kauth_register_scope().
727 1.2 elad * credential - credentials of the user ("actor") making the request.
728 1.2 elad * action - request identifier.
729 1.2 elad * arg[0-3] - passed unmodified to listener(s).
730 1.2 elad */
731 1.2 elad int
732 1.2 elad kauth_authorize_action(kauth_scope_t scope, kauth_cred_t cred,
733 1.2 elad kauth_action_t action, void *arg0, void *arg1,
734 1.2 elad void *arg2, void *arg3)
735 1.2 elad {
736 1.2 elad kauth_listener_t listener;
737 1.2 elad int error, allow, fail;
738 1.2 elad
739 1.15 elad #if 0 /* defined(LOCKDEBUG) */
740 1.13 elad spinlock_switchcheck();
741 1.13 elad simple_lock_only_held(NULL, "kauth_authorize_action");
742 1.13 elad #endif
743 1.13 elad
744 1.26 elad KASSERT(cred != NULL);
745 1.26 elad KASSERT(action != 0);
746 1.2 elad
747 1.17 christos /* Short-circuit requests coming from the kernel. */
748 1.17 christos if (cred == NOCRED || cred == FSCRED)
749 1.17 christos return (0);
750 1.17 christos
751 1.26 elad KASSERT(scope != NULL);
752 1.26 elad
753 1.22 elad if (!listeners_have_been_loaded) {
754 1.22 elad KASSERT(SIMPLEQ_EMPTY(&scope->listenq));
755 1.22 elad
756 1.18 elad return (0);
757 1.22 elad }
758 1.18 elad
759 1.2 elad fail = 0;
760 1.2 elad allow = 0;
761 1.2 elad SIMPLEQ_FOREACH(listener, &scope->listenq, listener_next) {
762 1.2 elad error = listener->func(cred, action, scope->cookie, arg0,
763 1.2 elad arg1, arg2, arg3);
764 1.2 elad
765 1.2 elad if (error == KAUTH_RESULT_ALLOW)
766 1.2 elad allow = 1;
767 1.2 elad else if (error == KAUTH_RESULT_DENY)
768 1.2 elad fail = 1;
769 1.2 elad }
770 1.2 elad
771 1.2 elad return ((allow && !fail) ? 0 : EPERM);
772 1.2 elad };
773 1.2 elad
774 1.2 elad /*
775 1.2 elad * Generic scope authorization wrapper.
776 1.2 elad */
777 1.2 elad int
778 1.2 elad kauth_authorize_generic(kauth_cred_t cred, kauth_action_t action, void *arg0)
779 1.2 elad {
780 1.2 elad return (kauth_authorize_action(kauth_builtin_scope_generic, cred,
781 1.2 elad action, arg0, NULL, NULL, NULL));
782 1.2 elad }
783 1.2 elad
784 1.2 elad /*
785 1.19 elad * System scope authorization wrapper.
786 1.2 elad */
787 1.2 elad int
788 1.19 elad kauth_authorize_system(kauth_cred_t cred, kauth_action_t action,
789 1.19 elad enum kauth_system_req req, void *arg1, void *arg2, void *arg3)
790 1.2 elad {
791 1.19 elad return (kauth_authorize_action(kauth_builtin_scope_system, cred,
792 1.19 elad action, (void *)req, arg1, arg2, arg3));
793 1.2 elad }
794 1.2 elad
795 1.2 elad /*
796 1.2 elad * Process scope authorization wrapper.
797 1.2 elad */
798 1.2 elad int
799 1.2 elad kauth_authorize_process(kauth_cred_t cred, kauth_action_t action,
800 1.2 elad struct proc *p, void *arg1, void *arg2, void *arg3)
801 1.2 elad {
802 1.2 elad return (kauth_authorize_action(kauth_builtin_scope_process, cred,
803 1.2 elad action, p, arg1, arg2, arg3));
804 1.2 elad }
805 1.19 elad
806 1.19 elad /*
807 1.19 elad * Network scope authorization wrapper.
808 1.19 elad */
809 1.19 elad int
810 1.19 elad kauth_authorize_network(kauth_cred_t cred, kauth_action_t action,
811 1.23 elad enum kauth_network_req req, void *arg1, void *arg2, void *arg3)
812 1.19 elad {
813 1.19 elad return (kauth_authorize_action(kauth_builtin_scope_network, cred,
814 1.23 elad action, (void *)req, arg1, arg2, arg3));
815 1.19 elad }
816 1.19 elad
817 1.19 elad int
818 1.19 elad kauth_authorize_machdep(kauth_cred_t cred, kauth_action_t action,
819 1.24 elad enum kauth_machdep_req req, void *arg1, void *arg2, void *arg3)
820 1.19 elad {
821 1.19 elad return (kauth_authorize_action(kauth_builtin_scope_machdep, cred,
822 1.24 elad action, (void *)req, arg1, arg2, arg3));
823 1.19 elad }
824 1.25 elad
825 1.25 elad int
826 1.32 elad kauth_authorize_device(kauth_cred_t cred, kauth_action_t action,
827 1.32 elad void *arg0, void *arg1, void *arg2, void *arg3)
828 1.32 elad {
829 1.32 elad return (kauth_authorize_action(kauth_builtin_scope_device, cred,
830 1.32 elad action, arg0, arg1, arg2, arg3));
831 1.32 elad }
832 1.32 elad
833 1.32 elad int
834 1.25 elad kauth_authorize_device_tty(kauth_cred_t cred, kauth_action_t action,
835 1.25 elad struct tty *tty)
836 1.25 elad {
837 1.25 elad return (kauth_authorize_action(kauth_builtin_scope_device, cred,
838 1.25 elad action, tty, NULL, NULL, NULL));
839 1.25 elad }
840 1.31 elad
841 1.31 elad int
842 1.31 elad kauth_authorize_device_spec(kauth_cred_t cred, enum kauth_device_req req,
843 1.31 elad struct vnode *vp)
844 1.31 elad {
845 1.31 elad return (kauth_authorize_action(kauth_builtin_scope_device, cred,
846 1.31 elad KAUTH_DEVICE_RAWIO_SPEC, (void *)req, vp, NULL, NULL));
847 1.31 elad }
848 1.31 elad
849 1.31 elad int
850 1.33 elad kauth_authorize_device_passthru(kauth_cred_t cred, dev_t dev, u_long bits,
851 1.33 elad void *data)
852 1.31 elad {
853 1.31 elad return (kauth_authorize_action(kauth_builtin_scope_device, cred,
854 1.33 elad KAUTH_DEVICE_RAWIO_PASSTHRU, (void *)bits, (void *)(u_long)dev,
855 1.33 elad data, NULL));
856 1.31 elad }
857