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

* Patch from Fabio Girardi to support ifNoneChanged header using enumerated

Browse Source 
git-svn-id: trunk@45421 -
This commit is contained in:
michael 2020-05-18 15:07:13 +00:00
parent 2639e8af7e
commit feb861e73a
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,7 +89,7 @@ const
FieldCookie = HeaderCookie deprecated;
FieldSetCookie = HeaderSetCookie deprecated;
NoHTTPFields = 27;
NoHTTPFields = 28;
HTTPDateFmt = httpProtocol.HTTPDateFmt;
SCookieExpire = httpProtocol.SCookieExpire;
@ -129,7 +129,7 @@ Const
fieldFrom, fieldIfModifiedSince, fieldLastModified, fieldLocation,
fieldPragma, fieldReferer, fieldRetryAfter, fieldServer,
fieldSetCookie, fieldUserAgent, fieldWWWAuthenticate,
fieldHost, fieldCacheControl,fieldXRequestedWith) deprecated;
fieldHost, fieldCacheControl,fieldXRequestedWith,fieldIfNoneMatch) deprecated;
// Map header names on indexes in property getter/setter. 0 means not mapped !
HTTPFieldIndexes : THTTPIndexes
@ -140,7 +140,7 @@ Const
14,15,16,17,
18,19,20,21,
22,23,24,
34,0,36) deprecated;
34,0,36,26) deprecated;
@ -553,6 +553,8 @@ type
Procedure RemoveVariable(VariableName : String); virtual; abstract;
// Terminate session
Procedure Terminate; virtual; abstract;
// checks if session variable exists
Function SessionVariableExists(VarName : String) : Boolean; Virtual; abstract;
// Session timeout in minutes
Property TimeOutMinutes : Integer Read FTimeOut Write FTimeOut default 15;
// ID of this session.
@ -595,6 +597,7 @@ type
THandleCORSOption = (hcDetect, // Detect OPTIONS request, send full headers
hcFull, // Force sending full headers
hcHumanReadable, // Human readable result
hcSend // In case of full headers, send response
);
THandleCORSOptions = set of THandleCORSOption;
@ -1092,7 +1095,7 @@ Const
6,7,8,
9,-1,-1,-1,
10,12,-1,13,-1,
14,34,-1,15,-1,
14,34,-1,15,26,
-1,-1,16,17,-1,
18,-1,-1,-1,19,
20,21,-1,-1,

7
packages/fcl-web/src/base/iniwebsession.pp
View File

@ -46,6 +46,7 @@ Type
Public
Destructor Destroy; override;
Procedure Terminate; override;
function SessionVariableExists(VarName: String): Boolean; override;
Procedure UpdateResponse(AResponse : TResponse); override;
Procedure InitSession(ARequest : TRequest; OnNewSession, OnExpired: TNotifyEvent); override;
Procedure InitResponse(AResponse : TResponse); override;
@ -359,6 +360,12 @@ begin
RemoveFromSessionState(ssExpired);
end;
function TIniWebSession.SessionVariableExists(VarName: String): Boolean;
begin
CheckSession;
Result:=FIniFile.ValueExists(SData,VarName);
end;
procedure TIniWebSession.UpdateResponse(AResponse: TResponse);
begin
// Do nothing. Init has done the job.