## <summary>Evolution email client</summary>

########################################
## <summary>
##	Role access for evolution
## </summary>
## <param name="role">
##	<summary>
##	Role allowed access
##	</summary>
## </param>
## <param name="domain">
##	<summary>
##	User domain for the role
##	</summary>
## </param>
#
interface(`evolution_role',`
	gen_require(`
		type evolution_t, evolution_exec_t, evolution_home_t;
		type evolution_alarm_t, evolution_alarm_exec_t;
		type evolution_exchange_t, evolution_exchange_exec_t;
		type evolution_exchange_orbit_tmp_t;
		type evolution_server_t, evolution_server_exec_t;
		type evolution_webcal_t, evolution_webcal_exec_t;
	')

	role $1 types { evolution_t evolution_alarm_t evolution_exchange_t };
	role $1 types { evolution_server_t evolution_webcal_t };

	domtrans_pattern($2, evolution_exec_t, evolution_t)
	domtrans_pattern($2, evolution_alarm_exec_t, evolution_alarm_t)
	domtrans_pattern($2, evolution_exchange_exec_t, evolution_exchange_t)
	domtrans_pattern($2, evolution_server_exec_t, evolution_server_t)
	domtrans_pattern($2, evolution_webcal_exec_t, evolution_webcal_t)

	ps_process_pattern($2, evolution_t)
	ps_process_pattern($2, evolution_alarm_t)
	ps_process_pattern($2, evolution_exchange_t)
	ps_process_pattern($2, evolution_server_t)
	ps_process_pattern($2, evolution_webcal_t)

	allow evolution_t $2:dir search;
	allow evolution_t $2:file read;
	allow evolution_t $2:lnk_file read;
	allow evolution_t $2:unix_stream_socket connectto;

	allow $2 evolution_t:unix_stream_socket connectto;
	allow $2 evolution_t:process noatsecure;
	allow $2 evolution_t:process signal_perms;

	# Access .evolution
	allow $2 evolution_home_t:dir manage_dir_perms;
	allow $2 evolution_home_t:file manage_file_perms;
	allow $2 evolution_home_t:lnk_file manage_lnk_file_perms;
	allow $2 evolution_home_t:{ dir file lnk_file } { relabelfrom relabelto };

	allow evolution_exchange_t $2:unix_stream_socket connectto;

	# Clock applet talks to exchange (FIXME: Needs policy)
	allow $2 evolution_exchange_t:unix_stream_socket connectto;
	allow $2 evolution_exchange_orbit_tmp_t:sock_file write;
')

########################################
## <summary>
##	Create objects in users evolution home folders.
## </summary>
## <param name="domain">
##	<summary>
##	Domain allowed access.
##	</summary>
## </param>
## <param name="file_type">
##	<summary>
##	Private file type.
##	</summary>
## </param>
## <param name="class">
##	<summary>
##	The object class of the object being created.
##	</summary>
## </param>
#
interface(`evolution_home_filetrans',`
	gen_require(`
		type evolution_home_t;
	')

	allow $1 evolution_home_t:dir rw_dir_perms;
	type_transition $1 evolution_home_t:$3 $2;
')

########################################
## <summary>
##	Connect to evolution unix stream socket.
## </summary>
## <param name="domain">
##	<summary>
##	Domain allowed access.
##	</summary>
## </param>
#
interface(`evolution_stream_connect',`
	gen_require(`
		type evolution_t, evolution_home_t;
	')

	allow $1 evolution_t:unix_stream_socket connectto;
	allow $1 evolution_home_t:dir search;
')

########################################
## <summary>
##	Send and receive messages from
##	evolution over dbus.
## </summary>
## <param name="domain">
##	<summary>
##	Domain allowed access.
##	</summary>
## </param>
#
interface(`evolution_dbus_chat',`
	gen_require(`
		type evolution_t;
		class dbus send_msg;
	')

	allow $1 evolution_t:dbus send_msg;
	allow evolution_t $1:dbus send_msg;
')

########################################
## <summary>
##	Send and receive messages from
##	evolution_alarm over dbus.
## </summary>
## <param name="domain">
##	<summary>
##	Domain allowed access.
##	</summary>
## </param>
#
interface(`evolution_alarm_dbus_chat',`
	gen_require(`
		type evolution_alarm_t;
		class dbus send_msg;
	')

	allow $1 evolution_alarm_t:dbus send_msg;
	allow evolution_alarm_t $1:dbus send_msg;
')