#

# Macros for uml domains.

#

#

# Author:  Russell Coker <russell@coker.com.au>

#

#

# uml_domain(domain_prefix)

#

# Define a derived domain for the uml program when executed

# by a user domain.

#

# The type declaration for the executable type for this program is

# provided separately in domains/program/uml.te. 

#

undefine(`uml_domain')

ifdef(`uml.te', `

define(`uml_domain',`

# Derived domain based on the calling user domain and the program.

type $1_uml_t, domain;

type $1_uml_exec_t, file_type, sysadmfile, $1_file_type;

type $1_uml_ro_t, file_type, sysadmfile, $1_file_type;

type $1_uml_rw_t, file_type, sysadmfile, $1_file_type;

# for X

ifdef(`startx.te', `

ifelse($1, sysadm, `', `

ifdef(`xdm.te', `

allow $1_uml_t xdm_xserver_tmp_t:dir search;

')dnl end if xdm.te

allow $1_uml_t $1_xserver_tmp_t:sock_file write;

can_unix_connect($1_uml_t, $1_xserver_t)

')dnl end ifelse sysadm

')dnl end ifdef startx

allow $1_t { $1_uml_ro_t $1_uml_rw_t }:{ file sock_file fifo_file } { relabelfrom relabelto create_file_perms };

allow $1_t $1_uml_exec_t:file { relabelfrom relabelto create_file_perms };

allow $1_t { $1_uml_ro_t $1_uml_rw_t }:lnk_file { relabelfrom relabelto create_lnk_perms };

allow $1_t { $1_uml_ro_t $1_uml_rw_t $1_uml_exec_t }:dir { relabelfrom relabelto create_dir_perms };

r_dir_file($1_t, uml_ro_t)

# Transition from the user domain to this domain.

domain_auto_trans($1_t, { uml_exec_t $1_uml_exec_t }, $1_uml_t)

can_exec($1_uml_t, { uml_exec_t $1_uml_exec_t })

# The user role is authorized for this domain.

role $1_r types $1_uml_t;

# Inherit and use descriptors from gnome-pty-helper.

ifdef(`gnome-pty-helper.te', `allow $1_uml_t $1_gph_t:fd use;')

# Inherit and use descriptors from newrole.

ifdef(`newrole.te', `allow $1_uml_t newrole_t:fd use;')

# allow ps, ptrace, signal

can_ps($1_t, $1_uml_t)

can_ptrace($1_t, $1_uml_t)

allow $1_t $1_uml_t:process signal_perms;

# allow the UML thing to happen

allow $1_uml_t self:process { fork signal_perms ptrace };

can_create_pty($1_uml)

allow $1_uml_t root_t:dir search;

tmp_domain($1_uml)

can_exec($1_uml_t, $1_uml_tmp_t)

tmpfs_domain($1_uml)

can_exec($1_uml_t, $1_uml_tmpfs_t)

create_dir_file($1_t, $1_uml_tmp_t)

allow $1_t $1_uml_tmp_t:sock_file create_file_perms;

allow $1_uml_t self:fifo_file rw_file_perms;

allow $1_uml_t fs_t:filesystem getattr;

allow $1_uml_t tun_tap_device_t:chr_file { read write ioctl };

ifdef(`uml_net.te', `

# for uml_net

domain_auto_trans($1_uml_t, uml_net_exec_t, uml_net_t)

allow uml_net_t $1_uml_t:unix_stream_socket { read write };

allow uml_net_t $1_uml_t:unix_dgram_socket { read write };

dontaudit uml_net_t privfd:fd use;

allow uml_net_t $1_uml_devpts_t:chr_file { read write };

dontaudit uml_net_t $1_uml_rw_t:dir { getattr search };

')dnl end ifdef uml_net.te

# for mconsole

allow { $1_t $1_uml_t } $1_uml_t:unix_dgram_socket sendto;

allow $1_uml_t $1_t:unix_dgram_socket sendto;

# Use the network.

can_network($1_uml_t)

can_ypbind($1_uml_t)

# for xterm

uses_shlib($1_uml_t)

can_exec($1_uml_t, { bin_t sbin_t lib_t })

allow $1_uml_t { bin_t sbin_t }:dir search;

allow $1_uml_t etc_t:file { getattr read };

dontaudit $1_uml_t etc_runtime_t:file read;

can_tcp_connect($1_uml_t, sshd_t)

ifdef(`xauth.te', `

allow $1_uml_t $1_xauth_home_t:file { getattr read };

')

allow $1_uml_t var_run_t:dir search;

allow $1_uml_t initrc_var_run_t:file { getattr read };

dontaudit $1_uml_t initrc_var_run_t:file { write lock };

allow $1_uml_t device_t:dir search;

allow $1_uml_t self:unix_stream_socket create_stream_socket_perms;

allow $1_uml_t self:unix_dgram_socket create_socket_perms;

allow $1_uml_t privfd:fd use;

allow $1_uml_t proc_t:dir search;

allow $1_uml_t proc_t:file { getattr read };

# for SKAS - need something better

allow $1_uml_t proc_t:file write;

# Write to the user domain tty.

access_terminal($1_uml_t, $1)

# access config files

allow $1_uml_t home_root_t:dir search;

file_type_auto_trans($1_uml_t, $1_home_dir_t, $1_uml_rw_t)

r_dir_file($1_uml_t, { $1_uml_ro_t uml_ro_t })

# putting uml data under /var is usual...

allow $1_uml_t var_t:dir search;

')dnl end macro definition

', `

define(`uml_domain',`')

')