File Coverage

blib/lib/Plack/Middleware/Antibot/Static.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	7	8	87.5
condition	8	11	72.7
subroutine	6	6	100.0
pod	2	2	100.0
total	57	61	93.4

package Plack::Middleware::Antibot::Static;

use strict;
use warnings;

use parent 'Plack::Middleware::Antibot::FilterBase';

use Plack::Session;

sub new {
    my $self = shift->SUPER::new(@_);
    my (%params) = @_;

    $self->{path}         = $params{path}         || '/antibot.gif';
    $self->{session_name} = $params{session_name} || 'antibot_static';
    $self->{timeout}      = $params{timeout}      || 60 * 15;
    $self->{score}        = $params{score}        || 0.9;

    return $self;
}

sub execute {
    my $self = shift;
    my ($env) = @_;

    if ($env->{REQUEST_METHOD} eq 'GET') {
        my $path_info = $env->{PATH_INFO};

        if ($path_info eq $self->{path}) {
            my $session = Plack::Session->new($env);
            $session->set($self->{session_name} => time);

            return [200, [], ['']];
        }

        $env->{'plack.antibot.static.path'} = $self->{path};
        $env->{'plack.antibot.static.html'} = qq{
          . qq{width="1" height="1" style="display:none" />};
    }
    elsif ($env->{REQUEST_METHOD} eq 'POST') {
        my $session = Plack::Session->new($env);

        my $static_fetched = $session->get($self->{session_name});
        unless ($static_fetched && time - $static_fetched < $self->{timeout}) {
            $env->{'plack.antibot.static.detected'}++;
        }
    }

    return;
}

1;
__END__