loncom/cgi/decompress.pl - diff

Return to decompress.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.18, 2012/04/19 02:13:00	version 1.19, 2012/11/27 11:33:17
Line 72 END	Line 72 END
} else {	} else {
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
my $lonuserroot = $Apache::lonnet::perlvar{'lonUsersDir'};	my $lonuserroot = $Apache::lonnet::perlvar{'lonUsersDir'};
if (($dir !~ /^\Qlondocroot\E/) && ($dir !~ /^\Q$lonuserroot\E/)) {	if (($dir !~ /^\Q$londocroot\E/) && ($dir !~ /^\Q$lonuserroot\E/)) {
print('<html><body><span class="LC_error">'.$lt{'extf'}.'<br />'."\n".	print('<html><body><span class="LC_error">'.$lt{'extf'}.'<br />'."\n".
&Apache::lonlocal::mt('The specified directory "[_1]" is invalid',$dir).	&Apache::lonlocal::mt('The specified directory "[_1]" is invalid',$dir).
'</span></body></html>');	'</span></body></html>');