diff options
| -rw-r--r-- | lib/DBInfoscreen/Helper/DBRIS.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/DBInfoscreen/Helper/DBRIS.pm b/lib/DBInfoscreen/Helper/DBRIS.pm index 39d1cb0..17f0084 100644 --- a/lib/DBInfoscreen/Helper/DBRIS.pm +++ b/lib/DBInfoscreen/Helper/DBRIS.pm @@ -13,6 +13,7 @@ use Encode qw(decode encode); use Travel::Status::DE::DBRIS; use Mojo::JSON qw(decode_json); use Mojo::Promise; +use Mojo::UserAgent; sub new { my ( $class, %opt ) = @_; @@ -38,6 +39,13 @@ sub get_polyline_p { my $agent = $self->{user_agent}; + if ( my $proxy = $ENV{DBFAKEDISPLAY_DBRIS_PROXY} ) { + say "set up proxy $proxy"; + $agent = Mojo::UserAgent->new; + $agent->proxy->http($proxy); + $agent->proxy->https($proxy); + } + Travel::Status::DE::DBRIS->new_p( journey => $trip_id, with_polyline => 1, |