if ($cli->SetDomainSettings(domain => $Domain, settings => $Settings )) {
} else {
print "Can't set $Domain set Right1 : ".$cli->getErrMessage;
}
my $userName;
# Sort the list by keys (user names) and process each list entry
foreach $userName (sort keys %$accountList) {
my $user=$userName."\@"."$Domain";
print "user=$user\n";
$Settings1=$cli->GetAccountSettings($user);
@$Settings1{'AccessModes'}='';
if ($cli->SetAccountSettings($user,$Settings1))
{
$cli->UpdateAccountSettings($user,$Settings1);
} else {
print "Can't set $Domain set Right : ".$cli->getErrMessage;
}
}
$cli->Logout; # Close the CLI session and disconnect
Внешне всё работает замечательно, галочки на доступ все убираются, но реально в учётные записи пускает и по HTTP так и по POP.
Когда же через Web-интерфейс захожу, нажимаю кнопку "Модифицировать" (при этом ничего не меняя), всё - блокировка срабатывает.