drwxrwxr-x. 7 apache apache 79 Jun 1 2020 .
drwxrwxr-x. 9 root root 120 Oct 18 09:41 ..
drwxrwsr-x. 17 wwadmin apache 4096 Jan 21 14:13 courses
drwxrwsr-x. 3 wwadmin apache 42 Jun 1 2020 libraries
drwxrwsr-x. 11 wwadmin apache 4096 Jun 1 2020 MathJax
drwxrwsr-x. 7 wwadmin wwadmin 165 Jun 1 2020 pg
drwxrwsr-x. 15 wwadmin apache 4096 Oct 22 11:55 webwork2
Error message is attached, any assistance is greatly appreciated!
Looking at Utils.pm, this is the offending section of code:
sub cryptPassword($) {
my ($clearPassword) = @_;
#Use an SHA512 salt with 16 digits
my $salt = '$6$';
for (my $i=0; $i<16; $i++) {
$salt .= ('.','/','0'..'9','A'..'Z','a'..'z')[rand 64];
}
my $cryptPassword = crypt($clearPassword, $salt);
return $cryptPassword;
}
I also see that "use Encode qw(encode_utf8 decode_utf8);" is loaded, might the following modification solve the error?
sub cryptPassword($) {
my ($clearPassword) = @_;
$clearPassword = encode_utf8($clearPassword);
#Use an SHA512 salt with 16 digits
my $salt = '$6$';
for (my $i=0; $i<16; $i++) {
$salt .= ('.','/','0'..'9','A'..'Z','a'..'z')[rand 64];
}
my $cryptPassword = crypt($clearPassword, $salt);
return $cryptPassword;
}