Merge pull request #14 from l29ah/links

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

1 files changed, 17 insertions, 5 deletions

diff --git a/src/ya.pl b/src/ya.pl
index f755527..8f54c50 100755
--- a/src/ya.pl
+++ b/src/ya.pl
@@ -191,6 +191,8 @@ my ($opt, $usage) = Getopt::Long::Descriptive::describe_options
 	['Bitrate 320 is available only when subscription is active'],
 	['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'],
+	['silent|s',        'do not print informational messages'],
 	['debug',           'print debug info during work'],
 	['help',            'print usage'],
 	[],
@@ -385,12 +387,17 @@ if($opt{album} || ($opt{playlist} && $opt{kind}))
 			next;
 		}
 
-		fetch_track($track_info_ref);
-
-		if($opt{delay} && $track_info_ref != $track_list_info[-1])
+		if($opt{link})
 		{
-			info(INFO, 'Waiting for ' . $opt{delay} . ' seconds');
-			sleep $opt{delay};
+			print(get_track_url($track_info_ref->{dir}));
+		} 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};
+			}
 		}
 	}
 
@@ -1027,6 +1034,11 @@ sub info
 {
 	my ($type, $msg) = @_;
 
+	if($opt{silent} && $type ne ERROR)
+	{
+		 return;
+	}
+
 	if($type eq DEBUG)
 	{
 		return if !$opt{debug};