- Added basic support for related videos. (fixes https://github.com/trizen/straw-viewer/issues/15)

Example:

	fair-viewer --related [video-id / URL]

This also implements support for `--autoplay`, which is based on related videos.

Thanks to @aearil for reporting this issue.

Signed-off-by: Jesús <heckyel@hyperbola.info>

1 files changed, 9 insertions, 1 deletions

diff --git a/bin/fair-viewer b/bin/fair-viewer
index 85244a3..7f3377c 100755
--- a/bin/fair-viewer
+++ b/bin/fair-viewer
@@ -3779,7 +3779,9 @@ sub print_videos {
               ) {
                 if ($opt{play_backwards}) {
                     #if (defined $info->{prevPageToken}) {
-                        __SUB__->($yv_obj->previous_page($url), auto => 1);
+                        if (defined($url)) {
+                            __SUB__->($yv_obj->previous_page($url), auto => 1);
+                        }
                     #}
                     #else {
                     #    $opt{play_backwards} = 0;
@@ -3789,7 +3791,9 @@ sub print_videos {
                 }
                 else {
                     #if (defined $info->{nextPageToken}) {
+                    if (defined($url)) {
                         __SUB__->($yv_obj->next_page($url), auto => 1);
+                    }
                     #}
                     #else {
                     #    $opt{play_all} = 0;
@@ -3844,8 +3848,10 @@ sub print_videos {
             }
             elsif ($opt =~ /^(?:n|next)\z/) {
                 #if (defined $info->{nextPageToken}) {
+                if (defined($url)) {
                     my $request = $yv_obj->next_page($url);
                     __SUB__->($request, @keywords ? (auto => 1) : ());
+                }
                 #}
                 #else {
                 #    warn_last_page();
@@ -3858,7 +3864,9 @@ sub print_videos {
             }
             elsif ($opt =~ /^(?:b|back|p|prev|previous)\z/) {
                 #if (defined $info->{prevPageToken}) {
+                if (defined($url)) {
                     __SUB__->($yv_obj->previous_page($url), @keywords ? (auto => 1) : ());
+                }
                 #}
                 #else {
                 #    warn_first_page();