Mercurial > pub > Impl
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 { |