Доработать маленький скрипт на Perl

Настройка сервера/ПОЗакрыт4 заявки265 просмотров
Найдите исполнителя для вашего проекта прямо сейчас!
Разместите заказ на фриланс-бирже и предложения поступят уже через несколько минут.

Вот сам скрипт

my $hcnt = 0;

foreach my $k_ip (keys %summary) {

if ( ($summary{$k_ip} * $time_k) >= $ddos_limit ){

print "Banned - $k_ip\t\t with ". $summary{$k_ip}*$time_k ." hist per minute\n";

system("/sbin/ipfw table 80 add ". $k_ip);

$hcnt ++;

}

}

print "\n";

print "Total banned - $hcnt hosts\n";

print "======================\n";

print "\n";

Нужно сделать так, чтобы он заносил в бан все ip, которые возращают ошибку 444 (канал забивается слишком много запросов, я хочу отсекать их на уровне файерволла а не nginx).

NginxPerl
12 лет назад
Devider
37 летРоссия
16 лет в сервисе
Был
год назад