michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-03-20 16:50:24 +00:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

More gracefully handle missing MD5 module

Browse Source
This commit is contained in:
Jamie Cameron
2018-05-25 16:11:03 -07:00
parent 309580da7d
commit bfaa5ba983
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
acl/acl-lib.pl
View File

@@ -1801,6 +1801,7 @@ sub hash_session_id
{
my ($sid) = @_;
my $use_md5 = &md5_perl_module();
$use_md5 || &error("No Perl MD5 hashing module found!");
if (!$hash_session_id_cache{$sid}) {
if ($use_md5) {
# Take MD5 hash
@@ -1823,6 +1824,7 @@ sub hash_md5_session
{
my ($passwd) = @_;
my $use_md5 = &md5_perl_module();
$use_md5 || &error("No Perl MD5 hashing module found!");
# Add the password
my $ctx = eval "new $use_md5";