diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-06-08 08:58:32 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-06-08 08:58:32 +0200 |
| commit | 4bc9bdcae3f990e9ad7c30bc5b9b7fd4ce2ca787 (patch) | |
| tree | 6e8f637430405d9de04052a0b7ffa8c6882b31aa | |
| parent | 52ff7afb67a4317dbd3b99465ebe10b6eda81fe5 (diff) | |
DBRIS: Support multiple proxies2.12.8
| -rw-r--r-- | lib/Travelynx/Helper/DBRIS.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Travelynx/Helper/DBRIS.pm b/lib/Travelynx/Helper/DBRIS.pm index 80c9c03..0a46758 100644 --- a/lib/Travelynx/Helper/DBRIS.pm +++ b/lib/Travelynx/Helper/DBRIS.pm @@ -97,7 +97,16 @@ sub get_journey_p { my $now = DateTime->now( time_zone => 'Europe/Berlin' ); my $agent = $self->{user_agent}; - if ( my $proxy = $self->{service_config}{'bahn.de'}{proxy} ) { + my $proxy; + if ( my @proxies = @{ $self->{service_config}{'bahn.de'}{proxies} // [] } ) + { + $proxy = $proxies[ int( rand( scalar @proxies ) ) ]; + } + elsif ( my $p = $self->{service_config}{'bahn.de'}{proxy} ) { + $proxy = $p; + } + + if ($proxy) { $agent = Mojo::UserAgent->new; $agent->proxy->http($proxy); $agent->proxy->https($proxy); |