ukamnya/Redmine-mod-perl-auth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More error handling.

Browse Source
This commit is contained in:
Adirelle 2011-11-14 11:49:34 +01:00
parent 123d9b5b50
commit e45b0d7226
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Redmine.pm
View File

@ -325,7 +325,9 @@ sub authen_handler {
} else {
# Else check them
my $dbh = connect_database($r);
my $dbh = connect_database($r)
or return SERVER_ERROR;
($res, $reason) = check_login($r, $dbh, $password);
$dbh->disconnect();
@ -334,7 +336,9 @@ sub authen_handler {
}
} elsif($res == AUTH_REQUIRED) {
my $dbh = connect_database($r);
my $dbh = connect_database($r)
or return SERVER_ERROR;
my $cfg = get_config($r);
if(!$cfg->{AllowAnonymous} || is_authentication_forced($dbh)) {
@ -566,7 +570,10 @@ sub connect_database {
my $r = shift;
my $cfg = get_config($r);
return DBI->connect($cfg->{DSN}, $cfg->{DbUser}, $cfg->{DbPass});
my $dbh = DBI->connect($cfg->{DSN}, $cfg->{DbUser}, $cfg->{DbPass})
or $r->log->error("Connection to database failed: $DBI::errstr.");
return $dbh;
}
# tell if a value returned from SQL is "true"