diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-01-20 17:02:14 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-01-20 17:02:14 +0000 |
| commit | b80d6f680e38b2389fee7dadefe2e504f47069da (patch) | |
| tree | c7b0cc5543dfc9ca35b8207ee6913098f8a7a5c8 /packages/fcl-web | |
| parent | 4d0d6f5ebcf051a2104737211d042858ab56797e (diff) | |
| download | fpc-b80d6f680e38b2389fee7dadefe2e504f47069da.tar.gz | |
* Reverted revision 26000, which is totally wrong
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@26533 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-web')
| -rw-r--r-- | packages/fcl-web/src/base/httpdefs.pp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/packages/fcl-web/src/base/httpdefs.pp b/packages/fcl-web/src/base/httpdefs.pp index 5a512568bf..b0ebe45cb5 100644 --- a/packages/fcl-web/src/base/httpdefs.pp +++ b/packages/fcl-web/src/base/httpdefs.pp @@ -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 |