resolve #3
This commit is contained in:
18
src/ya.pl
18
src/ya.pl
@@ -33,7 +33,8 @@ use constant
|
|||||||
URL_ALBUM_REGEX => qr{music\.yandex\.\w+/album/(\d+)}is,
|
URL_ALBUM_REGEX => qr{music\.yandex\.\w+/album/(\d+)}is,
|
||||||
URL_TRACK_REGEX => qr{music\.yandex\.\w+/album/(\d+)/track/(\d+)}is,
|
URL_TRACK_REGEX => qr{music\.yandex\.\w+/album/(\d+)/track/(\d+)}is,
|
||||||
URL_PLAYLIST_REGEX => qr{music\.yandex\.\w+/users/(.+?)/playlists/(\d+)}is,
|
URL_PLAYLIST_REGEX => qr{music\.yandex\.\w+/users/(.+?)/playlists/(\d+)}is,
|
||||||
RESPONSE_LOG_PREFIX => 'log_'
|
RESPONSE_LOG_PREFIX => 'log_',
|
||||||
|
TEST_URL => 'https://api.music.yandex.net/users/ya.playlist/playlists/1'
|
||||||
};
|
};
|
||||||
use constant
|
use constant
|
||||||
{
|
{
|
||||||
@@ -265,6 +266,18 @@ if($opt{album} || ($opt{playlist} && $opt{kind}))
|
|||||||
{
|
{
|
||||||
my @track_list_info;
|
my @track_list_info;
|
||||||
|
|
||||||
|
info(INFO, 'Checking Yandex.Music availability');
|
||||||
|
|
||||||
|
my $request = $ua->get(TEST_URL);
|
||||||
|
if($request->code == 400)
|
||||||
|
{
|
||||||
|
info(ERROR, 'Yandex.Music is not available');
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
info(OK, 'Yandex.Music is available')
|
||||||
|
}
|
||||||
|
|
||||||
if($opt{album})
|
if($opt{album})
|
||||||
{
|
{
|
||||||
info(INFO, 'Fetching album info: ' . $opt{album});
|
info(INFO, 'Fetching album info: ' . $opt{album});
|
||||||
@@ -794,10 +807,11 @@ sub write_mp3_tags
|
|||||||
|
|
||||||
while(my ($frame, $data) = each %{$mp3tags})
|
while(my ($frame, $data) = each %{$mp3tags})
|
||||||
{
|
{
|
||||||
info(DEBUG, 'add_frame: ' . $frame . '=' . substr $data, 0, 16);
|
|
||||||
# Skip empty
|
# Skip empty
|
||||||
if($data)
|
if($data)
|
||||||
{
|
{
|
||||||
|
info(DEBUG, 'add_frame: ' . $frame . '=' . substr $data, 0, 16);
|
||||||
|
|
||||||
$mp3->{ID3v2}->add_frame
|
$mp3->{ID3v2}->add_frame
|
||||||
(
|
(
|
||||||
$frame,
|
$frame,
|
||||||
|
|||||||
Reference in New Issue
Block a user