comparison Lib/IMPL/Web/Security.pm @ 231:ff1e8fa932f2

sync
author sergey
date Tue, 09 Oct 2012 03:09:41 +0400
parents 6d8092d8ce1b
children 5c82eec23bb6
comparison
equal deleted inserted replaced
230:6d8092d8ce1b 231:ff1e8fa932f2
27 } 27 }
28 28
29 my ($status,$answer) = $auth->DoAuth($challenge); 29 my ($status,$answer) = $auth->DoAuth($challenge);
30 30
31 if ($status != AUTH_FAIL) { 31 if ($status != AUTH_FAIL) {
32 SecurityContext->current->authority->CreateContext( 32 SecurityContext->current->authority->InitSession(
33 $user, 33 $user,
34 $auth, 34 $auth,
35 [$user->roles], 35 [$user->roles],
36 $answer, 36 $answer
37 $this
38 ); 37 );
39 } 38 }
40 39
41 return { 40 return {
42 status => $status, 41 status => $status,