Fix to stop using MD5 module that was deprecated

This commit is contained in:
Ilia Ross
2025-03-14 14:42:49 +02:00
parent 45ef8d11c1
commit f2307ae1fa
3 changed files with 4 additions and 4 deletions

View File

@@ -10,7 +10,7 @@ our (%text, %in, %access, $squid_version, %config, $module_name);
require './squid-lib.pl'; require './squid-lib.pl';
if ($config{'crypt_conf'} == 1) { if ($config{'crypt_conf'} == 1) {
eval "use MD5"; eval "use Digest::MD5";
if ($@) { if ($@) {
&error(&text('eauth_nomd5', $module_name)); &error(&text('eauth_nomd5', $module_name));
} }

View File

@@ -9,7 +9,7 @@ no warnings 'uninitialized';
our (%text, %in, %access, $squid_version, %config, $module_name); our (%text, %in, %access, $squid_version, %config, $module_name);
require './squid-lib.pl'; require './squid-lib.pl';
if ($config{'crypt_conf'} == 1) { if ($config{'crypt_conf'} == 1) {
eval "use MD5"; eval "use Digest::MD5";
if ($@) { if ($@) {
&error(&text('eauth_nomd5', $module_name)); &error(&text('eauth_nomd5', $module_name));
} }

View File

@@ -13,7 +13,7 @@ sub useradmin_create_user
my ($uinfo) = @_; my ($uinfo) = @_;
return if (!$config{'sync_create'}); return if (!$config{'sync_create'});
if ($config{'crypt_conf'} == 1) { if ($config{'crypt_conf'} == 1) {
eval "use MD5"; eval "use Digest::MD5";
return if ($@); return if ($@);
} }
return if ($uinfo->{'passmode'} != 3); return if ($uinfo->{'passmode'} != 3);
@@ -78,7 +78,7 @@ sub useradmin_modify_user
my ($uinfo) = @_; my ($uinfo) = @_;
return if (!$config{'sync_modify'}); return if (!$config{'sync_modify'});
if ($config{'crypt_conf'} == 1) { if ($config{'crypt_conf'} == 1) {
eval "use MD5"; eval "use Digest::MD5";
return if ($@); return if ($@);
} }
my $conf = &get_config(); my $conf = &get_config();