Mercurial > pub > Impl

comparison Lib/IMPL/Web/Security.pm @ 233:3cebcf6fdb9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring, cleaning code
author sergey
date Thu, 11 Oct 2012 04:53:08 +0400
parents 5c82eec23bb6
children 23daf2fae33a
comparison
equal deleted inserted replaced
232:5c82eec23bb6 233:3cebcf6fdb9b
8 NotImplementedException => '-IMPL::NotImplementedException', 8 NotImplementedException => '-IMPL::NotImplementedException',
9 SecurityContext => 'IMPL::Security::AbstractContext' 9 SecurityContext => 'IMPL::Security::AbstractContext'
10 }, 10 },
11 }; 11 };
12 12
13 use constant {
14 ERR_NO_SUCH_USER => -1,
15 ERR_NO_SEC_DATA => -2,
16 ERR_AUTH_FAIL => -3
17 };
18
13 sub AuthUser { 19 sub AuthUser {
14 my ($this,$name,$package,$challenge) = @_; 20 my ($this,$name,$package,$challenge) = @_;
15 21
16 my $user = $this->FindUserByName($name) 22 my $user = $this->FindUserByName($name)
17 or return { status => AUTH_FAIL, answer => "Can't find a user '$name'" }; 23 or return {
24 status => AUTH_FAIL,
25 code => ERR_NO_SUCH_USER
26 };
18 27
19 my $auth; 28 my $auth;
20 if ( my $secData = $user->GetSecData($package) ) { 29 if ( my $secData = $user->GetSecData($package) ) {
21 $auth = $package->new($secData); 30 $auth = $package->new($secData);
22 } else { 31 } else {
23 return { 32 return {
24 status => AUTH_FAIL, 33 status => AUTH_FAIL,
34 code => ERR_NO_SEC_DATA,
25 user => $user 35 user => $user
26 }; 36 };
27 } 37 }
28 38
29 my $status = SecurityContext->current->authority->InitSession( 39 my $status = SecurityContext->current->authority->InitSession(
32 [$user->roles] 42 [$user->roles]
33 ); 43 );
34 44
35 return { 45 return {
36 status => $status, 46 status => $status,
47 code => ($status == AUTH_FAIL ? ERR_AUTH_FAIL : 0),
37 user => $user 48 user => $user
38 }; 49 };
39 } 50 }
40 51
41 sub FindUserByName { 52 sub FindUserByName {
91 102
92 =back 103 =back
93 104
94 =head1 MEMBERS 105 =head1 MEMBERS
95 106
107 =head2 C<AuthUser($name,$package,$challenge)>
108
109 Инициирует создание новой сессии используя провайдера безопасности текущего
110 контекста безопасности.
111
112 =over
113
114 =item C<$name>
115
116 Имя пользователя, которое будет использоваться при поиске его в БД.
117
118 =item C<$package>
119
120 Имя модуля аутентификации, например, C<IMPL::Security::Auth::Simple>.
121
122 =item C<$challenge>
123
124 Данные, полученные от клиента, которые будут переданы модулю аутентификации для
125 начала процесса аутентификации и создания сессии.
126
127 =back
128
129 Функция возвращает хеш с элементами
130
131 =over
132
133 =item C<status>
134
135 Статус аутентификации - отражает общее состояние процесса ацтентификации,
136
137 =over
138
139 =item C<AUTH_FAIL>
140
141 Аутентификация неудачная, сессия не создана.
142
143 =item C<AUTH_INCOMPLETE>
144
145 Аутентификация требует дополнительных шагов, сессия создана, но еще не доверена.
146
147 =item C<AUTH_SUCCESS>
148
149 Аутентификация успешно проведена, сессия создана.
150
151 =back
152
153 =item C<code>
154
155 =back
156
96 =cut 157 =cut