loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.137, 2019/08/22 00:11:04	version 1.1075.2.138, 2019/08/25 22:56:14
Line 3175 sub check_passwd_rules {	Line 3175 sub check_passwd_rules {
my ($domain,$plainpass) = @_;	my ($domain,$plainpass) = @_;
my %passwdconf = &Apache::lonnet::get_passwdconf($domain);	my %passwdconf = &Apache::lonnet::get_passwdconf($domain);
my ($min,$max,@chars,@brokerule,$warning);	my ($min,$max,@chars,@brokerule,$warning);
	$min = $Apache::lonnet::passwdmin;
if (ref($passwdconf{'chars'}) eq 'ARRAY') {	if (ref($passwdconf{'chars'}) eq 'ARRAY') {
if ($passwdconf{'min'} =~ /^\d+$/) {	if ($passwdconf{'min'} =~ /^\d+$/) {
$min = $passwdconf{'min'};	if ($passwdconf{'min'} > $min) {
	$min = $passwdconf{'min'};
	}
}	}
if ($passwdconf{'max'} =~ /^\d+$/) {	if ($passwdconf{'max'} =~ /^\d+$/) {
$max = $passwdconf{'max'};	$max = $passwdconf{'max'};
}	}
@chars = @{$passwdconf{'chars'}};	@chars = @{$passwdconf{'chars'}};
} else {
$min = 7;
}	}
if (($min) && (length($plainpass) < $min)) {	if (($min) && (length($plainpass) < $min)) {
push(@brokerule,'min');	push(@brokerule,'min');