view release on metacpan or  search on metacpan

script/block-web-flooders  view on Meta::CPAN

    lacks_pattern => [],
    period => 300,
    block_period => 86400,
    whitelist_ip => [],
    # ports => [80, 443],
    spanel_site => undef,
);
my %Whitelisted; # key = ip address

my $Dbh;
my %Blocked; # key = ip address, value = unix time (time blocked)

my %Ips; # key = ip address, value = expiring array

tie my @Messages, "Tie::Array::Expire", 15;

sub read_config {
    require Config::IOD::Reader;

    my $iod = Config::IOD::Reader->new();
    for my $dir ("$ENV{HOME}/.config", $ENV{HOME}, "/etc") {