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

* Empty pathinfo

Browse Source 
git-svn-id: trunk@15351 -
This commit is contained in:
michael 2010-05-31 07:05:36 +00:00
parent 283018a3bf
commit 96055e24ea
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -388,11 +388,7 @@ begin
Case Index of
21,
34 : Result:=DecodeVar(14); // Property ServerName and Host
25 : begin
Result:=Decodevar(5); // Property PathInfo
If (Result='') then
Result:=Decodevar(34); // Property Request URI
end;
25 : Result:=Decodevar(5); // Property PathInfo
26 : Result:=DecodeVar(6); // Property PathTranslated
27 : Result:=DecodeVar(8); // Property RemoteAddress
28 : Result:=DecodeVar(9); // Property RemoteHost