diff options
-rwxr-xr-x | jamaldo.pl | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -68,6 +68,7 @@ sub get_album my $artist_name; my $album_name; my $dir; + my $aid_fh; my $i; my $track; @@ -99,6 +100,10 @@ sub get_album undef($artist_name); undef($album_name); + open($aid_fh, ">", $dir . "/album-id"); + printf($aid_fh "%d\n" $album_id); + close($aid_fh); + $i = 0; for $track (@{$res_data->{"results"}}) { printf(" Downloading track %d of %d...\n", ++$i, |