version 1.2, 2019/05/02 20:28:18
|
version 1.3, 2019/05/02 23:09:38
|
Line 98 sub handler {
|
Line 98 sub handler {
|
((&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) || |
((&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) || |
(&Apache::lonnet::allowed('cev',$env{'request.course.id'})))) { |
(&Apache::lonnet::allowed('cev',$env{'request.course.id'})))) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['exturl']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['exturl']); |
if ($env{'form.exturl'} =~ m{^https?\://[^/]+}) { |
$env{'form.exturl'} =~ s/^\s+|\s+$//g; |
|
if ($env{'form.exturl'} =~ m{^https?\://([a-z0-9]+(-[a-z0-9]+)*\.)+[a-z]{2,}}i) { |
my $hostname = $r->hostname(); |
my $hostname = $r->hostname(); |
my $lonhost = $r->dir_config('lonHostID'); |
my $lonhost = $r->dir_config('lonHostID'); |
my $ip = &Apache::lonnet::get_host_ip($lonhost); |
my $ip = &Apache::lonnet::get_host_ip($lonhost); |
$r->print(&Apache::loncommon::is_nonframeable($env{'form.exturl'},'',$hostname,$ip)); |
$r->print(&Apache::loncommon::is_nonframeable($env{'form.exturl'},'',$hostname,$ip,1)); |
} else { |
} else { |
$r->print(0); |
$r->print(0); |
} |
} |