loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1172.2.120, 2020/01/21 14:01:54	version 1.1172.2.121, 2020/01/21 19:03:08
Line 13251 sub uses_sts {	Line 13251 sub uses_sts {
return $sts_on;	return $sts_on;
}	}
}	}
	my $ua=new LWP::UserAgent;
my $url = $protocol{$lonhost}.'://'.$hostname.'/index.html';	my $url = $protocol{$lonhost}.'://'.$hostname.'/index.html';
my $request=new HTTP::Request('HEAD',$url);	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) {	if ($response->is_success) {
my $has_sts = $response->header('Strict-Transport-Security');	my $has_sts = $response->header('Strict-Transport-Security');
if ($has_sts eq '') {	if ($has_sts eq '') {