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

* Added fphttpstatus to fpmake.pp

Browse Source 
git-svn-id: trunk@40364 -
This commit is contained in:
joost 2018-11-23 13:49:59 +00:00
parent 234d442f71
commit db80944f47
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-web/fpmake.pp
View File

@ -182,6 +182,11 @@ begin
OSes:=[Win32,Win64];
Dependencies.AddUnit('custhttpsys');
end;
with P.Targets.AddUnit('fphttpstatus.pas') do
begin
Dependencies.AddUnit('fphttpserver');
Dependencies.AddUnit('HTTPDefs');
end;
T:=P.Targets.AddUnit('fcgigate.pp');
T.ResourceStrings:=true;
With T.Dependencies do

4
packages/fcl-web/src/base/fphttpstatus.pas
View File

@ -171,13 +171,13 @@ begin
HTTPEncode(ARequest.Connection.Server.AdminMail) +
'">' +
HTTPEncode(name) +
'</a> Port ' + ARequest.ServerPort +
'</a> Port ' + IntToStr(ARequest.ServerPort) +
'</address>'
else
Result := prefix + '<address>' + ARequest.Connection.Server.ServerBanner +
' Server at ' +
ARequest.Connection.Server.AdminMail +
' Port ' + ARequest.ServerPort +
' Port ' + IntToStr(ARequest.ServerPort) +
'</address>';
end;