Mercurial > pub > Impl
diff 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 |
line wrap: on
line diff
--- a/Lib/IMPL/Security/Context.pm Wed Apr 07 01:05:02 2010 +0400 +++ b/Lib/IMPL/Security/Context.pm Wed Apr 07 14:45:34 2010 +0400 @@ -42,6 +42,16 @@ } } +sub isTrusted { + my ($this) = @_; + + if (my $auth = $this->auth) { + return $auth->isTrusted; + } else { + return 0; + } +} + sub nobody { my ($self) = @_; $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody; @@ -106,6 +116,10 @@ Объект асторизации C<IMPL::Security::Auth>, использованный при создании текущего контекста. +=item C<[get] isTrusted> + +Возвращает значение является ли контекст доверенным, тоесть сессия аутетифицирована. + =item C<Impersonate($code)> Делает контекст текущим и выполняет в нем функцию по ссылке C<$code>. По окончании