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

Support policy ordering, and max age in days.

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

20
Webperl/AuthMethod.pm
View File

@ -51,6 +51,17 @@ sub new {
"failcount_message" => $self -> {"nofailcount_message"} || $self -> {"settings"} -> {"config"} -> {"AuthMethod::nofailcount_message"}, "failcount_message" => $self -> {"nofailcount_message"} || $self -> {"settings"} -> {"config"} -> {"AuthMethod::nofailcount_message"},
}; };
# Set the default order of policy rules reported to the user
$self -> {"set_policy_order"} = ['policy_min_length',
'policy_min_lowercase',
'policy_min_uppercase',
'policy_min_digits',
'policy_min_other',
'policy_min_entropy',
'policy_use_cracklib',
'policy_max_passwordage',
'policy_max_loginfail' ];
return $self; return $self;
} }
@ -228,7 +239,7 @@ sub set_password {
# #
# 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.
@ -373,7 +384,12 @@ sub get_policy {
# And a hash slice from those keys. # And a hash slice from those keys.
@policy{@policy_keys} = @$self{@policy_keys}; @policy{@policy_keys} = @$self{@policy_keys};
return scalar(%policy) ? \%policy : undef; if(scalar(%policy)) {
$policy{"policy_order"} = $self -> {"set_policy_order"};
return \%policy;
}
return undef;
} }