Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Advice for moving forward with modules

by zengargoyle (Deacon)
on Feb 28, 2003 at 02:20 UTC ( #239322=note: print w/ replies, xml ) Need Help??

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} }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://239322]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2014-09-20 22:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (163 votes), past polls