diff options
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa-m | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -16,6 +16,7 @@ use List::Util qw(first max); use Travel::Status::DE::EFA; my $efa_url = 'http://efa.vrr.de/vrr/XSLT_DM_REQUEST'; +my $efa_encoding; my ( $date, $time, $input_type, $list_lines, $offset, $relative_times ); my ($full_routes); my ( $filter_via, $track_via ); @@ -95,7 +96,8 @@ if ($service) { ); exit 1; } - $efa_url = $service_ref->{url}; + $efa_url = $service_ref->{url}; + $efa_encoding = $service_ref->{encoding}; } sub new_efa_by_url { @@ -104,6 +106,7 @@ sub new_efa_by_url { date => $date, developer_mode => $developer_mode, efa_url => $url, + efa_encoding => $efa_encoding, full_routes => $full_routes, place => $place, name => $input, |