policy_module(remotelogin,1.1.0)

########################################
#
# Declarations
#

type remote_login_t;
domain_obj_id_change_exempt(remote_login_t)
domain_subj_id_change_exempt(remote_login_t)
domain_role_change_exempt(remote_login_t)
domain_type(remote_login_t)
domain_wide_inherit_fd(remote_login_t)
auth_login_entry_type(remote_login_t)
role system_r types remote_login_t;

type remote_login_tmp_t;
files_tmp_file(remote_login_tmp_t)

########################################
#
# Remote login remote policy
#

allow remote_login_t self:capability { dac_override chown fowner fsetid kill setgid setuid net_bind_service sys_nice sys_resource sys_tty_config };
allow remote_login_t self:process ~{ ptrace setcurrent setexec setfscreate setrlimit execmem execstack execheap };
allow remote_login_t self:process { setrlimit setexec };
allow remote_login_t self:fd use;
allow remote_login_t self:fifo_file rw_file_perms;
allow remote_login_t self:sock_file r_file_perms;
allow remote_login_t self:unix_dgram_socket create_socket_perms;
allow remote_login_t self:unix_stream_socket create_stream_socket_perms;
allow remote_login_t self:unix_dgram_socket sendto;
allow remote_login_t self:unix_stream_socket connectto;
allow remote_login_t self:shm create_shm_perms;
allow remote_login_t self:sem create_sem_perms;
allow remote_login_t self:msgq create_msgq_perms;
allow remote_login_t self:msg { send receive };

allow remote_login_t remote_login_tmp_t:dir create_dir_perms;
allow remote_login_t remote_login_tmp_t:file create_file_perms;
files_filetrans_tmp(remote_login_t, remote_login_tmp_t, { file dir })

kernel_read_system_state(remote_login_t)
kernel_read_kernel_sysctl(remote_login_t)

dev_getattr_mouse_dev(remote_login_t)
dev_setattr_mouse_dev(remote_login_t)
dev_dontaudit_search_sysfs(remote_login_t)
# for SSP/ProPolice
dev_read_urand(remote_login_t)

fs_getattr_xattr_fs(remote_login_t)
fs_search_auto_mountpoints(remote_login_t)

selinux_get_fs_mount(remote_login_t)
selinux_validate_context(remote_login_t)
selinux_compute_access_vector(remote_login_t)
selinux_compute_create_context(remote_login_t)
selinux_compute_relabel_context(remote_login_t)
selinux_compute_user_contexts(remote_login_t)

term_relabel_all_user_ptys(remote_login_t)

auth_domtrans_chk_passwd(remote_login_t)
auth_dontaudit_read_shadow(remote_login_t)
auth_rw_login_records(remote_login_t)
auth_rw_lastlog(remote_login_t)
auth_rw_faillog(remote_login_t)
auth_exec_pam(remote_login_t)
auth_manage_pam_console_data(remote_login_t)
auth_domtrans_pam_console(remote_login_t)

corecmd_list_bin(remote_login_t)
corecmd_list_sbin(remote_login_t)
corecmd_read_bin_symlink(remote_login_t)
corecmd_read_sbin_symlink(remote_login_t)
# cjp: these are probably not needed:
corecmd_read_bin_file(remote_login_t)
corecmd_read_bin_pipe(remote_login_t)
corecmd_read_bin_socket(remote_login_t)
corecmd_read_sbin_file(remote_login_t)
corecmd_read_sbin_pipe(remote_login_t)
corecmd_read_sbin_socket(remote_login_t)

domain_read_all_entry_files(remote_login_t)

files_read_etc_files(remote_login_t)
files_read_etc_runtime_files(remote_login_t)
files_list_home(remote_login_t)
files_read_usr_files(remote_login_t)
files_list_world_readable(remote_login_t)
files_read_world_readable_files(remote_login_t)
files_read_world_readable_symlinks(remote_login_t)
files_read_world_readable_pipes(remote_login_t)
files_read_world_readable_sockets(remote_login_t)
files_list_mnt(remote_login_t)
# for when /var/mail is a sym-link
files_read_var_symlink(remote_login_t)

init_rw_utmp(remote_login_t)

libs_use_ld_so(remote_login_t)
libs_use_shared_libs(remote_login_t)

logging_send_syslog_msg(remote_login_t)

mls_file_read_up(remote_login_t)
mls_file_write_down(remote_login_t)
mls_file_upgrade(remote_login_t)
mls_file_downgrade(remote_login_t)
mls_process_set_level(remote_login_t)

seutil_read_config(remote_login_t)
seutil_read_default_contexts(remote_login_t)

sysnet_dns_name_resolve(remote_login_t)

miscfiles_read_localization(remote_login_t)

userdom_use_unpriv_users_fd(remote_login_t)
userdom_search_all_users_home(remote_login_t)
# Only permit unprivileged user domains to be entered via rlogin,
# since very weak authentication is used.
userdom_signal_unpriv_users(remote_login_t)
userdom_spec_domtrans_unpriv_users(remote_login_t)

# Search for mail spool file.
mta_getattr_spool(remote_login_t)

ifdef(`targeted_policy',`
	unconfined_domain_template(remote_login_t)
	unconfined_shell_domtrans(remote_login_t)
')

tunable_policy(`read_default_t',`
	files_list_default(remote_login_t)
	files_read_default_files(remote_login_t)
	files_read_default_symlinks(remote_login_t)
	files_read_default_sockets(remote_login_t)
	files_read_default_pipes(remote_login_t)
')

tunable_policy(`use_nfs_home_dirs',`
	fs_read_nfs_files(remote_login_t)
	fs_read_nfs_symlinks(remote_login_t)
')

tunable_policy(`use_samba_home_dirs',`
	fs_read_cifs_files(remote_login_t)
	fs_read_cifs_symlinks(remote_login_t)
')

optional_policy(`nis',`
	nis_use_ypbind(remote_login_t)
')

optional_policy(`nscd',`
	nscd_use_socket(remote_login_t)
')

optional_policy(`usermanage',`
	usermanage_read_crack_db(remote_login_t)
')

ifdef(`TODO',`
# this goes to xdm:
optional_policy(`remotelogin',`
	# FIXME: what is this for?
	remotelogin_signull(xdm_t)
')
# Login can polyinstantiate
polyinstantiater(remote_login_t)

ifdef(`alsa.te', `
domain_auto_trans($1_login_t, alsa_exec_t, alsa_t)
')

allow remote_login_t userpty_type:chr_file { setattr write };
allow remote_login_t ptyfile:chr_file { getattr ioctl };

optional_policy(`rlogind',`
	allow remote_login_t rlogind_devpts_t:chr_file { setattr rw_file_perms };
	allow remote_login_t rlogind_devpts_t:chr_file { relabelfrom relabelto };
')

optional_policy(`telnetd',`
	allow remote_login_t telnetd_devpts_t:chr_file { setattr rw_file_perms };
	allow remote_login_t telnetd_devpts_t:chr_file { relabelfrom relabelto };
')
') dnl endif TODO