File Coverage

blib/lib/WebService/Antigate/V2.pm

Criterion	Covered	Total	%
statement	66	84	78.5
branch	25	42	59.5
condition	1	3	33.3
subroutine	9	9	100.0
pod	5	5	100.0
total	106	143	74.1

package WebService::Antigate::V2;

use strict;
use JSON::PP;
use MIME::Base64;
use parent 'WebService::Antigate';

sub new {
	my ($class, %args) = @_;

	# change some defaults
	$args{scheme} = 'https'   unless defined $args{scheme};
	$args{subdomain} = 'api.' unless defined $args{subdomain};

	$class->SUPER::new(%args);
}

sub try_upload {
	my ($self, %opts) = @_;

	if ( defined $opts{file} ) {
		$opts{content} = do {
			local $/;
			open my $fh, '<:raw', $opts{file}
				or Carp::croak "open `$opts{file}': ", $!;
			<$fh>;
		};
	}

	if ( defined $opts{content} ) {
		$opts{body} = encode_base64( $opts{content}, '' );
	}

	if ( defined $opts{body} && !defined $opts{type} ) {
		$opts{type} = 'ImageToTextTask';
	}

	my $response = $self->{ua}->post(
		"$self->{scheme}://$self->{subdomain}$self->{domain}/createTask",
		Content => encode_json {
			clientKey => $self->{key},
			exists $opts{softId} ? ( softId => delete $opts{softId} ) : (),
			exists $opts{languagePool} ? ( languagePool => delete $opts{languagePool} ) : (),
			task => {
				%opts
			}
		}
	);

	unless($response->is_success) {
        $self->{errno}  = 'HTTP_ERROR';
        $self->{errstr} = $response->status_line;
        return undef;
    }

	my $result = decode_json $response->decoded_content;
	if ($result->{errorId}) {
		$self->{errno} = $result->{errorCode};
		$self->{errstr} = $result->{errorDescription};
		return undef;
	}

	return $self->{last_captcha_id} = $result->{taskId};
}

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

    Carp::croak "Captcha id should be specified" unless defined $id;

	my $response = $self->{ua}->post(
		"$self->{scheme}://$self->{subdomain}$self->{domain}/getTaskResult",
		Content => encode_json {
			clientKey => $self->{key},
			taskId    => $id
		}
	);

	unless($response->is_success) {
        $self->{errno}  = 'HTTP_ERROR';
        $self->{errstr} = $response->status_line;
        return undef;
    }

	my $result = decode_json $response->decoded_content;
	if ($result->{errorId}) {
		$self->{errno} = $result->{errorCode};
		$self->{errstr} = $result->{errorDescription};
		return undef;
	}

	if ($result->{status} ne 'ready') {
		$self->{errno}  = 'CAPCHA_NOT_READY';
		$self->{errstr} = 'captcha is not recognized yet';
		return undef;
	}

	for my $key ( qw/text gRecaptchaResponse token/ ) {
		return $result->{solution}{$key} if exists $result->{solution}{$key};
	}

	return $result->{solution};
}

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

    Carp::croak "Captcha id should be specified" unless defined $id;

	my $response = $self->{ua}->post(
		"$self->{scheme}://$self->{subdomain}$self->{domain}/reportIncorrectImageCaptcha",
		Content => encode_json {
			clientKey => $self->{key},
			taskId    => $id
		}
	);

	unless($response->is_success) {
        $self->{errno}  = 'HTTP_ERROR';
        $self->{errstr} = $response->status_line;
        return undef;
    }

	my $result = decode_json $response->decoded_content;
	if ($result->{errorId}) {
		if ($result->{errorCode}) {
			$self->{errno} = $result->{errorCode};
			$self->{errstr} = $result->{errorDescription};
		}
		else {
			$self->{errno} = 'ERROR_NO_SUCH_CAPCHA_ID';
			$self->{errstr} = 'no such captcha id in the database';
		}
		return undef;
	}

	return $result->{status};
}

sub balance {
	my $self = shift;

	my $response = $self->{ua}->post(
		"$self->{scheme}://$self->{subdomain}$self->{domain}/getBalance",
		Content => encode_json {
			clientKey => $self->{key},
		}
	);

	unless($response->is_success) {
        $self->{errno}  = 'HTTP_ERROR';
        $self->{errstr} = $response->status_line;
        return undef;
    }

	my $result = decode_json $response->decoded_content;
	if ($result->{errorId}) {
		$self->{errno} = $result->{errorCode};
		$self->{errstr} = $result->{errorDescription};
		return undef;
	}

	return $result->{balance};
}

1;

__END__