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

* Fix setting pathinfo (bug ID 27915)

Browse Source 
git-svn-id: trunk@30688 -
This commit is contained in:
michael 2015-04-21 06:51:34 +00:00
parent bde7d0aacb
commit 4ea2ed36db
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -440,13 +440,17 @@ procedure ParseStartLine(Request : TFPHTTPConnectionRequest; AStartLine : String
Var
S : String;
I : Integer;
begin
Request.Method:=GetNextWord(AStartLine);
Request.URL:=GetNextWord(AStartLine);
S:=Request.URL;
If (S<>'') and (S[1]='/') then
Delete(S,1,1);
I:=Pos('?',S);
if (I>0) then
S:=Copy(S,1,I-1);
Request.PathInfo:=S;
S:=GetNextWord(AStartLine);
If (Pos('HTTP/',S)<>1) then