allow manual input of station name

Closes #1

1 files changed, 7 insertions, 0 deletions

diff --git a/index.pl b/index.pl
index 066cf0b..467eed4 100755
--- a/index.pl
+++ b/index.pl
@@ -988,6 +988,13 @@ post '/geolocation' => sub {
 
 };
 
+post '/list_departures' => sub {
+	my ($self) = @_;
+	my $station = $self->param('station');
+
+	$self->redirect_to("/s/${station}");
+};
+
 get '/api/v0/:action/:token' => sub {
 	my ($self) = @_;