diff options
| -rw-r--r-- | Build.PL | 2 | ||||
| -rw-r--r-- | Changelog | 3 | ||||
| -rw-r--r-- | README | 28 | ||||
| -rwxr-xr-x | bin/db-iris | 14 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 4 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 7 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm | 4 |
7 files changed, 51 insertions, 11 deletions
@@ -7,6 +7,8 @@ use Module::Build; Module::Build->new( build_requires => { + 'Test::Compile' => 0, + 'Test::Fatal' => 0, 'Test::More' => 0, 'Test::Pod' => 0, }, diff --git a/Changelog b/Changelog new file mode 100644 index 0000000..64d350b --- /dev/null +++ b/Changelog @@ -0,0 +1,3 @@ +Travel::Status::DE::IRIS 0.01 - Fri Jan 24 2014 + + * Initial release. Experimental, API may change without notice @@ -0,0 +1,28 @@ +Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors +------------------------------------------------------------------------- + +* <http://finalrewind.org/projects/Travel-Status-DE-IRIS/> + + +Dependencies +------------ + +* perl version 5.14.2 or newer +* Class::Accessor +* DateTime +* DateTime::Format::Strptime +* List::MoreUtils +* LWP::UserAgent +* XML::LibXML + +Installation +------------ + +* perl Build.PL +* ./Build +* sudo ./Build install + +See also the Module::Build documentation. + +You can then run 'man Travel::Status::DE::IRIS'. +This distribution also ships the script 'db-iris', see 'man db-iris'. 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 diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 6111882..e9a117d 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -6,7 +6,7 @@ use 5.014; no if $] >= 5.018, warnings => 'experimental::smartmatch'; -our $VERSION = '0.00'; +our $VERSION = '0.01'; use Carp qw(confess cluck); use DateTime; @@ -273,7 +273,7 @@ Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors. =head1 VERSION -version 0.00 +version 0.01 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index 2b382c0..e672cd1 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -13,7 +13,7 @@ use DateTime; use DateTime::Format::Strptime; use List::MoreUtils qw(none uniq); -our $VERSION = '0.00'; +our $VERSION = '0.01'; Travel::Status::DE::IRIS::Result->mk_ro_accessors( qw(arrival classes date datetime delay departure is_cancelled line_no @@ -882,7 +882,8 @@ None. =head1 BUGS AND LIMITATIONS -None known. +The messages returned by B<delay_messages> and B<qos_messages> contain +duplicates. =head1 SEE ALSO @@ -890,7 +891,7 @@ Travel::Status::DE::IRIS(3pm). =head1 AUTHOR -Copyright (C) 2013 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt> +Copyright (C) 2013-2014 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt> =head1 LICENSE diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm index 891faf8..79884e8 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm +++ b/lib/Travel/Status/DE/IRIS/Stations.pm @@ -7,7 +7,7 @@ use utf8; use List::MoreUtils qw(firstval); -our $VERSION = '0.00'; +our $VERSION = '0.01'; my @stations = ( @@ -15154,7 +15154,7 @@ Travel::Status::DE::IRIS::Stations - Station name to station code mapping =head1 VERSION -version 0.00 +version 0.01 =head1 DESCRIPTION |