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 { |
