File Coverage

blib/lib/WebService/2Captcha.pm

Criterion	Covered	Total	%
statement	20	94	21.2
branch	0	28	0.0
condition	0	15	0.0
subroutine	7	19	36.8
pod	10	12	83.3
total	37	168	22.0

package WebService::2Captcha;

use strict;
use 5.008_005;
our $VERSION = '0.04';

use Carp 'croak';
use LWP::UserAgent;
use URI;
use MIME::Base64;

use vars qw/$errstr/;
sub errstr { $errstr }

sub new {
    my $class = shift;
    my %args = @_ % 2 ? %{$_[0]} : @_;

    $args{key} or croak "key is required.\n";
    $args{ua} ||= LWP::UserAgent->new;
    $args{url} ||= 'http://2captcha.com/res.php';
    $args{sleep} ||= 3;

    return bless \%args, $class;
}

sub decaptcha {
    my ($self, $file_or_content, %params) = @_;

    my $captcha_id = $self->upload($file_or_content, %params) or return;
    sleep $self->{sleep}; # put a little sleep since that's really not so fast
    while (1) {
        my $text = $self->get($captcha_id);
        if ($text) {
            return {
                text => $text,
                id   => $captcha_id # for reportbad
            };
        }
        if ($self->errstr =~ /CAPCHA_NOT_READY/) {
            sleep $self->{sleep};
        } else {
            return; # just bad
        }
    }
}

sub upload {
    my ($self, $file_or_content, %params) = @_;

    if (-e $file_or_content) {
        open(my $fh, '<', $file_or_content) or croak "Can't open $file_or_content: $!";
        $file_or_content = do {
            local $/;
            <$fh>;
        };
        close($fh);
    }

    my $res = $self->request(
        url => 'http://2captcha.com/in.php',
        __method => 'POST',
        method => 'base64',
        body => encode_base64($file_or_content),
        %params
    );
    if ($res !~ /OK/) {
        $errstr = $res;
        return;
    }
    $res =~ s/^OK\|//;
    return $res;
}

sub get {
    my ($self, $id) = @_;

    my $res = $self->request(action => 'get', id => $id);
    if ($res !~ /OK/) {
        $errstr = $res;
        return;
    }
    $res =~ s/^OK\|//;
    return $res;
}

sub get_multi {
    my ($self, @ids) = @_;

    my $res = $self->request(action => 'get', ids => join(',', @ids));
    return wantarray ? split(/\|/, $res) : $res;
}

sub getbalance {
    my ($self) = @_;

    $self->request(action => 'getbalance');
}

sub reportbad {
    my ($self, $id) = @_;

    $self->request(action => 'reportbad', id => $id);
}

sub getstats {
    my ($self, $date) = @_;

    $self->request(action => 'getstats', date => $date);
}

sub load {
    my ($self) = @_;

    $self->request(url => 'http://2captcha.com/load.php');
}

sub userrecaptcha {
    my ($self, $googlekey, $pageurl) = @_;

    my $res = $self->request(
        url => 'http://2captcha.com/in.php',
        method => 'userrecaptcha',
        googlekey => $googlekey,
        pageurl => $pageurl,
    );
    if ($res !~ /OK/) {
        $errstr = $res;
        return;
    }
    $res =~ s/^OK\|//;
    return $res;
}

sub request {
    my ($self, %params) = @_;

    $params{key} ||= $self->{key};
    my $url = delete $params{url} || $self->{url};

    my $res;
    my $method = delete $params{__method} || 'GET';
    if ($method eq 'POST') {
        $res = $self->{ua}->post($url, \%params);
        unless ($res->is_success) {
            $errstr = "Failed to post $url: " . $res->status_line;
            return;
        }
    } else {
        my $uri = URI->new($url);
        $uri->query_form(%params);
        $res = $self->{ua}->get($uri->as_string);
        unless ($res->is_success) {
            $errstr = "Failed to get " . $uri->as_string . ": " . $res->status_line;
            return;
        }
    }

    # print Dumper(\$res); use Data::Dumper;

    return $res->decoded_content;
}

1;
__END__