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

* Include trailing path delimiter. Check if session exists; Added some debug statements (in CGIDebug conditional)

Browse Source 
git-svn-id: trunk@15566 -
This commit is contained in:
michael 2010-07-14 14:28:41 +00:00
parent 614d5e4858
commit 0ee895f141
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-web/src/base/websession.pp
View File

@ -125,7 +125,10 @@ begin
{$ifdef cgidebug}SendMethodEnter('GetDefaultSession');{$endif}
Result:=Nil;
If (GlobalSessionDir='') then
GlobalSessionDir:=IncludeTrailingPathDelimiter(GetTempDir(True));
GlobalSessionDir:=IncludeTrailingPathDelimiter(GetTempDir(True))
else
GlobalSessionDir:=IncludeTrailingPathDelimiter(GlobalSessionDir);
{$ifdef cgidebug}SendDebug('GetDefaultSession, session dir: '+GlobalSessionDir);{$endif}
If Assigned(OnGetDefaultSession) then
OnGetDefaultSession(Result);
if (Result=Nil) then
@ -257,8 +260,9 @@ begin
If Assigned(OnNewSession) then
OnNewSession(Self);
GetSessionID;
{$ifdef cgidebug}SendDebug('Creating new Ini file : '+SessionID);{$endif}
FIniFile:=TMemIniFile.Create(IncludeTrailingPathDelimiter(SessionDir)+SessionID);
S:=IncludeTrailingPathDelimiter(SessionDir)+SessionID;
{$ifdef cgidebug}SendDebug('Creating new Ini file : '+S);{$endif}
FIniFile:=TMemIniFile.Create(S);
FIniFile.WriteDateTime(SSession,KeyStart,Now);
FIniFile.WriteInteger(SSession,KeyTimeOut,Self.TimeOutMinutes);
FSessionStarted:=True;
@ -342,8 +346,13 @@ procedure TSessionHTTPModule.CheckSession(ARequest : TRequest);
begin
{$ifdef cgidebug}SendMethodEnter('SessionHTTPModule('+Name+').CheckSession');{$endif}
If CreateSession and Assigned(Session) then
Session.InitSession(ARequest,FOnNewSession,FOnSessionExpired);
If CreateSession then
begin
If (FSession=Nil) then
FSession:=GetDefaultSession;
if Assigned(Session) then
Session.InitSession(ARequest,FOnNewSession,FOnSessionExpired);
end;
{$ifdef cgidebug}SendMethodExit('SessionHTTPModule('+Name+').CheckSession');{$endif}
end;