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

* Reverted revision 26000, which is totally wrong

Browse Source 
git-svn-id: trunk@26533 -
This commit is contained in:
michael 2014-01-20 17:02:14 +00:00
parent 5e15e4b07d
commit 24e9e8a68c
1 changed files with 3 additions and 6 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,10 +59,8 @@ const
fieldSetCookie = 'Set-Cookie'; fieldSetCookie = 'Set-Cookie';
fieldUserAgent = 'User-Agent'; fieldUserAgent = 'User-Agent';
fieldWWWAuthenticate = 'WWW-Authenticate'; fieldWWWAuthenticate = 'WWW-Authenticate';
fieldHost = 'Host';
fieldCacheControl = 'Cache-Control';
NoHTTPFields = 26; NoHTTPFields = 24;
HTTPDateFmt = '"%s", dd "%s" yyyy hh:mm:ss'; // For use in FormatDateTime HTTPDateFmt = '"%s", dd "%s" yyyy hh:mm:ss'; // For use in FormatDateTime
SCookieExpire = ' "Expires="'+HTTPDateFmt+' "GMT"'; SCookieExpire = ' "Expires="'+HTTPDateFmt+' "GMT"';
@ -91,8 +89,7 @@ Const
fieldContentType, fieldCookie, fieldDate, fieldExpires, fieldContentType, fieldCookie, fieldDate, fieldExpires,
fieldFrom, fieldIfModifiedSince, fieldLastModified, fieldLocation, fieldFrom, fieldIfModifiedSince, fieldLastModified, fieldLocation,
fieldPragma, fieldReferer, fieldRetryAfter, fieldServer, fieldPragma, fieldReferer, fieldRetryAfter, fieldServer,
fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate, fieldHost, fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate);
fieldCacheControl);
type type
@ -868,7 +865,7 @@ end;
Procedure THttpHeader.SetFieldValue(Index : Integer; Value : String); Procedure THttpHeader.SetFieldValue(Index : Integer; Value : String);
begin begin
if (Index>=1) and (Index<=NoHTTPFields) then if (Index>1) and (Index<NoHTTPFields) then
begin begin
FFields[Index]:=Value; FFields[Index]:=Value;
If (Index=11) then If (Index=11) then