Ballad of an Addict

	if ($errorcode eq "401"){
	$usersessions{$attacker}++;
		if ($usersessions{$attacker} > $threshold){
		&blockattacker unless ($blockattacker{$attacker});
		next;
		}
	}
}
sub blockattacker {
$blockattacker{$attacker} = $attacker;
print "ALERT!  $usersessions{$attacker} attacks from $attacker\n";

open (BLOCKFILE, "$blockfile");
@banned=;
close BLOCKFILE;

open (BLOCKFILE, ">$blockfile");
	flock(BLOCKFILE, 2);
	foreach $banned(@banned)  {
		chomp $banned;
		print BLOCKFILE "$banned\n" unless ($banned eq $attacker);
		}
	print BLOCKFILE "$attacker\n" unless ($attacker eq "");
	flock(BLOCKFILE, 8);
	close (BLOCKFILE);