version 1.2, 2019/05/02 20:28:18
|
version 1.4, 2020/02/15 03:54:43
|
Line 76 use strict;
|
Line 76 use strict;
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon; |
use Apache::loncommon; |
use LONCAPA::LWPReq; |
|
use HTTP::Request; |
use HTTP::Request; |
|
|
sub handler { |
sub handler { |
Line 98 sub handler {
|
Line 97 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); |
} |
} |