Help for this page

Select Code to Download


  1. or download this
    # untested, but close.
$blocked = Cache::FileCache->new(
...
deny_access if is_blocked('192.168.254.1');
unblock('192.168.254.1');
block('192.168.254.13', 'never');  # block forever!
  2. or download this
    $is_blocked = $dbh->prepare('
SELECT 1 FROM blocks WHERE
...
16842752    4294901760   (1.1.0.0 255.255.0.0)

will block everything under 1.1.0.0/16
  3. or download this
    tie %blocks, 'Tie::Foo', 'the_block_file';
sub block { $blocks{shift} = 1 }
sub unblock { delete $blocks{shift} }
sub is_blocked { exists $blocks{shift} }