From 86c30dcd6b010f143f05bae367b8acb84e0f6cee Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 1 May 2020 16:55:09 +0200 Subject: Fix VOR and LinzAG encoding --- bin/efa-m | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/efa-m b/bin/efa-m index 7e84863..93c6b6b 100755 --- a/bin/efa-m +++ b/bin/efa-m @@ -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, -- cgit v1.2.3