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

* Fix in case PATHINFO is used instead of full URL

Browse Source 
git-svn-id: trunk@17647 -
This commit is contained in:
michael 2011-06-03 07:36:36 +00:00
parent de1eb11025
commit cfb50fea87
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -85,12 +85,10 @@ Function TFPCustomFileModule.GetRequestFileName(Const ARequest : TRequest) : Str
begin begin
Result:=ARequest.PathInfo; Result:=ARequest.PathInfo;
If (Result='') then If (Result='') then
begin
Result:=ARequest.URI; Result:=ARequest.URI;
sb; sb;
If (BaseURL<>'') and (Pos(BaseURL,Result)=1) then If (BaseURL<>'') and (Pos(BaseURL,Result)=1) then
Delete(Result,1,Length(BaseURL)); Delete(Result,1,Length(BaseURL));
end;
sb; sb;
end; end;