luse
WE::Util::Permissions;
l
lmy $perm =
WE::Util::Permissions->new(-file => $permissionsfile);
l
l$perm->is_allowed(-user
=> "some_user", -process => "access");
l$perm->is_allowed(-group
=> [qw( editor admin )], -process => "delete", -page =>
'a/b/foo.html');
l# get subset of
users from list provided who are allowed process (operation) 'publish' on page (object) '/home/index.txt‘
l$perm->get_all_users([qw(
janet john )], 'publish', '/home/index.txt');
l