loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1075.2.141.2.1, 2020/01/15 01:50:09	version 1.1075.2.141.2.2, 2020/02/04 22:28:29
Line 17342 sub is_nonframeable {	Line 17342 sub is_nonframeable {
}	}
my $uselink;	my $uselink;
my $request = new HTTP::Request('HEAD',$url);	my $request = new HTTP::Request('HEAD',$url);
my $response = &LONCAPA::LWPReq::makerequest('',$request,'','',5);	my $ua = LWP::UserAgent->new;
	$ua->timeout(5);
	my $response=$ua->request($request);
if ($response->is_success()) {	if ($response->is_success()) {
my $secpolicy = lc($response->header('content-security-policy'));	my $secpolicy = lc($response->header('content-security-policy'));
my $xframeop = lc($response->header('x-frame-options'));	my $xframeop = lc($response->header('x-frame-options'));