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