summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-05-29 15:09:12 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-05-29 15:09:12 +0200
commit46fbe0aef7b81bbc80a081101e97cadf5968963d (patch)
treedbb3a658a88fd297158a6717685dd834d2655db4
parent7f49411f87ec0533a261ce875967f7f9a22b8777 (diff)
add full-route / full_routes option (passed to EFA, but not used yet)
-rwxr-xr-xbin/efa-m3
-rw-r--r--lib/Travel/Status/DE/EFA.pm5
2 files changed, 8 insertions, 0 deletions
diff --git a/bin/efa-m b/bin/efa-m
index 0b1544d..bda2185 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -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;