diff options
| -rwxr-xr-x | bin/efa-m | 3 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 5 |
2 files changed, 8 insertions, 0 deletions
@@ -16,6 +16,7 @@ use Travel::Status::DE::EFA; my $efa_url = 'http://efa.vrr.de/vrr/XSLT_DM_REQUEST'; my ( $date, $time, $input_type, $list_lines, $offset, $relative_times ); +my ($full_routes); my ( $timeout, $developer_mode ); my ( @grep_lines, @grep_platforms ); @@ -26,6 +27,7 @@ GetOptions( 'h|help' => sub { show_help(0) }, 'l|line=s@' => \@grep_lines, 'L|linelist' => \$list_lines, + 'f|full-route' => \$full_routes, 'o|offset=i' => \$offset, 'p|platform=s@' => \@grep_platforms, 'r|relative' => \$relative_times, @@ -55,6 +57,7 @@ my $status = Travel::Status::DE::EFA->new( date => $date, developer_mode => $developer_mode, efa_url => $efa_url, + full_routes => $full_routes, place => $place, name => $input, time => $time, diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index 0143cb6..76b87f2 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -107,6 +107,11 @@ sub new { developer_mode => $opt{developer_mode}, }; + if ( $opt{full_routes} ) { + $self->{post}->{depType} = 'stopEvents'; + $self->{post}->{includeCompleteStopSeq} = 1; + } + bless( $self, $class ); $ua->env_proxy; |