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 |
