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