diff --git a/squid/edit_nauth.cgi b/squid/edit_nauth.cgi index 764ff0566..296e31c86 100755 --- a/squid/edit_nauth.cgi +++ b/squid/edit_nauth.cgi @@ -10,7 +10,7 @@ our (%text, %in, %access, $squid_version, %config, $module_name); require './squid-lib.pl'; if ($config{'crypt_conf'} == 1) { - eval "use MD5"; + eval "use Digest::MD5"; if ($@) { &error(&text('eauth_nomd5', $module_name)); } diff --git a/squid/save_nuser.cgi b/squid/save_nuser.cgi index 8abef7ecc..24936282e 100755 --- a/squid/save_nuser.cgi +++ b/squid/save_nuser.cgi @@ -9,7 +9,7 @@ no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, $module_name); require './squid-lib.pl'; if ($config{'crypt_conf'} == 1) { - eval "use MD5"; + eval "use Digest::MD5"; if ($@) { &error(&text('eauth_nomd5', $module_name)); } diff --git a/squid/useradmin_update.pl b/squid/useradmin_update.pl index 4d5cc6c0f..c6efbaa15 100755 --- a/squid/useradmin_update.pl +++ b/squid/useradmin_update.pl @@ -13,7 +13,7 @@ sub useradmin_create_user my ($uinfo) = @_; return if (!$config{'sync_create'}); if ($config{'crypt_conf'} == 1) { - eval "use MD5"; + eval "use Digest::MD5"; return if ($@); } return if ($uinfo->{'passmode'} != 3); @@ -78,7 +78,7 @@ sub useradmin_modify_user my ($uinfo) = @_; return if (!$config{'sync_modify'}); if ($config{'crypt_conf'} == 1) { - eval "use MD5"; + eval "use Digest::MD5"; return if ($@); } my $conf = &get_config();