Commit fb3d484e authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

initial release

parent 673ae925

Build.PL

+2 −0
Original line number Diff line number Diff line
@@ -7,6 +7,8 @@ use Module::Build; 
Module::Build->new(



	build_requires => {

		'Test::Compile' => 0,

		'Test::Fatal' => 0,

		'Test::More' => 0,

		'Test::Pod' => 0,

	},

Changelog

0 → 100644
+3 −0
Original line number Diff line number Diff line 
Travel::Status::DE::IRIS 0.01 - Fri Jan 24 2014



    * Initial release. Experimental, API may change without notice

README

0 → 100644
+28 −0
Original line number Diff line number Diff line 
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'.

bin/db-iris

+10 −4
Original line number Diff line number Diff line
@@ -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

lib/Travel/Status/DE/IRIS.pm

+2 −2
Original line number Diff line number Diff line
@@ -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