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

Password max age now set in days.

Browse Source
This commit is contained in:
Chris 2013-02-13 17:27:32 +00:00
parent b4173b6fc1
commit 9ce03f0666
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Webperl/AuthMethod/Database.pm
View File

@ -393,7 +393,7 @@ sub mark_loginfail {
# #
# If a password expiration policy is in use, `policy_max_passwordage` should be set # If a password expiration policy is in use, `policy_max_passwordage` should be set
# in the auth_method_params for the applicable authmethods. The parameter should contain # in the auth_method_params for the applicable authmethods. The parameter should contain
# the maximum age of any given password in seconds. If not set, expiration is not # the maximum age of any given password in days. If not set, expiration is not
# enforced. # enforced.
# #
# @param userid The ID of the user to check for password change requirement. # @param userid The ID of the user to check for password change requirement.
@ -415,7 +415,7 @@ sub force_passchange {
# Check for password expiration based on policy settings # Check for password expiration based on policy settings
my $age = time() - ($pass_data -> {"password_set"} || 0); # Handle NULL password_set's sanely my $age = time() - ($pass_data -> {"password_set"} || 0); # Handle NULL password_set's sanely
return 'expired' if($self -> {"policy_max_passwordage"} && ($age > $self -> {"policy_max_passwordage"})); return 'expired' if($self -> {"policy_max_passwordage"} && ($age > ($self -> {"policy_max_passwordage"} * 86400)));
# Check for temporary passwords # Check for temporary passwords
return 'temporary' if($pass_data -> {"force_change"}); return 'temporary' if($pass_data -> {"force_change"});