Version 0.0.4

Esse commit está contido em:
trizen
2020-11-27 01:14:35 +02:00
commit e041b0dd22
9 arquivos alterados com 25 adições e 23 exclusões
+6
Ver Arquivo
@@ -5,6 +5,12 @@
[CHANGELOG]
Version 0.0.4
- Support for YouTube usernames (-u=username).
- No longer ignore live stream videos in search results.
- Display the relative age of videos in search results.
Version 0.0.3
- Support for multiple search parameters.
+2 -2
Ver Arquivo
@@ -57,7 +57,7 @@
"provides" : {
"WWW::PipeViewer" : {
"file" : "lib/WWW/PipeViewer.pm",
"version" : "v0.0.3"
"version" : "v0.0.4"
},
"WWW::PipeViewer::Activities" : {
"file" : "lib/WWW/PipeViewer/Activities.pm"
@@ -120,6 +120,6 @@
"http://dev.perl.org/licenses/"
]
},
"version" : "v0.0.3",
"version" : "v0.0.4",
"x_serialization_backend" : "JSON::PP version 4.05"
}
+2 -2
Ver Arquivo
@@ -16,7 +16,7 @@ name: WWW-PipeViewer
provides:
WWW::PipeViewer:
file: lib/WWW/PipeViewer.pm
version: v0.0.3
version: v0.0.4
WWW::PipeViewer::Activities:
file: lib/WWW/PipeViewer/Activities.pm
WWW::PipeViewer::Authentication:
@@ -80,5 +80,5 @@ requires:
perl: '5.016'
resources:
license: http://dev.perl.org/licenses/
version: v0.0.3
version: v0.0.4
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
+3 -3
Ver Arquivo
@@ -15,7 +15,7 @@
#-------------------------------------------------------
# GTK Pipe Viewer
# Fork: 30 October 2020
# Edit: 04 November 2020
# Edit: 27 November 2020
# https://github.com/trizen/pipe-viewer
#-------------------------------------------------------
@@ -29,9 +29,9 @@ use warnings;
no warnings 'once';
my $DEVEL; # true in devel mode
use if ($DEVEL = 1), lib => qw(../lib); # devel only
use if ($DEVEL = 0), lib => qw(../lib); # devel only
use WWW::PipeViewer v0.0.3;
use WWW::PipeViewer v0.0.4;
use WWW::PipeViewer::RegularExpressions;
use Gtk3 qw(-init);
+3 -3
Ver Arquivo
@@ -15,7 +15,7 @@
#-------------------------------------------------------
# pipe-viewer
# Fork: 30 October 2020
# Edit: 04 November 2020
# Edit: 27 November 2020
# https://github.com/trizen/pipe-viewer
#-------------------------------------------------------
@@ -44,9 +44,9 @@ use warnings;
no warnings 'once';
my $DEVEL; # true in devel mode
use if ($DEVEL = 1), lib => qw(../lib); # devel mode
use if ($DEVEL = 0), lib => qw(../lib); # devel mode
use WWW::PipeViewer v0.0.3;
use WWW::PipeViewer v0.0.4;
use WWW::PipeViewer::RegularExpressions;
use File::Spec::Functions qw(
+2 -2
Ver Arquivo
@@ -32,7 +32,7 @@ WWW::PipeViewer - A very easy interface to YouTube, using the API of invidio.us.
=cut
our $VERSION = '0.0.3';
our $VERSION = '0.0.4';
=head1 SYNOPSIS
@@ -566,7 +566,7 @@ sub select_good_invidious_instances {
'invidious.ggc-project.de' => 1,
'invidious.toot.koeln' => 1,
'invidious.kavin.rocks' => 0,
'invidious.snopyta.org' => 1,
'invidious.snopyta.org' => 0,
);
#<<<
+4 -4
Ver Arquivo
@@ -34,7 +34,7 @@ sub oauth_refresh_token {
my $json_data = $self->lwp_post(
$self->_get_token_oauth_url(),
[Content => $self->get_www_content_type,
client_id => $self->get_client_id() // return,
client_id => $self->get_client_id() // return,
client_secret => $self->get_client_secret() // return,
refresh_token => $self->get_refresh_token() // return,
grant_type => 'refresh_token',
@@ -56,7 +56,7 @@ sub get_accounts_oauth_url {
my $url = $self->_append_url_args(
($self->get_oauth_url() . 'auth'),
response_type => 'code',
client_id => $self->get_client_id() // return,
client_id => $self->get_client_id() // return,
redirect_uri => $self->get_redirect_uri() // return,
scope => 'https://www.googleapis.com/auth/youtube.force-ssl',
access_type => 'offline',
@@ -80,9 +80,9 @@ sub oauth_login {
my $json_data = $self->lwp_post(
$self->_get_token_oauth_url(),
[Content => $self->get_www_content_type,
client_id => $self->get_client_id() // return,
client_id => $self->get_client_id() // return,
client_secret => $self->get_client_secret() // return,
redirect_uri => $self->get_redirect_uri() // return,
redirect_uri => $self->get_redirect_uri() // return,
grant_type => 'authorization_code',
code => $code,
]
+1 -5
Ver Arquivo
@@ -36,11 +36,7 @@ Retrieve comments from a video ID.
sub comments_from_video_id {
my ($self, $video_id) = @_;
$self->_get_results(
$self->_make_feed_url("comments/$video_id",
sort_by => $self->get_comments_order,
),
);
$self->_get_results($self->_make_feed_url("comments/$video_id", sort_by => $self->get_comments_order));
}
=head2 comment_to_video_id($comment, $videoID)
+2 -2
Ver Arquivo
@@ -31,7 +31,7 @@ sub parse_utf8_json_string {
}
require JSON;
my $hash = eval { JSON::from_json($json) };
my $hash = eval { JSON::from_json($json) };
return $@ ? do { warn "[JSON]: $@\n"; {} } : $hash;
}
@@ -43,7 +43,7 @@ sub parse_json_string {
}
require JSON;
my $hash = eval { JSON::decode_json($json) };
my $hash = eval { JSON::decode_json($json) };
return $@ ? do { warn "[JSON]: $@\n"; {} } : $hash;
}