allow filtering by train for external travelynx links

1 files changed, 7 insertions, 1 deletions

diff --git a/index.pl b/index.pl
index d0bba0e..78719f5 100755
--- a/index.pl
+++ b/index.pl
@@ -1234,8 +1234,9 @@ post '/logout' => sub {
 };
 
 get '/s/*station' => sub {
-	my ($self) = @_;
+	my ($self)  = @_;
 	my $station = $self->stash('station');
+	my $train   = $self->param('train');
 
 	my $status = get_departures($station);
 
@@ -1251,6 +1252,11 @@ get '/s/*station' => sub {
 		  map { [ $_, $_->departure->epoch // $_->sched_departure->epoch ] }
 		  @results;
 
+		if ($train) {
+			@results
+			  = grep { $_->type . ' ' . $_->train_no eq $train } @results;
+		}
+
 		$self->render(
 			'departures',
 			ds100   => $status->{station_ds100},