michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-10-21 11:40:40 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

If the DBM belongs to a user, open it with that user's permissions

Browse Source
This commit is contained in:
Jamie Cameron
2026-10-10 15:51:39 -07:00
parent 2259de1962
commit 32d20fe18c
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
spam/spam-lib.pl
View File

@@ -1034,15 +1034,23 @@ return $awp;
# 0 if it could not be opened, or -1 if empty.
sub open_auto_whitelist_dbm
{
local ($user) = @_;
local $awp = &get_auto_whitelist_file($user);
my ($user) = @_;
my $awp = &get_auto_whitelist_file($user);
return 0 if (!$awp);
local $anyok;
foreach my $cls ('DB_File', 'GDBM_File', 'SDBM_File') {
$@ = undef;
eval "use $cls";
next if ($@);
tie(%awl, $cls, $awp, O_RDWR, 0755) || next;
my $ok;
if ($user && $user ne "root") {
$ok = &eval_as_unix_user($user,
sub { return tie(%awl, $cls, $awp, O_RDWR, 0755) });
}
else {
$ok = tie(%awl, $cls, $awp, O_RDWR, 0755);
}
next if (!$ok);
if (scalar(keys %awl)) {
return 1;
}