From aa9e55128f287b2e264df22997ec282b13f16fbe Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 27 Mar 2021 13:27:15 +0100
Subject: request EFA occupancy data (works for some VRR trains)

---
 lib/DBInfoscreen.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'lib/DBInfoscreen.pm')

diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index 4445d7f..70b4b5e 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -294,6 +294,28 @@ sub startup {
 		}
 	);
 
+	$self->helper(
+		'occupancy_icon' => sub {
+			my ( $self, $occupancy ) = @_;
+
+			my @symbols
+			  = (qw(help_outline person_outline people priority_high));
+			my $text = 'Auslastung unbekannt';
+
+			if ( $occupancy > 2 ) {
+				$text = 'Sehr hohe Auslastung';
+			}
+			elsif ( $occupancy > 1 ) {
+				$text = 'Hohe Auslastung';
+			}
+			elsif ( $occupancy > 0 ) {
+				$text = 'Geringe Auslastung';
+			}
+
+			return ( $text, $symbols[$occupancy] );
+		}
+	);
+
 	$self->helper(
 		'utilization_icon' => sub {
 			my ( $self,  $utilization ) = @_;
-- 
cgit v1.2.3