## <summary>policy for sanlock</summary>

########################################

## <summary>

##	Execute a domain transition to run sanlock.

## </summary>

## <param name="domain">

## <summary>

##	Domain allowed access.

## </summary>

## </param>

#

interface(`sanlock_domtrans',`

	gen_require(`

		type sanlock_t, sanlock_exec_t;

	')

	domtrans_pattern($1, sanlock_exec_t, sanlock_t)

')

########################################

## <summary>

##	Execute sanlock server in the sanlock domain.

## </summary>

## <param name="domain">

##	<summary>

##	The type of the process performing this action.

##	</summary>

## </param>

#

interface(`sanlock_initrc_domtrans',`

	gen_require(`

		type sanlock_initrc_exec_t;

	')

	init_labeled_script_domtrans($1, sanlock_initrc_exec_t)

')

######################################

## <summary>

##	Create, read, write, and delete sanlock PID files.

## </summary>

## <param name="domain">

##	<summary>

##	Domain allowed access.

##	</summary>

## </param>

#

interface(`sanlock_manage_pid_files',`

	gen_require(`

		type sanlock_var_run_t;

	')

	files_search_pids($1)

	manage_files_pattern($1, sanlock_var_run_t, sanlock_var_run_t)

')

########################################

## <summary>

##	Connect to sanlock over an unix stream socket.

## </summary>

## <param name="domain">

##	<summary>

##	Domain allowed access.

##	</summary>

## </param>

#

interface(`sanlock_stream_connect',`

	gen_require(`

		type sanlock_t, sanlock_var_run_t;

	')

	files_search_pids($1)

	stream_connect_pattern($1, sanlock_var_run_t, sanlock_var_run_t, sanlock_t)

')

########################################

## <summary>

##	All of the rules required to administrate

##	an sanlock environment

## </summary>

## <param name="domain">

##	<summary>

##	Domain allowed access.

##	</summary>

## </param>

## <param name="role">

##	<summary>

##	Role allowed access.

##	</summary>

## </param>

## <rolecap/>

#

interface(`sanlock_admin',`

	gen_require(`

		type sanlock_t;

		type sanlock_initrc_exec_t;

	')

	allow $1 sanlock_t:process signal_perms;

	ps_process_pattern($1, sanlock_t)

	sanlock_initrc_domtrans($1)

	domain_system_change_exemption($1)

	role_transition $2 sanlock_initrc_exec_t system_r;

	allow $2 system_r;

')