loncom/interface/lonexturlcheck.pm - diff

Return to lonexturlcheck.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);
}	}