From 2558df1b91e8aa2116fa88e34fc09055dca900ec Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Wed, 24 Jul 2024 21:11:45 +0200
Subject: add a prominent backend selection link

---
 lib/DBInfoscreen/Controller/Stationboard.pm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

(limited to 'lib/DBInfoscreen/Controller')

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) = @_;
 
-- 
cgit v1.2.3