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,6 +386,10 @@ if($opt{album} || ($opt{playlist} && $opt{kind}))
next; next;
} }
if($opt{link})
{
print(get_track_url($track_info_ref->{dir}));
} else {
fetch_track($track_info_ref); fetch_track($track_info_ref);
if($opt{delay} && $track_info_ref != $track_list_info[-1]) if($opt{delay} && $track_info_ref != $track_list_info[-1])
@@ -393,6 +398,7 @@ if($opt{album} || ($opt{playlist} && $opt{kind}))
sleep $opt{delay}; sleep $opt{delay};
} }
} }
}
info(OK, 'Done!'); info(OK, 'Done!');
} }