0

Add an option to print links to the tracks instead of fetching them

This commit is contained in:
Sergey Alirzaev
2019-08-15 00:01:11 +03:00
parent 466336b857
commit e12231261f

View File

@@ -191,6 +191,7 @@ my ($opt, $usage) = Getopt::Long::Descriptive::describe_options
['Bitrate 320 is available only when subscription is active'], ['Bitrate 320 is available only when subscription is active'],
['and only via mobile API for now (be sure to specify Authorization header value)'], ['and only via mobile API for now (be sure to specify Authorization header value)'],
[], [],
['link|l', 'do not fetch, only print links to the tracks'],
['debug', 'print debug info during work'], ['debug', 'print debug info during work'],
['help', 'print usage'], ['help', 'print usage'],
[], [],
@@ -385,12 +386,17 @@ if($opt{album} || ($opt{playlist} && $opt{kind}))
next; next;
} }
fetch_track($track_info_ref); if($opt{link})
if($opt{delay} && $track_info_ref != $track_list_info[-1])
{ {
info(INFO, 'Waiting for ' . $opt{delay} . ' seconds'); print(get_track_url($track_info_ref->{dir}));
sleep $opt{delay}; } else {
fetch_track($track_info_ref);
if($opt{delay} && $track_info_ref != $track_list_info[-1])
{
info(INFO, 'Waiting for ' . $opt{delay} . ' seconds');
sleep $opt{delay};
}
} }
} }