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