0

Изменения для уточнения возможности кэширования ответов yad.

* Добавлены raw-функции, которые возвращают и http-заголовки ответа
yad-а тоже
* Уточнения в README.md и TODO
* Мелкие косметические исправления.
This commit is contained in:
eleksir
2021-08-28 13:19:31 +03:00
parent e655c11e0b
commit cd4a0f5cb4
11 changed files with 172 additions and 28 deletions

View File

@@ -38,7 +38,7 @@ sub GetAccessToken {
}
my $token = RefreshAccessToken ($refresh_token);
# yad обычно выдаёт токен на год, скинем с этого 1 минуту :) чтобы уж точно
# yad обычно выдаёт токен на год, скинем с этого 1 минуту :) чтобы уж точно
$cache->set ('refresh_token', $token->{refresh_token}, 'never');
$cache->set ('access_token', $token->{access_token}, $token->{expires_in} - 60);
$access_token = $token->{access_token};

View File

@@ -225,6 +225,22 @@ sub fileInfo {
return $json_res;
}
sub fileInfoRaw {
my $self = shift;
my %opt = @_;
my $path = $opt{-path} || croak "Specify -path param";
my $param = '?path=' . uri_escape($path);
my $res = $self->__request('https://cloud-api.yandex.net/v1/disk/resources' . $param, 'GET');
my $code = $res->code;
if ($code ne '200') {
croak "Error on fileInfo. Error: " . $res->status_line;
}
return $res;
}
sub listFiles {
my $self = shift;
my %opt = @_;
@@ -265,6 +281,26 @@ sub listAllFiles {
return $json_res->{items};
}
sub listAllFilesRaw {
my $self = shift;
my %opt = @_;
my $limit = $opt{-limit} || 999999;
my $media_type = $opt{-media_type};
my $offset = $opt{-offset};
$offset = 0 if not $offset;
my $param = "?limit=$limit&offset=$offset";
$param .= '&media_type=' . $media_type if $media_type;
my $res = $self->__request('https://cloud-api.yandex.net/v1/disk/resources/files' . $param, 'GET');
my $code = $res->code;
if ($code ne '200') {
croak "Error on listFiles. Error: " . $res->status_line;
}
return $res;
}
sub lastUploadedFiles {
my $self = shift;
my %opt = @_;