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