loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.69, 2019/03/04 19:54:35	version 1.70, 2019/03/06 03:39:54
Line 567 sub handler {	Line 567 sub handler {
$fn = $env{'form.filename'};	$fn = $env{'form.filename'};
}	}
$fn=~s/\/+/\//g;	$fn=~s/\/+/\//g;
	if ($fn =~ m{/\.\./}) {
	$warning .= '<p class="LC_warning">'
	.&mt('Path modified as a result of one or more instances of /../')
	.'</p>';
	while ($fn =~ m{/\.\./}) {
	$fn =~ s{/[^/]+/\.\./}{/}g;
	}
	}

unless ($fn) {	unless ($fn) {
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.	$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.