From 1a14e16022b2dff4b2141e5c977ae1510f627ede Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 26 Mar 2021 20:43:16 +0100 Subject: show occupancy next to train / line name --- bin/efa | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/bin/efa b/bin/efa index 5675d1c..55a68c9 100755 --- a/bin/efa +++ b/bin/efa @@ -228,15 +228,17 @@ sub display_connection { } } + my $occupancy = q{}; + if ( $c->occupancy ) { if ( $c->occupancy == 1 ) { - say "# geringe Auslastung"; + $occupancy = '[ ]'; } elsif ( $c->occupancy == 2 ) { - say "# hohe Auslastung"; + $occupancy = '[* ]'; } elsif ( $c->occupancy == 3 ) { - say "# sehr hohe Auslastung"; + $occupancy = '[!!]'; } } @@ -270,7 +272,8 @@ sub display_connection { } } - printf( "%-5s an %s\n", $c->arrival_time, $c->arrival_stop_and_platform, ); + printf( "%-5s an %-30s %s\n", + $c->arrival_time, $c->arrival_stop_and_platform, $occupancy ); print "\n"; if ( $opt->{'extended-info'} -- cgit v1.2.3