[Phpgroupware-cvs] CVS: admin acl2_tester.php,NONE,1.1

[Dan Kuykendall <address@hidden>]

Update of /cvsroot/phpgroupware/admin
In directory subversions:/tmp/cvs-serv2774

Added Files:
        acl2_tester.php 
Log Message:
added acl2 testing script to help explain how it works

--- NEW FILE ---
<?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>';
?>