eleksir/yadproxy
0
Fork 0
Code Activity

Add perlcritic stuff :)

Browse Source
This commit is contained in:
eleksir
2021-05-30 14:30:00 +03:00
parent 0c147086c0
commit e655c11e0b
13 changed files with 127 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/yad_index_repo.pl
View File

@@ -96,7 +96,7 @@ my %month = (
'09' => 'Sep',
'10' => 'Oct',
'11' => 'Nov',
'12' => 'Dec'
'12' => 'Dec',
);
foreach (@{$list}) {
@@ -135,7 +135,7 @@ foreach (@{$list}) {
}
} else {
warn "Yandex.Диск API вернуло неполные данные для $filename";
warn "Yandex.Диск API вернуло неполные данные для $filename\n";
}
}
}

2
bin/yad_refresh_token.pl
View File

@@ -47,7 +47,7 @@ if (defined $refresh_token) {
$cache->set ('refresh_token', $token->{refresh_token}, 'never');
$cache->set ('access_token', $token->{access_token}, $token->{expires_in} - 60);
} else {
die "В локальной базе нет refresh token, возможно, для начала следует запустить yad_get_token.pl";
die "В локальной базе нет refresh token, возможно, для начала следует запустить yad_get_token.pl\n";
}
exit 0;

3
bin/yad_show_token.pl
View File

@@ -39,8 +39,7 @@ my $access_token = $cache->get ('access_token');
if (defined $refresh_token && defined $access_token) {
printf "access_token:\n%s\n\nrefresh_token:\n%s\n", $access_token, $refresh_token;
} else {
say "Что-то пошло не так, токены не нашлись, попробуйте их пере-получить через скрипт yad_get_token.pl";
exit 1;
die "Что-то пошло не так, токены не нашлись, попробуйте их пере-получить через скрипт yad_get_token.pl\n";
}
exit 0;

3
bin/yad_upload_dir.pl
View File

@@ -70,7 +70,7 @@ sub wanted {
unless (defined $targets{$target}) {
unless ($disk->createFolder (-path => $target, -recursive => 1)) {
die "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске";
die "Невозможно создать каталог $c->{remote_dir} на Yandex.Диске\n";
}
$targets{$target} = 1;
@@ -86,4 +86,5 @@ sub wanted {
}
sleep 3;
return;
}