143 lines
3.3 KiB
Perl
Executable File
143 lines
3.3 KiB
Perl
Executable File
#!/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 File::Basename qw (basename dirname);
|
|
use File::Find qw (find);
|
|
use YadProxy::Conf qw (LoadConf);
|
|
use YadProxy::Lib qw (GetAccessToken);
|
|
use Yandex::Disk;
|
|
|
|
my $c = LoadConf ();
|
|
my $remote_dir = $c->{remote_dir};
|
|
my $index_dir = $c->{index_dir};
|
|
|
|
my $index_url = CHI->new (
|
|
driver => 'BerkeleyDB',
|
|
root_dir => $index_dir,
|
|
namespace => 'url'
|
|
);
|
|
|
|
my $index_size = CHI->new (
|
|
driver => 'BerkeleyDB',
|
|
root_dir => $index_dir,
|
|
namespace => 'size'
|
|
);
|
|
|
|
my $index_md5 = CHI->new (
|
|
driver => 'BerkeleyDB',
|
|
root_dir => $index_dir,
|
|
namespace => 'md5'
|
|
);
|
|
|
|
my $index_sha256 = CHI->new (
|
|
driver => 'BerkeleyDB',
|
|
root_dir => $index_dir,
|
|
namespace => 'sha256'
|
|
);
|
|
|
|
my $index_dirs = CHI->new (
|
|
driver => 'BerkeleyDB',
|
|
root_dir => $index_dir,
|
|
namespace => 'dirs'
|
|
);
|
|
|
|
my $index_mtime = CHI->new (
|
|
driver => 'BerkeleyDB',
|
|
root_dir => $index_dir,
|
|
namespace => 'mtime'
|
|
);
|
|
|
|
my $disk = Yandex::Disk->new ( -token => GetAccessToken );
|
|
|
|
|
|
if (substr ($remote_dir, -1) eq '/') {
|
|
chop $remote_dir;
|
|
}
|
|
|
|
if (substr ($remote_dir, 0, 1) eq '/') {
|
|
$remote_dir = substr $remote_dir, 1;
|
|
}
|
|
|
|
unless (substr ($remote_dir, 0, 6) eq 'disk:/') {
|
|
$remote_dir = sprintf 'disk:/%s/', $remote_dir;
|
|
}
|
|
|
|
my $list = $disk->listAllFiles ( -path => 'REPO' ); # Note that this will give us first 999999 files
|
|
my $pattern = qr /$remote_dir/;
|
|
|
|
my %month = (
|
|
'01' => 'Jan',
|
|
'02' => 'Feb',
|
|
'03' => 'Mar',
|
|
'04' => 'Apr',
|
|
'05' => 'May',
|
|
'06' => 'Jun',
|
|
'07' => 'Jul',
|
|
'08' => 'Aug',
|
|
'09' => 'Sep',
|
|
'10' => 'Oct',
|
|
'11' => 'Nov',
|
|
'12' => 'Dec',
|
|
);
|
|
|
|
foreach (@{$list}) {
|
|
my $filename = $_->{path};
|
|
|
|
if ($filename =~ m/$pattern(.+)/) {
|
|
$filename = $1;
|
|
|
|
if (defined $filename) {
|
|
if (defined $_->{file} && defined $_->{size} && defined $_->{md5} && defined $_->{sha256} && defined $_->{modified}) {
|
|
$index_url->set ($filename, $_->{file}, 'never');
|
|
$index_size->set ($filename, $_->{size}, 'never');
|
|
$index_md5->set ($filename, $_->{md5}, 'never');
|
|
$index_sha256->set ($filename, $_->{sha256}, 'never');
|
|
|
|
my $time = sprintf (
|
|
'%s-%s-%s %s:%s',
|
|
substr ($_->{modified}, 8, 2),
|
|
$month{substr ($_->{modified}, 5, 2)},
|
|
substr ($_->{modified}, 0, 4),
|
|
substr ($_->{modified}, 11, 2),
|
|
substr ($_->{modified}, 14, 2)
|
|
);
|
|
|
|
$index_mtime->set ($filename, $time, 'never');
|
|
my $dir = dirname $filename;
|
|
|
|
if (defined $dir && $dir ne '' && $dir ne '.') {
|
|
my @dirs = split (/\//, $dir);
|
|
|
|
do {
|
|
unless (defined $index_dirs->get (join '/', @dirs)) {
|
|
$index_dirs->set (join ('/', @dirs), 1, 'never');
|
|
}
|
|
} while (pop @dirs);
|
|
}
|
|
|
|
} else {
|
|
warn "Yandex.Диск API вернуло неполные данные для $filename\n";
|
|
}
|
|
}
|
|
}
|
|
}
|