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

print the videos the instance shows in the manpage if no args given

Browse source
This commit is contained in:
qorg11 2021-11-08 13:37:28 +01:00
parent d1b4062bb3
commit 2c26e2e5f9
No known key found for this signature in database
GPG key ID: 343FC20A4ACA62B9
1 changed files with 8 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
peertube-cli.pl
View file

@ -47,19 +47,10 @@ GetOptions(
if (!$ARGV[0]) {
print "No argument given\n";
$input = $term->readline("=> ");
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;
}
$input = "";
while ($uuid == -1) {
$response = search_video($config{instance}, $input, $counter);
if ($response eq "-1") {
@ -105,7 +96,12 @@ sub search_video($$$) {
if($counter < 0) {
$counter = 0;
}
my $response = $ua->get("$instance/api/v1/search/videos?search=$search_string&count=25&start=$counter");
my $response;
if($search_string eq "") {
$response = $ua->get("$instance/api/v1/search/videos?count=25&start=$counter");
} else {
$response = $ua->get("$instance/api/v1/search/videos?search=$search_string&count=25&start=$counter");
}
if ($response->{_rc} == 200) {
return $response->content;
} else {
@ -187,3 +183,4 @@ sub help_prompt() {
print "Press enter to continue\n";
<STDIN>;
}