From d1e590af1f4cb131e5de0c7cf2fa7d855a2ae15c Mon Sep 17 00:00:00 2001
From: Antoine Eiche <lewo@abesis.fr>
Date: Wed, 19 Jun 2019 12:33:25 +0200
Subject: [PATCH] hydra-server: add `limit` parameter to the `search` path
This allows a client to set a limit to the search results it wants to
get:
http://hydra.nixos.org/search?query=emacs&limit=1
This returns only 1 results (while the default is 500).
---
src/lib/Hydra/Controller/Root.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src/lib/Hydra/Controller/Root.pm b/src/lib/Hydra/Controller/Root.pm
index 796c4b6f..188d73bd 100644
--- a/src/lib/Hydra/Controller/Root.pm
+++ b/src/lib/Hydra/Controller/Root.pm
@@ -391,7 +391,12 @@ sub search :Local Args(0) {
error($c, "Invalid character in query.")
unless $query =~ /^[a-zA-Z0-9_\-\/.]+$/;
- $c->stash->{limit} = 500;
+ my $limit = trim $c->request->params->{"limit"};
+ if ($limit eq "") {
+ $c->stash->{limit} = 500;
+ } else {
+ $c->stash->{limit} = $limit;
+ }
$c->stash->{projects} = [ $c->model('DB::Projects')->search(
{ -and =>