Diff for /loncom/LWPReq.pm between versions 1.2 and 1.5

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();
    }     }

Removed from v.1.2  
changed lines
  Added in v.1.5


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>