9 Oct
2004
9 Oct
'04
1:30 p.m.
On Sat, Oct 09, 2004 at 02:02:51PM +0100, David Cantrell wrote:
Assuming you're running under mod_perl, have a global hash of IPs and scores. Each score is a Tie::Scalar::Decay. For each page hit, check the score for the originating IP, and if above a threshold, system("stuff to filter out all packets from that IP"). Then increment the score.
This would make a great CPAN module ;)