From 7f3c79c6d8711dcc68f867a6a66c1c863479d330 Mon Sep 17 00:00:00 2001
From: qorg11 <qorg@vxempire.xyz>
Date: Sun, 7 Nov 2021 15:24:48 +0100
Subject: [PATCH] Now you can pass an URL to the the thing and it will play the
 video

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

diff --git a/peertube-cli.pl b/peertube-cli.pl
index 8b6359b..02a7448 100755
--- a/peertube-cli.pl
+++ b/peertube-cli.pl
@@ -53,6 +53,15 @@ if (!$ARGV[0]) {
 	my $response;
 	my $uuid = -1;
 	my @selected_video_data;
+
+	if ($input =~ /^http(s):\/\/.*/) {
+		my $uuid = $input;
+		$uuid =~ s/\/.w\///;
+		$uuid =~ s/\/videos\/watch//;
+		my ($tmp_instance) = $input =~ m!(https?://[^:/]+)!;
+		$config{instance} = $tmp_instance;
+		@selected_video_data = get_video_data($uuid);
+	}
 	while ($uuid == -1) {
 		$response = search_video($config{instance}, $input, $counter);
 		if ($response eq "-1") {
@@ -65,11 +74,18 @@ if (!$ARGV[0]) {
 	play_video(\@selected_video_data);
 
 } else {
-	
 	my $response;
 	my $uuid = -1;
 	my @selected_video_data;
 	$input = join("",@ARGV);
+	if ($input =~ /^http(s):\/\/.*/) {
+		my $uuid = $input;
+		$uuid =~ s/\/.w\///;
+		$uuid =~ s/\/videos\/watch//;
+		my ($tmp_instance) = $input =~ m!(https?://[^:/]+)!;
+		$config{instance} = $tmp_instance;
+		@selected_video_data = get_video_data($uuid);
+	}
 	while ($uuid == -1) {
 		$response = search_video($config{instance}, $input, $counter);
 		if ($response eq "-1") {
@@ -123,15 +139,14 @@ sub select_video($) {
 	} elsif ($prompt_input eq ":h") {
 		&help_prompt();
 		return -1;
-	} elsif($prompt_input =~ /^:s/) {
+	} elsif ($prompt_input =~ /^:s/) {
 		$prompt_input =~ s/^:s //;
 		return -1;
-	} elsif($prompt_input =~ /^:i/) {
+	} elsif ($prompt_input =~ /^:i/) {
 		$config{instance} = $prompt_input;
 		$config{instance} =~ s/^:i //;
 		return -1;
-}
-
+	}
 	return "$videos_data[$input]->{uuid}";
 }