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

Add --efa-url option to efa-m

parent 5b0acd78

COPYING

+1 −1
Original line number Diff line number Diff line 
Copyright (C) 2011 Daniel Friesel <derf@finalrewind.org>

Copyright (C) 2011-2014 Daniel Friesel <derf@finalrewind.org>



All files in this distribution are licensed under the same terms as Perl

itself.

Changelog

+8 −0
Original line number Diff line number Diff line 
Travel::Status::DE::VRR 1.06 - Thu Jan 02 2014



    * Add Travel::Status::DE::EFA module, move ::Result and ::Line to

      Travel::Status::DE::EFA. Travel::Status::DE::VRR now inherits from

      ::EFA, no API changes were made.

    * Travel::Status::DE::EFA has a mandatory efa_url parameter to set the

      entry point to an EFA service



Travel::Status::DE::VRR 1.05 - Wed Dec 18 2013



    * Add -r, --relative option to use relative times

bin/efa-m

+19 −10
Original line number Diff line number Diff line
@@ -5,14 +5,15 @@ use 5.010; 


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



our $VERSION = '1.05';

our $VERSION = '1.06';



binmode( STDOUT, ':encoding(utf-8)' );



use Getopt::Long qw(:config no_ignore_case);

use List::Util qw(max);

use Travel::Status::DE::VRR;

use Travel::Status::DE::EFA;



my $efa_url = 'http://efa.vrr.de/vrr/XSLT_DM_REQUEST';

my ( $date, $time, $input_type, $list_lines, $relative_times );

my ( @grep_lines, @grep_platforms );
@@ -24,6 +25,7 @@ GetOptions( 
	'p|platform=s@' => \@grep_platforms,

	'r|relative'    => \$relative_times,

	't|time=s'      => \$time,

	'u|efa-url=s'   => \$efa_url,

	'V|version'     => \&show_version,



) or show_help(1);
@@ -42,8 +44,9 @@ if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) { 
	$input_type = $+{type};

}



my $status = Travel::Status::DE::VRR->new(

my $status = Travel::Status::DE::EFA->new(

	date    => $date,

	efa_url => $efa_url,

	place   => $place,

	name    => $input,

	time    => $time,
@@ -183,7 +186,7 @@ B<efa-m> [B<-d> I<date>] [B<-t> I<time>] I<city> [I<type>B<:>]I<name> 


=head1 VERSION



version 1.05

version 1.06



=head1 DESCRIPTION
@@ -219,6 +222,12 @@ Use relative departure times. 


Show departures starting at I<time> instead of now.



=item B<-u>, B<--efa-url> I<url>



URL to the EFA entry point, defaults to L<http://efa.vrr.de/vrr/XSLT_DM_REQUEST>.

Depending on your location, some I<url>s may contain more specific data

than others.  See Travel::Status::DE::EFA(3pm) for alternatives.



=item B<-V>, B<--version>



Show version information.
@@ -251,7 +260,7 @@ Unknown. 


=head1 AUTHOR



Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>

Copyright (C) 2011-2014 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>



=head1 LICENSE

lib/Travel/Status/DE/EFA.pm

+6 −3
Original line number Diff line number Diff line
@@ -6,7 +6,7 @@ use 5.010; 


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



our $VERSION = '1.05';

our $VERSION = '1.06';



use Carp qw(confess cluck);

use Encode qw(encode decode);
@@ -389,7 +389,7 @@ Travel::Status::DE::EFA - unofficial EFA departure monitor 


=head1 VERSION



version 1.05

version 1.06



=head1 DESCRIPTION
@@ -425,6 +425,9 @@ URL to the EFA service. Known URLs are: 


=back



If you found a URL not listed here, please send it to

E<lt>derf@finalrewind.orgE<gt>.



=item B<place> => I<place>



Name of the place/city
@@ -483,7 +486,7 @@ efa-m(1), Travel::Status::DE::EFA::Result(3pm). 


=head1 AUTHOR



Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>

Copyright (C) 2011-2014 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>



=head1 LICENSE

lib/Travel/Status/DE/EFA/Line.pm

+3 −3
Original line number Diff line number Diff line
@@ -6,7 +6,7 @@ use 5.010; 


use parent 'Class::Accessor';



our $VERSION = '1.05';

our $VERSION = '1.06';



Travel::Status::DE::EFA::Line->mk_ro_accessors(

	qw(direction name operator route type valid));
@@ -46,7 +46,7 @@ requested station 


=head1 VERSION



version 1.05

version 1.06



=head1 DESCRIPTION
@@ -130,7 +130,7 @@ Travel::Status::DE::EFA(3pm). 


=head1 AUTHOR



Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>

Copyright (C) 2011-2014 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>



=head1 LICENSE