Catalyst::Controller::RateLimit - Protect your site from robots
See $VERSION
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 ... }
Protects critical parts of your site from robots.
Returns Algorithm::FloodControl object.
Andrey Kostenko, <andrey at kostenko.name>
<andrey at kostenko.name>
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.
bug-catalyst-plugin-stoprobots at rt.cpan.org
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
Copyright 2008 Andrey Kostenko.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Catalyst::Controller::RateLimit, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Catalyst::Controller::RateLimit
CPAN shell
perl -MCPAN -e shell install Catalyst::Controller::RateLimit
For more information on module installation, please visit the detailed CPAN module installation guide.