From fe0c45665b3e4277af58a49d9fb1260dc0696a0b Mon Sep 17 00:00:00 2001
From: qorg11 <qorg@vxempire.xyz>
Date: Tue, 2 Nov 2021 13:45:42 +0100
Subject: [PATCH] Added config file which allows the user to select instance,
 video player and resolution

Also added a trick and documentation to the readme.
---
 .ptclirc        | 18 ++++++++++++++++++
 README.md       | 14 ++++++++++++--
 peertube-cli.pl | 30 ++++++++++++++++++++----------
 3 files changed, 50 insertions(+), 12 deletions(-)
 create mode 100644 .ptclirc
 mode change 100644 => 100755 peertube-cli.pl

diff --git a/.ptclirc b/.ptclirc
new file mode 100644
index 0000000..cf15dbd
--- /dev/null
+++ b/.ptclirc
@@ -0,0 +1,18 @@
+# peertube-cli configuration
+
+# This is just a perl hash.
+
+our %config;
+
+# Default video player
+
+$config{player} = "mpv";
+
+# Default instance to use.
+
+$config{instance} = "https://vid.qorg11.net";
+
+# Default resolution, 0 should be the highest resolution.
+
+$config{default_resolution} = 0;
+
diff --git a/README.md b/README.md
index 5be1edd..698ee99 100644
--- a/README.md
+++ b/README.md
@@ -15,9 +15,19 @@ interactive search.
 
 ## TODO
 
-* Config file
+* Config file [X]
 * let user select video player (though config file)
-* getopt for instance, and maybe video player :^)
+* getopt for instance, and maybe video player :^) [X]
+
+## Options
+
+`--instance` instance to use. $config{instance} in .ptclirc.
+`--resolution` resolution to use. `0` should be the highest while `n` is the lowlest $config{resolution} in .ptclirc.
+`--player` player to use (e.g. mpv, vlc...). $config{player} in .ptclirc.
+
+## Tricks
+
+**Download a video:** set `"wget"` as as player.
 
 ## Bugs
 
diff --git a/peertube-cli.pl b/peertube-cli.pl
old mode 100644
new mode 100755
index ccd8ad3..9bae9ef
--- a/peertube-cli.pl
+++ b/peertube-cli.pl
@@ -8,8 +8,7 @@ use LWP::UserAgent;
 use JSON;
 use Term::ReadLine;
 use Term::ANSIColor;
-use strict;
-use warnings;
+use Getopt::Long;
 
 # Objects
 
@@ -18,9 +17,9 @@ my $ua = new LWP::UserAgent;
 my $term = new Term::ReadLine("ptcli");
 
 # Configuration
-# TODO: config file or something
+my $conf_path = $ENV{PTCLIRC} || "$ENV{HOME}/.ptclirc";
 
-our $INSTANCE = "https://vid.qorg11.net";
+do $conf_path;
 
 # Prototypes
 
@@ -29,10 +28,17 @@ sub select_video($);
 sub get_video_data($);
 sub play_video($);
 
+# Process arguments
+
+GetOptions(
+		 "instance=s"   => \$config{instance},
+		 "resolution=i" => \$config{default_resolution},
+		 "player=s"     => \$config{player}
+		);
 # Main program
 
 if (!$ARGV[0]) {
-	print <STDERR>, "No argument given\n";
+	print "No argument given\n";
 	my $input = $term->readline("=> ");
 	my $response = search_video($input);
 	my $json_obj = $json->decode($response);
@@ -52,7 +58,7 @@ if (!$ARGV[0]) {
 
 sub search_video($) {
 	my $search_string = shift;
-	my $response = $ua->get("$INSTANCE/api/v1/search/videos?search=$search_string");
+	my $response = $ua->get("$config{instance}/api/v1/search/videos?search=$search_string");
 	if ($response->{_rc} == 200) {
 		return $response->content;
 	} else {
@@ -77,14 +83,15 @@ sub select_video($) {
 
 sub get_video_data($) {
 	my $uuid = shift;
-	my $response = $ua->get("$INSTANCE/api/v1/videos/$uuid");
+	my $response = $ua->get("$config{instance}/api/v1/videos/$uuid");
 
 	if($response->{_rc} == 200) {
 		my $json_obj = $json->decode($response->content);
-		return ($json_obj->{files}->[0]->{fileUrl},
+		return ($json_obj->{files}->[$config{default_resolution}]->{fileUrl},
 			   $json_obj->{name},
 			   $json_obj->{description},
-			   $json_obj->{account}->{name});
+			   $json_obj->{account}->{name},
+			   $json_obj->{files}->[$config{default_resolution}]->{resolution}->{id});
 	} else {
 		return "error\n";
 	}
@@ -96,8 +103,11 @@ sub play_video($) {
 	my $title = $ref->[1];
 	my $description = $ref->[2];
 	my $author = $ref->[3];
+	my $resolution = $ref->[4];
 	print "Video title: $title\n";
 	print "Description: $description\n\n";
 	print "Video author: $author\n";
-	`mpv $url`;
+	print "Resolution: $resolution\n";
+	
+	`$config{player} $url`;
 }