mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
Fix to speed up checking domains and users
This commit is contained in:
12
forgot.cgi
12
forgot.cgi
@ -32,14 +32,10 @@ my ($muser, $muserdom);
|
|||||||
if (!$wuser && $link{'muser'}) {
|
if (!$wuser && $link{'muser'}) {
|
||||||
# Probably Virtualmin mail user, so try to find it
|
# Probably Virtualmin mail user, so try to find it
|
||||||
&foreign_require("virtual-server");
|
&foreign_require("virtual-server");
|
||||||
foreach my $d (&virtual_server::list_domains()) {
|
my $d = &virtual_server::get_user_domain(lc($link{'muser'}));
|
||||||
my @users =
|
if ($d) {
|
||||||
&virtual_server::list_domain_users($d, 0, 0, 0, 0, 1);
|
my @u = &virtual_server::list_domain_users($d, 0, 0, 1, 1, 0);
|
||||||
($muser) = grep { $_->{'user'} eq lc($link{'muser'}) } @users;
|
($muser) = grep { $_->{'user'} eq lc($link{'muser'}) } @u;
|
||||||
if ($muser) {
|
|
||||||
$muserdom = $d;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -33,11 +33,10 @@ my $muser;
|
|||||||
if (!$wuser && &foreign_check("virtual-server")) {
|
if (!$wuser && &foreign_check("virtual-server")) {
|
||||||
# Probably in Virtualmin, so try to find the user
|
# Probably in Virtualmin, so try to find the user
|
||||||
&foreign_require("virtual-server");
|
&foreign_require("virtual-server");
|
||||||
foreach my $d (&virtual_server::list_domains()) {
|
my $d = &virtual_server::get_user_domain(lc($in{'forgot'}));
|
||||||
my @users =
|
if ($d) {
|
||||||
&virtual_server::list_domain_users($d, 0, 0, 0, 0, 1);
|
my @u = &virtual_server::list_domain_users($d, 0, 0, 1, 1, 0);
|
||||||
($muser) = grep { $_->{'user'} eq lc($in{'forgot'}) } @users;
|
($muser) = grep { $_->{'user'} eq lc($in{'forgot'}) } @u;
|
||||||
last if ($muser);
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user