Chris PeBenito 131634
## <summary>Podsleuth is a tool to get information about an Apple (TM) iPod (TM)</summary>
Chris PeBenito 131634
Chris PeBenito 131634
########################################
Chris PeBenito 131634
## <summary>
Chris PeBenito 131634
##	Execute a domain transition to run podsleuth.
Chris PeBenito 131634
## </summary>
Chris PeBenito 131634
## <param name="domain">
Chris PeBenito 131634
## <summary>
Chris PeBenito 131634
##	Domain allowed to transition.
Chris PeBenito 131634
## </summary>
Chris PeBenito 131634
## </param>
Chris PeBenito 131634
#
Chris PeBenito 131634
interface(`podsleuth_domtrans',`
Chris PeBenito 131634
	gen_require(`
Chris PeBenito 131634
		type podsleuth_t, podsleuth_exec_t;
Chris PeBenito 131634
	')
Chris PeBenito 131634
Chris PeBenito 131634
	domtrans_pattern($1, podsleuth_exec_t, podsleuth_t)
Chris PeBenito 5bb5ec
	allow $1 podsleuth_t:process signal;
Chris PeBenito 5bb5ec
')
Chris PeBenito 5bb5ec
Chris PeBenito 5bb5ec
########################################
Chris PeBenito 5bb5ec
## <summary>
Chris PeBenito 5bb5ec
##	Execute podsleuth in the podsleuth domain, and
Chris PeBenito 5bb5ec
##	allow the specified role the podsleuth domain.
Chris PeBenito 5bb5ec
## </summary>
Chris PeBenito 5bb5ec
## <param name="domain">
Chris PeBenito 5bb5ec
##	<summary>
Chris PeBenito 5bb5ec
##	Domain allowed access
Chris PeBenito 5bb5ec
##	</summary>
Chris PeBenito 5bb5ec
## </param>
Chris PeBenito 5bb5ec
## <param name="role">
Chris PeBenito 5bb5ec
##	<summary>
Chris PeBenito 5bb5ec
##	The role to be allowed the podsleuth domain.
Chris PeBenito 5bb5ec
##	</summary>
Chris PeBenito 5bb5ec
## </param>
Chris PeBenito 5bb5ec
#
Chris PeBenito 5bb5ec
interface(`podsleuth_run',`
Chris PeBenito 5bb5ec
	gen_require(`
Chris PeBenito 5bb5ec
		type podsleuth_t;
Chris PeBenito 5bb5ec
	')
Chris PeBenito 5bb5ec
Chris PeBenito 5bb5ec
	podsleuth_domtrans($1)
Chris PeBenito 5bb5ec
	role $2 types podsleuth_t;
Chris PeBenito 131634
')