loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1172.2.99, 2018/09/11 17:21:07
+version 1.1172.2.100, 2018/09/21 03:58:53
  Line 2840  sub absolute_url {
  sub ssi {
      my ($fn,%form)=@_;
-     my $ua=new LWP::UserAgent;
+     my ($request,$response);
-     my $request;
      $form{'no_update_last_known'}=1;
      &Apache::lonenc::check_encrypt(\$fn);
- Line 2858  sub ssi {
+ Line 2857  sub ssi {
      }
      $request->header(Cookie => $ENV{'HTTP_COOKIE'});
-     my $response= $ua->request($request);
+     if ($islocal) {
+         if (LWP::UserAgent->VERSION >= 5.834) {
+             my $ua=new LWP::UserAgent;
+             $ua->local_address('127.0.0.1');
+             $response = $ua->request($request);
+         } else {
+             {
+                 require LWP::Protocol::http;
+                 local @LWP::Protocol::http::EXTRA_SOCK_OPTS = (LocalAddr => '127.0.0.1');
+                 my $ua=new LWP::UserAgent;
+                 $response = $ua->request($request);
+                 @LWP::Protocol::http::EXTRA_SOCK_OPTS = ();
+             }
+         }
+     } else {
+         my $ua=new LWP::UserAgent;
+         $response = $ua->request($request);
+     }
      if (wantarray) {
  	return ($response->content, $response);
      } else {