From a1add16883b775bf8a7032df14ed6450e4bd0811 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sun, 19 Jan 2025 11:12:43 +0100 Subject: expose and show arr/dep and route platforms --- bin/dbris | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) (limited to 'bin') diff --git a/bin/dbris b/bin/dbris index 8bae0e7..506263e 100755 --- a/bin/dbris +++ b/bin/dbris @@ -265,21 +265,28 @@ for my $connection ( $ris->connections ) { printf( "${output_bold}%s${output_reset}\n", $segment->train_long ); } - printf( "%s ab %s\n", + printf( "%s ab %s%s\n", $segment->dep->strftime('%H:%M'), - $segment->dep_name ); + $segment->dep_name, + $segment->dep_platform ? q{ } . $segment->dep_platform : q{}, + ); if ($show_full_route) { for my $stop ( $segment->route ) { - printf( "%s %s %s\n", + printf( "%s %s %s%s\n", $stop->arr ? $stop->arr->strftime('%H:%M') : q{ }, - format_occupancy($stop), $stop->name, ); + format_occupancy($stop), + $stop->name, + $stop->platform ? q{ } . $stop->platform : q{}, + ); } } - printf( "%s an %s\n", + printf( "%s an %s%s\n", $segment->arr->strftime('%H:%M'), - $segment->arr_name ); + $segment->arr_name, + $segment->arr_platform ? q{ } . $segment->arr_platform : q{}, + ); say q{}; } say q{---------------------------------------}; -- cgit v1.2.3