NAME

WebService::DeathByCaptcha - DeathByCaptcha Recaptcha API

SYNOPSIS

use WebService::DeathByCaptcha;

my $dbc = WebService::DeathByCaptcha->new(
    username => 'dbc_user',
    password => 'dbc_pass',
);

my $dbc_res = $dbc->recaptcha({
    googlekey => '6Le-wvkSAAAAAPBMRTvw0Q4Muexq9bi0DJwx_mJ-',
    pageurl => 'https://www.google.com/recaptcha/api2/demo',
    # proxy => "http://user:password@127.0.0.1:1234",
    # proxytype => 'HTTP',
}) or die $dbc->errstr;

die $dbc_res->{error} if $dbc_res->{error};
my $captcha_id = $dbc_res->{captcha};

sleep 60;
my $recaptcha_res;
while (1) {
    $dbc_res = $dbc->get($captcha_id);
    die $dbc_res->{error} if $dbc_res->{error};

    warn Dumper(\$dbc_res);
    if ($dbc_res->{status} eq '0' and $dbc_res->{text}) {
        $recaptcha_res = $dbc_res->{text};
        last;
    } elsif ($dbc_res->{status} eq '0') {
        sleep 5; # another sleep
    } else {
        die; # should never happen
    }
}

# $res = $ua->post('https://www.google.com/recaptcha/api2/demo', Content => [
#     'g-recaptcha-response' => $recaptcha_res,
# ]);

DESCRIPTION

WebService::DeathByCaptcha is for http://www.deathbycaptcha.com/user/api/newtokenrecaptcha

AUTHOR

Fayland Lam <fayland@gmail.com>

COPYRIGHT

Copyright 2017- Fayland Lam

LICENSE

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

SEE ALSO