|
Chris PeBenito |
2705f9 |
#
|
|
Chris PeBenito |
2705f9 |
# Thunderbird
|
|
Chris PeBenito |
2705f9 |
#
|
|
Chris PeBenito |
2705f9 |
# Author: Ivan Gyurdiev <ivg2@cornell.edu>
|
|
Chris PeBenito |
2705f9 |
#
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
#######################################
|
|
Chris PeBenito |
2705f9 |
# thunderbird_domain(role_prefix)
|
|
Chris PeBenito |
2705f9 |
#
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# FIXME: Rules were removed to centralize policy in a gnome_app macro
|
|
Chris PeBenito |
2705f9 |
# A similar thing might be necessary for mozilla compiled without GNOME
|
|
Chris PeBenito |
2705f9 |
# support (is this possible?).
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
define(`thunderbird_domain', `
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# Type for program
|
|
Chris PeBenito |
2705f9 |
type $1_thunderbird_t, domain, nscd_client_domain;
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# Transition from user type
|
|
Chris PeBenito |
2705f9 |
if (! disable_thunderbird_trans) {
|
|
Chris PeBenito |
2705f9 |
domain_auto_trans($1_t, thunderbird_exec_t, $1_thunderbird_t)
|
|
Chris PeBenito |
2705f9 |
}
|
|
Chris PeBenito |
2705f9 |
role $1_r types $1_thunderbird_t;
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# FIXME: Why does it try to do that?
|
|
Chris PeBenito |
2705f9 |
dontaudit $1_thunderbird_t evolution_exec_t:file { getattr execute };
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# Why is thunderbird looking in .mozilla ?
|
|
Chris PeBenito |
2705f9 |
# FIXME: there are legitimate uses of invoking the browser - about -> release notes
|
|
Chris PeBenito |
2705f9 |
dontaudit $1_thunderbird_t $1_mozilla_home_t:dir search;
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# .kde/....gtkrc
|
|
Chris PeBenito |
2705f9 |
# FIXME: support properly
|
|
Chris PeBenito |
2705f9 |
dontaudit $1_thunderbird_t $1_home_t:file { getattr read };
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# X, mail common stuff
|
|
Chris PeBenito |
2705f9 |
x_client_domain($1_thunderbird, $1)
|
|
Chris PeBenito |
2705f9 |
mail_client_domain($1_thunderbird, $1)
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
a08248 |
allow $1_thunderbird_t self:process signull;
|
|
Chris PeBenito |
2705f9 |
allow $1_thunderbird_t fs_t:filesystem getattr;
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# GNOME support
|
|
Chris PeBenito |
2705f9 |
ifdef(`gnome.te', `
|
|
Chris PeBenito |
2705f9 |
gnome_application($1_thunderbird, $1)
|
|
Chris PeBenito |
2705f9 |
gnome_file_dialog($1_thunderbird, $1)
|
|
Chris PeBenito |
2705f9 |
allow $1_thunderbird_t $1_gnome_settings_t:file { read write };
|
|
Chris PeBenito |
2705f9 |
')
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# Access ~/.thunderbird
|
|
Chris PeBenito |
2705f9 |
home_domain($1, thunderbird)
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
# RSS feeds
|
|
Chris PeBenito |
2705f9 |
can_network_client_tcp($1_thunderbird_t, http_port_t)
|
|
Chris PeBenito |
2705f9 |
allow $1_thunderbird_t http_port_t:tcp_socket name_connect;
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
a08248 |
allow $1_thunderbird_t self:process { execheap execmem execstack };
|
|
Chris PeBenito |
2705f9 |
|
|
Chris PeBenito |
2705f9 |
')
|