rpms
/
patrix
mirror of https://github.com/dani/patrix.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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

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;
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 ($opt->{proxy}){
if (eval { require LWP::Protocol::connect; }){
$opt->{proxy} =~ s|^http://(.*)|connect://$1|;
}
$lwp->proxy(['https'], $opt->{proxy});
}
else{
$lwp->env_proxy;
}
my $stdin = 0;
if (!-t STDIN){