235 lines
6.4 KiB
Plaintext
235 lines
6.4 KiB
Plaintext
|
#
|
||
|
|
# Evolution
|
||
|
|
#
|
||
|
|
# Author: Ivan Gyurdiev <ivg2@cornell.edu>
|
||
|
|
#
|
||
|
|
|
||
|
|
################################################
|
||
|
|
# evolution_common(app_prefix,role_prefix)
|
||
|
|
#
|
||
|
|
define(`evolution_common', `
|
||
|
|
|
||
|
|
# Gnome common stuff
|
||
|
|
gnome_application($1, $2)
|
||
|
|
|
||
|
|
# Stat root
|
||
|
|
allow $1_t root_t:dir search;
|
||
|
|
|
||
|
|
# Access null device
|
||
|
|
allow $1_t null_device_t:chr_file rw_file_perms;
|
||
|
|
|
||
|
|
# FIXME: suppress access to .local/.icons/.themes until properly implemented
|
||
|
|
dontaudit $1_t $2_home_t:dir r_dir_perms;
|
||
|
|
|
||
|
|
# FIXME: suppress access to .gaim/blist.xml (buddy list synchronization)
|
||
|
|
# until properly implemented
|
||
|
|
dontaudit $1_t $2_home_t:file r_file_perms;
|
||
|
|
|
||
|
|
') dnl evolution_common
|
||
|
|
|
||
|
|
#######################################
|
||
|
|
# evolution_data_server(role_prefix)
|
||
|
|
#
|
||
|
|
|
||
|
|
define(`evolution_data_server', `
|
||
|
|
|
||
|
|
# Type for daemon
|
||
|
|
type $1_evolution_server_t, domain, nscd_client_domain;
|
||
|
|
|
||
|
|
# Transition from user type
|
||
|
|
if (! disable_evolution_trans) {
|
||
|
|
domain_auto_trans($1_t, evolution_server_exec_t, $1_evolution_server_t)
|
||
|
|
}
|
||
|
|
role $1_r types $1_evolution_server_t;
|
||
|
|
|
||
|
|
# Evolution common stuff
|
||
|
|
evolution_common($1_evolution_server, $1)
|
||
|
|
|
||
|
|
# Access evolution home
|
||
|
|
home_domain_access($1_evolution_server_t, $1, evolution)
|
||
|
|
|
||
|
|
# Talks to exchange
|
||
|
|
bonobo_connect($1_evolution_server, $1_evolution_exchange)
|
||
|
|
|
||
|
|
can_exec($1_evolution_server_t, shell_exec_t)
|
||
|
|
|
||
|
|
# Obtain weather data via http (read server name from xml file in /usr)
|
||
|
|
allow $1_evolution_server_t usr_t:file r_file_perms;
|
||
|
|
can_resolve($1_evolution_server_t)
|
||
|
|
can_network_client_tcp($1_evolution_server_t, { http_port_t http_cache_port_t } )
|
||
|
|
allow $1_evolution_server_t { http_cache_port_t http_port_t }:tcp_socket name_connect;
|
||
|
|
|
||
|
|
# Talk to ldap (address book)
|
||
|
|
can_network_client_tcp($1_evolution_server_t, ldap_port_t)
|
||
|
|
allow $1_evolution_server_t ldap_port_t:tcp_socket name_connect;
|
||
|
|
|
||
|
|
# Look in /etc/pki
|
||
|
|
r_dir_file($1_evolution_server_t, cert_t)
|
||
|
|
|
||
|
|
') dnl evolution_data_server
|
||
|
|
|
||
|
|
#######################################
|
||
|
|
# evolution_webcal(role_prefix)
|
||
|
|
#
|
||
|
|
|
||
|
|
define(`evolution_webcal', `
|
||
|
|
|
||
|
|
# Type for program
|
||
|
|
type $1_evolution_webcal_t, domain, nscd_client_domain;
|
||
|
|
|
||
|
|
# Transition from user type
|
||
|
|
domain_auto_trans($1_t, evolution_webcal_exec_t, $1_evolution_webcal_t)
|
||
|
|
role $1_r types $1_evolution_webcal_t;
|
||
|
|
|
||
|
|
# X/evolution common stuff
|
||
|
|
x_client_domain($1_evolution_webcal, $1)
|
||
|
|
evolution_common($1_evolution_webcal, $1)
|
||
|
|
|
||
|
|
# Search home directory (?)
|
||
|
|
allow $1_evolution_webcal_t $1_home_dir_t:dir search;
|
||
|
|
|
||
|
|
# Networking capability - connect to website and handle ics link
|
||
|
|
# FIXME: is this necessary ?
|
||
|
|
can_resolve($1_evolution_webcal_t);
|
||
|
|
can_network_client_tcp($1_evolution_webcal_t, { http_port_t http_cache_port_t } )
|
||
|
|
allow $1_evolution_webcal_t { http_cache_port_t http_port_t } :tcp_socket name_connect;
|
||
|
|
|
||
|
|
') dnl evolution_webcal
|
||
|
|
|
||
|
|
#######################################
|
||
|
|
# evolution_alarm(role_prefix)
|
||
|
|
#
|
||
|
|
define(`evolution_alarm', `
|
||
|
|
|
||
|
|
# Type for program
|
||
|
|
type $1_evolution_alarm_t, domain, nscd_client_domain;
|
||
|
|
|
||
|
|
# Transition from user type
|
||
|
|
domain_auto_trans($1_t, evolution_alarm_exec_t, $1_evolution_alarm_t)
|
||
|
|
role $1_r types $1_evolution_alarm_t;
|
||
|
|
|
||
|
|
# Common evolution stuff, X
|
||
|
|
evolution_common($1_evolution_alarm, $1)
|
||
|
|
x_client_domain($1_evolution_alarm, $1)
|
||
|
|
|
||
|
|
# Connect to exchange, e-d-s
|
||
|
|
bonobo_connect($1_evolution_alarm, $1_evolution_server)
|
||
|
|
bonobo_connect($1_evolution_alarm, $1_evolution_exchange)
|
||
|
|
|
||
|
|
# Access evolution home
|
||
|
|
home_domain_access($1_evolution_alarm_t, $1, evolution)
|
||
|
|
|
||
|
|
') dnl evolution_alarm
|
||
|
|
|
||
|
|
########################################
|
||
|
|
# evolution_exchange(role_prefix)
|
||
|
|
#
|
||
|
|
define(`evolution_exchange', `
|
||
|
|
|
||
|
|
# Type for program
|
||
|
|
type $1_evolution_exchange_t, domain, nscd_client_domain;
|
||
|
|
|
||
|
|
# Transition from user type
|
||
|
|
domain_auto_trans($1_t, evolution_exchange_exec_t, $1_evolution_exchange_t)
|
||
|
|
role $1_r types $1_evolution_exchange_t;
|
||
|
|
|
||
|
|
# Common evolution stuff, X
|
||
|
|
evolution_common($1_evolution_exchange, $1)
|
||
|
|
x_client_domain($1_evolution_exchange, $1)
|
||
|
|
|
||
|
|
# Access evolution home
|
||
|
|
home_domain_access($1_evolution_exchange_t, $1, evolution)
|
||
|
|
|
||
|
|
# /tmp/.exchange-$USER
|
||
|
|
tmp_domain($1_evolution_exchange)
|
||
|
|
|
||
|
|
# Allow netstat
|
||
|
|
allow $1_evolution_exchange_t bin_t:dir search;
|
||
|
|
can_exec($1_evolution_exchange_t, bin_t)
|
||
|
|
r_dir_file($1_evolution_exchange_t, proc_net_t)
|
||
|
|
allow $1_evolution_exchange_t sysctl_net_t:dir search;
|
||
|
|
allow $1_evolution_exchange_t self:{ udp_socket tcp_socket } create_socket_perms;
|
||
|
|
|
||
|
|
# Clock applet talks to exchange (FIXME: Needs policy)
|
||
|
|
bonobo_connect($1, $1_evolution_exchange)
|
||
|
|
|
||
|
|
# FIXME: policy incomplete
|
||
|
|
|
||
|
|
') dnl evolution_exchange
|
||
|
|
|
||
|
|
#######################################
|
||
|
|
# evolution_domain(role_prefix)
|
||
|
|
#
|
||
|
|
|
||
|
|
define(`evolution_domain', `
|
||
|
|
|
||
|
|
# Type for program
|
||
|
|
type $1_evolution_t, domain, nscd_client_domain, privlog;
|
||
|
|
|
||
|
|
# Transition from user type
|
||
|
|
domain_auto_trans($1_t, evolution_exec_t, $1_evolution_t)
|
||
|
|
role $1_r types $1_evolution_t;
|
||
|
|
|
||
|
|
# X, mail, evolution common stuff
|
||
|
|
x_client_domain($1_evolution, $1)
|
||
|
|
mail_client_domain($1_evolution, $1)
|
||
|
|
gnome_file_dialog($1_evolution, $1)
|
||
|
|
evolution_common($1_evolution, $1)
|
||
|
|
|
||
|
|
# Connect to e-d-s, exchange, alarm
|
||
|
|
bonobo_connect($1_evolution, $1_evolution_server)
|
||
|
|
bonobo_connect($1_evolution, $1_evolution_exchange)
|
||
|
|
bonobo_connect($1_evolution, $1_evolution_alarm)
|
||
|
|
|
||
|
|
# Access .evolution
|
||
|
|
home_domain($1, evolution)
|
||
|
|
|
||
|
|
# Store passwords in .gnome2_private
|
||
|
|
gnome_private_store($1_evolution, $1)
|
||
|
|
|
||
|
|
# Run various programs
|
||
|
|
allow $1_evolution_t { bin_t sbin_t }:dir r_dir_perms;
|
||
|
|
allow $1_evolution_t { self bin_t }:lnk_file r_file_perms;
|
||
|
|
|
||
|
|
### Junk mail filtering (start spamd)
|
||
|
|
ifdef(`spamd.te', `
|
||
|
|
# Start the spam daemon
|
||
|
|
domain_auto_trans($1_evolution_t, spamd_exec_t, spamd_t)
|
||
|
|
role $1_r types spamd_t;
|
||
|
|
|
||
|
|
# Write pid file and socket in ~/.evolution/cache/tmp
|
||
|
|
file_type_auto_trans(spamd_t, $1_evolution_home_t, spamd_tmp_t, { file sock_file })
|
||
|
|
|
||
|
|
# Allow evolution to signal the daemon
|
||
|
|
# FIXME: Now evolution can read spamd temp files
|
||
|
|
allow $1_evolution_t spamd_tmp_t:file r_file_perms;
|
||
|
|
allow $1_evolution_t spamd_t:process signal;
|
||
|
|
dontaudit $1_evolution_t spamd_tmp_t:sock_file getattr;
|
||
|
|
') dnl spamd.te
|
||
|
|
|
||
|
|
### Junk mail filtering (start spamc)
|
||
|
|
ifdef(`spamc.te', `
|
||
|
|
domain_auto_trans($1_evolution_t, spamc_exec_t, $1_spamc_t)
|
||
|
|
|
||
|
|
# Allow connection to spamd socket above
|
||
|
|
allow $1_spamc_t $1_evolution_home_t:dir search;
|
||
|
|
') dnl spamc.te
|
||
|
|
|
||
|
|
### Junk mail filtering (start spamassassin)
|
||
|
|
ifdef(`spamassassin.te', `
|
||
|
|
domain_auto_trans($1_evolution_t, spamassassin_exec_t, $1_spamassassin_t)
|
||
|
|
') dnl spamassasin.te
|
||
|
|
|
||
|
|
') dnl evolution_domain
|
||
|
|
|
||
|
|
#################################
|
||
|
|
# evolution_domains(role_prefix)
|
||
|
|
|
||
|
|
define(`evolution_domains', `
|
||
|
|
evolution_domain($1)
|
||
|
|
evolution_data_server($1)
|
||
|
|
evolution_webcal($1)
|
||
|
|
evolution_alarm($1)
|
||
|
|
evolution_exchange($1)
|
||
|
|
') dnl end evolution_domains
|