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 Original line Diff line number Diff line
@@ -7,6 +7,8 @@ use Module::Build; 
Module::Build->new(

Module::Build->new(





	build_requires => {

	build_requires => {

		'Test::Compile' => 0,

		'Test::Fatal' => 0,

		'Test::More' => 0,

		'Test::More' => 0,

		'Test::Pod' => 0,

		'Test::Pod' => 0,

	},

	},

Changelog

0 → 100644
+3 −0
Original line number Original line 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 Original line 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 Original line Diff line number Diff line
@@ -6,7 +6,7 @@ use utf8; 




no if $] >= 5.018, warnings => 'experimental::smartmatch';

no if $] >= 5.018, warnings => 'experimental::smartmatch';





our $VERSION = '0.00';

our $VERSION = '0.01';





use DateTime;

use DateTime;

use DateTime::Format::Strptime;

use DateTime::Format::Strptime;
@@ -148,6 +148,12 @@ sub display_result { 




		my $d = $line->[5];

		my $d = $line->[5];





		if (    $edata{delays}

			and $d->delay_messages )

		{

			printf( '  %s',

				join( q{  }, map { $_->[1] } ( reverse $d->delay_messages ) ) );

		}

		if (    $edata{delay}

		if (    $edata{delay}

			and ( $d->delay or $d->is_cancelled )

			and ( $d->delay or $d->is_cancelled )

			and $d->delay_messages )

			and $d->delay_messages )
@@ -262,7 +268,7 @@ I<station> 




=head1 VERSION

=head1 VERSION





version 0.00

version 0.01





=head1 DESCRIPTION

=head1 DESCRIPTION
@@ -313,7 +319,7 @@ Valid output types are: 




If a train is delayed, show the most recent reason for this delay.

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

List all delay reasons entered into the IRIS for each train, even if the

particular train is on time by now.

particular train is on time by now.
@@ -415,7 +421,7 @@ None. 




=head1 BUGS AND LIMITATIONS

=head1 BUGS AND LIMITATIONS





Todo.

B<-oD> and B<-oq> contain duplicate entries.





=head1 AUTHOR

=head1 AUTHOR

lib/Travel/Status/DE/IRIS.pm

+2 −2
Original line number Original line Diff line number Diff line
@@ -6,7 +6,7 @@ use 5.014; 




no if $] >= 5.018, warnings => 'experimental::smartmatch';

no if $] >= 5.018, warnings => 'experimental::smartmatch';





our $VERSION = '0.00';

our $VERSION = '0.01';





use Carp qw(confess cluck);

use Carp qw(confess cluck);

use DateTime;

use DateTime;
@@ -273,7 +273,7 @@ Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors. 




=head1 VERSION

=head1 VERSION





version 0.00

version 0.01





=head1 DESCRIPTION

=head1 DESCRIPTION