Multi-backend support

Squashed commit of the following:

commit 92518024ba295456358618c0e8180bd8e996fdf1
Author: Birte Kristina Friesel <birte.friesel@uos.de>
Date:   Fri Jul 26 18:39:46 2024 +0200

    add_or_update station: remove superfluos 'new backend id := old backend id'

commit df21c20c6e4c86454f8a9ac69121404415217f2a
Author: Birte Kristina Friesel <birte.friesel@uos.de>
Date:   Fri Jul 26 18:35:51 2024 +0200

    revert connection targets min_count to 3

commit be335cef07d0b42874f5fc1de4a1d13396e8e807
Author: Birte Kristina Friesel <birte.friesel@uos.de>
Date:   Fri Jul 26 18:20:05 2024 +0200

    mention backend selection in API documentation

commit 9f41828fb4f18fd707e0087def3032e8d4c8d7d8
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:19:23 2024 +0200

    use_history: not all backends provide route data in departure monitor

commit 09714b4d89684b8331d0e96f564a4c7432318f70
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:11:44 2024 +0200

    disambiguation: pass correct hafas parameter

commit 8cdf1120fc32155dc6525be64601b7c10a9c7f52
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:11:28 2024 +0200

    _checked_in: hide Zuglauf link for non-db checkins

commit 7455653f541198e0e0a6d11aed421487ffdb6285
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 20:01:47 2024 +0200

    debug output

commit b9cda07f85601a58ea32dbdacdd5399f302db52b
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Thu Jul 25 19:09:07 2024 +0200

    fix remaining get_connection_targets / get_connecting_trains_p invocations

commit 2759d7258c37c7498905cfe19f6b4c4f6d16bd21
Author: Birte Kristina Friesel <derf@finalrewind.org>
Date:   Wed Jul 24 20:50:12 2024 +0200

    support non-DB HAFAS backends (WiP)

13 files changed, 124 insertions, 61 deletions

diff --git a/templates/_checked_in.html.ep b/templates/_checked_in.html.ep
index 19a94bb..2d71d7e 100644
--- a/templates/_checked_in.html.ep
+++ b/templates/_checked_in.html.ep
@@ -343,9 +343,14 @@
 				% else {
 					% $url = $url . $journey->{train_type} . ' ' . $journey->{train_no} . '/' . $journey->{sched_departure}->epoch . '000?station=' . $journey->{dep_eva};
 				% }
-				<a style="margin-right: 0;" href="<%= $url %>"><i class="material-icons left" aria-hidden="true">timeline</i> Zuglauf</a>
+				% if ($journey->{backend_id} <= 1) {
+					<a style="margin-right: 0;" href="<%= $url %>"><i class="material-icons left" aria-hidden="true">timeline</i> Zuglauf</a>
+				% }
+				% else {
+					&nbsp;
+				% }
 				% if ($journey->{extra_data}{trip_id}) {
-					<a class="right" style="margin-right: 0;" href="https://dbf.finalrewind.org/map/<%= $journey->{extra_data}{trip_id} =~ s{#}{%23}gr %>/<%= $journey->{train_line} || 0 %>?from=<%= $journey->{dep_name} %>&amp;to=<%= $journey->{arr_name} %>&amp;dark=<%= (session('theme') and session('theme') eq 'dark') ? 1 : 0 %>"><i class="material-icons left" aria-hidden="true">map</i> Karte</a>
+					<a class="right" style="margin-right: 0;" href="https://dbf.finalrewind.org/map/<%= $journey->{extra_data}{trip_id} =~ s{#}{%23}gr %>/<%= $journey->{train_line} || 0 %>?hafas=<%= $journey->{backend_name} // 'DB' %>&amp;from=<%= $journey->{dep_name} %>&amp;to=<%= $journey->{arr_name} %>&amp;dark=<%= (session('theme') and session('theme') eq 'dark') ? 1 : 0 %>"><i class="material-icons left" aria-hidden="true">map</i> Karte</a>
 				% }
 			</div>
 		</div>
