NAME
WebService::DeathByCaptcha - DeathByCaptcha Recaptcha API
SYNOPSIS
my
$dbc
= WebService::DeathByCaptcha->new(
username
=>
'dbc_user'
,
password
=>
'dbc_pass'
,
);
my
$dbc_res
=
$dbc
->recaptcha({
googlekey
=>
'6Le-wvkSAAAAAPBMRTvw0Q4Muexq9bi0DJwx_mJ-'
,
# 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.