Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed incorrect fail counting.

Browse Source
This commit is contained in:
Chris 2013-02-18 10:54:41 +00:00
parent 53df2b9491
commit 3e0551a464
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Webperl/AuthMethod/Database.pm
View File

@ -306,7 +306,7 @@ sub set_password {
my $cryptpass = $self -> hash_password($password); my $cryptpass = $self -> hash_password($password);
my $reseth = $self -> {"dbh"} -> prepare("UPDATE ".$self -> {"settings"} -> {"database"} -> {"users"}." my $reseth = $self -> {"dbh"} -> prepare("UPDATE ".$self -> {"settings"} -> {"database"} -> {"users"}."
SET password = ?, password_set = UNIX_TIMESTAMP() SET password = ?, password_set = UNIX_TIMESTAMP(), force_change = 0
WHERE user_id = ?"); WHERE user_id = ?");
my $rows = $reseth -> execute($cryptpass, $userid); my $rows = $reseth -> execute($cryptpass, $userid);
return $self -> self_error("Unable to perform user update: ". $self -> {"dbh"} -> errstr) if(!$rows); return $self -> self_error("Unable to perform user update: ". $self -> {"dbh"} -> errstr) if(!$rows);
@ -393,6 +393,8 @@ sub mark_loginfail {
# Do nothing if limiting is not enabled # Do nothing if limiting is not enabled
return (0, 0) unless($self -> {"policy_max_loginfail"}); return (0, 0) unless($self -> {"policy_max_loginfail"});
# Get and increment the fail counter.
$failcount = $failcount -> [0] || 0;
++$failcount; ++$failcount;
# update the login fail counter # update the login fail counter