paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:09:45 +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

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

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