Changeset 36 for trunk/WebServer/UHTTPSessionMySQL.pas

Timestamp:

Oct 29, 2010, 10:44:13 PM (14 years ago)

Author:

george

Message:

• Přidáno: Neodokončená třída TPageList a TQueryString.
• Přidáno: Částečná podpora pro přihlašování uživatelů.

File:

• trunk/WebServer/UHTTPSessionMySQL.pas (modified) (2 diffs)

trunk/WebServer/UHTTPSessionMySQL.pas

@@ -67 +67 @@
   try
     Lock.Acquire;
+    DbRows := SqlDatabase.Query('DELETE FROM `HTTPSession` WHERE `Time` < DATE_SUB(NOW(), INTERVAL ' +
+      IntToStr(Timeout) +' SECOND)');
+    DbRows.Free;
     DbRows := SqlDatabase.Query('SELECT * FROM `HTTPSession` WHERE `Identification`="' +
       HandlerData.SessionId + '"');
@@ -110 +113 @@
   Sessions := TStringList.Create;
   SessionIdCookieName := 'SessionId';
-  Timeout := 3600;
+  Timeout := 3 * 3600;
 end;