Mercurial > pub > Impl

comparison Lib/IMPL/Security/Context.pm @ 68:739f1288ca84

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Auth in progress
author wizard
date Tue, 23 Mar 2010 16:55:25 +0300
parents f47f93534005
children 84aa8c395fce
comparison
equal deleted inserted replaced
67:9f5795a10939 68:739f1288ca84
10 10
11 my $current; 11 my $current;
12 my $nobody; 12 my $nobody;
13 13
14 BEGIN { 14 BEGIN {
15 public property Principal => prop_get; 15 public property principal => prop_get;
16 public property AssignedRoles => prop_all | prop_list; 16 public property rolesAssigned => prop_all | prop_list;
17 public property AuthSession => prop_all; 17 public property auth => prop_all;
18 } 18 }
19 19
20 sub Impersonate { 20 sub Impersonate {
21 my ($this,$code) = @_; 21 my ($this,$code) = @_;
22 22
34 } 34 }
35 } 35 }
36 36
37 sub contextNobody { 37 sub contextNobody {
38 my ($self) = @_; 38 my ($self) = @_;
39 $nobody = $self->new(Principal => IMPL::Security::Principal->nobody, AssignedRoles => undef) unless $nobody; 39 $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody;
40 $nobody; 40 $nobody;
41 } 41 }
42 42
43 sub contextCurrent { 43 sub contextCurrent {
44 my ($self) = @_; 44 my ($self) = @_;