git://git.exim.org
/
buildfarm-client.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Copy the proxy scheme from the target scheme.
[buildfarm-client.git]
/
EximBuild
/
WebTxn.pm
diff --git
a/EximBuild/WebTxn.pm
b/EximBuild/WebTxn.pm
index 27c9cbe5f64eba5201e303d7b081e2e4a8f3befa..1605fb9229a27a9b7c59f14d2575fe0da1d406ae 100644
(file)
--- a/
EximBuild/WebTxn.pm
+++ b/
EximBuild/WebTxn.pm
@@
-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");