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

* Add support for SameSite attribute of cookie (bug ID 0037115)

Browse Source 
git-svn-id: trunk@45446 -
This commit is contained in:
michael 2020-05-20 09:34:44 +00:00
parent fa267f90a6
commit 3c75ae82d2
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -97,6 +97,7 @@ const
SCookiePath = httpProtocol.SCookiePath;
SCookieSecure = httpProtocol.SCookieSecure;
SCookieHttpOnly = httpProtocol.SCookieHttpOnly;
SCookieSameSite = httpProtocol.SCookieSameSite;
HTTPMonths : array[1..12] of string[3] = (
'Jan', 'Feb', 'Mar', 'Apr',
@ -148,11 +149,13 @@ type
TRequest = Class;
{ TCookie }
TSameSite = (ssEmpty,ssNone,ssStrict,ssLax);
TCookie = class(TCollectionItem)
private
FHttpOnly: Boolean;
FName: string;
FSameSite: TSameSite;
FValue: string;
FPath: string;
FDomain: string;
@ -171,6 +174,7 @@ type
property Expires: TDateTime read FExpires write FExpires;
property Secure: Boolean read FSecure write FSecure;
property HttpOnly: Boolean read FHttpOnly write FHttpOnly;
property SameSite: TSameSite Read FSameSite Write FSameSite;
Property AsString : String Read GetAsString;
end;
@ -2317,6 +2321,10 @@ function TCookie.GetAsString: string;
Result:=Result+';'+S;
end;
Const
SSameSiteValues : Array[TSameSite] of string
= ('','None','Strict','Lax');
Var
Y,M,D : Word;
@ -2338,6 +2346,8 @@ begin
AddToResult(SCookieHttpOnly);
if FSecure then
AddToResult(SCookieSecure);
if FSameSite<>ssEmpty then
AddToResult(SSameSiteValues[FSameSite]);
except
{$ifdef cgidebug}
On E : Exception do

1
packages/fcl-web/src/base/httpprotocol.pp
View File

@ -87,6 +87,7 @@ Const
SCookiePath = ' Path=%s';
SCookieSecure = ' Secure';
SCookieHttpOnly = ' HttpOnly';
SCookieSameSite = ' SameSite';
HTTPMonths: array[1..12] of string[3] = (
'Jan', 'Feb', 'Mar', 'Apr',