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

Prettier output, previous page and print the video author

Browse source
This commit is contained in:
qorg11 2021-11-02 21:58:56 +01:00
parent 5e1b977cf2
commit a62b6763b7
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 25 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
peertube-cli.pl
View file

@ -9,12 +9,14 @@ use JSON;
use Term::ReadLine; use Term::ReadLine;
use Term::ANSIColor; use Term::ANSIColor;
use Getopt::Long; use Getopt::Long;
use Time::Seconds;
# Objects # Objects
my $json = new JSON; my $json = new JSON;
my $ua = new LWP::UserAgent; my $ua = new LWP::UserAgent;
my $term = new Term::ReadLine("ptcli"); my $term = new Term::ReadLine("ptcli");
my $time = new Time::Seconds;
# Configuration # Configuration
my $conf_path = $ENV{PTCLIRC} || "$ENV{HOME}/.ptclirc"; my $conf_path = $ENV{PTCLIRC} || "$ENV{HOME}/.ptclirc";
@ -87,16 +89,29 @@ sub select_video($) {
my $total = $json_obj->{total}; my $total = $json_obj->{total};
$total = 25 if $total > 25; $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++) { for (my $i = 0; $i < $total; $i++) {
$videos_data[$i] = $json_obj->{data}->[$i]; $videos_data[$i] = $json_obj->{data}->[$i];
print "$i: " . $videos_data[$i]->{name} . "\n"; printf("%5i: %-104s %-1s\n",
$i,
colored(['bold'], $videos_data[$i]->{name}),
"--- " . colored(['green'], $videos_data[$i]->{account}->{name}),
);
} }
my $input = $term->readline("=> "); my $input = $term->readline("=> ");
if ($input eq "n" || $input eq "N") { if ($input eq "n" || $input eq "N") {
$counter += 25; $counter += 25;
return -1; return -1;
} }
elsif ($input eq "p" || $input eq "P") {
$counter -= 25;
return -1;
} elsif($input eq ":h") {
&help_prompt();
return -1;
}
return $videos_data[$input]->{uuid}; return $videos_data[$input]->{uuid};
} }
@ -130,3 +145,11 @@ sub play_video($) {
`$config{player} $url`; `$config{player} $url`;
} }
sub help_prompt() {
print "n: next page\n";
print "p: previous page\n";
print ":h show this\n";
print "Press enter to continue\n";
<STDIN>;
}