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

2
test/yad_file_info.pl
View File

@@ -8,6 +8,8 @@ use open qw (:std :utf8);
use English qw ( -no_match_vars );
use version; our $VERSION = qw (1.0);
use Carp qw (croak);
my $workdir;
# сменим рабочий каталог

42
test/yad_file_info_raw.pl Executable file
View File

@@ -0,0 +1,42 @@
#!/usr/bin/perl
use 5.018;
use strict;
use warnings;
use utf8;
use open qw (:std :utf8);
use English qw ( -no_match_vars );
use version; our $VERSION = qw (1.0);
use Carp qw (croak);
my $workdir;
# сменим рабочий каталог
BEGIN {
use Cwd qw (chdir abs_path);
my @CWD = split /\//xms, abs_path ($PROGRAM_NAME);
if ($#CWD > 1) { $#CWD = $#CWD - 2; }
$workdir = join '/', @CWD;
chdir $workdir;
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use YadProxy::Conf qw (LoadConf);
use YadProxy::Lib qw (GetAccessToken);
use Yandex::Disk;
use Data::Dumper;
my $c = LoadConf ();
my $remote_dir = '';
my $file = 'test_file.txt';
if ($c->{remote_dir} && $c->{remote_dir} ne '') {
$remote_dir = $c->{remote_dir};
}
my $disk = Yandex::Disk->new ( -token => GetAccessToken );
say Dumper $disk->fileInfoRaw ( -path => sprintf ('%s/%s', $remote_dir, $file));
__END__
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:

31
test/yad_list_all_files_raw.pl Executable file
View File

@@ -0,0 +1,31 @@
#!/usr/bin/perl
use 5.018;
use strict;
use warnings;
use utf8;
use open qw (:std :utf8);
use English qw ( -no_match_vars );
use version; our $VERSION = qw (1.0);
my $workdir;
# сменим рабочий каталог
BEGIN {
use Cwd qw (chdir abs_path);
my @CWD = split /\//xms, abs_path ($PROGRAM_NAME);
if ($#CWD > 1) { $#CWD = $#CWD - 2; }
$workdir = join '/', @CWD;
chdir $workdir;
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use YadProxy::Lib qw (GetAccessToken);
use Yandex::Disk;
use Data::Dumper;
my $disk = Yandex::Disk->new ( -token => GetAccessToken );
say Dumper $disk->listAllFilesRaw ();
__END__
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:

1
test/yad_upload_file.pl
View File

@@ -25,6 +25,7 @@ use YadProxy::Conf qw (LoadConf);
use YadProxy::Lib qw (GetAccessToken);
use Yandex::Disk;
use Data::Dumper;
use Carp qw (croak);
my $c = LoadConf ();
my $remote_dir = '/';