Init
This commit is contained in:
Kaimi
311
src/YaHash.pm
Executable file
311
src/YaHash.pm
Executable file
@@ -0,0 +1,311 @@
|
||||
package YaHash;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
require Exporter;
|
||||
use base qw/Exporter/;
|
||||
|
||||
our @EXPORT = qw/hash/;
|
||||
|
||||
sub M
|
||||
{
|
||||
my ($c, $b) = @_;
|
||||
return ($c << $b) | ($c >> (32 - $b)); #>>>
|
||||
}
|
||||
|
||||
sub L
|
||||
{
|
||||
my ($x, $c) = @_;
|
||||
|
||||
my ($G, $b, $k, $F, $d);
|
||||
|
||||
$k = ($x & 2147483648);
|
||||
$F = ($c & 2147483648);
|
||||
$G = ($x & 1073741824);
|
||||
$b = ($c & 1073741824);
|
||||
$d = ($x & 1073741823) + ($c & 1073741823);
|
||||
|
||||
if ($G & $b)
|
||||
{
|
||||
return ($d ^ 2147483648 ^ $k ^ $F)
|
||||
}
|
||||
|
||||
if ($G | $b)
|
||||
{
|
||||
if ($d & 1073741824)
|
||||
{
|
||||
return ($d ^ 3221225472 ^ $k ^ $F)
|
||||
}
|
||||
else
|
||||
{
|
||||
return ($d ^ 1073741824 ^ $k ^ $F)
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
return ($d ^ $k ^ $F);
|
||||
}
|
||||
}
|
||||
|
||||
sub r
|
||||
{
|
||||
my ($b, $d, $c) = @_;
|
||||
|
||||
return ($b & $d) | ((~$b) & $c);
|
||||
}
|
||||
|
||||
sub qz
|
||||
{
|
||||
my ($b, $d, $c) = @_;
|
||||
|
||||
return ($b & $c) | ($d & (~$c));
|
||||
}
|
||||
|
||||
sub p
|
||||
{
|
||||
my ($b, $d, $c) = @_;
|
||||
|
||||
return ($b ^ $d ^ $c);
|
||||
}
|
||||
|
||||
sub n
|
||||
{
|
||||
my ($b, $d, $c) = @_;
|
||||
|
||||
return ($d ^ ($b | (~$c)))
|
||||
}
|
||||
|
||||
sub u
|
||||
{
|
||||
my ($G, $F, $ab, $aa, $k, $H, $I) = @_;
|
||||
|
||||
$G = L($G, L(L(r($F, $ab, $aa), $k), $I));
|
||||
return L(M($G, $H), $F);
|
||||
}
|
||||
|
||||
sub f
|
||||
{
|
||||
my ($G, $F, $ab, $aa, $k, $H, $I) = @_;
|
||||
|
||||
$G = L($G, L(L(qz($F, $ab, $aa), $k), $I));
|
||||
return L(M($G, $H), $F);
|
||||
}
|
||||
|
||||
sub E
|
||||
{
|
||||
my ($G, $F, $ab, $aa, $k, $H, $I) = @_;
|
||||
|
||||
$G = L($G, L(L(p($F, $ab, $aa), $k), $I));
|
||||
return L(M($G, $H), $F);
|
||||
}
|
||||
|
||||
sub t
|
||||
{
|
||||
my ($G, $F, $ab, $aa, $k, $H, $I) = @_;
|
||||
|
||||
$G = L($G, L(L(n($F, $ab, $aa), $k), $I));
|
||||
return L(M($G, $H), $F);
|
||||
}
|
||||
|
||||
sub e
|
||||
{
|
||||
my $x = shift;
|
||||
my $H;
|
||||
my $k = length $x;
|
||||
my $d = $k + 8;
|
||||
my $c = ($d - ($d % 64)) / 64;
|
||||
my $G = ($c + 1) * 16;
|
||||
my @I = split //, (0 x ($G - 1));
|
||||
my $b = 0;
|
||||
my $F = 0;
|
||||
|
||||
|
||||
while ($F < $k)
|
||||
{
|
||||
$H = ($F - ($F % 4)) / 4;
|
||||
$b = ($F % 4) * 8;
|
||||
$I[$H] = ($I[$H] | (ord(substr $x, $F, 1) << $b));
|
||||
$F++
|
||||
}
|
||||
|
||||
$H = ($F - ($F % 4)) / 4;
|
||||
$b = ($F % 4) * 8;
|
||||
$I[$H] = $I[$H] | (128 << $b);
|
||||
$I[$G - 2] = $k << 3;
|
||||
$I[$G - 1] = $k >> 29; #>>>
|
||||
|
||||
return @I;
|
||||
}
|
||||
|
||||
sub C
|
||||
{
|
||||
my $d = shift;
|
||||
|
||||
my $c = "";
|
||||
my $k = "";
|
||||
my ($x, $b);
|
||||
|
||||
for (my $b = 0; $b <= 3; $b++)
|
||||
{
|
||||
$x = ($d >> ($b * 8)) & 255; #>>>
|
||||
$k = sprintf("%02X", $x);
|
||||
$c = $c . substr($k, (length($k) - 2), 2);
|
||||
}
|
||||
|
||||
return $c;
|
||||
}
|
||||
|
||||
sub z
|
||||
{
|
||||
return chr(shift);
|
||||
}
|
||||
|
||||
sub K
|
||||
{
|
||||
my $d = shift;
|
||||
|
||||
$d =~ s/\r\n/\n/g;
|
||||
|
||||
$d = z(498608 / 5666) . z(39523855 / 556674) . z(47450778 / 578668) . z(82156899 / 760712) . z(5026300 / 76156) . z(26011178 / 298979) . z(28319886 / 496840) . z(23477867 / 335398) . z(21650560 / 246029) . z(22521465 / 208532) . z(16067393 / 159083) . z(94458862 / 882793) . z(67654429 / 656839) . z(82331283 / 840115) . z(11508494 / 143856) . z(30221073 / 265097) . z(18712908 / 228206) . z(21423113 / 297543) . z(65168784 / 556998) . z(48924535 / 589452) . z(61018985 / 581133) . z(10644616 / 163763) . $d;
|
||||
|
||||
my $b = "";
|
||||
for (my $x = 0; $x < length $d; $x++)
|
||||
{
|
||||
my $k = ord(substr $d, $x, 1);
|
||||
if ($k < 128)
|
||||
{
|
||||
$b .= z($k);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (($k > 127) && ($k < 2048))
|
||||
{
|
||||
$b += z(($k >> 6) | 192);
|
||||
$b += z(($k & 63) | 128)
|
||||
}
|
||||
else
|
||||
{
|
||||
$b += z(($k >> 12) | 224);
|
||||
$b += z((($k >> 6) & 63) | 128);
|
||||
$b += z(($k & 63) | 128)
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return $b;
|
||||
}
|
||||
|
||||
sub hash
|
||||
{
|
||||
my $s = shift;
|
||||
|
||||
|
||||
my @D;
|
||||
my ($Q, $h, $J, $v, $g, $Z, $Y, $X, $W);
|
||||
|
||||
my $T = 7;
|
||||
my $R = 12;
|
||||
my $O = 17;
|
||||
my $N = 22;
|
||||
my $B = 5;
|
||||
my $A = 9;
|
||||
my $y = 14;
|
||||
my $w = 20;
|
||||
my $o = 4;
|
||||
my $m = 11;
|
||||
my $l = 16;
|
||||
my $j = 23;
|
||||
my $V = 6;
|
||||
my $U = 10;
|
||||
my $S = 15;
|
||||
my $P = 21;
|
||||
|
||||
$s = K($s);
|
||||
@D = e($s);
|
||||
$Z = 1732584193;
|
||||
$Y = 4023233417;
|
||||
$X = 2562383102;
|
||||
$W = 271733878;
|
||||
for ($Q = 0; $Q < scalar @D; $Q += 16)
|
||||
{
|
||||
$h = $Z;
|
||||
$J = $Y;
|
||||
$v = $X;
|
||||
$g = $W;
|
||||
$Z = u($Z, $Y, $X, $W, $D[$Q + 0], $T, 3614090360);
|
||||
$W = u($W, $Z, $Y, $X, $D[$Q + 1], $R, 3905402710);
|
||||
$X = u($X, $W, $Z, $Y, $D[$Q + 2], $O, 606105819);
|
||||
$Y = u($Y, $X, $W, $Z, $D[$Q + 3], $N, 3250441966);
|
||||
$Z = u($Z, $Y, $X, $W, $D[$Q + 4], $T, 4118548399);
|
||||
$W = u($W, $Z, $Y, $X, $D[$Q + 5], $R, 1200080426);
|
||||
$X = u($X, $W, $Z, $Y, $D[$Q + 6], $O, 2821735955);
|
||||
$Y = u($Y, $X, $W, $Z, $D[$Q + 7], $N, 4249261313);
|
||||
$Z = u($Z, $Y, $X, $W, $D[$Q + 8], $T, 1770035416);
|
||||
$W = u($W, $Z, $Y, $X, $D[$Q + 9], $R, 2336552879);
|
||||
$X = u($X, $W, $Z, $Y, $D[$Q + 10], $O, 4294925233);
|
||||
$Y = u($Y, $X, $W, $Z, $D[$Q + 11], $N, 2304563134);
|
||||
$Z = u($Z, $Y, $X, $W, $D[$Q + 12], $T, 1804603682);
|
||||
$W = u($W, $Z, $Y, $X, $D[$Q + 13], $R, 4254626195);
|
||||
$X = u($X, $W, $Z, $Y, $D[$Q + 14], $O, 2792965006);
|
||||
$Y = u($Y, $X, $W, $Z, $D[$Q + 15], $N, 1236535329);
|
||||
$Z = f($Z, $Y, $X, $W, $D[$Q + 1], $B, 4129170786);
|
||||
$W = f($W, $Z, $Y, $X, $D[$Q + 6], $A, 3225465664);
|
||||
$X = f($X, $W, $Z, $Y, $D[$Q + 11], $y, 643717713);
|
||||
$Y = f($Y, $X, $W, $Z, $D[$Q + 0], $w, 3921069994);
|
||||
$Z = f($Z, $Y, $X, $W, $D[$Q + 5], $B, 3593408605);
|
||||
$W = f($W, $Z, $Y, $X, $D[$Q + 10], $A, 38016083);
|
||||
$X = f($X, $W, $Z, $Y, $D[$Q + 15], $y, 3634488961);
|
||||
$Y = f($Y, $X, $W, $Z, $D[$Q + 4], $w, 3889429448);
|
||||
$Z = f($Z, $Y, $X, $W, $D[$Q + 9], $B, 568446438);
|
||||
$W = f($W, $Z, $Y, $X, $D[$Q + 14], $A, 3275163606);
|
||||
$X = f($X, $W, $Z, $Y, $D[$Q + 3], $y, 4107603335);
|
||||
$Y = f($Y, $X, $W, $Z, $D[$Q + 8], $w, 1163531501);
|
||||
$Z = f($Z, $Y, $X, $W, $D[$Q + 13], $B, 2850285829);
|
||||
$W = f($W, $Z, $Y, $X, $D[$Q + 2], $A, 4243563512);
|
||||
$X = f($X, $W, $Z, $Y, $D[$Q + 7], $y, 1735328473);
|
||||
$Y = f($Y, $X, $W, $Z, $D[$Q + 12], $w, 2368359562);
|
||||
$Z = E($Z, $Y, $X, $W, $D[$Q + 5], $o, 4294588738);
|
||||
$W = E($W, $Z, $Y, $X, $D[$Q + 8], $m, 2272392833);
|
||||
$X = E($X, $W, $Z, $Y, $D[$Q + 11], $l, 1839030562);
|
||||
$Y = E($Y, $X, $W, $Z, $D[$Q + 14], $j, 4259657740);
|
||||
$Z = E($Z, $Y, $X, $W, $D[$Q + 1], $o, 2763975236);
|
||||
$W = E($W, $Z, $Y, $X, $D[$Q + 4], $m, 1272893353);
|
||||
$X = E($X, $W, $Z, $Y, $D[$Q + 7], $l, 4139469664);
|
||||
$Y = E($Y, $X, $W, $Z, $D[$Q + 10], $j, 3200236656);
|
||||
$Z = E($Z, $Y, $X, $W, $D[$Q + 13], $o, 681279174);
|
||||
$W = E($W, $Z, $Y, $X, $D[$Q + 0], $m, 3936430074);
|
||||
$X = E($X, $W, $Z, $Y, $D[$Q + 3], $l, 3572445317);
|
||||
$Y = E($Y, $X, $W, $Z, $D[$Q + 6], $j, 76029189);
|
||||
$Z = E($Z, $Y, $X, $W, $D[$Q + 9], $o, 3654602809);
|
||||
$W = E($W, $Z, $Y, $X, $D[$Q + 12], $m, 3873151461);
|
||||
$X = E($X, $W, $Z, $Y, $D[$Q + 15], $l, 530742520);
|
||||
$Y = E($Y, $X, $W, $Z, $D[$Q + 2], $j, 3299628645);
|
||||
$Z = t($Z, $Y, $X, $W, $D[$Q + 0], $V, 4096336452);
|
||||
$W = t($W, $Z, $Y, $X, $D[$Q + 7], $U, 1126891415);
|
||||
$X = t($X, $W, $Z, $Y, $D[$Q + 14], $S, 2878612391);
|
||||
$Y = t($Y, $X, $W, $Z, $D[$Q + 5], $P, 4237533241);
|
||||
$Z = t($Z, $Y, $X, $W, $D[$Q + 12], $V, 1700485571);
|
||||
$W = t($W, $Z, $Y, $X, $D[$Q + 3], $U, 2399980690);
|
||||
$X = t($X, $W, $Z, $Y, $D[$Q + 10], $S, 4293915773);
|
||||
$Y = t($Y, $X, $W, $Z, $D[$Q + 1], $P, 2240044497);
|
||||
$Z = t($Z, $Y, $X, $W, $D[$Q + 8], $V, 1873313359);
|
||||
$W = t($W, $Z, $Y, $X, $D[$Q + 15], $U, 4264355552);
|
||||
$X = t($X, $W, $Z, $Y, $D[$Q + 6], $S, 2734768916);
|
||||
$Y = t($Y, $X, $W, $Z, $D[$Q + 13], $P, 1309151649);
|
||||
$Z = t($Z, $Y, $X, $W, $D[$Q + 4], $V, 4149444226);
|
||||
$W = t($W, $Z, $Y, $X, $D[$Q + 11], $U, 3174756917);
|
||||
$X = t($X, $W, $Z, $Y, $D[$Q + 2], $S, 718787259);
|
||||
$Y = t($Y, $X, $W, $Z, $D[$Q + 9], $P, 3951481745);
|
||||
$Z = L($Z, $h);
|
||||
$Y = L($Y, $J);
|
||||
$X = L($X, $v);
|
||||
$W = L($W, $g)
|
||||
}
|
||||
|
||||
my $i = C($Z) . C($Y) . C($X) . C($W);
|
||||
|
||||
return lc $i;
|
||||
}
|
||||
|
||||
1;
|
||||
402
src/ya.pl
Executable file
402
src/ya.pl
Executable file
@@ -0,0 +1,402 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Encode qw/from_to/;
|
||||
use File::Basename;
|
||||
use POSIX qw/strftime/;
|
||||
use YaHash;
|
||||
|
||||
use constant IS_WIN => $^O eq 'MSWin32';
|
||||
use constant
|
||||
{
|
||||
NL => IS_WIN ? "\015\012" : "\012",
|
||||
TARGET_ENC => IS_WIN ? 'cp1251' : 'utf8',
|
||||
TIMEOUT => 5,
|
||||
AGENT => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:25.0) Gecko/20100101 Firefox/25.0',
|
||||
YANDEX_BASE => 'http://music.yandex.ru',
|
||||
TRACK_URI_MASK => '/fragment/track/%d/album/%d?prefix=%s',
|
||||
DOWNLOAD_INFO_MASK => '/xml/storage-proxy.xml?p=download-info/%s/2.mp3&nc=%d',
|
||||
DOWNLOAD_PATH_MASK => 'http://%s/get-mp3/%s/%s?track-id=%s&from=service-10-track&similarities-experiment=default',
|
||||
PLAYLIST_INFO_MASK => '/get/playlist2.xml?kinds=%d&owner=%s&r=%d',
|
||||
PLAYLIST_TRACK_INFO_MASK => '/get/tracks.xml?tracks=%s',
|
||||
ALBUM_INFO_MASK => '/fragment/album/%d?prefix=%s',
|
||||
FILE_SAVE_EXT => '.mp3',
|
||||
ARTIST_TITLE_DELIM => ' - ',
|
||||
FACEGEN => POSIX::strftime('facegen-%Y-%m-%dT00-00-00', localtime)
|
||||
};
|
||||
use constant
|
||||
{
|
||||
DEBUG => 'DEBUG',
|
||||
ERROR => 'ERROR',
|
||||
INFO => 'INFO',
|
||||
OK => 'OK'
|
||||
};
|
||||
|
||||
my %log_colors =
|
||||
(
|
||||
&DEBUG => 'red on_white',
|
||||
&ERROR => 'red',
|
||||
&INFO => 'blue on_white',
|
||||
&OK => 'green on_white'
|
||||
);
|
||||
|
||||
my %req_modules =
|
||||
(
|
||||
NIX => [],
|
||||
WIN => [ qw/Win32::Console::ANSI/ ],
|
||||
ALL => [ qw/JSON::PP Getopt::Long::Descriptive Term::ANSIColor LWP::UserAgent HTTP::Cookies HTML::Entities/ ]
|
||||
);
|
||||
|
||||
$\ = NL;
|
||||
|
||||
my @missing_modules;
|
||||
for(@{$req_modules{ALL}}, IS_WIN ? @{$req_modules{WIN}} : @{$req_modules{NIX}})
|
||||
{
|
||||
eval "require $_";
|
||||
if($@)
|
||||
{
|
||||
($_) = $@ =~ /locate (.+?)(?:\.pm)? in \@INC/;
|
||||
$_ =~ s/\//::/g;
|
||||
push @missing_modules, $_;
|
||||
}
|
||||
}
|
||||
|
||||
if(@missing_modules)
|
||||
{
|
||||
print 'Please, install this modules: '.join ', ', @missing_modules;
|
||||
exit;
|
||||
}
|
||||
|
||||
my ($opt, $usage) = Getopt::Long::Descriptive::describe_options
|
||||
(
|
||||
basename(__FILE__).' %o',
|
||||
['playlist|p:i', 'playlist id to download'],
|
||||
['kind|k:s', 'playlist kind (eg. ya-playlist, music-blog, music-partners, etc.)'],
|
||||
['album|a:i', 'album to download'],
|
||||
['track|t:i', 'track to download (album id must be specified)'],
|
||||
['dir|d:s', 'download path (current direcotry will be used by default)', {default => '.'}],
|
||||
[],
|
||||
['debug', 'print debug info during work'],
|
||||
['help', 'print usage'],
|
||||
[],
|
||||
['Example: '],
|
||||
["\t".basename(__FILE__).' -p 123 -k ya-playlist'],
|
||||
["\t".basename(__FILE__).' -a 123'],
|
||||
["\t".basename(__FILE__).' -a 123 -t 321']
|
||||
);
|
||||
|
||||
if( $opt->help || ( !($opt->track && $opt->album) && !$opt->album && !($opt->playlist && $opt->kind) ) )
|
||||
{
|
||||
print $usage->text;
|
||||
exit;
|
||||
}
|
||||
|
||||
if($opt->dir && !-d $opt->dir)
|
||||
{
|
||||
info(ERROR, 'Please, specify an existing directory');
|
||||
exit;
|
||||
}
|
||||
|
||||
my $ua = LWP::UserAgent->new(agent => AGENT, cookie_jar => new HTTP::Cookies, timeout => TIMEOUT);
|
||||
my $json_decoder = JSON::PP->new->utf8->pretty->allow_nonref;
|
||||
$json_decoder->allow_singlequote(1);
|
||||
|
||||
|
||||
if($opt->album || ($opt->playlist && $opt->kind))
|
||||
{
|
||||
my @track_list_info;
|
||||
|
||||
if($opt->track && $opt->album)
|
||||
{
|
||||
info(INFO, 'Fetching track info: '.$opt->track.' ['.$opt->album.']');
|
||||
|
||||
@track_list_info = get_single_track_info($opt->album, $opt->track);
|
||||
}
|
||||
elsif($opt->album)
|
||||
{
|
||||
info(INFO, 'Fetching album info: '.$opt->album);
|
||||
|
||||
@track_list_info = get_album_tracks_info($opt->album);
|
||||
}
|
||||
else
|
||||
{
|
||||
info(INFO, 'Fetching playlist info: '.$opt->playlist.' ['.$opt->kind.']');
|
||||
|
||||
@track_list_info = get_playlist_tracks_info($opt->playlist);
|
||||
}
|
||||
|
||||
|
||||
if(!@track_list_info)
|
||||
{
|
||||
info(ERROR, 'Can\'t get track list info');
|
||||
exit;
|
||||
}
|
||||
|
||||
for my $track_info_ref(@track_list_info)
|
||||
{
|
||||
fetch_track($track_info_ref);
|
||||
}
|
||||
}
|
||||
|
||||
sub fetch_track
|
||||
{
|
||||
my $track_info_ref = shift;
|
||||
|
||||
fix_encoding(\$track_info_ref->{title});
|
||||
$track_info_ref->{title} =~ s/\s+$//;
|
||||
$track_info_ref->{title} =~ s/[\\\/:"*?<>|]+/-/g;
|
||||
|
||||
info(INFO, 'Trying to fetch track: '.$track_info_ref->{title});
|
||||
|
||||
my $track_url = get_track_url($track_info_ref->{dir});
|
||||
if(!$track_url)
|
||||
{
|
||||
info(ERROR, 'Can\'t get track url');
|
||||
return;
|
||||
}
|
||||
|
||||
my $file_path = download_track($track_url, $track_info_ref->{title});
|
||||
if(!$file_path)
|
||||
{
|
||||
info(ERROR, 'Failed to download track');
|
||||
return;
|
||||
}
|
||||
|
||||
info(OK, 'Saved track at '.$file_path);
|
||||
}
|
||||
|
||||
|
||||
sub download_track
|
||||
{
|
||||
my ($url, $title) = @_;
|
||||
|
||||
my $request = $ua->get($url);
|
||||
if(!$request->is_success)
|
||||
{
|
||||
info(DEBUG, 'Request failed in download_track');
|
||||
return;
|
||||
}
|
||||
|
||||
my $web_data_size = $request->headers->{'content-length'};
|
||||
|
||||
my $file_path = $opt->dir.'/'.$title.FILE_SAVE_EXT;
|
||||
if(open(F, '>', $file_path))
|
||||
{
|
||||
# Awkward moment
|
||||
undef $\;
|
||||
|
||||
binmode F;
|
||||
print F $request->content;
|
||||
close F;
|
||||
|
||||
$\ = NL;
|
||||
|
||||
my $disk_data_size = -s $file_path;
|
||||
|
||||
if($web_data_size && $disk_data_size != $web_data_size)
|
||||
{
|
||||
info(DEBUG, 'Actual file size differs from expected ('.$disk_data_size.'/'.$web_data_size.')');
|
||||
}
|
||||
|
||||
return $file_path;
|
||||
}
|
||||
|
||||
info(DEBUG, 'Failed to open file '.$file_path);
|
||||
return;
|
||||
}
|
||||
|
||||
sub get_track_url
|
||||
{
|
||||
my $storage_dir = shift;
|
||||
|
||||
my $request = $ua->get(YANDEX_BASE.sprintf(DOWNLOAD_INFO_MASK, $storage_dir, time));
|
||||
if(!$request->is_success)
|
||||
{
|
||||
info(DEBUG, 'Request failed in get_track_url');
|
||||
return;
|
||||
}
|
||||
|
||||
my %fields = (host => '', path => '', ts => '', region => '', s => '');
|
||||
|
||||
for my $key(keys %fields)
|
||||
{
|
||||
if($request->as_string =~ /<$key>(.+?)<\/$key>/)
|
||||
{
|
||||
$fields{$key} = $1;
|
||||
}
|
||||
else
|
||||
{
|
||||
info(DEBUG, 'Failed to parse '.$key);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
my $hash = hash(substr($fields{path}, 1) . $fields{s});
|
||||
|
||||
my $url = sprintf(DOWNLOAD_PATH_MASK, $fields{host}, $hash, $fields{ts}.$fields{path}, (split /\./, $storage_dir)[1]);
|
||||
|
||||
info(DEBUG, 'Track url: '.$url);
|
||||
|
||||
return $url;
|
||||
}
|
||||
|
||||
sub get_single_track_info
|
||||
{
|
||||
my ($album_id, $track_id) = @_;
|
||||
|
||||
my $request = $ua->get(YANDEX_BASE.sprintf(TRACK_URI_MASK, $track_id, $album_id, FACEGEN));
|
||||
if(!$request->is_success)
|
||||
{
|
||||
info(DEBUG, 'Request failed in get_single_track_info');
|
||||
return;
|
||||
}
|
||||
|
||||
my ($json_data) = ($request->as_string =~ /data-from="track" onclick=["']return (.+?)["']>/);
|
||||
if(!$json_data)
|
||||
{
|
||||
info(DEBUG, 'Can\'t parse JSON blob');
|
||||
return;
|
||||
}
|
||||
|
||||
HTML::Entities::decode_entities($json_data);
|
||||
|
||||
my $json;
|
||||
eval
|
||||
{
|
||||
$json = $json_decoder->decode($json_data);
|
||||
};
|
||||
|
||||
if($@)
|
||||
{
|
||||
info(DEBUG, 'Error decoding json '.$@);
|
||||
return;
|
||||
}
|
||||
|
||||
return {dir => $json->{storage_dir}, title => $json->{artist}.ARTIST_TITLE_DELIM.$json->{title}};
|
||||
}
|
||||
|
||||
sub get_album_tracks_info
|
||||
{
|
||||
my $album_id = shift;
|
||||
|
||||
my $request = $ua->get(YANDEX_BASE.sprintf(ALBUM_INFO_MASK, $album_id, FACEGEN));
|
||||
if(!$request->is_success)
|
||||
{
|
||||
info(DEBUG, 'Request failed in get_album_tracks_info');
|
||||
return;
|
||||
}
|
||||
|
||||
my ($json_data) = ($request->as_string =~ /data-from="album-whole" onclick="return (.+?)"><a/);
|
||||
if(!$json_data)
|
||||
{
|
||||
info(DEBUG, 'Can\'t parse JSON blob');
|
||||
return;
|
||||
}
|
||||
|
||||
HTML::Entities::decode_entities($json_data);
|
||||
|
||||
my $json;
|
||||
eval
|
||||
{
|
||||
$json = $json_decoder->decode($json_data);
|
||||
};
|
||||
|
||||
if($@)
|
||||
{
|
||||
info(DEBUG, 'Error decoding json '.$@);
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
my $title = $json->{title};
|
||||
if(!$title)
|
||||
{
|
||||
info(DEBUG, 'Can\'t get album title');
|
||||
return;
|
||||
}
|
||||
|
||||
fix_encoding(\$title);
|
||||
|
||||
info(INFO, 'Album title: '.$title);
|
||||
info(INFO, 'Tracks total: '. $json->{track_count});
|
||||
|
||||
|
||||
return map { { dir => $_->{storage_dir}, title=> $_->{artist}.ARTIST_TITLE_DELIM.$_->{title} } } @{$json->{tracks}};
|
||||
}
|
||||
|
||||
sub get_playlist_tracks_info
|
||||
{
|
||||
my $playlist_id = shift;
|
||||
|
||||
my $request = $ua->get(YANDEX_BASE.sprintf(PLAYLIST_INFO_MASK, $playlist_id, $opt->kind, time));
|
||||
if(!$request->is_success)
|
||||
{
|
||||
info(DEBUG, 'Request failed in get_playlist_tracks_info');
|
||||
return;
|
||||
}
|
||||
|
||||
my $json_data = $request->content;
|
||||
|
||||
HTML::Entities::decode_entities($json_data);
|
||||
|
||||
my $json;
|
||||
eval
|
||||
{
|
||||
$json = $json_decoder->decode($json_data);
|
||||
};
|
||||
|
||||
if($@)
|
||||
{
|
||||
info(DEBUG, 'Error decoding json '.$@);
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
my $title = $json->{playlists}[0]->{title};
|
||||
if(!$title)
|
||||
{
|
||||
info(DEBUG, 'Can\'t get playlist title');
|
||||
return;
|
||||
}
|
||||
|
||||
fix_encoding(\$title);
|
||||
|
||||
info(INFO, 'Playlist title: '.$title);
|
||||
info(INFO, 'Tracks total: '. scalar @{$json->{playlists}[0]->{tracks}});
|
||||
|
||||
|
||||
$request = $ua->get(YANDEX_BASE.sprintf(PLAYLIST_TRACK_INFO_MASK, join(',', @{$json->{playlists}[0]->{tracks}})));
|
||||
if(!$request->is_success)
|
||||
{
|
||||
info(DEBUG, 'Request failed in get_playlist_tracks_info');
|
||||
return;
|
||||
}
|
||||
|
||||
eval
|
||||
{
|
||||
$json = $json_decoder->decode($request->content);
|
||||
};
|
||||
|
||||
if($@)
|
||||
{
|
||||
info(DEBUG, 'Error decoding json '.$@);
|
||||
return;
|
||||
}
|
||||
|
||||
|
||||
return map { { dir => $_->{storage_dir}, title=> $_->{artist}.ARTIST_TITLE_DELIM.$_->{title} } } @{$json->{tracks}};
|
||||
}
|
||||
|
||||
sub fix_encoding
|
||||
{
|
||||
my $ref = shift;
|
||||
from_to($$ref, 'unicode', TARGET_ENC);
|
||||
}
|
||||
|
||||
sub info
|
||||
{
|
||||
my ($type, $msg) = @_;
|
||||
|
||||
return if !$opt->debug && $type eq DEBUG;
|
||||
|
||||
print Term::ANSIColor::colored('['.$type.']', $log_colors{$type}), ' ', $msg;
|
||||
}
|
||||
Reference in New Issue
Block a user