diff options
Diffstat (limited to 'lib/Travelynx/Helper/DBDB.pm')
| -rw-r--r-- | lib/Travelynx/Helper/DBDB.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/Travelynx/Helper/DBDB.pm b/lib/Travelynx/Helper/DBDB.pm index 13f1f50..09d612e 100644 --- a/lib/Travelynx/Helper/DBDB.pm +++ b/lib/Travelynx/Helper/DBDB.pm @@ -63,11 +63,10 @@ sub has_wagonorder_p { my $agent = $self->{user_agent}; my $proxy; - if ( my @proxies = @{ $self->{service_config}{'bahn.de'}{proxies} // [] } ) - { + if ( my @proxies = @{ $self->{dbris_config}{'bahn.de'}{proxies} // [] } ) { $proxy = $proxies[ int( rand( scalar @proxies ) ) ]; } - elsif ( my $p = $self->{service_config}{'bahn.de'}{proxy} ) { + elsif ( my $p = $self->{dbris_config}{'bahn.de'}{proxy} ) { $proxy = $p; } @@ -137,11 +136,10 @@ sub get_wagonorder_p { my $agent = $self->{user_agent}; my $proxy; - if ( my @proxies = @{ $self->{service_config}{'bahn.de'}{proxies} // [] } ) - { + if ( my @proxies = @{ $self->{dbris_config}{'bahn.de'}{proxies} // [] } ) { $proxy = $proxies[ int( rand( scalar @proxies ) ) ]; } - elsif ( my $p = $self->{service_config}{'bahn.de'}{proxy} ) { + elsif ( my $p = $self->{dbris_config}{'bahn.de'}{proxy} ) { $proxy = $p; } |