diff options
author | P. J. McDermott <pjm@nac.net> | 2013-10-14 12:28:06 (EDT) |
---|---|---|
committer | P. J. McDermott <pjm@nac.net> | 2013-11-21 03:01:21 (EST) |
commit | 08ea2cfea0ac18953bd3572cd28120456471d629 (patch) | |
tree | e764f6a7e0e3881d8c07f12b8e6b5221d3ab0483 /jamaldo.pl | |
parent | aa96c05b73c7441c7b6cda950c80354a29222bb9 (diff) | |
download | jamaldo-08ea2cfea0ac18953bd3572cd28120456471d629.zip jamaldo-08ea2cfea0ac18953bd3572cd28120456471d629.tar.gz jamaldo-08ea2cfea0ac18953bd3572cd28120456471d629.tar.bz2 |
Use track number from API response.
Also, replace all "/" characters in the track name.
Diffstat (limited to 'jamaldo.pl')
-rwxr-xr-x | jamaldo.pl | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -105,14 +105,14 @@ sub get_album for $track (@{$res_data->{"results"}}) { printf(" Downloading track %d of %d...\n", ++$i, $res_data->{"headers"}->{"results_count"}); - get_track($track, $i, $audioformat, $dir, $control_fh); + get_track($track, $audioformat, $dir, $control_fh); } close($control_fh); } sub get_track { - my ($track, $track_number, $audioformat, $dir, $control_fh) = @_; + my ($track, $audioformat, $dir, $control_fh) = @_; my $name; my $req; my $res; @@ -120,8 +120,8 @@ sub get_track $name = $track->{"name"}; printf(" Title: %s\n", $name); - $name =~ s|/|-|; - $name = sprintf("%s/%02d - %s.%s", $dir, $track_number, $name, + $name =~ s|/|-|g; + $name = sprintf("%s/%02d - %s.%s", $dir, $track->{"position"}, $name, $audioformat); $req = HTTP::Request->new("GET", $track->{"audio"}); $res = $ua->request($req, $name); @@ -136,7 +136,7 @@ sub get_track printf($control_fh "Title: %s\n", $track->{"name"}); printf($control_fh "Album: %s\n", $track->{"album_name"}); - printf($control_fh "Track number: %d\n", $track_number); + printf($control_fh "Track number: %d\n", $track->{"position"}); printf($control_fh "Artist: %s\n", $track->{"artist_name"}); printf($control_fh "License: %s\n", $track->{"license_ccurl"}); printf($control_fh "Date: %s\n", $track->{"releasedate"}); |