Add an option to print links to the tracks instead of fetching them
This commit is contained in:
@@ -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!');
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user