Mercurial > pub > Impl

comparison Lib/IMPL/Security/Rule/RoleCheck.pm @ 94:79bf75223afe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed security related bugs
author wizard
date Thu, 29 Apr 2010 01:31:27 +0400
parents a1498298d3ee
children 4d0e1962161c
comparison
equal deleted inserted replaced
93:0667064553ef 94:79bf75223afe
3 require IMPL::Security::Role; 3 require IMPL::Security::Role;
4 4
5 sub SatisfyAll { 5 sub SatisfyAll {
6 my ($secPackage,$object,$desiredAccess,$context) = @_; 6 my ($secPackage,$object,$desiredAccess,$context) = @_;
7 7
8 my $roleEffective = new IMPL::Security::Role ( effective => $context->AssignedRoles ); 8 my $roleEffective = new IMPL::Security::Role ( _effective => $context->rolesAssigned );
9 9
10 return $roleEffective->Satisfy(ExtractRoles($object)); 10 return $roleEffective->Satisfy(ExtractRoles($object));
11 } 11 }
12 12
13 sub _ExtractRoles { 13 sub _ExtractRoles {