diff --git a/templates/_checked_out.html.ep b/templates/_checked_out.html.ep
index 5a944dc..21db335 100644
--- a/templates/_checked_out.html.ep
+++ b/templates/_checked_out.html.ep
@@ -3,7 +3,7 @@
 		<span class="card-title">Ausgecheckt</span>
 		<p>Aus
 			%= include '_format_train', journey => $journey
-			bis <a href="/s/<%= $journey->{arr_eva} %>?hafas=<%= $journey->{train_id} =~ m{[|]} ? 1 : 0 %>"><%= $journey->{arr_name} %></a></p>
+			bis <a href="/s/<%= $journey->{arr_eva} %>?hafas=<%= $journey->{is_hafas} ? $journey->{backend_name} : q{} %>"><%= $journey->{arr_name} %></a></p>
 		% if (@{stash('connections_iris') // [] } or @{stash('connections_hafas') // []}) {
 			<span class="card-title" style="margin-top: 2ex;">Verbindungen</span>
 			<p>Fahrt auswählen zum Einchecken mit Zielwahl.</p>
diff --git a/templates/_connections_hafas.html.ep b/templates/_connections_hafas.html.ep
index dcf7ec9..43198e2 100644
--- a/templates/_connections_hafas.html.ep
+++ b/templates/_connections_hafas.html.ep
@@ -1,6 +1,6 @@
 <ul class="collection departures connections">
 	% for my $res (@{$connections}) {
-		% my ($train, $via, $via_arr) = @{$res};
+		% my ($train, $via, $via_arr, $hafas_service) = @{$res};
 		% $via_arr = $via_arr ? $via_arr->strftime('%H:%M') : q{};
 		% my $row_class = '';
 		% my $link_class = 'action-checkin';
@@ -10,6 +10,7 @@
 		% }
 		% if ($checkin_from) {
 			<li class="collection-item <%= $row_class %> <%= $link_class %>"
+			data-hafas="<%= $hafas_service %>"
 			data-station="<%= $train->station_eva %>"
 			data-train="<%= $train->id %>"
 			data-ts="<%= ($train->sched_datetime // $train->datetime)->epoch %>"
diff --git a/templates/_departures_hafas.html.ep b/templates/_departures_hafas.html.ep
index 9e4d7a4..012db61 100644
--- a/templates/_departures_hafas.html.ep
+++ b/templates/_departures_hafas.html.ep
@@ -18,6 +18,7 @@
 		</li>
 	% }
 	<li class="collection-item <%= $link_class %> <%= $row_class %>"
+		data-hafas="<%= $hafas %>"
 		data-station="<%= $result->station_eva %>"
 		data-train="<%= $result->id %>"
 		data-ts="<%= ($result->sched_datetime // $result->datetime)->epoch %>"
diff --git a/templates/api_documentation.html.ep b/templates/api_documentation.html.ep
index 9c9ee1f..d8fc66f 100644
--- a/templates/api_documentation.html.ep
+++ b/templates/api_documentation.html.ep
@@ -30,6 +30,11 @@
 			"actionTime" : 1234567, (UNIX-Timestamp des letzten Checkin/Checkout)<br/>
 			"checkedIn" : true / false,<br/>
 			"comment": "Kommentar",<br/>
+			"backend": {<br/>
+				"id": 1,<br/>
+				"name": "DB",<br/>
+				"type": "HAFAS",<br/>
+			},<br/>
 			"fromStation" : { (letzter Checkin)<br/>
 				"name" : "Essen Hbf",<br/>
 				"ds100" : "EE", (ggf. null)<br/>
@@ -122,6 +127,7 @@
 		{<br/>
 			"token" : "<%= $uid %>-<%= $token->{travel} // 'TOKEN' %>",<br/>
 			"action" : "checkin",<br/>
+			"hafas" : "DB", (HAFAS-Instanz – Default: Deutsche Bahn)<br/>
 			"train" : {<br/>
 				"journeyID" : "1|1426396|4|80|19082023",<br/>
 			}<br/>
diff --git a/templates/departures.html.ep b/templates/departures.html.ep
index 9fd79e6..71dd0ad 100644
--- a/templates/departures.html.ep
+++ b/templates/departures.html.ep
@@ -1,26 +1,27 @@
 <div class="row">
-	<div class="col s12">
-		<h2>
-			<i class="material-icons "  aria-hidden="true"><%= param('hafas') ? 'directions' : 'train' %></i>
+	<div class="col s8">
+		<strong style="font-size: 120%;">
 			<%= $station %>
-		</h2>
+		</strong>
 		% for my $related_station (sort { $a->{name} cmp $b->{name} } @{$related_stations}) {
 			+ <%= $related_station->{name} %> <br/>
 		% }
 	</div>
-</div>
-% if ($api_link) {
-<div class="row">
-	<div class="col s12 center-align">
-	% if (param('hafas')) {
-		<a href="<%= $api_link %>" class="btn-small"><i class="material-icons left"  aria-hidden="true">train</i>zum Schienenverkehr</a>
-	% }
-	% else {
-		<a href="<%= $api_link %>" class="btn-small"><i class="material-icons left"  aria-hidden="true">directions</i>zum Nahverkehr</a>
-	% }
+	<div class="col s4 center-align">
+		% my $self_link = url_for('sstation', station => param('station'));
+		% if (param('hafas')) {
+			<span class="btn-small disabled"><i class="material-icons left" aria-hidden="true">directions</i> <%= param('hafas') %> (HAFAS)</span>
+		% }
+		% else {
+			% if ($user->{backend_id}) {
+				<a href="/account/select_backend?redirect_to=<%= $self_link %>" class="btn-small"><i class="material-icons left" aria-hidden="true">directions</i><%= $user->{backend_name} %> (<%= $user->{backend_hafas} ? 'HAFAS' : q{} %>)</a>
+			% }
+			% else {
+				<a href="/account/select_backend?redirect_to=<%= $self_link %>" class="btn-small"><i class="material-icons left" aria-hidden="true">train</i>DB (IRIS-TTS)</a>
+			% }
+		% }
 	</div>
 </div>
-% }
 
 % my $have_connections = 0;
 % if ($user_status->{checked_in}) {
@@ -40,10 +41,10 @@
 				</div>
 				<div class="card-action">
 					% if ($can_check_out) {
-						<a class="action-undo" data-id="in_transit" data-checkints="<%= $user_status->{timestamp}->epoch %>"  style="margin-right: 0;">
+						<a class="action-undo" data-hafas="<%= param('hafas') // q{} %>" data-id="in_transit" data-checkints="<%= $user_status->{timestamp}->epoch %>"  style="margin-right: 0;">
 							<i class="material-icons left" aria-hidden="true">undo</i> Rückgängig
 						</a>
-						<a class="action-checkout right" data-station="<%= $eva %>" data-force="1">
+						<a class="action-checkout right" data-hafas="<%= param('hafas') // q{} %>" data-station="<%= $eva %>" data-force="1">
 							Hier auschecken
 						</a>
 					% }
@@ -51,7 +52,7 @@
 						<a class="action-undo" data-id="in_transit" data-checkints="<%= $user_status->{timestamp}->epoch %>"  style="margin-right: 0;">
 							<i class="material-icons left" aria-hidden="true">undo</i> Rückgängig
 						</a>
-						<a class="action-checkout right" data-station="<%= $eva %>" data-force="1">
+						<a class="action-checkout right" data-hafas="<%= param('hafas') // q{} %>" data-station="<%= $eva %>" data-force="1">
 							<i class="material-icons left" aria-hidden="true">gps_off</i>
 							Hier auschecken
 						</a>
@@ -139,7 +140,7 @@
 		</p>
 		% if (not $user_status->{checked_in} or ($can_check_out and $user_status->{arr_eva} and $user_status->{arrival_countdown} <= 0)) {
 			% if ($hafas) {
-				%= include '_departures_hafas', results => $results;
+				%= include '_departures_hafas', results => $results, hafas => $hafas;
 			% }
 			% else {
 				%= include '_departures_iris', results => $results;
diff --git a/templates/disambiguation.html.ep b/templates/disambiguation.html.ep
index 9fc1e4c..af7d1dd 100644
--- a/templates/disambiguation.html.ep
+++ b/templates/disambiguation.html.ep
@@ -13,7 +13,7 @@
 	<div class="col s12">
 		<ul class="suggestions">
 			% for my $suggestion (@{$suggestions // []}) {
-				<li><a href="<%= url_for('station' => $suggestion->{eva}) . (param('hafas') ? '?hafas=DB' : q{}) %>"><%= $suggestion->{name} %></a></li>
+				<li><a href="<%= url_for('station' => $suggestion->{eva}) . (param('hafas') ? '?hafas=' . param('hafas') : q{}) %>"><%= $suggestion->{name} %></a></li>
 			% }
 		</ul>
 	</div>
diff --git a/templates/exception.html.ep b/templates/exception.html.ep
index ec01ad2..9b8697c 100644
--- a/templates/exception.html.ep
+++ b/templates/exception.html.ep
@@ -20,8 +20,15 @@
 			Timestamp:
 			%= DateTime->now(time_zone => 'Europe/Berlin')->strftime("%d/%b/%Y:%H:%M:%S %z")
 			<br/><br/>
-			Message:
-			%= ref($exception) ? (split(qr{\n}, $exception->message))[0] : $exception
+			% if (ref($exception)) {
+				Trace:<br/>
+				% for my $line (split(qr{\n}, $exception->message)) {
+					<%= $line %><br/>
+				% }
+			% }
+			% else {
+				Message: <%= $exception %>
+			% }
 		</p>
 	</div>
 </div>
diff --git a/templates/landingpage.html.ep b/templates/landingpage.html.ep
index 45bfb21..22478ed 100644
--- a/templates/landingpage.html.ep
+++ b/templates/landingpage.html.ep
@@ -1,5 +1,6 @@
 % if (is_user_authenticated()) {
 	% my $status = stash('user_status');
+	% my $user = stash('user');
 	% if (stash('error')) {
 		<div class="row">
 			<div class="col s12">
@@ -51,32 +52,40 @@
 				% if ( @{stash('timeline') // [] } ) {
 					%= include '_timeline_link', timeline => stash('timeline')
 				% }
-				<div class="card">
-					<div class="card-content">
-						<span class="card-title">Hallo, <%= current_user->{name} %>!</span>
-						<p>Du bist gerade nicht eingecheckt.</p>
-						<div class="geolocation" data-recent="<%= join('|', map { $_->{eva} . ';' . $_->{name} . ';' . $_->{hafas} } @{stash('recent_targets') // []} ) %>">
-							<button class="btn waves-effect waves-light btn-flat">Stationen in der Umgebung abfragen</button>
-						</div>
-						%= form_for 'list_departures' => begin
+				%= form_for 'list_departures' => begin
+					<div class="card">
+						<div class="card-content">
+							<span class="card-title">Hallo, <%= $user->{name} %>!</span>
+							<p>Du bist gerade nicht eingecheckt.</p>
+							<p>
+							<div class="geolocation" data-recent="<%= join('|', map { $_->{eva} . ';' . $_->{name} . ';' . $_->{hafas} } @{stash('recent_targets') // []} ) %>" data-backend=<%= $user->{backend_id} %>">
+								<button class="btn waves-effect waves-light btn-flat">Stationen in der Umgebung abfragen</button>
+							</div>
 							<div class="input-field">
 								%= text_field 'station', id => 'station', class => 'autocomplete contrast-color-text', autocomplete => 'off', required => undef
 								<label for="station">Manuelle Eingabe</label>
 							</div>
-							<div class="center-align">
-								<button class="btn waves-effect waves-light btn-flat" type="submit" name="action" value="departures">
-									<i class="material-icons left" aria-hidden="true">send</i>
-									Abfahrten
-								</button>
-							</div>
-						%= end
+							</p>
+						</div>
+						<div class="card-action">
+							% if ($user->{backend_id}) {
+								<a href="/account/select_backend?redirect_to=/" class="btn btn-flat"><i class="material-icons left" aria-hidden="true">directions</i><%= $user->{backend_name} %> (<%= $user->{backend_hafas} ? 'HAFAS' : q{} %>)</a>
+							% }
+							% else {
+								<a href="/account/select_backend?redirect_to=/" class="btn btn-flat"><i class="material-icons left" aria-hidden="true">train</i>DB (IRIS-TTS)</a>
+							% }
+							<button class="btn right waves-effect waves-light btn-flat" type="submit" name="action" value="departures">
+								<i class="material-icons left" aria-hidden="true">send</i>
+								Abfahrten
+							</button>
+						</div>
 					</div>
-				</div>
+				%= end
 			% }
 		</div>
 	</div>
 	<h2 style="margin-left: 0.75rem;">Letzte Fahrten</h2>
-	%= include '_history_trains', date_format => '%d.%m.%Y', journeys => [journeys->get(uid => current_user->{id}, limit => 5, with_datetime => 1)];
+	%= include '_history_trains', date_format => '%d.%m.%Y', journeys => [journeys->get(uid => $user->{id}, limit => 5, with_datetime => 1)];
 % }
 % else {
 	<div class="row">
diff --git a/templates/layouts/default.html.ep b/templates/layouts/default.html.ep
index 01b8018..4edf805 100644
--- a/templates/layouts/default.html.ep
+++ b/templates/layouts/default.html.ep
@@ -62,7 +62,7 @@
 		%= javascript "/static/${av}/js/geolocation${min}.js"
 	% }
 	% if (stash('with_autocomplete')) {
-		%= javascript "/dyn/${av}/autocomplete.js", defer => undef
+		%= javascript "/dyn/${av}/autocomplete.js?backend_id=" . (stash('backend_id') // 1), defer => undef
 	% }
 	% if (stash('with_map')) {
 		%= javascript "/static/${av}/leaflet/leaflet.js"
diff --git a/templates/select_backend.html.ep b/templates/select_backend.html.ep
new file mode 100644
index 0000000..4eb4cc9
--- /dev/null
+++ b/templates/select_backend.html.ep
@@ -0,0 +1,34 @@
+<div class="row">
+	<div class="col s12">
+		<h2>Backend auswählen</h2>
+		<p style="text-align: justify;">
+			Das ausgewählte Backend bestimmt die Datenquelle für Fahrten in travelynx.
+			<strong>DB (HAFAS)</strong> ist eine gute Wahl für Nah-, Regional- und Fernverkehr in Deutschland und (teilweise) Nachbarländern.
+			<strong>IRIS-TTS</strong> unterstützt ausschließlich Schienenverkehr; im Gegensatz zum HAFAS sind hier detaillierte Verspätungsgründe verfügbar.
+			Die restlichen Backends können sich für Fahrten außerhalb Deutschlands sowie in einzelnen innerdeutschen Verkehrsverbünden lohnen.
+			Fahrten im Ausland fehlen im DB-HAFAS oft; Fahrten im Inland können mit spezifischen Backends genauere Daten haben – z.B. liefert das AVV-HAFAS im Gegensatz zum DB-HAFAS Kartendaten für dortige Buslinien.
+		</p>
+	</div>
+</div>
+%= form_for '/account/select_backend' => (method => 'POST') => begin
+	% if (stash('redirect_to')) {
+		%= hidden_field 'redirect_to' => stash('redirect_to')
+	% }
+	% for my $backend (@{ stash('backends') // [] }) {
+		<div class="row">
+			<div class="col s12 m4 l4 center-align">
+				<button class="btn waves-effect waves-light <%= $backend->{id} == $user->{backend_id} ? 'disabled' : q{} %>" type="submit" name="backend" value="<%= $backend->{id} %>">
+					<%= $backend->{name} %> (<%= $backend->{type} %>)
+				</button>
+			</div>
+			<div class="col s12 m8 l8">
+				% if ($backend->{longname}) {
+					<%= $backend->{longname} %>
+				% }
+				% if ($backend->{id} == $user->{backend_id}) {
+					(aktuell ausgewählt)
+				% }
+			</div>
+		</div>
+	% }
+%= end
diff --git a/templates/traewelling.html.ep b/templates/traewelling.html.ep
index c1f2b7d..1e0d65d 100644
--- a/templates/traewelling.html.ep
+++ b/templates/traewelling.html.ep
@@ -157,26 +157,21 @@
 				<div>
 					<label>
 						%= check_box toot => 1
-						<span>… Checkin auf Mastodon veröffentlichen</span>
-					</label>
-				</div>
-				<div>
-					<label>
-						%= check_box tweet => 1
-						<span>… Checkin auf Twitter veröffentlichen</span>
+						<span>… Checkin im Fediverse veröffentlichen</span>
 					</label>
 				</div>
 				<p>Die Synchronisierung erfolgt spätestens drei Minuten nach der
-					Zielwahl. Beachte, dass die Synchronisierung travelynx
-					→ Träwelling unabhängig von der eingestellten Sichtbarkeit
-					des Checkins erfolgt. travelynx reicht die Sichtbarkeit
-					aber an Träwelling weiter.
-					Träwelling-Checkins können von travelynx aktuell nicht
-					rückgängig gemacht werden. Eine nachträgliche Änderung der
-					Zielstation wird nicht übernommen. Mastodon und Twitter beziehen
-					sich auf die in den <a
+					Zielwahl. Es werden ausschließlich Checkins mittels
+					DB (IRIS-TTS) und DB (HAFAS) synchornisiert. Beachte, dass
+					die Synchronisierung travelynx → Träwelling unabhängig von
+					der eingestellten Sichtbarkeit des Checkins erfolgt.
+					travelynx reicht die Sichtbarkeit aber an Träwelling
+					weiter.  Träwelling-Checkins können von travelynx aktuell
+					nicht rückgängig gemacht werden. Eine nachträgliche
+					Änderung der Zielstation wird nicht übernommen. Fediverse
+					bezieht sich auf den in den <a
 					href="https://traewelling.de/settings">Träwelling-Einstellungen</a>
-					verknüpften Accounts.</p>
+					verknüpften Account.</p>
 			</div>
 			<div class="input-field col s12">
 				<div>
diff --git a/templates/use_history.html.ep b/templates/use_history.html.ep
index 9b76e98..f91ca16 100644
--- a/templates/use_history.html.ep
+++ b/templates/use_history.html.ep
@@ -5,9 +5,13 @@
 			Travelynx kann anhand deiner vergangenen Fahrten Verbindungen zum
 			Einchecken vorschlagen. Fährst zu z.B regelmäßig von Dortmund Hbf
 			nach Essen Hbf, werden dir in Dortmund bevorzugt Fahrten angezeigt, die
-			Essen passieren.  Bei Auswahl dieser wird nicht nur in die Fahrt eingecheckt,
+			Essen passieren. Bei Auswahl dieser wird nicht nur in die Fahrt eingecheckt,
 			sondern auch direkt Essen Hbf als Ziel eingetragen.
 		<p/>
+		<p>
+			Beachte, dass nicht alle von travelynx unterstützten Backends die
+			für dieses Feature notwendigen Daten bereitstellen.
+		</p>
 <!--		<p>
 			Falls du das nicht nützlich findest oder nicht möchtest, dass deine
 			regelmäßigen (Anschluss-)Züge auf deinem Bildschirm sichtbar sind,