103 lines
2.2 KiB
Perl
103 lines
2.2 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# peertube-cli
|
|
# A peertube cli client.
|
|
# author: qorg11
|
|
|
|
use LWP::UserAgent;
|
|
use JSON;
|
|
use Term::ReadLine;
|
|
use Term::ANSIColor;
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Objects
|
|
|
|
my $json = new JSON;
|
|
my $ua = new LWP::UserAgent;
|
|
my $term = new Term::ReadLine("ptcli");
|
|
|
|
# Configuration
|
|
# TODO: config file or something
|
|
|
|
our $INSTANCE = "https://vid.qorg11.net";
|
|
|
|
# Prototypes
|
|
|
|
sub search_video($);
|
|
sub select_video($);
|
|
sub get_video_data($);
|
|
sub play_video($);
|
|
|
|
# Main program
|
|
|
|
if (!$ARGV[0]) {
|
|
print <STDERR>, "No argument given\n";
|
|
my $input = $term->readline("=> ");
|
|
my $response = search_video($input);
|
|
my $json_obj = $json->decode($response);
|
|
my $uuid = &select_video($json_obj);
|
|
my @selected_video_data = get_video_data($uuid);
|
|
play_video(\@selected_video_data);
|
|
|
|
} else {
|
|
my $response = search_video(join(" ",@ARGV));
|
|
my $json_obj = $json->decode($response);
|
|
my $uuid = &select_video($json_obj);
|
|
my @selected_video_data = get_video_data($uuid);
|
|
play_video(\@selected_video_data);
|
|
}
|
|
|
|
# Functions
|
|
|
|
sub search_video($) {
|
|
my $search_string = shift;
|
|
my $response = $ua->get("$INSTANCE/api/v1/search/videos?search=$search_string");
|
|
if ($response->{_rc} == 200) {
|
|
return $response->content;
|
|
} else {
|
|
print color('red');
|
|
return sprintf("ERROR: server returned status code $response->{_rc}\n");
|
|
}
|
|
}
|
|
|
|
sub select_video($) {
|
|
my $json_obj = shift;
|
|
my @videos_data;
|
|
|
|
my $total = $json_obj->{total};
|
|
for (my $i = 0; $i < $total; $i++) {
|
|
$videos_data[$i] = $json_obj->{data}->[$i];
|
|
print "$i: " . $videos_data[$i]->{name} . "\n";
|
|
|
|
}
|
|
my $input = $term->readline("=> ");
|
|
return $videos_data[$input]->{uuid};
|
|
}
|
|
|
|
sub get_video_data($) {
|
|
my $uuid = shift;
|
|
my $response = $ua->get("$INSTANCE/api/v1/videos/$uuid");
|
|
|
|
if($response->{_rc} == 200) {
|
|
my $json_obj = $json->decode($response->content);
|
|
return ($json_obj->{files}->[0]->{fileUrl},
|
|
$json_obj->{name},
|
|
$json_obj->{description},
|
|
$json_obj->{account}->{name});
|
|
} else {
|
|
return "error\n";
|
|
}
|
|
}
|
|
|
|
sub play_video($) {
|
|
my $ref = $_[0];
|
|
my $url = $ref->[0];
|
|
my $title = $ref->[1];
|
|
my $description = $ref->[2];
|
|
my $author = $ref->[3];
|
|
print "Video title: $title\n";
|
|
print "Description: $description\n\n";
|
|
print "Video author: $author\n";
|
|
`mpv $url`;
|
|
}
|