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