Copy the proxy scheme from the target scheme.
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Tue, 4 Jul 2017 10:52:28 +0000 (12:52 +0200)
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Tue, 4 Jul 2017 10:52:28 +0000 (12:52 +0200)
EximBuild/WebTxn.pm

index 27c9cbe5f64eba5201e303d7b081e2e4a8f3befa..1605fb9229a27a9b7c59f14d2575fe0da1d406ae 100644 (file)
@@ -8,10 +8,10 @@ See accompanying License file for license details
 
 
 Most of this code is imported from the older standalone script run_web_txn.pl
 
 
 Most of this code is imported from the older standalone script run_web_txn.pl
-which is now just a shell that calls the function below. It is now only 
+which is now just a shell that calls the function below. It is now only
 needed on older Msys installations (i.e. things running perl < 5.8).
 
 needed on older Msys installations (i.e. things running perl < 5.8).
 
-=cut 
+=cut
 
 use strict;
 use URI::Escape;
 
 use strict;
 use URI::Escape;
@@ -115,7 +115,9 @@ sub run_web_txn
     $ua->agent("Exim Build Farm Reporter");
     if (my $proxy = $ENV{BF_PROXY})
     {
     $ua->agent("Exim Build Farm Reporter");
     if (my $proxy = $ENV{BF_PROXY})
     {
-        $ua->proxy('http',$proxy);
+        # untested. Please notify hs@schlittermann.de, if you
+        # encounter any problem here:
+        $ua->proxy(URI->new($target)->scheme, $proxy);
     }
 
     my $request=HTTP::Request->new(POST => "$target/$sig");
     }
 
     my $request=HTTP::Request->new(POST => "$target/$sig");