version 1.53, 2019/05/14 13:39:18
|
version 1.54, 2019/08/25 02:43:09
|
Line 955 sub create_password {
|
Line 955 sub create_password {
|
my ($udom) = @_; |
my ($udom) = @_; |
my %passwdconf = &Apache::lonnet::get_passwdconf($udom); |
my %passwdconf = &Apache::lonnet::get_passwdconf($udom); |
my ($min,$max,@chars); |
my ($min,$max,@chars); |
|
$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'}; |