egroupware/admin/acl2_tester.php

<?php
	$GLOBALS['phpgw_info']['flags']['currentapp'] = 'admin';
	include('../header.inc.php');
	include(PHPGW_API_INC . '/class.acl2.inc.php');
	//$sec = New acl(array('account_id'=>1));
	$sec = New acl2(1,'##DEFAULT##');
//echo 'phpgw:<pre>'; print_r($GLOBALS['phpgw']); echo '</pre>';
	$sec->get_memberships();
//echo 'memberships_sql: '.$sec->memberships_sql.'<br>';
//echo 'memberships:<pre>'; print_r($sec->memberships); echo '</pre>';
	function ttt($location, $rights)
	{
		GLOBAL $sec;
		if ($sec->check($location, $rights))
		{
			echo $rights.' is valid<br>';
		}
		else
		{
			echo $rights.' is invalid<br>';
		}
	}

	echo 'This test is going to delete all your phpgw_acl2 records to ensure that the tests run as expected.<br>';
	$GLOBALS['phpgw']->db->query('DELETE FROM phpgw_acl2',__LINE__,__FILE__);
	echo 'All records deleted...<br>';
	echo 'Running checks on .one.two.three after changing directly granted rights as well as ones it will inherit from<br>';
	
	echo '1: check rights for .one.two which will get inherited by .one.two.three<br>';
	ttt('.one.two', 1);
	ttt('.one.two', 2);
	ttt('.one.two', 4);
	ttt('.one.two', 8);
	echo 'You can see that no rights are set, so none will be inherited<br>';

	echo '<br>2: checking .one.two.three<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);
	echo 'You can see that no rights are set directly as well<br>';

	$sec->add('.one.two.three',4,0);
	echo '<br>3: add rights 4 to .one.two.three<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);
	
	$sec->add('.one.two.three',8,0);
	echo '<br>4: add rights 8 to .one.two.three<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);

	$sec->remove('.one.two.three',4,0);
	echo '<br>5: remove rights 4 from .one.two.three<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);

	$sec->set('.one.two.three', 2,0);
	echo '<br>5: set rights to 2 on .one.two.three<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);

	$sec->add('.one.two',8,0);
	echo '<br>Now to see inheritance in action...<br>';
	echo '6: add rights 8 to .one.two<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);
	echo 'You can see here that it has inherited rights 8 from .one.two<br>';

	$sec->add('.one.two',4,0);
	echo '<br>7: add rights 4 to .one.two<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);
	echo 'You can see here that it has also inherited rights 4 from .one.two<br>';

	$sec->add('.one.two',8,1);
	echo '<br>Now to see inherited rights masks in action...<br>';
	echo '8: add rights mask for 8 to .one.two<br>';
	ttt('.one.two.three', 1);
	ttt('.one.two.three', 2);
	ttt('.one.two.three', 4);
	ttt('.one.two.three', 8);
	echo 'You can see here that it no longer inherited rights 8 from .one.two<br>';
	
	echo '<br>It will help to see the rights for .one.two at this point to clearly see the rights mask doing its work<br>';
	echo '9: display rights for .one.two<br>';
	ttt('.one.two', 1);
	ttt('.one.two', 2);
	ttt('.one.two', 4);
	ttt('.one.two', 8);
	echo 'You can see here that it has rights for 4 and 8, and yet above you saw that .one.two.three did not inherited rights 4 from it<br>';

	//echo 'rights_cache:<pre>'; print_r($sec->rights_cache); echo '</pre>';
?>