comparison Lib/IMPL/Web/Security.pm @ 97:964587c5183c

Added SecureCall to Web QueryHandlers stack many bug fixes to Security and Web Application modules
author wizard
date Tue, 04 May 2010 04:04:37 +0400
parents 79bf75223afe
children 0e72ad99eef7
comparison
equal deleted inserted replaced
96:4c55aed00ff2 97:964587c5183c
15 } 15 }
16 16
17 sub AuthUser { 17 sub AuthUser {
18 my ($this,$name,$package,$challenge) = @_; 18 my ($this,$name,$package,$challenge) = @_;
19 19
20 my $user = $this->sourceUser->find({name => $name}); 20 my $user = $this->sourceUser->find({name => $name}) or return { status => AUTH_FAIL, answer => "Can't find a user '$name'" };
21 21
22 my $auth; 22 my $auth;
23 if ( my $secData = $user->secData($package) ) { 23 if ( my $secData = $user->secData($package) ) {
24 $auth = $package->new($secData); 24 $auth = $package->new($secData);
25 } else { 25 } else {