diff options
Diffstat (limited to 'bin/db-iris')
| -rwxr-xr-x | bin/db-iris | 52 |
1 files changed, 39 insertions, 13 deletions
diff --git a/bin/db-iris b/bin/db-iris index f2b65b0..91a1d88 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -85,17 +85,18 @@ if ($time) { for my $efield (@edata_pre) { given ($efield) { - when ('a') { $edata{additional} = 1 } - when ('c') { $edata{canceled} = 1 } - when ('d') { $edata{delay} = 1 } - when ('D') { $edata{delays} = 1 } - when ('f') { $edata{fullroute} = 1 } - when ('m') { $edata{messages} = 1 } - when ('q') { $edata{qos} = 1 } - when ('r') { $edata{route} = 1 } - when ('t') { $edata{times} = 1 } - when ('!') { $edata{debug} = 1 } - default { $edata{$efield} = 1 } + when ('a') { $edata{additional} = 1 } + when ('c') { $edata{canceled} = 1 } + when ('d') { $edata{delay} = 1 } + when ('D') { $edata{delays} = 1 } + when ('f') { $edata{fullroute} = 1 } + when ('m') { $edata{messages} = 1 } + when ('q') { $edata{qos} = 1 } + when ('r') { $edata{route} = 1 } + when ('R') { $edata{replacements} = 1 } + when ('t') { $edata{times} = 1 } + when ('!') { $edata{debug} = 1 } + default { $edata{$efield} = 1 } } } @@ -263,6 +264,23 @@ sub display_result { print "\n"; } + if ( $edata{replacements} ) { + for my $e ( $d->replaced_by ) { + printf( + "Ersatzzug: %s%s %s\n", + $e->type, $e->line_no // q{}, + $e->train_no + ); + } + for my $e ( $d->replacement_for ) { + printf( + "Ersatzzug für: %s%s %s\n", + $e->type, $e->line_no // q{}, + $e->train_no + ); + } + } + if ( $edata{additional} and $d->additional_stops ) { printf( "Zusätzlicher Halt in: %s\n", join( q{, }, $d->additional_stops ) ); @@ -368,9 +386,12 @@ for my $d ( $status->results() ) { push( @output, [ - $timestr, $d->train . ($d->is_unscheduled ? ' !' : q{}), + $timestr, + $d->train . ( $d->is_unscheduled ? ' !' : q{} ), $edata{route} ? join( q{ }, $d->route_interesting ) : q{}, - $d->route_end, $platformstr // q{}, $d + $d->route_end, + $platformstr // q{}, + $d ] ); @@ -507,6 +528,11 @@ omitted, use the m / messages type to see those as well. Show up to three stops between I<station> and the train's destination. +=item R / replacements + +For cancelled trains: Print their replacement train(s), if present. +For unplanned trains: Print the train(s) they replace, if present. + =item t / times Show both scheduled and expected arrival and departure times. |