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

* Fixed crash when getting remotehost. Bug #19397

Browse Source 
git-svn-id: trunk@17656 -
This commit is contained in:
michael 2011-06-04 16:47:29 +00:00
parent 0a96b3c5aa
commit 39c271d0f4
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-web/src/base/fpapache.pp
View File

@ -463,11 +463,9 @@ begin
If (Index in [1..NoHTTPFields]) then
begin
FN:=HTTPFieldNames[Index];
P:=apr_table_get(FRequest^.headers_in,pchar(FN));
If (P<>Nil) then
Result:=StrPas(P);
Result:=MaybeP(apr_table_get(FRequest^.headers_in,pchar(FN)));
end;
if (Result='') then
if (Result='') and Assigned(FRequest) then
case Index of
0 : Result:=MaybeP(FRequest^.protocol); // ProtocolVersion
7 : Result:=MaybeP(FRequest^.content_encoding); //ContentEncoding
@ -480,8 +478,8 @@ begin
If (FRequest^.Connection<>Nil) then
begin
Result:=MaybeP(ap_get_remote_host(FRequest^.Connection,
FRequest^.Per_Dir_Config,
REMOTE_HOST,Nil));
nil,
REMOTE_NAME,@i));
end;
29 : begin // ScriptName
Result:=MaybeP(FRequest^.unparsed_uri);