|
230
|
1 package IMPL::Security::AbstractContext;
|
|
49
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
230
|
5 use IMPL::Const qw(:prop);
|
|
260
|
6
|
|
230
|
7 use IMPL::require {
|
|
260
|
8 Role => 'IMPL::Security::Role',
|
|
330
|
9 Principal => 'IMPL::Security::Principal',
|
|
260
|
10 Exception => 'IMPL::Exception',
|
|
|
11 NotImplementedException => '-IMPL::NotImplementedException'
|
|
230
|
12 };
|
|
49
|
13
|
|
230
|
14 use parent qw(IMPL::Class::Meta);
|
|
49
|
15
|
|
230
|
16 __PACKAGE__->static_accessor_clone(abstractProps => [
|
|
|
17 principal => PROP_RW,
|
|
|
18 rolesAssigned => PROP_RW | PROP_LIST,
|
|
|
19 auth => PROP_RW,
|
|
|
20 authority => PROP_RW
|
|
|
21 ]);
|
|
49
|
22
|
|
230
|
23 my $current; # current session if any
|
|
74
|
24
|
|
49
|
25 sub Impersonate {
|
|
238
|
26 my ($this,$code,@args) = @_;
|
|
49
|
27
|
|
|
28 my $old = $current;
|
|
97
|
29 $current = $this;
|
|
49
|
30 my $result;
|
|
97
|
31 my $e;
|
|
|
32
|
|
|
33 {
|
|
194
|
34 local $@;
|
|
|
35 eval {
|
|
238
|
36 $result = $code->(@args);
|
|
194
|
37 };
|
|
|
38 $e = $@;
|
|
97
|
39 }
|
|
49
|
40 $current = $old;
|
|
97
|
41 if($e) {
|
|
|
42 die $e;
|
|
49
|
43 } else {
|
|
|
44 return $result;
|
|
|
45 }
|
|
|
46 }
|
|
|
47
|
|
121
|
48 sub Apply {
|
|
194
|
49 my ($this) = @_;
|
|
|
50
|
|
|
51 $current = $this;
|
|
121
|
52 }
|
|
|
53
|
|
81
|
54 sub isTrusted {
|
|
194
|
55 my ($this) = @_;
|
|
|
56
|
|
|
57 if (my $auth = $this->auth) {
|
|
|
58 return $auth->isTrusted;
|
|
|
59 } else {
|
|
|
60 return 0;
|
|
|
61 }
|
|
81
|
62 }
|
|
|
63
|
|
330
|
64 sub isNobody {
|
|
|
65 return (shift->principal == Principal->nobody ? 1 : 0);
|
|
|
66 }
|
|
|
67
|
|
230
|
68 sub Satisfy {
|
|
|
69 my ($this,@roles) = @_;
|
|
|
70
|
|
|
71 my $roleEffective = Role->new ( _effective => scalar $this->rolesAssigned );
|
|
|
72
|
|
|
73 return $roleEffective->Satisfy(@roles);
|
|
49
|
74 }
|
|
|
75
|
|
74
|
76 sub current {
|
|
194
|
77 $current;
|
|
51
|
78 }
|
|
|
79
|
|
49
|
80 1;
|
|
74
|
81
|
|
|
82 __END__
|
|
|
83
|
|
|
84 =pod
|
|
|
85
|
|
|
86 =head1 NAME
|
|
|
87
|
|
230
|
88 C<abstract IMPL::Security::Context> - контекст безопасности.
|
|
74
|
89
|
|
|
90 =head1 SINOPSYS
|
|
|
91
|
|
|
92 =begin code
|
|
|
93
|
|
230
|
94 package MyApp::Model::Session;
|
|
|
95 use strict;
|
|
74
|
96
|
|
230
|
97 use IMPL::delare {
|
|
|
98 base => [
|
|
|
99 'MyApp::Model::BaseDBO' => '@_',
|
|
|
100 'IMPL::Security::AbstractContext' => undef
|
|
|
101 ],
|
|
|
102 props {
|
|
|
103 IMPL::Security::AbstractContext->abstractProps,
|
|
|
104 qouta => PROP_GET
|
|
194
|
105 }
|
|
230
|
106 }
|
|
|
107
|
|
|
108 package main;
|
|
|
109
|
|
|
110 $app->model->GetSession('546a54df4')->Impersonate(sub{
|
|
|
111 # do something
|
|
|
112 });
|
|
74
|
113
|
|
|
114 =end code
|
|
|
115
|
|
|
116 =head1 DESCRIPTION
|
|
|
117
|
|
230
|
118 Код приложения, которое выполняется
|
|
74
|
119
|
|
180
|
120 Являет собой контекст безопасности, описывает пользователя и привелегии, так же
|
|
|
121 у программы есть текущий контекст безопасности, по умолчанию он C<nobody>.
|
|
74
|
122
|
|
|
123 =head1 MEMBERS
|
|
|
124
|
|
230
|
125 =head2 C<[get] principal>
|
|
74
|
126
|
|
180
|
127 Идентификатор пользователя, владельца контекста.
|
|
74
|
128
|
|
260
|
129 =head2 C<[get,set] rolesAssigned>
|
|
74
|
130
|
|
260
|
131 Явно назначенные роли. Если список пуст, то считается, что используются роли
|
|
|
132 пользователя по-умолчанию.
|
|
74
|
133
|
|
230
|
134 =head2 C<[get] auth>
|
|
74
|
135
|
|
180
|
136 Объект асторизации C<IMPL::Security::Auth>, использованный при создании текущего контекста.
|
|
74
|
137
|
|
230
|
138 =head2 C<[get] authority>
|
|
96
|
139
|
|
230
|
140 Модуль безопасности, породивший данный контекст. Модуль безопасности, отвечающий
|
|
|
141 за создание контекста безопасности должен реализовывать метод
|
|
|
142 C<CreateContext($user,$auth,$roles)>
|
|
96
|
143
|
|
230
|
144 =head2 C<[get] isTrusted>
|
|
81
|
145
|
|
230
|
146 Возвращает значение является ли контекст доверенным, тоесть клиент
|
|
|
147 аутентифицирован и сессия установлена. Если C<false> значит, что сессия была
|
|
|
148 начата, однако не установлена до конца.
|
|
81
|
149
|
|
230
|
150 =head2 C<Impersonate($code)>
|
|
74
|
151
|
|
180
|
152 Делает контекст текущим и выполняет в нем функцию по ссылке C<$code>. По окончании
|
|
230
|
153 выполнения, контекст восстанавливается в предыдущий (не зависимо от того, что
|
|
|
154 с ним происходило во время выполнения C<$code>).
|
|
74
|
155
|
|
230
|
156 =head2 C<Apply()>
|
|
121
|
157
|
|
180
|
158 Заменяет текущий контекст на себя, но до конца действия метода C<Impersonate>, если
|
|
|
159 таковой был вызван.
|
|
121
|
160
|
|
260
|
161 =head2 C<Satisfy(@roles)>
|
|
|
162
|
|
|
163 Проверяет наличие необходимых ролей у контекста. Данный метод позволяет
|
|
|
164 абстрагироваться от механизмов связи контекста и ролей. Возвращает истинное
|
|
|
165 значение если список необходимых ролей у пользователя имеется.
|
|
|
166
|
|
180
|
167 =cut
|
