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

Tring to bugfix

Browse source
This commit is contained in:
qorg11 2021-11-03 16:26:45 +01:00
parent 7d59a23052
commit 670731eddf
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
3 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.ptclirc
View file

@ -2,8 +2,6 @@
# This is just a perl hash. # This is just a perl hash.
our %config;
# Default video player # Default video player
$config{player} = "mpv"; $config{player} = "mpv";

0
doc/peertube-cli.1 Normal file
View file

11
peertube-cli.pl
View file

@ -10,11 +10,16 @@ use Term::ReadLine;
use Term::ANSIColor; use Term::ANSIColor;
use Getopt::Long; use Getopt::Long;
use Time::Seconds; use Time::Seconds;
use warnings;
use strict;
our %config;
# Objects # Objects
my $json = new JSON; my $json = new JSON;
my $ua = new LWP::UserAgent; my $ua = new LWP::UserAgent;
$ua->agent("curl");
my $term = new Term::ReadLine("ptcli"); my $term = new Term::ReadLine("ptcli");
my $time = new Time::Seconds; my $time = new Time::Seconds;
@ -62,6 +67,9 @@ if (!$ARGV[0]) {
my @selected_video_data; my @selected_video_data;
while($uuid == -1) { while($uuid == -1) {
$response = search_video(join("",@ARGV), $counter); $response = search_video(join("",@ARGV), $counter);
if($response == -1) {
print colored['bold red'], "ERROR\n";
}
my $json_obj = $json->decode($response); my $json_obj = $json->decode($response);
$uuid = &select_video($json_obj); $uuid = &select_video($json_obj);
@selected_video_data = get_video_data($uuid); @selected_video_data = get_video_data($uuid);
@ -78,8 +86,7 @@ sub search_video($$) {
if ($response->{_rc} == 200) { if ($response->{_rc} == 200) {
return $response->content; return $response->content;
} else { } else {
print color('red'); return $response->{_rc};
return sprintf("ERROR: server returned status code $response->{_rc}\n");
} }
} }