loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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) {