version 1.1329, 2019/05/02 23:09:38
|
version 1.1330, 2019/05/03 00:35:46
|
Line 18195 sub shorten_symbs {
|
Line 18195 sub shorten_symbs {
|
sub is_nonframeable { |
sub is_nonframeable { |
my ($url,$absolute,$hostname,$ip,$nocache) = @_; |
my ($url,$absolute,$hostname,$ip,$nocache) = @_; |
my ($remprotocol,$remhost) = ($url =~ m{^(https?)\://(([a-z0-9]+(-[a-z0-9]+)*\.)+[a-z]{2,})}i); |
my ($remprotocol,$remhost) = ($url =~ m{^(https?)\://(([a-z0-9]+(-[a-z0-9]+)*\.)+[a-z]{2,})}i); |
return if (($remprotocol eq '') || ($remhost eq '')); |
return if (($remprotocol eq '') || ($remhost eq '')); |
|
|
$remprotocol = lc($remprotocol); |
$remprotocol = lc($remprotocol); |
$remhost = lc($remhost); |
$remhost = lc($remhost); |
Line 18203 sub is_nonframeable {
|
Line 18203 sub is_nonframeable {
|
if ($remprotocol eq 'https') { |
if ($remprotocol eq 'https') { |
$remport = 443; |
$remport = 443; |
} |
} |
my ($result,$cached) = &Apache::lonnet::is_cached_new('exturlnoiframe',$remhost.':'.$remport); |
my ($result,$cached) = &Apache::lonnet::is_cached_new('noiframe',$remhost.':'.$remport); |
if ($cached) { |
if ($cached) { |
unless ($nocache) { |
unless ($nocache) { |
if ($result) { |
if ($result) { |