paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not decode Querystring yet. This is done when parsing it in name=value

Browse Source 
git-svn-id: trunk@25081 -
This commit is contained in:
michael 2013-07-10 13:29:46 +00:00
parent 8b97972482
commit e992431bc4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -324,10 +324,12 @@ end;
Function TCGIRequest.GetFieldValue(Index : Integer) : String;
Function DecodeVar(I : Integer) : String;
Function DecodeVar(I : Integer; DoDecode : Boolean = true) : String;
begin
Result:=HTTPDecode(GetEnvironmentVariable(CGIVarNames[I]));
Result:=GetEnvironmentVariable(CGIVarNames[I]);
if DoDecode then
Result:=HttpDecode(Result)
end;
begin
@ -342,7 +344,7 @@ begin
30 : Result:=DecodeVar(15); // Property ServerPort
31 : Result:=DecodeVar(12); // Property RequestMethod
32 : Result:=DecodeVar(34); // Property URI
33 : Result:=DecodeVar(7); // Property QueryString
33 : Result:=DecodeVar(7,False); // Property QueryString
36 : Result:=DecodeVar(36); // Property XRequestedWith
else
Result:=Inherited GetFieldValue(Index);