276 lines
6.8 KiB
Perl
Executable file
276 lines
6.8 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This program is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
# peertube-cli
|
|
# A peertube cli client.
|
|
# author: qorg11
|
|
|
|
use LWP::UserAgent;
|
|
use JSON;
|
|
use Term::ReadLine;
|
|
use Term::ANSIColor;
|
|
use Getopt::Long;
|
|
use Time::Seconds;
|
|
use Scalar::Util qw(looks_like_number);
|
|
use Pod::Usage;
|
|
|
|
use strict;
|
|
|
|
our %config;
|
|
my $input;
|
|
|
|
my @completions = qw(n h :h :s :help :instance help instance);
|
|
|
|
# Objects
|
|
|
|
my $json = new JSON;
|
|
my $ua = new LWP::UserAgent;
|
|
$ua->agent("curl");
|
|
my $term = new Term::ReadLine("ptcli");
|
|
$term->Attribs->{'completion_function'} = sub { return qw(:s :h n p :i); };
|
|
|
|
|
|
# Configuration
|
|
my $conf_path = $ENV{PTCLIRC} || "$ENV{HOME}/.ptclirc";
|
|
|
|
do $conf_path or die "Could not load configuration: $!";
|
|
|
|
# Prototypes
|
|
|
|
sub search_video($$$);
|
|
sub select_video($);
|
|
sub get_video_data($);
|
|
sub play_video($);
|
|
our $counter = 0;
|
|
|
|
# Process arguments
|
|
|
|
GetOptions(
|
|
"instance|i=s" => \$config{instance},
|
|
"resolution|r=i" => \$config{default_resolution},
|
|
"player|p=s" => \$config{player},
|
|
"player-flags|f=s" => \$config{player_flags},
|
|
"help|h" => sub {pod2usage(1); exit;},
|
|
"man|m" => sub {pod2usage(-exitval => 0, -verbose=> 2); exit;},
|
|
);
|
|
# Main program
|
|
while (1) {
|
|
if (!$ARGV[0]) {
|
|
my $response;
|
|
my $uuid = -1;
|
|
my @selected_video_data;
|
|
$input = "";
|
|
while ($uuid == -1) {
|
|
$response = search_video($config{instance}, $input, $counter);
|
|
if ($response eq "-1") {
|
|
print colored['bold red'], "ERROR\n";
|
|
}
|
|
my $json_obj = $json->decode($response);
|
|
$uuid = &select_video($json_obj);
|
|
@selected_video_data = get_video_data($uuid);
|
|
}
|
|
play_video(\@selected_video_data);
|
|
|
|
} else {
|
|
my $response;
|
|
my $uuid = -1;
|
|
my @selected_video_data;
|
|
$input = join("",@ARGV);
|
|
if ($input =~ /^http(s):\/\/.*/) {
|
|
my $uuid = $input;
|
|
$uuid =~ s/\/.w\///;
|
|
$uuid =~ s/\/videos\/watch//;
|
|
my ($tmp_instance) = $input =~ m!(https?://[^:/]+)!;
|
|
$config{instance} = $tmp_instance;
|
|
}
|
|
while ($uuid == -1) {
|
|
$response = search_video($config{instance}, $input, $counter);
|
|
if ($response eq "-1") {
|
|
print colored['bold red'], "ERROR\n";
|
|
die $!;
|
|
}
|
|
my $json_obj = $json->decode($response);
|
|
$uuid = &select_video($json_obj);
|
|
@selected_video_data = get_video_data($uuid);
|
|
}
|
|
|
|
play_video(\@selected_video_data);
|
|
|
|
}
|
|
|
|
}
|
|
# Functions
|
|
|
|
sub search_video($$$) {
|
|
my ($instance, $search_string, $counter) = @_;
|
|
if ($counter < 0) {
|
|
$counter = 0;
|
|
}
|
|
my $response;
|
|
if ($search_string eq "") {
|
|
$response = $ua->get("$instance/api/v1/search/videos?count=25&start=$counter");
|
|
} else {
|
|
$response = $ua->get("$instance/api/v1/search/videos?search=$search_string&count=25&start=$counter");
|
|
}
|
|
if ($response->{_rc} == 200) {
|
|
return $response->content;
|
|
} else {
|
|
print $response->content;
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
sub select_video($) {
|
|
my $json_obj = shift;
|
|
my @videos_data;
|
|
my $total = $json_obj->{total};
|
|
$total = 25 if $total > 25;
|
|
print colored['bold'], "Connected to $config{instance}\n";
|
|
print "Select the video you want to play (:h for help)\n";
|
|
for (my $i = 0; $i < $total; $i++) {
|
|
$videos_data[$i] = $json_obj->{data}->[$i];
|
|
printf("%5i: %-104s %-1s\n",
|
|
$i,
|
|
colored(['bold'], $videos_data[$i]->{name}),
|
|
"--- " . colored(['green'], $videos_data[$i]->{account}->{name}),
|
|
);
|
|
}
|
|
my $prompt_input = $term->readline("=> ");
|
|
|
|
|
|
if ($prompt_input eq "n" || $prompt_input eq "N") {
|
|
$counter += 25;
|
|
return -1;
|
|
} elsif ($prompt_input eq "p" || $prompt_input eq "P") {
|
|
$counter -= 25;
|
|
return -1;
|
|
} elsif ($prompt_input eq ":h") {
|
|
&help_prompt();
|
|
return -1;
|
|
} elsif ($prompt_input =~ /^:s/) {
|
|
$prompt_input =~ s/^:s//;
|
|
my $new_input = $prompt_input;
|
|
if ($new_input eq "") {
|
|
print "Empty input\n";
|
|
next;
|
|
} else {
|
|
$input = $prompt_input;
|
|
}
|
|
return -1;
|
|
} elsif ($prompt_input =~ /^:i/) {
|
|
my $new_instance = $prompt_input;
|
|
$new_instance =~ s/^:i//;
|
|
print $new_instance;
|
|
if ($new_instance eq "") {
|
|
print "Empty input\n";
|
|
next;
|
|
} else {
|
|
$config{instance} = $new_instance;
|
|
}
|
|
return -1;
|
|
} elsif (looks_like_number $prompt_input) {
|
|
return $videos_data[$prompt_input]->{uuid};
|
|
} else {
|
|
print colored['bold'], "Don't know what you meant.\n";
|
|
&help_prompt();
|
|
return -1;
|
|
}
|
|
|
|
}
|
|
|
|
sub get_video_data($) {
|
|
my $uuid = shift;
|
|
my $response = $ua->get("$config{instance}/api/v1/videos/$uuid");
|
|
|
|
if ($response->{_rc} == 200) {
|
|
my $json_obj = $json->decode($response->content);
|
|
if ($json_obj->{files}->[$config{default_resolution}]->{fileUrl}) {
|
|
return ($json_obj->{files}->[$config{default_resolution}]->{fileUrl},
|
|
$json_obj->{name},
|
|
$json_obj->{description},
|
|
$json_obj->{account}->{name},
|
|
$json_obj->{files}->[$config{default_resolution}]->{resolution}->{label});
|
|
} else { # For some reason, vlc seems to work better with this kind of videos.
|
|
return ($json_obj->{streamingPlaylists}->[0]->{files}->[0]->{fileDownloadUrl},
|
|
$json_obj->{name},
|
|
$json_obj->{description},
|
|
$json_obj->{account}->{name},
|
|
$json_obj->{streamingPlaylists}->[0]->{files}->[$config{resolution}]->{resolution}->{label})
|
|
}
|
|
} else {
|
|
return "error\n";
|
|
}
|
|
}
|
|
|
|
sub play_video($) {
|
|
my $ref = $_[0];
|
|
my ($url, $title, $description, $author, $resolution) = @$ref;
|
|
print $url . "\n\n";
|
|
print "Video title: $title\n";
|
|
print "Description: $description\n\n";
|
|
print "Video author: $author\n";
|
|
print "Resolution: $resolution\n";
|
|
|
|
`$config{player} $config{player_flags} $url`;
|
|
}
|
|
|
|
sub help_prompt() {
|
|
print "n: next page\n";
|
|
print "p: previous page\n";
|
|
print ":h show this\n";
|
|
print ":s <query> search for something else\n";
|
|
print ":i <instance> change instance\n";
|
|
print "Press enter to continue\n";
|
|
<STDIN>;
|
|
}
|
|
|
|
sub rl_completion() {
|
|
my ($text, $line, $start) = @_;
|
|
|
|
}
|
|
|
|
__END__
|
|
|
|
=head1 peertube-cli
|
|
|
|
peertube-cli - PeerTube Viewer
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
peertube-cli [--instance] [--player] [--resolution] [search query]
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This program is a peertube client which allows you to browse any
|
|
instance using PeerTube's API.
|
|
|
|
=head1 OPTIONS
|
|
|
|
=over 4
|
|
|
|
=item B<-instance>:
|
|
peertube instance to use, because of bugs, it must not end with a "/"
|
|
|
|
=item B<-resolution>:
|
|
by default 0 which is the highest resolution available.
|
|
|
|
=item B<-player>:
|
|
which media player to use, by default is mpv.
|
|
|
|
=item B<-player-flags>:
|
|
flags to append to the video player (-vo=x11 for example)
|
|
=back
|
|
|
|
=cut
|