diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-06-04 13:20:25 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-06-04 13:20:25 +0000 |
| commit | 550eb93d3e6e85c5b0a154af02b6b2ba07808299 (patch) | |
| tree | dbd5f419496ad4057552e7b2e820bf1654216bf7 /packages/fcl-web/src/base/iniwebsession.pp | |
| parent | 8a5acd535334a1ae3fd529258db68cb5b3722aeb (diff) | |
| download | fpc-550eb93d3e6e85c5b0a154af02b6b2ba07808299.tar.gz | |
* Moved session cookie up in the class hierarchie, so it can be configured at the session factory level
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17653 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-web/src/base/iniwebsession.pp')
| -rw-r--r-- | packages/fcl-web/src/base/iniwebsession.pp | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/packages/fcl-web/src/base/iniwebsession.pp b/packages/fcl-web/src/base/iniwebsession.pp index 9a55c06dc0..ba3bc5b12e 100644 --- a/packages/fcl-web/src/base/iniwebsession.pp +++ b/packages/fcl-web/src/base/iniwebsession.pp @@ -29,8 +29,6 @@ Type FSessionStarted : Boolean; FCached: Boolean; FIniFile : TMemInifile; - FSessionCookie: String; - FSessionCookiePath: String; FSessionDir: String; FTerminated :Boolean; SID : String; @@ -42,9 +40,7 @@ Type Function GetSessionVariable(VarName : String) : String; override; procedure SetSessionVariable(VarName : String; const AValue: String); override; Property Cached : Boolean Read FCached Write FCached; - property SessionCookie : String Read FSessionCookie Write FSessionCookie; Property SessionDir : String Read FSessionDir Write FSessionDir; - Property SessionCookiePath : String Read FSessionCookiePath write FSessionCookiePath; Public Destructor Destroy; override; Procedure Terminate; override; @@ -99,8 +95,6 @@ Const KeyLast = 'Last'; // Last seen time of session KeyTimeOut = 'Timeout'; // Timeout in seconds; - SFPWebSession = 'FPWebSession'; // Cookie name for session. - resourcestring SErrSessionTerminated = 'No web session active: Session was terminated'; SErrNoSession = 'No web session active: Session was not started'; @@ -297,7 +291,6 @@ begin FTerminated := False; // If a exception occured during a prior request FIniFile is still not freed if assigned(FIniFile) then FreeIniFile; - If (SessionCookie='') then SessionCookie:=SFPWebSession; S:=ARequest.CookieFields.Values[SessionCookie]; @@ -353,7 +346,7 @@ begin C.Name:=SessionCookie; end; C.Value:=SID; - C.Path:=FSessionCookiePath; + C.Path:=SessionCookiePath; end else If FTerminated then begin |