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

* Fix query var setting (bug ID 27915)

Browse Source 
git-svn-id: trunk@30689 -
This commit is contained in:
michael 2015-04-21 11:06:01 +00:00
parent 4ea2ed36db
commit ea9fc6581a
1 changed files with 4 additions and 2 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

@ -274,10 +274,12 @@ end;
procedure TFPHTTPConnectionRequest.InitRequestVars;
Var
P : Integer;
S : String;
begin
P:=Pos('?',URI);
S:=URL;
P:=Pos('?',S);
if (P<>0) then
SetHTTPVariable(hvQuery,Copy(URI,P+1,Length(URI)-P));
SetHTTPVariable(hvQuery,Copy(S,P+1,Length(S)-P));
if Assigned(FConnection) and FConnection.LookupHostNames then
SetHTTPVariable(hvRemoteHost,GetHostNameByAddress(RemoteAddress));
inherited InitRequestVars;