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