Real Life Cross-Platform Testing

28/10/2008

Role Based Access Control

WE::U::P Querying

use WE::Util::Permissions;

my $perm = WE::Util::Permissions->new(-file => $permissionsfile);

$perm->is_allowed(-user => "some_user", -process => "access");

$perm->is_allowed(-group => [qw( editor admin )], -process => "delete", -page => 'a/b/foo.html');

# get subset of users from list provided who are allowed process (operation) 'publish' on page (object) '/home/index.txt‘

$perm->get_all_users([qw( janet john )], 'publish', '/home/index.txt');