Limit implementation for sub list_scheduled_ajax

see: https://progress.opensuse.org/issues/114421
os-autoinst · Nov 4, 2022 · b054c4e · b054c4e
1 parent 8dcd4bf
commit b054c4e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/OpenQA/WebAPI/Controller/Test.pm b/lib/OpenQA/WebAPI/Controller/Test.pm
@@ -168,6 +168,8 @@ sub list_running_ajax {
 
 sub list_scheduled_ajax {
     my ($self) = @_;
+    my $limits = OpenQA::App->singleton->config->{misc_limits};
+    my $limit = min($limits->{generic_max_limit}, $self->param('limit') // $limits->{generic_default_limit});
 
     my $scheduled = $self->schema->resultset('Jobs')->complex_query(
         state => [OpenQA::Jobs::Constants::PRE_EXECUTION_STATES],
@@ -183,7 +185,9 @@ sub list_scheduled_ajax {
     );
 
     my @scheduled;
-    while (my $job = $scheduled->next) {
+    my $i = 0;
+    while (my $job = $scheduled->next and $i < $limit) {
+        $i++;
         my $job_id = $job->id;
         push(
             @scheduled,