Mercurial > pub > Impl
comparison Lib/IMPL/Security/Context.pm @ 81:077357224bec
IMPL::Web::Security alpha version
IMPL::Security improovements
author | Sergey |
---|---|
date | Wed, 07 Apr 2010 14:45:34 +0400 |
parents | 84aa8c395fce |
children | 79bf75223afe |
comparison
equal
deleted
inserted
replaced
80:f017c0d7527c | 81:077357224bec |
---|---|
38 if($@) { | 38 if($@) { |
39 die $@; | 39 die $@; |
40 } else { | 40 } else { |
41 return $result; | 41 return $result; |
42 } | 42 } |
43 } | |
44 | |
45 sub isTrusted { | |
46 my ($this) = @_; | |
47 | |
48 if (my $auth = $this->auth) { | |
49 return $auth->isTrusted; | |
50 } else { | |
51 return 0; | |
52 } | |
43 } | 53 } |
44 | 54 |
45 sub nobody { | 55 sub nobody { |
46 my ($self) = @_; | 56 my ($self) = @_; |
47 $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody; | 57 $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody; |
104 | 114 |
105 =item C<[get] auth> | 115 =item C<[get] auth> |
106 | 116 |
107 Объект асторизации C<IMPL::Security::Auth>, использованный при создании текущего контекста. | 117 Объект асторизации C<IMPL::Security::Auth>, использованный при создании текущего контекста. |
108 | 118 |
119 =item C<[get] isTrusted> | |
120 | |
121 Возвращает значение является ли контекст доверенным, тоесть сессия аутетифицирована. | |
122 | |
109 =item C<Impersonate($code)> | 123 =item C<Impersonate($code)> |
110 | 124 |
111 Делает контекст текущим и выполняет в нем функцию по ссылке C<$code>. По окончании | 125 Делает контекст текущим и выполняет в нем функцию по ссылке C<$code>. По окончании |
112 выполнения, контекст восстанавливается. | 126 выполнения, контекст восстанавливается. |
113 | 127 |