- Implemented support for searching for videos from a specific channel.

Example:

	fair-viewer --author=SomeYouTubeUsername keywords-here

In gtk-fair-viwer this is implemented via the "From author" field.

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

1 files changed, 17 insertions, 5 deletions

diff --git a/lib/WWW/FairViewer/Search.pm b/lib/WWW/FairViewer/Search.pm
index 6f4e8d0..69ae560 100644
--- a/lib/WWW/FairViewer/Search.pm
+++ b/lib/WWW/FairViewer/Search.pm
@@ -53,7 +53,6 @@ sub _make_search_url {
         region    => $self->get_region,
         sort_by   => $self->get_order,
         date      => $self->get_date,
-        channelId => $self->get_channelId,
         pageToken => $self->page_token,
         duration  => $self->get_videoDuration,
 
@@ -72,15 +71,28 @@ Search for a list of types (comma-separated).
 sub search_for {
     my ($self, $type, $keywords, $args) = @_;
 
+    if (ref($args) ne 'HASH') {
+        $args = {};
+    }
+
     $keywords //= [];
-    if (ref $keywords ne 'ARRAY') {
+
+    if (ref($keywords) ne 'ARRAY') {
         $keywords = [split ' ', $keywords];
     }
 
+    $keywords = $self->escape_string(join(' ', @{$keywords}));
+
+    # Search in a channel's videos
+    if (defined(my $channel_id = $self->get_channelId)) {
+        my $url = $self->_make_feed_url("channels/search/$channel_id", q => $keywords,);
+        return $self->_get_results($url);
+    }
+
     my $url = $self->_make_search_url(
                                       type => $type,
-                                      q    => $self->escape_string(join(' ', @{$keywords})),
-                                      (ref $args eq 'HASH' ? %{$args} : (part => 'snippet')),
+                                      q    => $keywords,
+                                      %$args,
                                      );
 
     return $self->_get_results($url);
@@ -104,7 +116,7 @@ sub search_for {
                       },
                       {
                        name => 'all',
-                       type => 'video,channel,playlist',
+                       type => 'all',
                       }
       ) {
         *{__PACKAGE__ . '::' . "search_$pair->{name}"} = sub {