NAME

Catalyst::Controller::RateLimit - Protect your site from robots

VERSION

See $VERSION

SYNOPSIS

Protects your site from flood, robots and spam.

    package MyApp::Controller::Post;
    use parent qw/Catalyst::Controller::RateLimit Catalyst::Controller/; 
        # Catalyst::Controller is not required, but i think, it will look better if you include it
    __PACKAGE__->config(
        rate_limit_backend_name => 'Cache::Memcached::Fast', 
        # ^- Optional. Only if your module is not Cache::Memcached::Fast child, but has the same behavior.
        rate_limit => {
            default => [
                {
                    attempts => 30,
                    period => 3600,
                }, {
                    attempts => 5,
                    period => 60,
                }
            ]
        }
    );
    sub login_form : Local { #Only check
        my ( $self, $c ) = @_;
        my $is_overrated = $self->flood_control->is_user_overrated( $c->user->login || $c->request->address );
        if ( $is_overrated ) {
            $c->forward( 'show_captcha' );
        }
        #...
    }
    sub login : Local { #Check and register attempt
        my ( $self, $c ) = @_;
        if ( $self->flood_control->register_attempt( $c->user->login || $c->request->address ) ) {
            # checking for CAPTCHA
        }
        #...
    }
    sub show_captcha : Local { # If user have reached his limits, it is called
        ... code to add captcha to page ...
    }

DESCRIPTION

Protects critical parts of your site from robots.

NOTES

METHODS

AUTHOR

Andrey Kostenko, "<andrey at kostenko.name>"

BUGS

Please report any bugs or feature requests to "bug-catalyst-plugin-stoprobots at rt.cpan.org", or through the web interface at <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-Controller-RateLimit>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Catalyst::Controller::RateLimit

You can also look for information at:

• RT: CPAN's request tracker

  <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Catalyst-Controller-RateLimit>

• AnnoCPAN: Annotated CPAN documentation

  <http://annocpan.org/dist/Catalyst-Controller-RateLimit>

• CPAN Ratings

  <http://cpanratings.perl.org/d/Catalyst-Controller-RateLimit>

• Search CPAN

  <http://search.cpan.org/dist/Catalyst-Controller-RateLimit>

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2008 Andrey Kostenko.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.