summaryrefslogtreecommitdiff
path: root/bin/db-iris
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-24 12:33:08 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-24 12:33:08 +0100
commitfb3d484eb7bbc5072af41d97495ff91e013ef34c (patch)
tree11bab0308477cb14ca07ab5f34d10723063b75ea /bin/db-iris
parent673ae925dc81da62424bc0bb99dffdb07088acfe (diff)
initial release0.01
Diffstat (limited to 'bin/db-iris')
-rwxr-xr-xbin/db-iris14
1 files changed, 10 insertions, 4 deletions
diff --git a/bin/db-iris b/bin/db-iris
index a54e3c1..147119d 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -6,7 +6,7 @@ use utf8;
no if $] >= 5.018, warnings => 'experimental::smartmatch';
-our $VERSION = '0.00';
+our $VERSION = '0.01';
use DateTime;
use DateTime::Format::Strptime;
@@ -148,6 +148,12 @@ sub display_result {
my $d = $line->[5];
+ if ( $edata{delays}
+ and $d->delay_messages )
+ {
+ printf( ' %s',
+ join( q{ }, map { $_->[1] } ( reverse $d->delay_messages ) ) );
+ }
if ( $edata{delay}
and ( $d->delay or $d->is_cancelled )
and $d->delay_messages )
@@ -262,7 +268,7 @@ I<station>
=head1 VERSION
-version 0.00
+version 0.01
=head1 DESCRIPTION
@@ -313,7 +319,7 @@ Valid output types are:
If a train is delayed, show the most recent reason for this delay.
-=item d / delays
+=item D / delays
List all delay reasons entered into the IRIS for each train, even if the
particular train is on time by now.
@@ -415,7 +421,7 @@ None.
=head1 BUGS AND LIMITATIONS
-Todo.
+B<-oD> and B<-oq> contain duplicate entries.
=head1 AUTHOR