rpms/patrix
1
0
Fork 0
mirror of https://github.com/dani/patrix.git synced 2024-06-18 12:49:13 +02:00
Code Issues Projects Releases Wiki Activity

USe LWP::Protocol::connect to handle https proxy if available

Browse Source
This commit is contained in:
Daniel Berteaud 2018-11-28 11:40:35 +01:00
parent be6cc12f2f
commit cb688ca984
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/patrix
View File

@ -83,13 +83,16 @@ foreach my $action (@actions){
my $lwp = LWP::UserAgent->new; my $lwp = LWP::UserAgent->new;
if (not $opt->{proxy} and defined $ENV{https_proxy}){
$opt->{proxy} = $ENV{https_proxy};
}
# If a proxy is specified then use it. Else, try to get global one # If a proxy is specified then use it. Else, try to get global one
if ($opt->{proxy}){ if ($opt->{proxy}){
if (eval { require LWP::Protocol::connect; }){
$opt->{proxy} =~ s|^http://(.*)|connect://$1|;
}
$lwp->proxy(['https'], $opt->{proxy}); $lwp->proxy(['https'], $opt->{proxy});
} }
else{
$lwp->env_proxy;
}
my $stdin = 0; my $stdin = 0;
if (!-t STDIN){ if (!-t STDIN){