From 9ed44281866cb50386487ccb53a4216f7da684e2 Mon Sep 17 00:00:00 2001
From: qorg11 <qorg@vxempire.xyz>
Date: Thu, 11 Nov 2021 17:07:04 +0100
Subject: [PATCH] Print help message if not a number or a command given

---
 peertube-cli.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/peertube-cli.pl b/peertube-cli.pl
index daf27ef..090ac80 100755
--- a/peertube-cli.pl
+++ b/peertube-cli.pl
@@ -10,6 +10,7 @@ use Term::ReadLine;
 use Term::ANSIColor;
 use Getopt::Long;
 use Time::Seconds;
+use Scalar::Util qw(looks_like_number); 
 use strict;
 
 our %config;
@@ -143,8 +144,14 @@ sub select_video($) {
 		$config{instance} = $prompt_input;
 		$config{instance} =~ s/^:i //;
 		return -1;
+	} elsif(looks_like_number $prompt_input) {
+		return $videos_data[$prompt_input]->{uuid};
+	} else {
+		print colored['bold'], "Don't know what you meant.\n";
+		&help_prompt();
+		return -1;
 	}
-	return $videos_data[$prompt_input]->{uuid};
+	
 }
 
 sub get_video_data($) {