paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 05:11:38 +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

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

@ -59,10 +59,8 @@ const
fieldSetCookie = 'Set-Cookie';
fieldUserAgent = 'User-Agent';
fieldWWWAuthenticate = 'WWW-Authenticate';
fieldHost = 'Host';
fieldCacheControl = 'Cache-Control';
NoHTTPFields = 26;
NoHTTPFields = 24;
HTTPDateFmt = '"%s", dd "%s" yyyy hh:mm:ss'; // For use in FormatDateTime
SCookieExpire = ' "Expires="'+HTTPDateFmt+' "GMT"';
@ -91,8 +89,7 @@ Const
fieldContentType, fieldCookie, fieldDate, fieldExpires,
fieldFrom, fieldIfModifiedSince, fieldLastModified, fieldLocation,
fieldPragma, fieldReferer, fieldRetryAfter, fieldServer,
fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate, fieldHost,
fieldCacheControl);
fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate);
type
@ -868,7 +865,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