diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-12-14 22:49:45 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-12-14 22:49:45 +0100 |
| commit | a50cdf13d48e2ba9f040cbd1000accdc3b751cdf (patch) | |
| tree | 32895154b151a5b6dc4b19792814958727eb598f /bin/dbris-m | |
| parent | 87637c4f37a798718e75b5b9d7fb08a6fc606349 (diff) | |
Journey: Add delay accessor
Diffstat (limited to 'bin/dbris-m')
| -rwxr-xr-x | bin/dbris-m | 13 |
1 files changed, 10 insertions, 3 deletions
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 |