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

* Pass PATHINFO to request, full URL

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

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

@ -368,6 +368,7 @@ Var
begin
Request.Method:=GetNextWord(AStartLine);
Request.URL:=GetNextWord(AStartLine);
Request.PathInfo:=Request.URL;
S:=GetNextWord(AStartLine);
If (Pos('HTTP/',S)<>1) then
Raise Exception.Create(SErrMissingProtocol);