version 1.2, 2016/07/25 19:49:45
|
version 1.5, 2018/12/22 17:52:39
|
Line 40 use LWP::UserAgent::DNS::Hosts();
|
Line 40 use LWP::UserAgent::DNS::Hosts();
|
use Apache::lonnet; |
use Apache::lonnet; |
|
|
sub makerequest { |
sub makerequest { |
my ($remotehostid,$request,$content,$perlvar,$timeout,$verifycert,$use_lc_ca,$debug) = @_; |
my ($remotehostid,$request,$content,$perlvar,$timeout,$verifycert,$use_lc_ca,$islocal,$debug) = @_; |
unless (ref($perlvar) eq' HASH') { |
unless (ref($perlvar) eq' HASH') { |
$perlvar = LONCAPA::Configuration::read_conf('loncapa.conf'); |
$perlvar = LONCAPA::Configuration::read_conf('loncapa.conf'); |
} |
} |
Line 115 sub makerequest {
|
Line 115 sub makerequest {
|
if ($use_lc_ca && $remotehostname && $fn) { |
if ($use_lc_ca && $remotehostname && $fn) { |
$ua->requests_redirectable(undef); |
$ua->requests_redirectable(undef); |
} |
} |
|
if ($islocal) { |
|
$ua->local_address('127.0.0.1'); |
|
} |
if ($content ne '') { |
if ($content ne '') { |
$response = $ua->request($request,$content); |
$response = $ua->request($request,$content); |
} else { |
} else { |
Line 168 sub makerequest {
|
Line 171 sub makerequest {
|
if ($use_lc_ca && $remotehostname && $fn) { |
if ($use_lc_ca && $remotehostname && $fn) { |
$ua->requests_redirectable(undef); |
$ua->requests_redirectable(undef); |
} |
} |
|
if ($islocal) { |
|
if (LWP::UserAgent->VERSION >= 5.834) { |
|
$ua->local_address('127.0.0.1'); |
|
} else { |
|
require LWP::Protocol::http; |
|
local @LWP::Protocol::http::EXTRA_SOCK_OPTS = |
|
(LocalAddr => '127.0.0.1'); |
|
} |
|
} |
if ($content ne '') { |
if ($content ne '') { |
$response = $ua->request($request,$content); |
$response = $ua->request($request,$content); |
} else { |
} else { |
Line 187 sub makerequest {
|
Line 199 sub makerequest {
|
$response = $ua->request($request); |
$response = $ua->request($request); |
} |
} |
} |
} |
|
if (($islocal) && (LWP::UserAgent->VERSION < 5.834)) { |
|
local @LWP::Protocol::http::EXTRA_SOCK_OPTS = (); |
|
} |
} |
} |
} |
} |
|
if ($debug) { |
|
$IO::Socket::SSL::DEBUG=0; |
|
} |
if ($dns_set) { |
if ($dns_set) { |
$dns_set = &unsetdns(); |
$dns_set = &unsetdns(); |
} |
} |