paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* invert existence and allowed checking

Browse Source 
git-svn-id: trunk@39405 -
This commit is contained in:
michael 2018-07-07 14:08:36 +00:00
parent bebd4483d2
commit 4522494982
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-web/src/base/fpwebfile.pp
View File

@ -266,20 +266,20 @@ begin
exit; exit;
end; end;
FN:=MapFileName(RFN); FN:=MapFileName(RFN);
if (FN='') or not FileExists(FN) then if (FN='') or not AllowFile(FN) then
begin
AResponse.Code:=404;
AResponse.CodeText:='Not found';
AResponse.SendContent;
exit;
end;
if not AllowFile(FN) then
begin begin
AResponse.Code:=403; AResponse.Code:=403;
AResponse.CodeText:='Forbidden'; AResponse.CodeText:='Forbidden';
AResponse.SendContent; AResponse.SendContent;
exit; exit;
end; end;
if not FileExists(FN) then
begin
AResponse.Code:=404;
AResponse.CodeText:='Not found';
AResponse.SendContent;
exit;
end;
SendFile(FN,AResponse); SendFile(FN,AResponse);
end; end;