Added config file which allows the user to select instance, video player and resolution

Also added a trick and documentation to the readme.

.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;
+

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
 

peertube-cli.pl

@@ -8,8 +8,7 @@ use LWP::UserAgent;
 use JSON;
 use Term::ReadLine;
 use Term::ANSIColor;
-use strict;
+use Getopt::Long;
-use warnings;
 
 # 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`;
 }