Управление временно заблокированными адресами

От: Nazarkin Andrew N. <CGatePro_at_mx_ru>
Дата: Tue 08 Feb 2011 - 10:46:21 MSK

Коллеги!
А нет ли человеческого инструмента для управления временно заблокированными 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";
        $cli->SetTempBlacklistedIPs($data);
      } else {
        die "Error: ".$cli->getErrMessage.", quitting";
      }

Как долилить до моих нужд - вообще без понятия :(

Мне собственно нужна возможность выгрузки/правки/загрузки блокированных IP в/из файла.

P.S. Жалко, что в админке не предусмотрели волшебной кнопки "получить список" - поправить - "загрузить список"... Но к разработчикам обращаться бесполезно - не раз пробовал, благодарили, обещали включить в следующий релиз и...

А так получается, что данный список практически неуправляемый. И время от времени в него, к примеру, попадают вообще адреса из локалки. Может, из-за того, что пароль неправильно вводили, может, еще из-за чего... Поди разберись...

--
Назаркин Андрей Николаевич
Mezhregiongarant.
MRG Life
CIO
email: su@mrglife.ru, su@mrggroup.ru
work tel: (495) 649-3010 #2205
mob. tel: (916) 814-3459
fax: (495) 647-0108 Получено Tue Feb 08 07:46:34 2011