[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /lonnet/perl lonnet.pm

[raeburn]

raeburn		Tue Jan 21 19:03:10 2020 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - For 2.11 modified
    Use LWP::UserAgent instead of LONCAPA::LWPReq (which is not in 2.11)
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1172.2.120 loncom/lonnet/perl/lonnet.pm:1.1172.2.121
--- loncom/lonnet/perl/lonnet.pm:1.1172.2.120	Tue Jan 21 14:01:54 2020
+++ loncom/lonnet/perl/lonnet.pm	Tue Jan 21 19:03:08 2020
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.120 2020/01/21 14:01:54 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.121 2020/01/21 19:03:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -13251,9 +13251,10 @@
                 return $sts_on;
             }
         }
+        my $ua=new LWP::UserAgent;
         my $url = $protocol{$lonhost}.'://'.$hostname.'/index.html';
         my $request=new HTTP::Request('HEAD',$url);
-        my $response=&LONCAPA::LWPReq::makerequest($lonhost,$request,'',\%perlvar,'','','',1);
+        my $response=$ua->request($request);
         if ($response->is_success) {
             my $has_sts = $response->header('Strict-Transport-Security');
             if ($has_sts eq '') {