enh(custom): Azure handle large results in list resources for discovery (#3172)

This commit is contained in:
Thibault S 2021-10-01 16:05:30 +02:00 committed by GitHub
parent 04ea20a3ce
commit c29a2569c2

View File

@ -398,10 +398,19 @@ sub azure_list_resources_set_url {
sub azure_list_resources {
my ($self, %options) = @_;
my $full_response = [];
my $full_url = $self->azure_list_resources_set_url(%options);
my $response = $self->request_api(method => 'GET', full_url => $full_url, hostname => '');
while (1) {
my $response = $self->request_api(method => 'GET', full_url => $full_url, hostname => '');
foreach (@{$response->{value}}) {
push @$full_response, $_;
}
return $response->{value};
last if (!defined($response->{nextLink}));
$full_url = $response->{nextLink};
}
return $full_response;
}
sub azure_list_vms_set_url {