From 7b4a411c128a82ef562bcbcccd773d16c56ab147 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Wed, 16 Apr 2025 19:49:10 +0200
Subject: DBRIS: Use optional proxy for map (journey) requests

---
 lib/DBInfoscreen/Helper/DBRIS.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/DBInfoscreen/Helper/DBRIS.pm')

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,
-- 
cgit v1.2.3