|
52
|
1 package IMPL::Web::Security;
|
|
81
|
2 use strict;
|
|
73
|
3
|
|
81
|
4 use IMPL::Security::Auth qw(:Const);
|
|
230
|
5 use IMPL::declare {
|
|
|
6 require => {
|
|
|
7 Exception => 'IMPL::Exception',
|
|
|
8 NotImplementedException => '-IMPL::NotImplementedException',
|
|
|
9 SecurityContext => 'IMPL::Security::AbstractContext'
|
|
|
10 },
|
|
|
11 };
|
|
107
|
12
|
|
81
|
13 sub AuthUser {
|
|
194
|
14 my ($this,$name,$package,$challenge) = @_;
|
|
|
15
|
|
230
|
16 my $user = $this->FindUserByName($name)
|
|
|
17 or return { status => AUTH_FAIL, answer => "Can't find a user '$name'" };
|
|
194
|
18
|
|
230
|
19 my $auth;
|
|
|
20 if ( my $secData = $user->GetSecData($package) ) {
|
|
194
|
21 $auth = $package->new($secData);
|
|
|
22 } else {
|
|
230
|
23 return {
|
|
|
24 status => AUTH_FAIL,
|
|
|
25 user => $user
|
|
|
26 };
|
|
194
|
27 }
|
|
|
28
|
|
|
29 my ($status,$answer) = $auth->DoAuth($challenge);
|
|
|
30
|
|
230
|
31 if ($status != AUTH_FAIL) {
|
|
|
32 SecurityContext->current->authority->CreateContext(
|
|
|
33 $user,
|
|
|
34 $auth,
|
|
|
35 [$user->roles],
|
|
|
36 $answer,
|
|
|
37 $this
|
|
|
38 );
|
|
|
39 }
|
|
|
40
|
|
194
|
41 return {
|
|
|
42 status => $status,
|
|
230
|
43 user => $user
|
|
|
44 };
|
|
73
|
45 }
|
|
|
46
|
|
230
|
47 sub FindUserByName {
|
|
|
48 die NotImplementedException->new();
|
|
|
49 }
|
|
|
50
|
|
|
51 sub CreateSession {
|
|
|
52 die NotImplementedException->new();
|
|
|
53 }
|
|
|
54
|
|
|
55 sub GetSession {
|
|
|
56 die NotImplementedException->new();
|
|
|
57 }
|
|
|
58
|
|
|
59 sub SaveSession {
|
|
|
60 die NotImplementedException->new();
|
|
73
|
61 }
|
|
|
62
|
|
52
|
63 1;
|
|
|
64
|
|
|
65 __END__
|
|
|
66
|
|
|
67 =pod
|
|
|
68
|
|
73
|
69 =head1 NAME
|
|
|
70
|
|
180
|
71 C<IMPL::Web::Security> Модуль для аутентификации и авторизации веб запроса.
|
|
73
|
72
|
|
|
73 =head1 SINOPSYS
|
|
|
74
|
|
|
75 =begin code xml
|
|
|
76
|
|
|
77 <security type='IMPL::Config::Activator'>
|
|
194
|
78 <factory>IMPL::Web::Security</factory>
|
|
|
79 <parameters type='HASH'>
|
|
|
80 <sessionFactory type='IMPL::Object::Factory'>
|
|
|
81 <factory type='IMPL::Object::Factory'>App::Data::Session</factory>
|
|
|
82 <method>insert</method>
|
|
|
83 </sessionFactory>
|
|
|
84 </parameters>
|
|
73
|
85 </security>
|
|
|
86
|
|
|
87 =end code xml
|
|
|
88
|
|
52
|
89 =head1 DESCRIPTION
|
|
|
90
|
|
180
|
91 Отвечает за инфраструктуру аутентификации и авторизации запросов. Основная особенность
|
|
|
92 заключается в том, что запросы приходят через значительные интевалы времени, хотя и
|
|
|
93 относятся к одной логической транзакции. В промежутках между запросами сервер не
|
|
|
94 сохраняет свое состояние. Поэтому при каждом обращении сервер восстанавливает
|
|
|
95 контекст безопасности.
|
|
52
|
96
|
|
230
|
97 C<IMPL::Web::Security::Session> Объект обеспечивающий сохранение состояния в рамках одной сессии
|
|
180
|
98 пользователя. Кроме контекста безопасности хранит дополнительние данные, которые необходимо
|
|
|
99 сохранить между обработкой запросов.
|
|
52
|
100
|
|
230
|
101 C<IMPL::Web::Security::User> Объект, устанавливающий связь между идентификатором пользователя
|
|
180
|
102 C<IMPL::Security::Principal>, его ролями и данными безопасности для создания объектов
|
|
|
103 аутентификации C<IMPL::Security::Auth>.
|
|
52
|
104
|
|
73
|
105 =head1 MEMBERS
|
|
52
|
106
|
|
180
|
107 =cut
|
