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

* adds IP and cachecontrol headers to http defs. Patch by Silvio Clécio

Browse Source 
Mantis #25263

git-svn-id: trunk@26000 -
This commit is contained in:
marco 2013-11-09 17:06:07 +00:00
parent b8de1370a0
commit 22236de331
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-web/src/base/httpdefs.pp
View File

@ -59,8 +59,10 @@ const
fieldSetCookie = 'Set-Cookie';
fieldUserAgent = 'User-Agent';
fieldWWWAuthenticate = 'WWW-Authenticate';
fieldHost = 'Host';
fieldCacheControl = 'Cache-Control';
NoHTTPFields = 24;
NoHTTPFields = 26;
HTTPDateFmt = '"%s", dd "%s" yyyy hh:mm:ss'; // For use in FormatDateTime
SCookieExpire = ' "Expires="'+HTTPDateFmt+' "GMT"';
@ -89,7 +91,8 @@ Const
fieldContentType, fieldCookie, fieldDate, fieldExpires,
fieldFrom, fieldIfModifiedSince, fieldLastModified, fieldLocation,
fieldPragma, fieldReferer, fieldRetryAfter, fieldServer,
fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate);
fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate, fieldHost,
fieldCacheControl);
type
@ -865,7 +868,7 @@ end;
Procedure THttpHeader.SetFieldValue(Index : Integer; Value : String);
begin
if (Index>1) and (Index<NoHTTPFields) then
if (Index>=1) and (Index<=NoHTTPFields) then
begin
FFields[Index]:=Value;
If (Index=11) then