Skip to content

P
pve-manager
Commit e6208183 authored by Dietmar Maurer's avatar Dietmar Maurer
Browse files
Options

subscription updates: set UserAgent header on proxy connect request

parent f8cfbf75
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 0 deletions
PVE/API2/Subscription.pm
View file @ e6208183
...@@ -4,6 +4,7 @@ use strict; ...@@ -4,6 +4,7 @@ use strict;
use warnings; use warnings;
use Digest::MD5 qw(md5_hex md5_base64); use Digest::MD5 qw(md5_hex md5_base64);
use MIME::Base64; use MIME::Base64;
use Net::SSL;
use HTTP::Request; use HTTP::Request;
use LWP::UserAgent; use LWP::UserAgent;
use JSON; use JSON;
...@@ -231,6 +232,8 @@ sub check_subscription { ...@@ -231,6 +232,8 @@ sub check_subscription {
local ($ENV{HTTPS_PROXY}, $ENV{HTTPS_PROXY_USERNAME}, $ENV{HTTPS_PROXY_PASSWORD}); local ($ENV{HTTPS_PROXY}, $ENV{HTTPS_PROXY_USERNAME}, $ENV{HTTPS_PROXY_PASSWORD});
if ($proxy) { if ($proxy) {
# some proxies reject connection if UserAgent header is not set
Net::SSL::send_useragent_to_proxy(1);
($ENV{HTTPS_PROXY}, $ENV{HTTPS_PROXY_USERNAME}, $ENV{HTTPS_PROXY_PASSWORD}) = ($ENV{HTTPS_PROXY}, $ENV{HTTPS_PROXY_USERNAME}, $ENV{HTTPS_PROXY_PASSWORD}) =
PVE::API2Tools::parse_http_proxy($proxy); PVE::API2Tools::parse_http_proxy($proxy);
$ua->proxy(['http'], $proxy); $ua->proxy(['http'], $proxy);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Technounit-GROUP 2023