Я пытаюсь написать отдельное приложение на Perl, в котором перечислены все мои задачи, хранящиеся в Google Tasks. Меня заставили поверить, что я могу использовать то, что Google называет «простым доступом к API», потому что это только мои задачи, и они доступны только для чтения.
Итак, я сделал следующее.:
#!perl
use LWP;
my $browser = LWP::UserAgent->new;
my $list = "Iyrhxu8sRTVOhE4hUBr4W1kwNTI6MDow";
my $key = "<api key removed>";
my $url = "https://www.googleapis.com/tasks/v1/lists/$list/tasks?pp=1&key=$key";
print $browser->get($url)->content;
Взамен я получил:
{
"error": {
"errors": [
{
"domain": "global",
"reason": "required",
"message": "Login Required",
"locationType": "header",
"location": "Authorization"
}
],
"code": 401,
"message": "Login Required"
}
}
К сожалению, я понятия не имею, какое разрешение ему требуется на данный момент. Я попытался заменить последнюю строку на:
my $auth = "...";
print $browser->get($url, "Authorization", $auth)->content;
и использовать идентификатор клиента, адрес электронной почты и секрет клиента, указанные в Google, указанные в консоли API -, но все они дали Invalid Credentials
.
Кто-нибудь может помочь?