Здравствуйте,
On 2011-02-08 10:46, Nazarkin Andrew N. wrote:
> Коллеги!
> А нет ли человеческого инструмента для управления временно
> заблокированными IP ?
> В перле не силен, признаюсь сразу.
> С трудом осилил получение списка заблокированных IP :
>
> #!/usr/bin/perl -w
> use CLI;
> $CGServerAddress = "10.10.10.10";
> my $Login = "postmaster\@domain.ru";
> my $Password = "pass";
> chomp $Password;
> my $cli = new CGP::CLI( { PeerAddr => $CGServerAddress,
> PeerPort => 106,
> login => $Login,
> password => $Password,
> SecureLogin => 0} )
> || die "Can't login to CGPro: ".$CGP::ERR_STRING."\n";
> my $gettempblacklistedips=$cli->GetTempBlacklistedIPs;
> die "\nError " . $cli->getErrMessage . "(".$cli->getErrCode.")
> Gettting Blacklisted IPS\n"
> unless ($gettempblacklistedips);
> # print " $_\n" foreach(@$gettempblacklistedips);
> print $cli->GetTempBlacklistedIPs;
>
> Нашел в примерах:
> SetTempBlacklistedIPs(IPs)
> Example:
>
> my $data=$cli->GetTempBlacklistedIPs();
> if($cli->isSuccess) {
> $data .="\\e11.22.33.44\\e22.33.44.55";
Тут через пробел после адреса надо ещё указать TTL в секундах (* - если блокировать всегда.)
> $cli->SetTempBlacklistedIPs($data);
> } else {
> die "Error: ".$cli->getErrMessage.", quitting";
> }
> Как долилить до моих нужд - вообще без понятия :(
Сделать из этого CGI скрипт.
> Мне собственно нужна возможность выгрузки/правки/загрузки блокированных
> IP в/из файла.
>
> P.S. Жалко, что в админке не предусмотрели волшебной кнопки "получить
> список" - поправить - "загрузить список"...
> Но к разработчикам обращаться бесполезно - не раз пробовал, благодарили,
> обещали включить в следующий релиз и...
>
> А так получается, что данный список практически неуправляемый. И время
> от времени в него, к примеру, попадают вообще адреса из локалки.
Если они не должны попадать туда вообще никогда, то их разумно было бы добавить в белый список.
> Может,
> из-за того, что пароль неправильно вводили, может, еще из-за чего...
> Поди разберись...
>
>
-- Best regards, Dmitry Akindinov -- Stalker Labs.Получено Tue Feb 08 08:24:54 2011
Этот архив был сгенерирован hypermail 2.1.8 : Fri 24 Apr 2015 - 16:17:09 MSK