loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1332, 2019/05/11 21:34:01	version 1.1334, 2019/11/20 22:53:32
Line 3571 sub check_passwd_rules {	Line 3571 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');
Line 7257 table.LC_prior_tries td {	Line 7258 table.LC_prior_tries td {
padding: 6px;	padding: 6px;
}	}

.LC_answer_unknown {	.LC_answer_unknown,
	.LC_answer_warning {
background: orange;	background: orange;
color: black;	color: black;
padding: 6px;	padding: 6px;