$iptables=          '/sbin/iptables';

# тоже iptables, но после сохранения изменений

$iptables_save=     '/sbin/iptables-save';

# исходные значения iptables

$iptables_restore=  '/sbin/iptables-restore';

# файл конфигураций iptables

$cfgfile=           '/etc/sysconfig/iptables';

open(LFILE, "<$watchfile"); # открываем лог на чтение

%tries=();      # количество попыток для IP

%blocked=();    # уже заблокированных IP

# восстанавливаем конфигурацию, это нужно для того, чтобы «устаревшие» IP-адреса не оставались запрещенными

`$iptables_restore < $cfgfile`;

# получаем уже заблокированные IP-адреса из iptables

open(IPTPIPE, "$iptables -L -v -n|");

$blockChain=0;

while (<IPTPIPE>){

  $blockChain=1 if (/^Chain block (d+ references)$/);

  next unless $blockChain;

  last if (/^$/ );

  $blocked{$1}=1 if (/(d+.d+.d+.d+)/);

}

close IPTPIPE;

# преобразуем в строку

$blk_ips=join(", ",keys(%blocked));

# отправляем сообщение syslog

syslog('warning',"sshwatch.pl started. currently blocked ip's are: $blk_ips");

# просматриваем /var/log/messages