Home | History | Annotate | Line # | Download | only in kern
kern_auth.c revision 1.39
      1  1.39      elad /* $NetBSD: kern_auth.c,v 1.39 2007/01/16 11:51:22 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.39      elad __KERNEL_RCSID(0, "$NetBSD: kern_auth.c,v 1.39 2007/01/16 11:51:22 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.39      elad static unsigned int nsecmodels = 0;
     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.2      elad 	return (listener);
    710   1.2      elad }
    711   1.2      elad 
    712   1.2      elad /*
    713   1.2      elad  * Deregister a listener.
    714   1.2      elad  *
    715   1.2      elad  * listener - listener reference as returned from kauth_listen_scope().
    716   1.2      elad  */
    717   1.2      elad void
    718   1.2      elad kauth_unlisten_scope(kauth_listener_t listener)
    719   1.2      elad {
    720   1.2      elad 	if (listener != NULL) {
    721   1.3      yamt 		SIMPLEQ_REMOVE(&listener->scope->listenq, listener,
    722   1.3      yamt 		    kauth_listener, listener_next);
    723   1.2      elad 		listener->scope->nlisteners--;
    724  1.36      elad 		kmem_free(listener, sizeof(*listener));
    725   1.2      elad 	}
    726   1.2      elad }
    727   1.2      elad 
    728   1.2      elad /*
    729   1.2      elad  * Authorize a request.
    730   1.2      elad  *
    731   1.2      elad  * scope - the scope of the request as defined by KAUTH_SCOPE_* or as
    732   1.2      elad  *	   returned from kauth_register_scope().
    733   1.2      elad  * credential - credentials of the user ("actor") making the request.
    734   1.2      elad  * action - request identifier.
    735   1.2      elad  * arg[0-3] - passed unmodified to listener(s).
    736   1.2      elad  */
    737   1.2      elad int
    738   1.2      elad kauth_authorize_action(kauth_scope_t scope, kauth_cred_t cred,
    739   1.2      elad 		       kauth_action_t action, void *arg0, void *arg1,
    740   1.2      elad 		       void *arg2, void *arg3)
    741   1.2      elad {
    742   1.2      elad 	kauth_listener_t listener;
    743   1.2      elad 	int error, allow, fail;
    744   1.2      elad 
    745  1.15      elad #if 0 /* defined(LOCKDEBUG) */
    746  1.13      elad 	spinlock_switchcheck();
    747  1.13      elad 	simple_lock_only_held(NULL, "kauth_authorize_action");
    748  1.13      elad #endif
    749  1.13      elad 
    750  1.26      elad 	KASSERT(cred != NULL);
    751  1.26      elad 	KASSERT(action != 0);
    752   1.2      elad 
    753  1.17  christos 	/* Short-circuit requests coming from the kernel. */
    754  1.17  christos 	if (cred == NOCRED || cred == FSCRED)
    755  1.17  christos 		return (0);
    756  1.17  christos 
    757  1.26      elad 	KASSERT(scope != NULL);
    758  1.26      elad 
    759   1.2      elad 	fail = 0;
    760   1.2      elad 	allow = 0;
    761  1.39      elad 
    762   1.2      elad 	SIMPLEQ_FOREACH(listener, &scope->listenq, listener_next) {
    763   1.2      elad 		error = listener->func(cred, action, scope->cookie, arg0,
    764   1.2      elad 				       arg1, arg2, arg3);
    765   1.2      elad 
    766   1.2      elad 		if (error == KAUTH_RESULT_ALLOW)
    767   1.2      elad 			allow = 1;
    768   1.2      elad 		else if (error == KAUTH_RESULT_DENY)
    769   1.2      elad 			fail = 1;
    770   1.2      elad 	}
    771   1.2      elad 
    772  1.39      elad 	if (fail)
    773  1.39      elad 		return (EPERM);
    774  1.39      elad 
    775  1.39      elad 	if (allow)
    776  1.39      elad 		return (0);
    777  1.39      elad 
    778  1.39      elad 	if (!nsecmodels)
    779  1.39      elad 		return (0);
    780  1.39      elad 
    781  1.39      elad 	return (EPERM);
    782   1.2      elad };
    783   1.2      elad 
    784   1.2      elad /*
    785   1.2      elad  * Generic scope authorization wrapper.
    786   1.2      elad  */
    787   1.2      elad int
    788   1.2      elad kauth_authorize_generic(kauth_cred_t cred, kauth_action_t action, void *arg0)
    789   1.2      elad {
    790   1.2      elad 	return (kauth_authorize_action(kauth_builtin_scope_generic, cred,
    791   1.2      elad 	    action, arg0, NULL, NULL, NULL));
    792   1.2      elad }
    793   1.2      elad 
    794   1.2      elad /*
    795  1.19      elad  * System scope authorization wrapper.
    796   1.2      elad  */
    797   1.2      elad int
    798  1.19      elad kauth_authorize_system(kauth_cred_t cred, kauth_action_t action,
    799  1.19      elad     enum kauth_system_req req, void *arg1, void *arg2, void *arg3)
    800   1.2      elad {
    801  1.19      elad 	return (kauth_authorize_action(kauth_builtin_scope_system, cred,
    802  1.19      elad 	    action, (void *)req, arg1, arg2, arg3));
    803   1.2      elad }
    804   1.2      elad 
    805   1.2      elad /*
    806   1.2      elad  * Process scope authorization wrapper.
    807   1.2      elad  */
    808   1.2      elad int
    809   1.2      elad kauth_authorize_process(kauth_cred_t cred, kauth_action_t action,
    810   1.2      elad     struct proc *p, void *arg1, void *arg2, void *arg3)
    811   1.2      elad {
    812   1.2      elad 	return (kauth_authorize_action(kauth_builtin_scope_process, cred,
    813   1.2      elad 	    action, p, arg1, arg2, arg3));
    814   1.2      elad }
    815  1.19      elad 
    816  1.19      elad /*
    817  1.19      elad  * Network scope authorization wrapper.
    818  1.19      elad  */
    819  1.19      elad int
    820  1.19      elad kauth_authorize_network(kauth_cred_t cred, kauth_action_t action,
    821  1.23      elad     enum kauth_network_req req, void *arg1, void *arg2, void *arg3)
    822  1.19      elad {
    823  1.19      elad 	return (kauth_authorize_action(kauth_builtin_scope_network, cred,
    824  1.23      elad 	    action, (void *)req, arg1, arg2, arg3));
    825  1.19      elad }
    826  1.19      elad 
    827  1.19      elad int
    828  1.19      elad kauth_authorize_machdep(kauth_cred_t cred, kauth_action_t action,
    829  1.35      elad     void *arg0, void *arg1, void *arg2, void *arg3)
    830  1.19      elad {
    831  1.19      elad 	return (kauth_authorize_action(kauth_builtin_scope_machdep, cred,
    832  1.35      elad 	    action, arg0, arg1, arg2, arg3));
    833  1.19      elad }
    834  1.25      elad 
    835  1.25      elad int
    836  1.32      elad kauth_authorize_device(kauth_cred_t cred, kauth_action_t action,
    837  1.32      elad     void *arg0, void *arg1, void *arg2, void *arg3)
    838  1.32      elad {
    839  1.32      elad 	return (kauth_authorize_action(kauth_builtin_scope_device, cred,
    840  1.32      elad 	    action, arg0, arg1, arg2, arg3));
    841  1.32      elad }
    842  1.32      elad 
    843  1.32      elad int
    844  1.25      elad kauth_authorize_device_tty(kauth_cred_t cred, kauth_action_t action,
    845  1.25      elad     struct tty *tty)
    846  1.25      elad {
    847  1.25      elad 	return (kauth_authorize_action(kauth_builtin_scope_device, cred,
    848  1.25      elad 	    action, tty, NULL, NULL, NULL));
    849  1.25      elad }
    850  1.31      elad 
    851  1.31      elad int
    852  1.31      elad kauth_authorize_device_spec(kauth_cred_t cred, enum kauth_device_req req,
    853  1.31      elad     struct vnode *vp)
    854  1.31      elad {
    855  1.31      elad 	return (kauth_authorize_action(kauth_builtin_scope_device, cred,
    856  1.31      elad 	    KAUTH_DEVICE_RAWIO_SPEC, (void *)req, vp, NULL, NULL));
    857  1.31      elad }
    858  1.31      elad 
    859  1.31      elad int
    860  1.33      elad kauth_authorize_device_passthru(kauth_cred_t cred, dev_t dev, u_long bits,
    861  1.33      elad     void *data)
    862  1.31      elad {
    863  1.31      elad 	return (kauth_authorize_action(kauth_builtin_scope_device, cred,
    864  1.33      elad 	    KAUTH_DEVICE_RAWIO_PASSTHRU, (void *)bits, (void *)(u_long)dev,
    865  1.33      elad 	    data, NULL));
    866  1.31      elad }
    867  1.39      elad 
    868  1.39      elad void
    869  1.39      elad secmodel_register(void)
    870  1.39      elad {
    871  1.39      elad 	KASSERT(nsecmodels + 1 != 0);
    872  1.39      elad 
    873  1.39      elad 	nsecmodels++;
    874  1.39      elad }
    875  1.39      elad 
    876  1.39      elad void
    877  1.39      elad secmodel_deregister(void)
    878  1.39      elad {
    879  1.39      elad 	KASSERT(nsecmodels != 0);
    880  1.39      elad 
    881  1.39      elad 	nsecmodels--;
    882  1.39      elad }
    883