Chris PeBenito 3e6c816
## <summary>Procmail mail delivery agent</summary>
Chris PeBenito 3e6c816
Chris PeBenito 3e6c816
########################################
Chris PeBenito 3e6c816
## <summary>
Chris PeBenito 3e6c816
##	Execute procmail with a domain transition.
Chris PeBenito 3e6c816
## </summary>
Chris PeBenito 3e6c816
## <param name="domain">
Chris PeBenito 3e6c816
##	Domain allowed access.
Chris PeBenito 3e6c816
## </param>
Chris PeBenito 3e6c816
#
Chris PeBenito 3e6c816
interface(`procmail_domtrans',`
Chris PeBenito 3e6c816
	gen_require(`
Chris PeBenito 3e6c816
		type procmail_exec_t, procmail_t;
Chris PeBenito 3e6c816
	')
Chris PeBenito 3e6c816
Chris PeBenito 3e6c816
	files_search_usr($1)
Chris PeBenito 3e6c816
	corecmd_search_bin($1)
Chris PeBenito 3e6c816
	domain_auto_trans($1,procmail_exec_t,procmail_t)
Chris PeBenito 3e6c816
Chris PeBenito 3e6c816
	allow $1 procmail_t:fd use;
Chris PeBenito 3e6c816
	allow procmail_t $1:fd use;
Chris PeBenito 3e6c816
	allow procmail_t $1:fifo_file rw_file_perms;
Chris PeBenito 3e6c816
	allow procmail_t $1:process sigchld;
Chris PeBenito 3e6c816
')
Chris PeBenito 1dad083
Chris PeBenito 1dad083
########################################
Chris PeBenito 1dad083
## <summary>
Chris PeBenito 1dad083
##	Execute procmail in the caller domain.
Chris PeBenito 1dad083
## </summary>
Chris PeBenito 1dad083
## <param name="domain">
Chris PeBenito 1dad083
##	Domain allowed access.
Chris PeBenito 1dad083
## </param>
Chris PeBenito 1dad083
#
Chris PeBenito 1dad083
interface(`procmail_exec',`
Chris PeBenito 1dad083
	gen_require(`
Chris PeBenito 1dad083
		type procmail_exec_t;
Chris PeBenito 1dad083
	')
Chris PeBenito 1dad083
Chris PeBenito 1dad083
	files_search_usr($1)
Chris PeBenito 1dad083
	corecmd_search_bin($1)
Chris PeBenito 1dad083
	can_exec($1,procmail_exec_t)
Chris PeBenito 1dad083
')