|
49
|
1 package IMPL::Security::Context;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
230
|
5 use IMPL::require {
|
|
|
6 AbstractContext => 'IMPL::Security::AbstractContext',
|
|
|
7 };
|
|
49
|
8
|
|
230
|
9 use IMPL::declare {
|
|
238
|
10 require => {
|
|
|
11 Principal => 'IMPL::Security::Principal',
|
|
|
12 Role => 'IMPL::Security::Role',
|
|
|
13 Exception => 'IMPL::Exception',
|
|
|
14 ArgumentException => '-IMPL::InvalidArgumentException'
|
|
|
15 },
|
|
230
|
16 base => [
|
|
|
17 'IMPL::Object' => undef,
|
|
238
|
18 'IMPL::Object::Autofill' => '@_',
|
|
230
|
19 'IMPL::Security::AbstractContext' => undef,
|
|
|
20 ],
|
|
|
21 props => [
|
|
|
22 @{AbstractContext->abstractProps()}
|
|
|
23 ]
|
|
|
24 };
|
|
49
|
25
|
|
230
|
26 __PACKAGE__->abstractProps([]);
|
|
|
27
|
|
|
28
|
|
|
29 my $nobody;
|
|
49
|
30
|
|
74
|
31 sub CTOR {
|
|
194
|
32 my ($this) = @_;
|
|
|
33
|
|
230
|
34 die ArgumentException->new("The parameter is required", 'principal') unless $this->principal;
|
|
81
|
35 }
|
|
|
36
|
|
74
|
37 sub nobody {
|
|
49
|
38 my ($self) = @_;
|
|
230
|
39 $nobody = $self->new(principal => Principal->nobody) unless $nobody;
|
|
49
|
40 $nobody;
|
|
|
41 }
|
|
|
42
|
|
230
|
43 sub isTrusted {
|
|
|
44 return 1;
|
|
94
|
45 }
|
|
|
46
|
|
49
|
47 1;
|
|
74
|
48
|
|
|
49 __END__
|
|
|
50
|
|
|
51 =pod
|
|
|
52
|
|
|
53 =head1 NAME
|
|
|
54
|
|
230
|
55 C<IMPL::Security::Context> - реализация контекста безопасности создаваемого в
|
|
|
56 приложении.
|
|
74
|
57
|
|
230
|
58 =head1 SYNOPSIS
|
|
74
|
59
|
|
|
60 =begin code
|
|
|
61
|
|
|
62 my $context = IMPL::Security::Context->nobody;
|
|
|
63
|
|
|
64 my $result = $context->Impersonate(
|
|
194
|
65 sub {
|
|
|
66 # do some untrusted code
|
|
|
67 }
|
|
74
|
68 );
|
|
|
69
|
|
230
|
70 $context = IMPL::Security::Context->new(
|
|
|
71 principal => $user,
|
|
|
72 assignedRoles => [
|
|
|
73 $backupRole,
|
|
|
74 $controlRole
|
|
|
75 ]
|
|
|
76 );
|
|
|
77
|
|
|
78 $context->Impersonate(
|
|
|
79 sub {
|
|
|
80
|
|
|
81 # do some authorized operations
|
|
|
82
|
|
|
83 $service->backupData('current.bak');
|
|
|
84 $service->stop();
|
|
|
85 }
|
|
|
86 );
|
|
|
87
|
|
74
|
88 =end code
|
|
|
89
|
|
|
90 =head1 DESCRIPTION
|
|
|
91
|
|
230
|
92 C<autofill>
|
|
74
|
93
|
|
230
|
94 Данная реализация контекста безопасности не привязана ни к источнику данных
|
|
|
95 ни к пакету аутентификации и авторизации, ее приложение может создать в любой
|
|
|
96 момент, при этом система сама несет ответственность за последствия.
|
|
|
97
|
|
|
98 Данный контекст нужен для выполнения системой служебных функций.
|
|
74
|
99
|
|
|
100 =head1 MEMBERS
|
|
|
101
|
|
230
|
102 см. также C<IMPL::Security::AbstractContext>.
|
|
74
|
103
|
|
230
|
104 =head2 C<CTOR(%props)>
|
|
74
|
105
|
|
230
|
106 Создает объект и заполняет его свойствами. C<principal> должен быть обязательно
|
|
|
107 указан.
|
|
74
|
108
|
|
230
|
109 =head2 C<[static,get] nobody>
|
|
74
|
110
|
|
180
|
111 Контекст для неаутентифицированных пользователей, минимум прав.
|
|
74
|
112
|
|
180
|
113 =cut
|
