diff options
Diffstat (limited to 'lib/Travel/Status/DE/HAFAS.pm')
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 638b4af..bc274d7 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -45,6 +45,13 @@ sub new { if ( $service and $hafas_instance->{$service}{ua_string} ) { $lwp_options{agent} = $hafas_instance->{$service}{ua_string}; } + if ( $service + and my $geoip_service = $hafas_instance->{$service}{geoip_lock} ) + { + if ( my $proxy = $ENV{"HAFAS_PROXY_${geoip_service}"} ) { + $lwp_options{proxy} = [ [ 'http', 'https' ] => $proxy ]; + } + } $ua = LWP::UserAgent->new(%lwp_options); $ua->env_proxy; } |