summaryrefslogtreecommitdiff
path: root/bin/db-iris
diff options
context:
space:
mode:
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-xbin/db-iris20
1 files changed, 15 insertions, 5 deletions
diff --git a/bin/db-iris b/bin/db-iris
index 3ae2a45..dba21a7 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -108,18 +108,18 @@ sub display_result {
die("Nothing to show\n");
}
- for my $i ( 0 .. 4 ) {
+ for my $i ( 0 .. 5 ) {
$line_length[$i] = max map { length( $_->[$i] ) } @lines;
}
for my $line (@lines) {
printf(
join( q{ }, ( map { "%-${_}s" } @line_length ) ) . "\n",
- @{$line}[ 0 .. 4 ]
+ @{$line}[ 0 .. 5 ]
);
if ($show_full_route) {
- print "\n" . $line->[5] . "\n\n\n";
+ print "\n" . $line->[6] . "\n\n\n";
}
}
@@ -145,12 +145,22 @@ for my $d ( $status->results() ) {
next;
}
+ my $delay = q{};
+
+ if ( $d->delay ) {
+ $delay = ' +' . $d->delay;
+ }
+
push(
@output,
[
- $d->time, $d->train,
+ $d->time . $delay,
+ $d->train,
$arrivals ? q{} : join( q{ }, $d->route_interesting ),
- $d->route_end, $d->platform, join( "\n", $d->route ),
+ $d->route_end,
+ $d->platform,
+ join( ' -- ', $d->info ),
+ join( "\n", $d->route ),
]
);
}