add a prominent backend selection link

2 files changed, 31 insertions, 0 deletions

diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index 174fc97..2e15eb3 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -301,6 +301,8 @@ sub startup {
 
 	$r->get('/_autostop')->to('static#geostop');
 
+	$r->get('/_backend')->to('stationboard#backend_list');
+
 	$r->get('/_datenschutz')->to('static#privacy');
 
 	$r->post('/_geolocation')->to('stationboard#stations_by_coordinates');
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm
index 971ff80..bb45454 100644
--- a/lib/DBInfoscreen/Controller/Stationboard.pm
+++ b/lib/DBInfoscreen/Controller/Stationboard.pm
@@ -2141,6 +2141,35 @@ sub stations_by_coordinates {
 	)->wait;
 }
 
+sub backend_list {
+	my ($self) = @_;
+
+	my @backends = (
+		{
+			name => 'Deutsche Bahn',
+			type => 'IRIS-TTS',
+		}
+	);
+
+	for my $backend ( Travel::Status::DE::HAFAS::get_services() ) {
+		push(
+			@backends,
+			{
+				name      => $backend->{name},
+				shortname => $backend->{shortname},
+				type      => 'HAFAS',
+				hafas     => 1,
+			}
+		);
+	}
+
+	$self->render(
+		'_backend',
+		backends  => \@backends,
+		hide_opts => 1
+	);
+}
+
 sub autocomplete {
 	my ($self) = @_;