svragv/peertube-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

trying to fix videos that don't play (according to Chocobozzz in irc this happens because

Browse source 
these videos have no webtorrent file. And they don't seem to play well enough in mpv but it works for some reason in vlc)
This commit is contained in:
qorg11 2021-11-08 15:05:41 +01:00
parent e3b03cc592
commit 71209f7156
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 56 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
peertube-cli.pl
View file

@ -44,8 +44,8 @@ GetOptions(
"player=s" => \$config{player}
);
# Main program
if (!$ARGV[0]) {
while (1) {
if (!$ARGV[0]) {
my $response;
my $uuid = -1;
my @selected_video_data;
@ -61,7 +61,7 @@ if (!$ARGV[0]) {
}
play_video(\@selected_video_data);
} else {
} else {
my $response;
my $uuid = -1;
my @selected_video_data;
@ -86,17 +86,18 @@ if (!$ARGV[0]) {
play_video(\@selected_video_data);
}
}
}
# Functions
sub search_video($$$) {
my ($instance, $search_string, $counter) = @_;
if($counter < 0) {
if ($counter < 0) {
$counter = 0;
}
my $response;
if($search_string eq "") {
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");
@ -152,11 +153,20 @@ sub get_video_data($) {
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]->{fileUrl},
$json_obj->{name},
$json_obj->{description},
$json_obj->{account}->{name},
$json_obj->{files}->[$config{default_resolution}]->{resolution}->{label});
}
} else {
return "error\n";
}
@ -165,6 +175,7 @@ sub get_video_data($) {
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";