From d3c5fe3152d72c9ff8e926f5371b26441ba27e80 Mon Sep 17 00:00:00 2001 From: trizen Date: Sat, 15 Feb 2020 06:18:27 +0200 Subject: Added basic support for showing comments. --- lib/WWW/StrawViewer.pm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'lib/WWW/StrawViewer.pm') diff --git a/lib/WWW/StrawViewer.pm b/lib/WWW/StrawViewer.pm index 336811e..42206d1 100644 --- a/lib/WWW/StrawViewer.pm +++ b/lib/WWW/StrawViewer.pm @@ -69,7 +69,7 @@ my %valid_options = ( safeSearch => {valid => [qw(none moderate strict)], default => undef}, videoType => {valid => [qw(any episode movie)], default => undef}, - comments_order => {valid => [qw(time relevance)], default => 'time'}, + comments_order => {valid => [qw(top new)], default => 'top'}, subscriptions_order => {valid => [qw(alphabetical relevance unread)], default => undef}, # Misc @@ -95,9 +95,10 @@ my %valid_options = ( refresh_token => {valid => [qr/^.{15}/], default => undef}, authentication_file => {valid => [qr/^./], default => undef}, + api_host => {valid => [qr{^https?://}], default => "https://invidio.us"}, # No input value allowed - feeds_url => {valid => q[], default => 'https://invidio.us/api/v1/'}, + api_path => {valid => q[], default => '/api/v1/'}, video_info_url => {valid => q[], default => 'https://www.youtube.com/get_video_info'}, oauth_url => {valid => q[], default => 'https://accounts.google.com/o/oauth2/'}, video_info_args => {valid => q[], default => '?video_id=%s&el=detailpage&ps=default&eurl=&gl=US&hl=en'}, @@ -457,9 +458,14 @@ sub _append_url_args { : $url; } +sub get_api_url { + my ($self) = @_; + join('', $self->get_api_host, $self->get_api_path); +} + sub _simple_feeds_url { - my ($self, $suburl, %args) = @_; - $self->get_feeds_url() . $suburl . '?' . $self->list_to_url_arguments(key => $self->get_key, %args); + my ($self, $path, %args) = @_; + $self->get_api_url . $path . '?' . $self->list_to_url_arguments(key => $self->get_key, %args); } =head2 default_arguments(%args) @@ -486,7 +492,7 @@ sub default_arguments { sub _make_feed_url { my ($self, $path, %args) = @_; my $extra_args = $self->default_arguments(%args); - my $url = $self->get_feeds_url() . $path; + my $url = $self->get_api_url . $path; if ($extra_args) { $url .= '?' . $extra_args; -- cgit v1.2.3