From a50cdf13d48e2ba9f040cbd1000accdc3b751cdf Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sat, 14 Dec 2024 22:49:45 +0100 Subject: Journey: Add delay accessor --- bin/dbris-m | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'bin') diff --git a/bin/dbris-m b/bin/dbris-m index 9fa0990..733b35b 100755 --- a/bin/dbris-m +++ b/bin/dbris-m @@ -147,12 +147,19 @@ if ($json_output) { } if ( $opt{station} ) { - my $max_line = max map { length( $_->line ) } $status->results; - my $max_dest = max map { length( $_->dest_name ) } $status->results; + my $max_line = max map { length( $_->line ) } $status->results; + my $max_dest = max map { length( $_->dest_name ) } $status->results; + my $max_delay = max map { length( $_->delay // q{} ) } $status->results; + + $max_delay += 1; + for my $result ( $status->results ) { printf( - "%s %${max_line}s %${max_dest}s %s\n", + "%s %s %${max_line}s %${max_dest}s %s\n", $result->is_cancelled ? '--:--' : $result->dep->strftime('%H:%M'), + $result->delay + ? sprintf( "(%+${max_delay}d)", $result->delay ) + : q{ } x ( $max_delay + 2 ), $result->line, $result->dest_name, $result->platform // $result->sched_platform -- cgit v1.2.3