comparison Lib/IMPL/Web/Handler/SecureCookie.pm @ 254:fb52014f6931

updated web-session creation
author sergey
date Thu, 06 Dec 2012 19:58:42 +0400
parents 23daf2fae33a
children 4ac39b9e2ca4
comparison
equal deleted inserted replaced
253:0a228a35645c 254:fb52014f6931
84 } 84 }
85 85
86 sub InitSession { 86 sub InitSession {
87 my ($this,$user,$roles,$auth,$challenge) = @_; 87 my ($this,$user,$roles,$auth,$challenge) = @_;
88 88
89 my ($status,$answer) = $auth->DoAuth($challenge); 89 my ($status,$answer);
90
91 if ($auth) {
92 ($status,$answer) = $auth->DoAuth($challenge);
93 } else {
94 $status = AUTH_SUCCESS;
95 }
90 96
91 die OperationException->new("This provider doesn't support multiround auth") 97 die OperationException->new("This provider doesn't support multiround auth")
92 if ($status == AUTH_INCOMPLETE || $answer); 98 if ($status == AUTH_INCOMPLETE || $answer);
93 99
94 if ($status == AUTH_SUCCESS) { 100 if ($status == AUTH_SUCCESS) {
108 rolesAssigned => $roles 114 rolesAssigned => $roles
109 ); 115 );
110 116
111 $context->Apply(); 117 $context->Apply();
112 118
113 $this->_manager->SaveSession($context);
114 } 119 }
115 120
116 return $status; 121 return $status;
117 } 122 }
118 123
172 =head2 C<[get,set] salt> 177 =head2 C<[get,set] salt>
173 178
174 Скаляр, использующийся для подписи данных. 179 Скаляр, использующийся для подписи данных.
175 180
176 181
177 =head2 C<InitSession($user,$auth,$roles)> 182 =head2 C<InitSession($user,$roles,$auth,$challenge)>
183
184 Инициирует сессию, поскольку данный модуль отвечает за взаимодействие с клиентом
185 при проверки аутентификации, ему передаются данные аутентификации для
186 продолжения обмена данными с клиентом. Если создается новая сессия, по
187 инициативе веб-приложения, то C<$auth> должно быть пусто.
178 188
179 =cut 189 =cut