svragv/peertube-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Print help message if not a number or a command given

Browse source
This commit is contained in:
qorg11 2021-11-11 17:07:04 +01:00
parent fab2687a5b
commit 9ed4428186
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
peertube-cli.pl
View file

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