Fix to speed up checking domains and users

This commit is contained in:
Ilia Ross 2025-06-01 10:24:05 +03:00
parent 77b2be8202
commit 2d5768a612
No known key found for this signature in database
GPG Key ID: 121E166DD9C821AB
2 changed files with 8 additions and 13 deletions

View File

@ -32,14 +32,10 @@ my ($muser, $muserdom);
if (!$wuser && $link{'muser'}) {
# Probably Virtualmin mail user, so try to find it
&foreign_require("virtual-server");
foreach my $d (&virtual_server::list_domains()) {
my @users =
&virtual_server::list_domain_users($d, 0, 0, 0, 0, 1);
($muser) = grep { $_->{'user'} eq lc($link{'muser'}) } @users;
if ($muser) {
$muserdom = $d;
last;
}
my $d = &virtual_server::get_user_domain(lc($link{'muser'}));
if ($d) {
my @u = &virtual_server::list_domain_users($d, 0, 0, 1, 1, 0);
($muser) = grep { $_->{'user'} eq lc($link{'muser'}) } @u;
}
}

View File

@ -33,11 +33,10 @@ my $muser;
if (!$wuser && &foreign_check("virtual-server")) {
# Probably in Virtualmin, so try to find the user
&foreign_require("virtual-server");
foreach my $d (&virtual_server::list_domains()) {
my @users =
&virtual_server::list_domain_users($d, 0, 0, 0, 0, 1);
($muser) = grep { $_->{'user'} eq lc($in{'forgot'}) } @users;
last if ($muser);
my $d = &virtual_server::get_user_domain(lc($in{'forgot'}));
if ($d) {
my @u = &virtual_server::list_domain_users($d, 0, 0, 1, 1, 0);
($muser) = grep { $_->{'user'} eq lc($in{'forgot'}) } @u;
}
}