diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_Browser.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_Browser.pm index 5f41f37cc..bcb612e85 100644 --- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_Browser.pm +++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_Browser.pm @@ -22,6 +22,7 @@ sub ua { # TODO : LWP options to use a proxy for example $_ua = LWP::UserAgent->new() or $self->abort($@); push @{ $_ua->requests_redirectable }, 'POST'; + $self->ua()->env_proxy(); return $_ua; } diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_CAS.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_CAS.pm index 4b0e1f4cc..787675e78 100644 --- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_CAS.pm +++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_CAS.pm @@ -239,8 +239,6 @@ sub deleteCasSession { sub callPgtUrl { my ( $self, $pgtUrl, $pgtIou, $pgtId ) = splice @_; - $self->ua()->env_proxy(); - # Build URL my $url = $pgtUrl; $url .= ( $pgtUrl =~ /\?/ ? '&' : '?' ); @@ -253,7 +251,6 @@ sub callPgtUrl { # Return result return $response->is_success(); - } 1;