Commit 3ec4337a authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add line filter (backend only at the moment)

parent cc3ef2ab

cgi/index.pl

+6 −1
Original line number Diff line number Diff line
@@ -43,6 +43,7 @@ sub handle_request { 
	my $via     = $self->stash('via');



	my @platforms = split( /,/, $self->param('platforms') // q{} );

	my @lines     = split( /,/, $self->param('lines')     // q{} );

	my $template       = $self->param('mode')         // 'multi';

	my $hide_low_delay = $self->param('hidelowdelay') // 0;

	my $hide_opts      = $self->param('hide_opts')    // 0;
@@ -88,6 +89,7 @@ sub handle_request { 


	for my $result (@results) {

		my $platform = ( split( / /, $result->platform ) )[0];

		my $line     = $result->line;

		my $delay    = 0;

		if ($via) {

			my @route = $result->route;
@@ -98,6 +100,9 @@ sub handle_request { 
		if ( @platforms and not( any { $_ eq $platform } @platforms ) ) {

			next;

		}

		if ( @lines and not( any { $line =~ m{^$_} } @lines ) ) {

			next;

		}

		my $info = $result->info;



		if ( $info eq '+0' ) {