## <summary>Remote-mail retrieval and forwarding utility.</summary>

########################################
## <summary>
##	All of the rules required to
##	administrate an fetchmail environment.
## </summary>
## <param name="domain">
##	<summary>
##	Domain allowed access.
##	</summary>
## </param>
## <param name="role">
##	<summary>
##	Role allowed access.
##	</summary>
## </param>
## <rolecap/>
#
interface(`fetchmail_admin',`
	gen_require(`
		type fetchmail_t, fetchmail_etc_t, fetchmail_uidl_cache_t;
		type fetchmail_var_run_t, fetchmail_initrc_exec_t, fetchmail_log_t;
	')

	ps_process_pattern($1, fetchmail_t)
	tunable_policy(`deny_ptrace',`',`
		allow $1 fetchmail_t:process ptrace;
	')

	init_labeled_script_domtrans($1, fetchmail_initrc_exec_t)
	domain_system_change_exemption($1)
	role_transition $2 fetchmail_initrc_exec_t system_r;
	allow $2 system_r;

	files_list_etc($1)
	admin_pattern($1, fetchmail_etc_t)

	files_search_var_lib($1)
	admin_pattern($1, fetchmail_uidl_cache_t)

	files_list_pids($1)
	admin_pattern($1, fetchmail_var_run_t)

	logging_search_logs($1)
	admin_pattern($1, fetchmail_log_t)
')