Mercurial > pub > Impl

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- a/Lib/IMPL/Web/Security.pm	Fri Apr 30 15:03:38 2010 +0400
+++ b/Lib/IMPL/Web/Security.pm	Tue May 04 04:04:37 2010 +0400
@@ -17,7 +17,7 @@
 sub AuthUser {
 	my ($this,$name,$package,$challenge) = @_;
 	
-	my $user = $this->sourceUser->find({name => $name});
+	my $user = $this->sourceUser->find({name => $name}) or return { status => AUTH_FAIL, answer => "Can't find a user '$name'" };
 	
 	my $auth;	
 	if ( my $secData = $user->secData($package) ) {