From 808ec8a3f00f7372d28e3b4e436a77bdeec0dddc Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 16 Feb 2019 15:59:37 +0100 Subject: add limit option to limit number of returned results --- index.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/index.pl b/index.pl index d05ca7c..3e6332f 100644 --- a/index.pl +++ b/index.pl @@ -518,6 +518,10 @@ sub handle_request { @results = grep { result_has_train_type( $_, @train_types ) } @results; } + if ( $limit and $limit =~ m{ ^ \d+ $ }x ) { + splice( @results, $limit ); + } + for my $result (@results) { my $platform = ( split( qr{ }, $result->platform // '' ) )[0]; my $delay = $result->delay; -- cgit v1.2.3