Home | History | Annotate | Line # | Download | only in suser
secmodel_suser.c revision 1.32
      1  1.32  stacktic /* $NetBSD: secmodel_suser.c,v 1.32 2009/11/18 09:47:18 stacktic Exp $ */
      2   1.1      elad /*-
      3   1.1      elad  * Copyright (c) 2006 Elad Efrat <elad (at) NetBSD.org>
      4   1.1      elad  * All rights reserved.
      5   1.1      elad  *
      6   1.1      elad  * Redistribution and use in source and binary forms, with or without
      7   1.1      elad  * modification, are permitted provided that the following conditions
      8   1.1      elad  * are met:
      9   1.1      elad  * 1. Redistributions of source code must retain the above copyright
     10   1.1      elad  *    notice, this list of conditions and the following disclaimer.
     11   1.1      elad  * 2. Redistributions in binary form must reproduce the above copyright
     12   1.1      elad  *    notice, this list of conditions and the following disclaimer in the
     13   1.1      elad  *    documentation and/or other materials provided with the distribution.
     14   1.1      elad  * 3. The name of the author may not be used to endorse or promote products
     15   1.1      elad  *    derived from this software without specific prior written permission.
     16   1.1      elad  *
     17   1.1      elad  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
     18   1.1      elad  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
     19   1.1      elad  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
     20   1.1      elad  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
     21   1.1      elad  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
     22   1.1      elad  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
     23   1.1      elad  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
     24   1.1      elad  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     25   1.1      elad  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
     26   1.1      elad  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     27   1.1      elad  */
     28   1.1      elad 
     29   1.1      elad /*
     30   1.1      elad  * This file contains kauth(9) listeners needed to implement the traditional
     31   1.1      elad  * NetBSD superuser access restrictions.
     32   1.1      elad  *
     33   1.1      elad  * There are two main resources a request can be issued to: user-owned and
     34   1.1      elad  * system owned. For the first, traditional Unix access checks are done, as
     35   1.1      elad  * well as superuser checks. If needed, the request context is examined before
     36   1.1      elad  * a decision is made. For the latter, usually only superuser checks are done
     37   1.1      elad  * as normal users are not allowed to access system resources.
     38   1.1      elad  */
     39   1.1      elad 
     40   1.1      elad #include <sys/cdefs.h>
     41  1.32  stacktic __KERNEL_RCSID(0, "$NetBSD: secmodel_suser.c,v 1.32 2009/11/18 09:47:18 stacktic Exp $");
     42   1.1      elad 
     43   1.1      elad #include <sys/types.h>
     44   1.1      elad #include <sys/param.h>
     45   1.1      elad #include <sys/kauth.h>
     46   1.1      elad 
     47   1.1      elad #include <sys/mutex.h>
     48   1.1      elad #include <sys/mount.h>
     49   1.1      elad #include <sys/socketvar.h>
     50   1.1      elad #include <sys/sysctl.h>
     51   1.1      elad #include <sys/vnode.h>
     52   1.1      elad #include <sys/proc.h>
     53   1.1      elad #include <sys/uidinfo.h>
     54   1.1      elad #include <sys/module.h>
     55   1.1      elad 
     56   1.1      elad #include <secmodel/suser/suser.h>
     57   1.1      elad 
     58   1.1      elad MODULE(MODULE_CLASS_SECMODEL, suser, NULL);
     59   1.1      elad 
     60  1.21      elad static int secmodel_suser_curtain;
     61   1.1      elad /* static */ int dovfsusermount;
     62   1.1      elad 
     63   1.1      elad static kauth_listener_t l_generic, l_system, l_process, l_network, l_machdep,
     64   1.1      elad     l_device, l_vnode;
     65   1.1      elad 
     66   1.1      elad static struct sysctllog *suser_sysctl_log;
     67   1.1      elad 
     68   1.1      elad void
     69   1.1      elad sysctl_security_suser_setup(struct sysctllog **clog)
     70   1.1      elad {
     71   1.1      elad 	const struct sysctlnode *rnode;
     72   1.1      elad 
     73   1.1      elad 	sysctl_createv(clog, 0, NULL, &rnode,
     74   1.1      elad 		       CTLFLAG_PERMANENT,
     75   1.1      elad 		       CTLTYPE_NODE, "security", NULL,
     76   1.1      elad 		       NULL, 0, NULL, 0,
     77   1.1      elad 		       CTL_SECURITY, CTL_EOL);
     78   1.1      elad 
     79   1.1      elad 	sysctl_createv(clog, 0, &rnode, &rnode,
     80   1.1      elad 		       CTLFLAG_PERMANENT,
     81   1.1      elad 		       CTLTYPE_NODE, "models", NULL,
     82   1.1      elad 		       NULL, 0, NULL, 0,
     83   1.1      elad 		       CTL_CREATE, CTL_EOL);
     84   1.1      elad 
     85   1.1      elad 	sysctl_createv(clog, 0, &rnode, &rnode,
     86   1.1      elad 		       CTLFLAG_PERMANENT,
     87   1.1      elad 		       CTLTYPE_NODE, "suser", NULL,
     88   1.1      elad 		       NULL, 0, NULL, 0,
     89   1.1      elad 		       CTL_CREATE, CTL_EOL);
     90   1.1      elad 
     91   1.1      elad 	sysctl_createv(clog, 0, &rnode, NULL,
     92   1.1      elad 		       CTLFLAG_PERMANENT,
     93   1.1      elad 		       CTLTYPE_STRING, "name", NULL,
     94   1.1      elad 		       NULL, 0, __UNCONST("Traditional NetBSD: Superuser"), 0,
     95   1.1      elad 		       CTL_CREATE, CTL_EOL);
     96   1.1      elad 
     97   1.1      elad 	sysctl_createv(clog, 0, &rnode, NULL,
     98   1.1      elad 		       CTLFLAG_PERMANENT|CTLFLAG_READWRITE,
     99   1.1      elad 		       CTLTYPE_INT, "curtain",
    100   1.1      elad 		       SYSCTL_DESCR("Curtain information about objects to "\
    101   1.1      elad 		       		    "users not owning them."),
    102  1.21      elad 		       NULL, 0, &secmodel_suser_curtain, 0,
    103   1.1      elad 		       CTL_CREATE, CTL_EOL);
    104   1.1      elad 
    105   1.1      elad 	sysctl_createv(clog, 0, &rnode, NULL,
    106   1.1      elad 		       CTLFLAG_PERMANENT|CTLFLAG_READWRITE,
    107   1.1      elad 		       CTLTYPE_INT, "usermount",
    108   1.1      elad 		       SYSCTL_DESCR("Whether unprivileged users may mount "
    109   1.1      elad 				    "filesystems"),
    110   1.1      elad 		       NULL, 0, &dovfsusermount, 0,
    111   1.1      elad 		       CTL_CREATE, CTL_EOL);
    112   1.1      elad 
    113   1.1      elad 	/* Compatibility: security.curtain */
    114   1.1      elad 	sysctl_createv(clog, 0, NULL, &rnode,
    115   1.1      elad 		       CTLFLAG_PERMANENT,
    116   1.1      elad 		       CTLTYPE_NODE, "security", NULL,
    117   1.1      elad 		       NULL, 0, NULL, 0,
    118   1.1      elad 		       CTL_SECURITY, CTL_EOL);
    119   1.1      elad 
    120   1.1      elad 	sysctl_createv(clog, 0, &rnode, NULL,
    121   1.1      elad 		       CTLFLAG_PERMANENT|CTLFLAG_READWRITE,
    122   1.1      elad 		       CTLTYPE_INT, "curtain",
    123   1.1      elad 		       SYSCTL_DESCR("Curtain information about objects to "\
    124   1.1      elad 		       		    "users not owning them."),
    125  1.21      elad 		       NULL, 0, &secmodel_suser_curtain, 0,
    126   1.1      elad 		       CTL_CREATE, CTL_EOL);
    127   1.1      elad 
    128   1.1      elad 	/* Compatibility: vfs.generic.usermount */
    129   1.1      elad 	sysctl_createv(clog, 0, NULL, NULL,
    130   1.1      elad 		       CTLFLAG_PERMANENT,
    131   1.1      elad 		       CTLTYPE_NODE, "vfs", NULL,
    132   1.1      elad 		       NULL, 0, NULL, 0,
    133   1.1      elad 		       CTL_VFS, CTL_EOL);
    134   1.1      elad 
    135   1.1      elad 	sysctl_createv(clog, 0, NULL, NULL,
    136   1.1      elad 		       CTLFLAG_PERMANENT,
    137   1.1      elad 		       CTLTYPE_NODE, "generic",
    138   1.1      elad 		       SYSCTL_DESCR("Non-specific vfs related information"),
    139   1.1      elad 		       NULL, 0, NULL, 0,
    140   1.1      elad 		       CTL_VFS, VFS_GENERIC, CTL_EOL);
    141   1.1      elad 
    142   1.1      elad 	sysctl_createv(clog, 0, NULL, NULL,
    143   1.1      elad 		       CTLFLAG_PERMANENT|CTLFLAG_READWRITE,
    144   1.1      elad 		       CTLTYPE_INT, "usermount",
    145   1.1      elad 		       SYSCTL_DESCR("Whether unprivileged users may mount "
    146   1.1      elad 				    "filesystems"),
    147   1.1      elad 		       NULL, 0, &dovfsusermount, 0,
    148   1.1      elad 		       CTL_VFS, VFS_GENERIC, VFS_USERMOUNT, CTL_EOL);
    149   1.1      elad }
    150   1.1      elad 
    151   1.1      elad void
    152   1.1      elad secmodel_suser_init(void)
    153   1.1      elad {
    154  1.21      elad 	secmodel_suser_curtain = 0;
    155   1.1      elad }
    156   1.1      elad 
    157   1.1      elad void
    158   1.1      elad secmodel_suser_start(void)
    159   1.1      elad {
    160   1.1      elad 	l_generic = kauth_listen_scope(KAUTH_SCOPE_GENERIC,
    161   1.1      elad 	    secmodel_suser_generic_cb, NULL);
    162   1.1      elad 	l_system = kauth_listen_scope(KAUTH_SCOPE_SYSTEM,
    163   1.1      elad 	    secmodel_suser_system_cb, NULL);
    164   1.1      elad 	l_process = kauth_listen_scope(KAUTH_SCOPE_PROCESS,
    165   1.1      elad 	    secmodel_suser_process_cb, NULL);
    166   1.1      elad 	l_network = kauth_listen_scope(KAUTH_SCOPE_NETWORK,
    167   1.1      elad 	    secmodel_suser_network_cb, NULL);
    168   1.1      elad 	l_machdep = kauth_listen_scope(KAUTH_SCOPE_MACHDEP,
    169   1.1      elad 	    secmodel_suser_machdep_cb, NULL);
    170   1.1      elad 	l_device = kauth_listen_scope(KAUTH_SCOPE_DEVICE,
    171   1.1      elad 	    secmodel_suser_device_cb, NULL);
    172   1.1      elad 	l_vnode = kauth_listen_scope(KAUTH_SCOPE_VNODE,
    173   1.1      elad 	    secmodel_suser_vnode_cb, NULL);
    174   1.1      elad }
    175   1.1      elad 
    176   1.1      elad void
    177   1.1      elad secmodel_suser_stop(void)
    178   1.1      elad {
    179   1.1      elad 	kauth_unlisten_scope(l_generic);
    180   1.1      elad 	kauth_unlisten_scope(l_system);
    181   1.1      elad 	kauth_unlisten_scope(l_process);
    182   1.1      elad 	kauth_unlisten_scope(l_network);
    183   1.1      elad 	kauth_unlisten_scope(l_machdep);
    184   1.1      elad 	kauth_unlisten_scope(l_device);
    185   1.1      elad 	kauth_unlisten_scope(l_vnode);
    186   1.1      elad }
    187   1.1      elad 
    188   1.1      elad static int
    189   1.1      elad suser_modcmd(modcmd_t cmd, void *arg)
    190   1.1      elad {
    191   1.1      elad 	int error = 0;
    192   1.1      elad 
    193   1.1      elad 	switch (cmd) {
    194   1.1      elad 	case MODULE_CMD_INIT:
    195   1.1      elad 		secmodel_suser_init();
    196   1.1      elad 		secmodel_suser_start();
    197   1.1      elad 		sysctl_security_suser_setup(&suser_sysctl_log);
    198   1.1      elad 		break;
    199   1.1      elad 
    200   1.1      elad 	case MODULE_CMD_FINI:
    201   1.1      elad 		sysctl_teardown(&suser_sysctl_log);
    202   1.1      elad 		secmodel_suser_stop();
    203   1.1      elad 		break;
    204   1.1      elad 
    205   1.1      elad 	case MODULE_CMD_AUTOUNLOAD:
    206   1.1      elad 		error = EPERM;
    207   1.1      elad 		break;
    208   1.1      elad 
    209   1.1      elad 	default:
    210   1.1      elad 		error = ENOTTY;
    211   1.1      elad 		break;
    212   1.1      elad 	}
    213   1.1      elad 
    214   1.1      elad 	return (error);
    215   1.1      elad }
    216   1.1      elad 
    217   1.1      elad /*
    218   1.1      elad  * kauth(9) listener
    219   1.1      elad  *
    220   1.1      elad  * Security model: Traditional NetBSD
    221   1.1      elad  * Scope: Generic
    222   1.1      elad  * Responsibility: Superuser access
    223   1.1      elad  */
    224   1.1      elad int
    225   1.1      elad secmodel_suser_generic_cb(kauth_cred_t cred, kauth_action_t action,
    226   1.9      elad     void *cookie, void *arg0, void *arg1, void *arg2, void *arg3)
    227   1.1      elad {
    228   1.1      elad 	bool isroot;
    229   1.1      elad 	int result;
    230   1.1      elad 
    231   1.1      elad 	isroot = (kauth_cred_geteuid(cred) == 0);
    232   1.1      elad 	result = KAUTH_RESULT_DEFER;
    233   1.1      elad 
    234   1.1      elad 	switch (action) {
    235   1.1      elad 	case KAUTH_GENERIC_ISSUSER:
    236   1.1      elad 		if (isroot)
    237   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    238   1.1      elad 		break;
    239   1.1      elad 
    240   1.1      elad 	case KAUTH_GENERIC_CANSEE:
    241  1.21      elad 		if (!secmodel_suser_curtain)
    242   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    243   1.1      elad 		else if (isroot || kauth_cred_uidmatch(cred, arg0))
    244   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    245   1.1      elad 
    246   1.1      elad 		break;
    247   1.1      elad 
    248   1.1      elad 	default:
    249   1.1      elad 		break;
    250   1.1      elad 	}
    251   1.1      elad 
    252   1.1      elad 	return (result);
    253   1.1      elad }
    254   1.1      elad 
    255  1.30      elad static int
    256  1.30      elad suser_usermount_policy(kauth_cred_t cred, enum kauth_system_req req, void *arg1,
    257  1.30      elad     void *arg2)
    258  1.30      elad {
    259  1.30      elad 	struct mount *mp;
    260  1.30      elad 	u_long flags;
    261  1.30      elad 	int result;
    262  1.30      elad 
    263  1.30      elad 	result = KAUTH_RESULT_DEFER;
    264  1.30      elad 
    265  1.30      elad 	if (!dovfsusermount)
    266  1.30      elad 		return result;
    267  1.30      elad 
    268  1.30      elad 	switch (req) {
    269  1.30      elad 	case KAUTH_REQ_SYSTEM_MOUNT_NEW:
    270  1.30      elad 		mp = ((struct vnode *)arg1)->v_mount;
    271  1.30      elad 		flags= (u_long)arg2;
    272  1.30      elad 
    273  1.30      elad 		if (usermount_common_policy(mp, flags) != 0)
    274  1.30      elad 			break;
    275  1.30      elad 
    276  1.30      elad 		result = KAUTH_RESULT_ALLOW;
    277  1.30      elad 
    278  1.30      elad 		break;
    279  1.30      elad 
    280  1.30      elad 	case KAUTH_REQ_SYSTEM_MOUNT_UNMOUNT:
    281  1.30      elad 		mp = arg1;
    282  1.30      elad 
    283  1.30      elad 		/* Must own the mount. */
    284  1.30      elad 		if (mp->mnt_stat.f_owner != kauth_cred_geteuid(cred))
    285  1.30      elad 			break;
    286  1.30      elad 
    287  1.30      elad 		result = KAUTH_RESULT_ALLOW;
    288  1.30      elad 
    289  1.30      elad 		break;
    290  1.30      elad 
    291  1.30      elad 	case KAUTH_REQ_SYSTEM_MOUNT_UPDATE:
    292  1.30      elad 		mp = arg1;
    293  1.30      elad 		flags = (u_long)arg2;
    294  1.30      elad 
    295  1.30      elad 		/* Must own the mount. */
    296  1.30      elad 		if (mp->mnt_stat.f_owner != kauth_cred_geteuid(cred))
    297  1.30      elad 			break;
    298  1.30      elad 
    299  1.30      elad 		if (usermount_common_policy(mp, flags) != 0)
    300  1.30      elad 			break;
    301  1.30      elad 
    302  1.30      elad 		result = KAUTH_RESULT_ALLOW;
    303  1.30      elad 
    304  1.30      elad 		break;
    305  1.30      elad 
    306  1.30      elad 	default:
    307  1.30      elad 		break;
    308  1.30      elad 	}
    309  1.30      elad 
    310  1.30      elad 	return result;
    311  1.30      elad }
    312  1.30      elad 
    313   1.1      elad /*
    314   1.1      elad  * kauth(9) listener
    315   1.1      elad  *
    316   1.1      elad  * Security model: Traditional NetBSD
    317   1.1      elad  * Scope: System
    318   1.1      elad  * Responsibility: Superuser access
    319   1.1      elad  */
    320   1.1      elad int
    321   1.1      elad secmodel_suser_system_cb(kauth_cred_t cred, kauth_action_t action,
    322   1.9      elad     void *cookie, void *arg0, void *arg1, void *arg2, void *arg3)
    323   1.1      elad {
    324   1.1      elad 	bool isroot;
    325   1.1      elad 	int result;
    326   1.1      elad 	enum kauth_system_req req;
    327   1.1      elad 
    328   1.1      elad 	isroot = (kauth_cred_geteuid(cred) == 0);
    329   1.1      elad 	result = KAUTH_RESULT_DEFER;
    330   1.1      elad 	req = (enum kauth_system_req)arg0;
    331   1.1      elad 
    332   1.1      elad 	switch (action) {
    333   1.1      elad 	case KAUTH_SYSTEM_CPU:
    334   1.1      elad 		switch (req) {
    335   1.1      elad 		case KAUTH_REQ_SYSTEM_CPU_SETSTATE:
    336   1.1      elad 			if (isroot)
    337   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    338   1.1      elad 
    339   1.1      elad 			break;
    340   1.1      elad 
    341   1.1      elad 		default:
    342   1.1      elad 			break;
    343   1.1      elad 		}
    344   1.1      elad 
    345   1.1      elad 		break;
    346   1.1      elad 
    347   1.1      elad 	case KAUTH_SYSTEM_FS_QUOTA:
    348   1.1      elad 		switch (req) {
    349   1.1      elad 		case KAUTH_REQ_SYSTEM_FS_QUOTA_GET:
    350   1.1      elad 		case KAUTH_REQ_SYSTEM_FS_QUOTA_ONOFF:
    351   1.1      elad 		case KAUTH_REQ_SYSTEM_FS_QUOTA_MANAGE:
    352   1.1      elad 		case KAUTH_REQ_SYSTEM_FS_QUOTA_NOLIMIT:
    353   1.1      elad 			if (isroot)
    354   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    355   1.1      elad 			break;
    356   1.1      elad 
    357   1.1      elad 		default:
    358   1.1      elad 			break;
    359   1.1      elad 		}
    360   1.1      elad 
    361   1.1      elad 		break;
    362   1.1      elad 
    363   1.1      elad 	case KAUTH_SYSTEM_MOUNT:
    364   1.1      elad 		switch (req) {
    365  1.28      elad 		case KAUTH_REQ_SYSTEM_MOUNT_GET:
    366  1.28      elad 			if (isroot) {
    367  1.28      elad 				result = KAUTH_RESULT_ALLOW;
    368  1.28      elad 				break;
    369  1.28      elad 			}
    370  1.28      elad 
    371  1.28      elad 			break;
    372  1.28      elad 
    373  1.30      elad 		case KAUTH_REQ_SYSTEM_MOUNT_NEW:
    374  1.30      elad 		case KAUTH_REQ_SYSTEM_MOUNT_UNMOUNT:
    375  1.30      elad 		case KAUTH_REQ_SYSTEM_MOUNT_UPDATE:
    376  1.27      elad 			if (isroot) {
    377   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    378  1.27      elad 				break;
    379  1.27      elad 			}
    380   1.1      elad 
    381  1.30      elad 			result = suser_usermount_policy(cred, req, arg1, arg2);
    382   1.1      elad 
    383   1.1      elad 			break;
    384   1.1      elad 
    385   1.1      elad 		default:
    386   1.1      elad 			break;
    387   1.1      elad 		}
    388   1.1      elad 
    389   1.1      elad 		break;
    390   1.1      elad 
    391   1.3      elad 	case KAUTH_SYSTEM_PSET:
    392   1.1      elad 		switch (req) {
    393   1.1      elad 		case KAUTH_REQ_SYSTEM_PSET_ASSIGN:
    394   1.1      elad 		case KAUTH_REQ_SYSTEM_PSET_BIND:
    395   1.1      elad 		case KAUTH_REQ_SYSTEM_PSET_CREATE:
    396   1.1      elad 		case KAUTH_REQ_SYSTEM_PSET_DESTROY:
    397   1.1      elad 			if (isroot)
    398   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    399   1.1      elad 
    400   1.1      elad 			break;
    401   1.1      elad 
    402   1.1      elad 		default:
    403   1.1      elad 			break;
    404   1.1      elad 		}
    405   1.1      elad 
    406   1.1      elad 		break;
    407   1.1      elad 
    408   1.1      elad 	case KAUTH_SYSTEM_TIME:
    409   1.1      elad 		switch (req) {
    410   1.1      elad 		case KAUTH_REQ_SYSTEM_TIME_ADJTIME:
    411   1.1      elad 		case KAUTH_REQ_SYSTEM_TIME_NTPADJTIME:
    412   1.1      elad 		case KAUTH_REQ_SYSTEM_TIME_TIMECOUNTERS:
    413  1.22      elad 		case KAUTH_REQ_SYSTEM_TIME_SYSTEM:
    414   1.1      elad 		case KAUTH_REQ_SYSTEM_TIME_RTCOFFSET:
    415   1.1      elad 			if (isroot)
    416   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    417   1.1      elad 			break;
    418   1.1      elad 
    419   1.1      elad 		default:
    420   1.1      elad 			break;
    421   1.1      elad 		}
    422   1.1      elad 		break;
    423   1.1      elad 
    424   1.1      elad 	case KAUTH_SYSTEM_SYSCTL:
    425   1.1      elad 		switch (req) {
    426   1.1      elad 		case KAUTH_REQ_SYSTEM_SYSCTL_ADD:
    427   1.1      elad 		case KAUTH_REQ_SYSTEM_SYSCTL_DELETE:
    428   1.1      elad 		case KAUTH_REQ_SYSTEM_SYSCTL_DESC:
    429   1.1      elad 		case KAUTH_REQ_SYSTEM_SYSCTL_MODIFY:
    430   1.1      elad 		case KAUTH_REQ_SYSTEM_SYSCTL_PRVT:
    431   1.1      elad 			if (isroot)
    432   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    433   1.1      elad 			break;
    434   1.1      elad 
    435   1.1      elad 		default:
    436   1.1      elad 			break;
    437   1.1      elad 		}
    438   1.1      elad 
    439   1.1      elad 		break;
    440   1.1      elad 
    441   1.1      elad 	case KAUTH_SYSTEM_SWAPCTL:
    442   1.1      elad 	case KAUTH_SYSTEM_ACCOUNTING:
    443   1.1      elad 	case KAUTH_SYSTEM_REBOOT:
    444   1.1      elad 	case KAUTH_SYSTEM_CHROOT:
    445   1.1      elad 	case KAUTH_SYSTEM_FILEHANDLE:
    446   1.1      elad 	case KAUTH_SYSTEM_MKNOD:
    447  1.23      elad 	case KAUTH_SYSTEM_SETIDCORE:
    448  1.23      elad 	case KAUTH_SYSTEM_MODULE:
    449  1.27      elad 	case KAUTH_SYSTEM_FS_RESERVEDSPACE:
    450   1.1      elad 		if (isroot)
    451   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    452   1.1      elad 		break;
    453   1.1      elad 
    454  1.28      elad 	case KAUTH_SYSTEM_DEBUG:
    455  1.28      elad 		switch (req) {
    456  1.28      elad 		case KAUTH_REQ_SYSTEM_DEBUG_IPKDB:
    457  1.28      elad 			if (isroot)
    458  1.28      elad 				result = KAUTH_RESULT_ALLOW;
    459  1.28      elad 
    460  1.28      elad 			break;
    461  1.28      elad 
    462  1.28      elad 		default:
    463  1.28      elad 			break;
    464  1.28      elad 		}
    465  1.28      elad 
    466  1.28      elad 		break;
    467  1.28      elad 
    468   1.1      elad 	case KAUTH_SYSTEM_CHSYSFLAGS:
    469   1.1      elad 		/*
    470   1.1      elad 		 * Needs to be checked in conjunction with the immutable and
    471   1.1      elad 		 * append-only flags (usually). Should be handled differently.
    472   1.1      elad 		 * Infects ufs, ext2fs, tmpfs, and rump.
    473   1.1      elad 		 */
    474   1.1      elad 		if (isroot)
    475   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    476   1.1      elad 
    477   1.1      elad 		break;
    478   1.1      elad 
    479   1.1      elad 	default:
    480   1.1      elad 		break;
    481   1.1      elad 	}
    482   1.1      elad 
    483   1.1      elad 	return (result);
    484   1.1      elad }
    485   1.1      elad 
    486   1.1      elad /*
    487   1.1      elad  * kauth(9) listener
    488   1.1      elad  *
    489   1.1      elad  * Security model: Traditional NetBSD
    490   1.1      elad  * Scope: Process
    491   1.1      elad  * Responsibility: Superuser access
    492   1.1      elad  */
    493   1.1      elad int
    494   1.1      elad secmodel_suser_process_cb(kauth_cred_t cred, kauth_action_t action,
    495   1.1      elad     void *cookie, void *arg0, void *arg1, void *arg2, void *arg3)
    496   1.1      elad {
    497   1.1      elad 	struct proc *p;
    498   1.1      elad 	bool isroot;
    499   1.1      elad 	int result;
    500   1.1      elad 
    501   1.1      elad 	isroot = (kauth_cred_geteuid(cred) == 0);
    502   1.1      elad 	result = KAUTH_RESULT_DEFER;
    503   1.1      elad 	p = arg0;
    504   1.1      elad 
    505   1.1      elad 	switch (action) {
    506  1.12      elad 	case KAUTH_PROCESS_SIGNAL:
    507  1.23      elad 	case KAUTH_PROCESS_KTRACE:
    508  1.23      elad 	case KAUTH_PROCESS_PROCFS:
    509  1.23      elad 	case KAUTH_PROCESS_PTRACE:
    510  1.23      elad 	case KAUTH_PROCESS_SCHEDULER_GETPARAM:
    511  1.23      elad 	case KAUTH_PROCESS_SCHEDULER_SETPARAM:
    512  1.28      elad 	case KAUTH_PROCESS_SCHEDULER_GETAFFINITY:
    513  1.23      elad 	case KAUTH_PROCESS_SCHEDULER_SETAFFINITY:
    514  1.23      elad 	case KAUTH_PROCESS_SETID:
    515  1.23      elad 	case KAUTH_PROCESS_KEVENT_FILTER:
    516  1.23      elad 	case KAUTH_PROCESS_NICE:
    517  1.25      elad 	case KAUTH_PROCESS_FORK:
    518  1.25      elad 	case KAUTH_PROCESS_CORENAME:
    519  1.25      elad 	case KAUTH_PROCESS_STOPFLAG:
    520  1.12      elad 		if (isroot)
    521  1.12      elad 			result = KAUTH_RESULT_ALLOW;
    522   1.1      elad 
    523   1.1      elad 		break;
    524   1.1      elad 
    525   1.1      elad 	case KAUTH_PROCESS_CANSEE: {
    526   1.1      elad 		unsigned long req;
    527   1.1      elad 
    528   1.1      elad 		req = (unsigned long)arg1;
    529   1.1      elad 
    530   1.1      elad 		switch (req) {
    531   1.1      elad 		case KAUTH_REQ_PROCESS_CANSEE_ARGS:
    532   1.1      elad 		case KAUTH_REQ_PROCESS_CANSEE_ENTRY:
    533   1.1      elad 		case KAUTH_REQ_PROCESS_CANSEE_OPENFILES:
    534  1.25      elad 			if (isroot) {
    535   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    536  1.25      elad 				break;
    537  1.25      elad 			}
    538  1.25      elad 
    539  1.25      elad 			if (secmodel_suser_curtain) {
    540  1.32  stacktic 				if (!kauth_cred_uidmatch(cred, p->p_cred))
    541  1.25      elad 					result = KAUTH_RESULT_DENY;
    542  1.25      elad 			}
    543  1.25      elad 
    544   1.1      elad 			break;
    545   1.1      elad 
    546   1.1      elad 		case KAUTH_REQ_PROCESS_CANSEE_ENV:
    547  1.25      elad 			if (isroot)
    548   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    549   1.1      elad 
    550   1.1      elad 			break;
    551   1.1      elad 
    552   1.1      elad 		default:
    553   1.1      elad 			break;
    554   1.1      elad 		}
    555   1.1      elad 
    556   1.1      elad 		break;
    557   1.1      elad 		}
    558   1.1      elad 
    559   1.1      elad 	case KAUTH_PROCESS_RLIMIT: {
    560   1.6      elad 		enum kauth_process_req req;
    561   1.1      elad 
    562   1.6      elad 		req = (enum kauth_process_req)(unsigned long)arg1;
    563   1.1      elad 
    564   1.1      elad 		switch (req) {
    565   1.6      elad 		case KAUTH_REQ_PROCESS_RLIMIT_SET:
    566   1.6      elad 		case KAUTH_REQ_PROCESS_RLIMIT_GET:
    567   1.6      elad 			if (isroot)
    568   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    569   1.1      elad 
    570   1.1      elad 			break;
    571   1.1      elad 
    572   1.1      elad 		default:
    573   1.1      elad 			break;
    574   1.1      elad 		}
    575   1.1      elad 
    576   1.1      elad 		break;
    577   1.1      elad 		}
    578   1.1      elad 
    579   1.1      elad 	default:
    580   1.1      elad 		break;
    581   1.1      elad 	}
    582   1.1      elad 
    583   1.1      elad 	return (result);
    584   1.1      elad }
    585   1.1      elad 
    586   1.1      elad /*
    587   1.1      elad  * kauth(9) listener
    588   1.1      elad  *
    589   1.1      elad  * Security model: Traditional NetBSD
    590   1.1      elad  * Scope: Network
    591   1.1      elad  * Responsibility: Superuser access
    592   1.1      elad  */
    593   1.1      elad int
    594   1.1      elad secmodel_suser_network_cb(kauth_cred_t cred, kauth_action_t action,
    595   1.9      elad     void *cookie, void *arg0, void *arg1, void *arg2, void *arg3)
    596   1.1      elad {
    597   1.1      elad 	bool isroot;
    598   1.1      elad 	int result;
    599   1.1      elad 	enum kauth_network_req req;
    600   1.1      elad 
    601   1.1      elad 	isroot = (kauth_cred_geteuid(cred) == 0);
    602   1.1      elad 	result = KAUTH_RESULT_DEFER;
    603   1.1      elad 	req = (enum kauth_network_req)arg0;
    604   1.1      elad 
    605   1.1      elad 	switch (action) {
    606   1.1      elad 	case KAUTH_NETWORK_ALTQ:
    607   1.1      elad 		switch (req) {
    608   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_AFMAP:
    609   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_BLUE:
    610   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_CBQ:
    611   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_CDNR:
    612   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_CONF:
    613   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_FIFOQ:
    614   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_HFSC:
    615   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_JOBS:
    616   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_PRIQ:
    617   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_RED:
    618   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_RIO:
    619   1.1      elad 		case KAUTH_REQ_NETWORK_ALTQ_WFQ:
    620   1.1      elad 			if (isroot)
    621   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    622   1.1      elad 			break;
    623   1.1      elad 
    624   1.1      elad 		default:
    625   1.1      elad 			break;
    626   1.1      elad 		}
    627   1.1      elad 
    628   1.1      elad 		break;
    629   1.1      elad 
    630   1.1      elad 	case KAUTH_NETWORK_BIND:
    631   1.1      elad 		switch (req) {
    632  1.28      elad 		case KAUTH_REQ_NETWORK_BIND_PORT:
    633   1.1      elad 		case KAUTH_REQ_NETWORK_BIND_PRIVPORT:
    634   1.1      elad 			if (isroot)
    635   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    636   1.1      elad 			break;
    637   1.1      elad 
    638   1.1      elad 		default:
    639   1.1      elad 			break;
    640   1.1      elad 		}
    641   1.1      elad 		break;
    642   1.1      elad 
    643  1.28      elad 	case KAUTH_NETWORK_FIREWALL:
    644  1.28      elad 		switch (req) {
    645  1.28      elad 		case KAUTH_REQ_NETWORK_FIREWALL_FW:
    646  1.28      elad 		case KAUTH_REQ_NETWORK_FIREWALL_NAT:
    647  1.28      elad 			if (isroot)
    648  1.28      elad 				result = KAUTH_RESULT_ALLOW;
    649  1.28      elad 
    650  1.28      elad 			break;
    651  1.28      elad 
    652  1.28      elad 		default:
    653  1.28      elad 			break;
    654  1.28      elad 		}
    655  1.28      elad 		break;
    656  1.28      elad 
    657   1.1      elad 	case KAUTH_NETWORK_FORWSRCRT:
    658  1.23      elad 	case KAUTH_NETWORK_ROUTE:
    659   1.1      elad 		if (isroot)
    660   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    661   1.1      elad 
    662   1.1      elad 		break;
    663   1.1      elad 
    664   1.1      elad 	case KAUTH_NETWORK_INTERFACE:
    665   1.1      elad 		switch (req) {
    666  1.28      elad 		case KAUTH_REQ_NETWORK_INTERFACE_GET:
    667  1.28      elad 		case KAUTH_REQ_NETWORK_INTERFACE_SET:
    668   1.1      elad 		case KAUTH_REQ_NETWORK_INTERFACE_GETPRIV:
    669   1.1      elad 		case KAUTH_REQ_NETWORK_INTERFACE_SETPRIV:
    670   1.1      elad 			if (isroot)
    671   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    672   1.1      elad 			break;
    673   1.1      elad 
    674   1.1      elad 		default:
    675   1.1      elad 			break;
    676   1.1      elad 		}
    677   1.1      elad 		break;
    678   1.1      elad 
    679   1.1      elad 	case KAUTH_NETWORK_INTERFACE_PPP:
    680   1.1      elad 		switch (req) {
    681   1.1      elad 		case KAUTH_REQ_NETWORK_INTERFACE_PPP_ADD:
    682   1.1      elad 			if (isroot)
    683   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    684   1.1      elad 			break;
    685   1.1      elad 
    686   1.1      elad 		default:
    687   1.1      elad 			break;
    688   1.1      elad 		}
    689   1.1      elad 
    690   1.1      elad 		break;
    691   1.1      elad 
    692   1.1      elad 	case KAUTH_NETWORK_INTERFACE_SLIP:
    693   1.1      elad 		switch (req) {
    694   1.1      elad 		case KAUTH_REQ_NETWORK_INTERFACE_SLIP_ADD:
    695   1.1      elad 			if (isroot)
    696   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    697   1.1      elad 			break;
    698   1.1      elad 
    699   1.1      elad 		default:
    700   1.1      elad 			break;
    701   1.1      elad 		}
    702   1.1      elad 
    703   1.1      elad 		break;
    704   1.1      elad 
    705   1.1      elad 	case KAUTH_NETWORK_INTERFACE_STRIP:
    706   1.1      elad 		switch (req) {
    707   1.1      elad 		case KAUTH_REQ_NETWORK_INTERFACE_STRIP_ADD:
    708   1.1      elad 			if (isroot)
    709   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    710   1.1      elad 			break;
    711   1.1      elad 
    712   1.1      elad 		default:
    713   1.1      elad 			break;
    714   1.1      elad 		}
    715   1.1      elad 
    716   1.1      elad 		break;
    717   1.1      elad 
    718   1.1      elad 	case KAUTH_NETWORK_INTERFACE_TUN:
    719   1.1      elad 		switch (req) {
    720   1.1      elad 		case KAUTH_REQ_NETWORK_INTERFACE_TUN_ADD:
    721   1.1      elad 			if (isroot)
    722   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    723   1.1      elad 			break;
    724   1.1      elad 
    725   1.1      elad 		default:
    726   1.1      elad 			break;
    727   1.1      elad 		}
    728   1.1      elad 
    729   1.1      elad 		break;
    730   1.1      elad 
    731   1.1      elad 	case KAUTH_NETWORK_NFS:
    732   1.1      elad 		switch (req) {
    733   1.1      elad 		case KAUTH_REQ_NETWORK_NFS_EXPORT:
    734   1.1      elad 		case KAUTH_REQ_NETWORK_NFS_SVC:
    735   1.1      elad 			if (isroot)
    736   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    737   1.1      elad 
    738   1.1      elad 			break;
    739   1.1      elad 
    740   1.1      elad 		default:
    741   1.1      elad 			break;
    742   1.1      elad 		}
    743   1.1      elad 		break;
    744   1.1      elad 
    745   1.1      elad 	case KAUTH_NETWORK_SOCKET:
    746   1.1      elad 		switch (req) {
    747   1.1      elad 		case KAUTH_REQ_NETWORK_SOCKET_DROP:
    748   1.1      elad 		case KAUTH_REQ_NETWORK_SOCKET_OPEN:
    749   1.1      elad 		case KAUTH_REQ_NETWORK_SOCKET_RAWSOCK:
    750  1.13      elad 		case KAUTH_REQ_NETWORK_SOCKET_SETPRIV:
    751   1.1      elad 			if (isroot)
    752   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    753   1.1      elad 			break;
    754   1.1      elad 
    755   1.1      elad 		case KAUTH_REQ_NETWORK_SOCKET_CANSEE:
    756  1.13      elad 			if (isroot) {
    757  1.13      elad 				result = KAUTH_RESULT_ALLOW;
    758  1.13      elad 				break;
    759  1.13      elad 			}
    760  1.13      elad 
    761  1.21      elad 			if (secmodel_suser_curtain) {
    762  1.19      elad 				struct socket *so;
    763   1.1      elad 				uid_t so_uid;
    764   1.1      elad 
    765  1.19      elad 				so = (struct socket *)arg1;
    766  1.19      elad 				so_uid = so->so_uidinfo->ui_uid;
    767  1.19      elad 				if (kauth_cred_geteuid(cred) != so_uid)
    768  1.19      elad 					result = KAUTH_RESULT_DENY;
    769  1.19      elad 			}
    770   1.1      elad 
    771   1.1      elad 			break;
    772   1.1      elad 
    773   1.1      elad 		default:
    774   1.1      elad 			break;
    775   1.1      elad 		}
    776   1.1      elad 
    777   1.1      elad 		break;
    778   1.1      elad 
    779   1.1      elad 
    780   1.1      elad 	default:
    781   1.1      elad 		break;
    782   1.1      elad 	}
    783   1.1      elad 
    784   1.1      elad 	return (result);
    785   1.1      elad }
    786   1.1      elad 
    787   1.1      elad /*
    788   1.1      elad  * kauth(9) listener
    789   1.1      elad  *
    790   1.1      elad  * Security model: Traditional NetBSD
    791   1.1      elad  * Scope: Machdep
    792   1.1      elad  * Responsibility: Superuser access
    793   1.1      elad  */
    794   1.1      elad int
    795   1.1      elad secmodel_suser_machdep_cb(kauth_cred_t cred, kauth_action_t action,
    796   1.9      elad     void *cookie, void *arg0, void *arg1, void *arg2, void *arg3)
    797   1.1      elad {
    798   1.1      elad         bool isroot;
    799   1.1      elad         int result;
    800   1.1      elad 
    801   1.1      elad         isroot = (kauth_cred_geteuid(cred) == 0);
    802   1.1      elad         result = KAUTH_RESULT_DEFER;
    803   1.1      elad 
    804   1.1      elad         switch (action) {
    805   1.1      elad 	case KAUTH_MACHDEP_IOPERM_GET:
    806   1.1      elad 	case KAUTH_MACHDEP_LDT_GET:
    807   1.1      elad 	case KAUTH_MACHDEP_LDT_SET:
    808   1.1      elad 	case KAUTH_MACHDEP_MTRR_GET:
    809   1.1      elad 	case KAUTH_MACHDEP_CACHEFLUSH:
    810   1.1      elad 	case KAUTH_MACHDEP_IOPERM_SET:
    811   1.1      elad 	case KAUTH_MACHDEP_IOPL:
    812   1.1      elad 	case KAUTH_MACHDEP_MTRR_SET:
    813   1.1      elad 	case KAUTH_MACHDEP_NVRAM:
    814   1.1      elad 	case KAUTH_MACHDEP_UNMANAGEDMEM:
    815   1.1      elad 		if (isroot)
    816   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    817   1.1      elad 		break;
    818   1.1      elad 
    819   1.1      elad 	default:
    820   1.1      elad 		break;
    821   1.1      elad 	}
    822   1.1      elad 
    823   1.1      elad 	return (result);
    824   1.1      elad }
    825   1.1      elad 
    826   1.1      elad /*
    827   1.1      elad  * kauth(9) listener
    828   1.1      elad  *
    829   1.1      elad  * Security model: Traditional NetBSD
    830   1.1      elad  * Scope: Device
    831   1.1      elad  * Responsibility: Superuser access
    832   1.1      elad  */
    833   1.1      elad int
    834   1.1      elad secmodel_suser_device_cb(kauth_cred_t cred, kauth_action_t action,
    835   1.9      elad     void *cookie, void *arg0, void *arg1, void *arg2, void *arg3)
    836   1.1      elad {
    837   1.1      elad         bool isroot;
    838   1.1      elad         int result;
    839   1.1      elad 
    840   1.1      elad         isroot = (kauth_cred_geteuid(cred) == 0);
    841   1.1      elad         result = KAUTH_RESULT_DEFER;
    842   1.1      elad 
    843   1.1      elad 	switch (action) {
    844   1.1      elad 	case KAUTH_DEVICE_BLUETOOTH_SETPRIV:
    845   1.1      elad 	case KAUTH_DEVICE_BLUETOOTH_SEND:
    846   1.1      elad 	case KAUTH_DEVICE_BLUETOOTH_RECV:
    847  1.23      elad 	case KAUTH_DEVICE_TTY_OPEN:
    848  1.23      elad 	case KAUTH_DEVICE_TTY_PRIVSET:
    849  1.23      elad 	case KAUTH_DEVICE_TTY_STI:
    850  1.23      elad 	case KAUTH_DEVICE_RND_ADDDATA:
    851  1.23      elad 	case KAUTH_DEVICE_RND_GETPRIV:
    852  1.23      elad 	case KAUTH_DEVICE_RND_SETPRIV:
    853   1.1      elad 		if (isroot)
    854   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    855   1.1      elad 		break;
    856   1.1      elad 
    857   1.1      elad 	case KAUTH_DEVICE_BLUETOOTH_BCSP:
    858   1.1      elad 	case KAUTH_DEVICE_BLUETOOTH_BTUART: {
    859   1.1      elad 		enum kauth_device_req req;
    860   1.1      elad 
    861   1.1      elad 		req = (enum kauth_device_req)arg0;
    862   1.1      elad 		switch (req) {
    863   1.1      elad 		case KAUTH_REQ_DEVICE_BLUETOOTH_BCSP_ADD:
    864   1.1      elad 		case KAUTH_REQ_DEVICE_BLUETOOTH_BTUART_ADD:
    865   1.1      elad 			if (isroot)
    866   1.1      elad 				result = KAUTH_RESULT_ALLOW;
    867   1.1      elad 			break;
    868   1.1      elad 
    869   1.1      elad 		default:
    870   1.1      elad 			break;
    871   1.1      elad 		}
    872   1.1      elad 
    873   1.1      elad 		break;
    874   1.1      elad 		}
    875   1.1      elad 
    876   1.1      elad 	case KAUTH_DEVICE_GPIO_PINSET:
    877   1.1      elad 		/*
    878   1.1      elad 		 * root can access gpio pins, secmodel_securlevel can veto
    879   1.1      elad 		 * this decision.
    880   1.1      elad 		 */
    881   1.1      elad 		if (isroot)
    882   1.1      elad 			result = KAUTH_RESULT_ALLOW;
    883   1.1      elad 		break;
    884   1.1      elad 
    885   1.1      elad 	default:
    886   1.1      elad 		break;
    887   1.1      elad 	}
    888   1.1      elad 
    889   1.1      elad 	return (result);
    890   1.1      elad }
    891   1.1      elad 
    892   1.1      elad int
    893   1.1      elad secmodel_suser_vnode_cb(kauth_cred_t cred, kauth_action_t action,
    894   1.1      elad     void *cookie, void *arg0, void *arg1, void *arg2, void *arg3)
    895   1.1      elad {
    896   1.1      elad 	bool isroot;
    897   1.1      elad 	int result;
    898   1.1      elad 
    899   1.1      elad 	isroot = (kauth_cred_geteuid(cred) == 0);
    900   1.1      elad 	result = KAUTH_RESULT_DEFER;
    901   1.1      elad 
    902   1.1      elad 	if (isroot)
    903   1.1      elad 		result = KAUTH_RESULT_ALLOW;
    904   1.1      elad 
    905   1.1      elad 	return (result);
    906   1.1      elad }
    907   1.1      elad 
    908