From a62b6763b76e1f92cffe256b99ec4cdef11c1604 Mon Sep 17 00:00:00 2001
From: qorg11 <qorg@vxempire.xyz>
Date: Tue, 2 Nov 2021 21:58:56 +0100
Subject: [PATCH] Prettier output, previous page and print the video author

---
 peertube-cli.pl | 27 +++++++++++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

diff --git a/peertube-cli.pl b/peertube-cli.pl
index 076e935..34a380f 100755
--- a/peertube-cli.pl
+++ b/peertube-cli.pl
@@ -9,12 +9,14 @@ use JSON;
 use Term::ReadLine;
 use Term::ANSIColor;
 use Getopt::Long;
+use Time::Seconds;
 
 # Objects
 
 my $json = new JSON;
 my $ua = new LWP::UserAgent;
 my $term = new Term::ReadLine("ptcli");
+my $time = new Time::Seconds;
 
 # Configuration
 my $conf_path = $ENV{PTCLIRC} || "$ENV{HOME}/.ptclirc";
@@ -87,16 +89,29 @@ sub select_video($) {
 
 	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];
-		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("=> ");
 	if ($input eq "n" || $input eq "N") {
 		$counter += 25;
 		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};
 }
 
@@ -130,3 +145,11 @@ sub play_video($) {
 	
 	`$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>;
+}