eleksir/yadproxy
0
Fork 0
Code Activity

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

Browse Source 
* Добавлены 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
Download Patch File Download Diff File Expand all files Collapse all files

36
lib/Yandex/Disk.pm
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 = @_;